1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00

* node.h, node.c, parse.y: implement a parser part for keyword arguments. This is a preparation for keyword argument (see [ruby-core:40290]).

* gc.c (gc_mark_children): bookkeeping.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@34135 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
mame 2011-12-26 14:20:03 +00:00
parent afb10c62c2
commit 1ab3974b0e
5 changed files with 650 additions and 75 deletions

View file

@ -1,3 +1,11 @@
Mon Dec 26 22:00:17 2011 Yusuke Endoh <mame@tsg.ne.jp>
* node.h, node.c, parse.y: implement a parser part for keyword
arguments.
This is a preparation for keyword argument (see [ruby-core:40290]).
* gc.c (gc_mark_children): bookkeeping.
Mon Dec 26 21:03:18 2011 Yusuke Endoh <mame@tsg.ne.jp>
* node.h, parse.y (new_args_gen), compile.c (iseq_set_arguments): use

8
gc.c
View file

@ -1791,9 +1791,11 @@ gc_mark_children(rb_objspace_t *objspace, VALUE ptr, int lev)
{
struct rb_args_info *args = obj->as.node.u3.args;
if (args) {
if (args->pre_init) gc_mark(objspace, (VALUE)args->pre_init, lev);
if (args->post_init) gc_mark(objspace, (VALUE)args->post_init, lev);
if (args->opt_args) gc_mark(objspace, (VALUE)args->opt_args, lev);
if (args->pre_init) gc_mark(objspace, (VALUE)args->pre_init, lev);
if (args->post_init) gc_mark(objspace, (VALUE)args->post_init, lev);
if (args->opt_args) gc_mark(objspace, (VALUE)args->opt_args, lev);
if (args->kw_args) gc_mark(objspace, (VALUE)args->kw_args, lev);
if (args->kw_rest_arg) gc_mark(objspace, (VALUE)args->kw_rest_arg, lev);
}
}
ptr = (VALUE)obj->as.node.u2.node;

11
node.c
View file

@ -823,6 +823,15 @@ dump_node(VALUE buf, VALUE indent, int comment, NODE *node)
F_NODE(nd_next, "next");
break;
case NODE_KW_ARG:
ANN("keyword arguments");
ANN("format: def method_name([nd_body=some], [nd_next..])");
ANN("example: def foo(a:1, b:2); end");
F_NODE(nd_body, "body");
LAST_NODE;
F_NODE(nd_next, "next");
break;
case NODE_POSTARG:
ANN("post arguments");
ANN("format: *[nd_1st], [nd_2nd..] = ..");
@ -849,6 +858,8 @@ dump_node(VALUE buf, VALUE indent, int comment, NODE *node)
F_ID(nd_ainfo->rest_arg, "rest argument");
F_ID(nd_ainfo->block_arg, "block argument");
F_NODE(nd_ainfo->opt_args, "optional arguments");
LAST_NODE;
F_NODE(nd_ainfo->kw_args, "keyword arguments");
break;
case NODE_SCOPE:

6
node.h
View file

@ -154,6 +154,8 @@ enum node_type {
#define NODE_ARGS_AUX NODE_ARGS_AUX
NODE_OPT_ARG,
#define NODE_OPT_ARG NODE_OPT_ARG
NODE_KW_ARG,
#define NODE_KW_ARG NODE_KW_ARG
NODE_POSTARG,
#define NODE_POSTARG NODE_POSTARG
NODE_ARGSCAT,
@ -419,6 +421,7 @@ typedef struct RNode {
#define NEW_ZSUPER() NEW_NODE(NODE_ZSUPER,0,0,0)
#define NEW_ARGS_AUX(r,b) NEW_NODE(NODE_ARGS_AUX,r,b,0)
#define NEW_OPT_ARG(i,v) NEW_NODE(NODE_OPT_ARG,i,v,0)
#define NEW_KW_ARG(i,v) NEW_NODE(NODE_KW_ARG,i,v,0)
#define NEW_POSTARG(i,v) NEW_NODE(NODE_POSTARG,i,v,0)
#define NEW_ARGSCAT(a,b) NEW_NODE(NODE_ARGSCAT,a,b,0)
#define NEW_ARGSPUSH(a,b) NEW_NODE(NODE_ARGSPUSH,a,b,0)
@ -495,6 +498,9 @@ struct rb_args_info {
ID rest_arg;
ID block_arg;
NODE *kw_args;
NODE *kw_rest_arg;
NODE *opt_args;
};

692
parse.y
View file

@ -372,8 +372,8 @@ static NODE *call_bin_op_gen(struct parser_params*,NODE*,ID,NODE*);
static NODE *call_uni_op_gen(struct parser_params*,NODE*,ID);
#define call_uni_op(recv,id) call_uni_op_gen(parser, (recv),(id))
static NODE *new_args_gen(struct parser_params*,NODE*,NODE*,ID,NODE*,ID);
#define new_args(f,o,r,p,b) new_args_gen(parser, (f),(o),(r),(p),(b))
static NODE *new_args_gen(struct parser_params*,NODE*,NODE*,ID,NODE*,NODE*,ID,ID);
#define new_args(f,o,r,p,k,kr,b) new_args_gen(parser, (f),(o),(r),(p),(k),(kr),(b))
static NODE *negate_lit(NODE*);
static NODE *ret_args_gen(struct parser_params*,NODE*);
@ -501,6 +501,7 @@ static VALUE ripper_dispatch2(struct parser_params*,ID,VALUE,VALUE);
static VALUE ripper_dispatch3(struct parser_params*,ID,VALUE,VALUE,VALUE);
static VALUE ripper_dispatch4(struct parser_params*,ID,VALUE,VALUE,VALUE,VALUE);
static VALUE ripper_dispatch5(struct parser_params*,ID,VALUE,VALUE,VALUE,VALUE,VALUE);
static VALUE ripper_dispatch7(struct parser_params*,ID,VALUE,VALUE,VALUE,VALUE,VALUE,VALUE,VALUE);
#define dispatch0(n) ripper_dispatch0(parser, TOKEN_PASTE(ripper_id_, n))
#define dispatch1(n,a) ripper_dispatch1(parser, TOKEN_PASTE(ripper_id_, n), (a))
@ -508,6 +509,7 @@ static VALUE ripper_dispatch5(struct parser_params*,ID,VALUE,VALUE,VALUE,VALUE,V
#define dispatch3(n,a,b,c) ripper_dispatch3(parser, TOKEN_PASTE(ripper_id_, n), (a), (b), (c))
#define dispatch4(n,a,b,c,d) ripper_dispatch4(parser, TOKEN_PASTE(ripper_id_, n), (a), (b), (c), (d))
#define dispatch5(n,a,b,c,d,e) ripper_dispatch5(parser, TOKEN_PASTE(ripper_id_, n), (a), (b), (c), (d), (e))
#define dispatch7(n,a,b,c,d,e,f,g) ripper_dispatch7(parser, TOKEN_PASTE(ripper_id_, n), (a), (b), (c), (d), (e), (f), (g))
#define yyparse ripper_yyparse
@ -535,8 +537,8 @@ static VALUE ripper_id2sym(ID);
#define mlhs_add(l,a) dispatch2(mlhs_add, (l), (a))
#define mlhs_add_star(l,a) dispatch2(mlhs_add_star, (l), (a))
#define params_new(pars, opts, rest, pars2, blk) \
dispatch5(params, (pars), (opts), (rest), (pars2), (blk))
#define params_new(pars, opts, rest, pars2, kws, kwrest, blk) \
dispatch7(params, (pars), (opts), (rest), (pars2), (kws), (kwrest), (blk))
#define blockvar_new(p,v) dispatch2(block_var, (p), (v))
#define blockvar_add_star(l,a) dispatch2(block_var_add_star, (l), (a))
@ -697,12 +699,14 @@ static void token_info_pop(struct parser_params*, const char *token);
%type <node> f_arglist f_args f_arg f_arg_item f_optarg f_marg f_marg_list f_margs
%type <node> assoc_list assocs assoc undef_list backref string_dvar for_var
%type <node> block_param opt_block_param block_param_def f_opt
%type <node> f_kwarg f_kw f_block_kwarg f_block_kw
%type <node> bv_decls opt_bv_decl bvar
%type <node> lambda f_larglist lambda_body
%type <node> brace_block cmd_brace_block do_block lhs none fitem
%type <node> mlhs mlhs_head mlhs_basic mlhs_item mlhs_node mlhs_post mlhs_inner
%type <id> fsym keyword_variable user_variable sym symbol operation operation2 operation3
%type <id> cname fname op f_rest_arg f_block_arg opt_f_block_arg f_norm_arg f_bad_arg
%type <id> f_kwrest
/*%%%*/
/*%
%type <val> program reswords then do dot_or_colon
@ -2922,7 +2926,7 @@ primary : literal
0),
node_assign($2, NEW_DVAR(id)));
args = new_args(m, 0, id, 0, 0);
args = new_args(m, 0, id, 0, 0, 0, 0);
}
else {
if (nd_type($2) == NODE_LASGN ||
@ -2931,11 +2935,11 @@ primary : literal
$2->nd_value = NEW_DVAR(id);
m->nd_plen = 1;
m->nd_next = $2;
args = new_args(m, 0, 0, 0, 0);
args = new_args(m, 0, 0, 0, 0, 0, 0);
}
else {
m->nd_next = node_assign(NEW_MASGN(NEW_LIST($2), 0), NEW_DVAR(id));
args = new_args(m, 0, id, 0, 0);
args = new_args(m, 0, id, 0, 0, 0, 0);
}
}
scope = NEW_NODE(NODE_SCOPE, tbl, $8, args);
@ -3339,125 +3343,349 @@ f_margs : f_marg_list
}
;
block_param : f_arg ',' f_block_optarg ',' f_rest_arg opt_f_block_arg
block_param : f_arg ',' f_block_optarg ',' f_rest_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, 0, $6);
$$ = new_args($1, $3, $5, 0, $7, $8, $9);
/*%
$$ = params_new($1, $3, $5, Qnil, escape_Qundef($6));
$$ = params_new($1, $3, $5, Qnil, $7, $8, escape_Qundef($9));
%*/
}
| f_arg ',' f_block_optarg ',' f_rest_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, 0, $7, 0, $8);
/*%
$$ = params_new($1, $3, $5, Qnil, $7, Qnil, escape_Qundef($8));
%*/
}
| f_arg ',' f_block_optarg ',' f_rest_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, 0, 0, 0, $6);
/*%
$$ = params_new($1, $3, $5, Qnil, Qnil, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_block_optarg ',' f_rest_arg ',' f_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, $7, $9, $10, $11);
/*%
$$ = params_new($1, $3, $5, $7, $9, $10, escape_Qundef($11));
%*/
}
| f_arg ',' f_block_optarg ',' f_rest_arg ',' f_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, $7, $9, 0, $10);
/*%
$$ = params_new($1, $3, $5, $7, $9, Qnil, escape_Qundef($10));
%*/
}
| f_arg ',' f_block_optarg ',' f_rest_arg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, $7, $8);
$$ = new_args($1, $3, $5, $7, 0, 0, $8);
/*%
$$ = params_new($1, $3, $5, $7, escape_Qundef($8));
$$ = params_new($1, $3, $5, $7, Qnil, Qnil, escape_Qundef($8));
%*/
}
| f_arg ',' f_block_optarg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, 0, $5, $6, $7);
/*%
$$ = params_new($1, $3, Qnil, Qnil, $5, $6, escape_Qundef($7));
%*/
}
| f_arg ',' f_block_optarg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, 0, $5, 0, $6);
/*%
$$ = params_new($1, $3, Qnil, Qnil, $5, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_block_optarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, 0, $4);
$$ = new_args($1, $3, 0, 0, 0, 0, $4);
/*%
$$ = params_new($1, $3, Qnil, Qnil, escape_Qundef($4));
$$ = params_new($1, $3, Qnil, Qnil, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_arg ',' f_block_optarg ',' f_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, $5, $7, $8, $9);
/*%
$$ = params_new($1, $3, Qnil, $5, $7, $8, escape_Qundef($9));
%*/
}
| f_arg ',' f_block_optarg ',' f_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, $5, $7, 0, $8);
/*%
$$ = params_new($1, $3, Qnil, $5, $7, Qnil, escape_Qundef($8));
%*/
}
| f_arg ',' f_block_optarg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, $5, $6);
$$ = new_args($1, $3, 0, $5, 0, 0, $6);
/*%
$$ = params_new($1, $3, Qnil, $5, escape_Qundef($6));
$$ = params_new($1, $3, Qnil, $5, Qnil, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_rest_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, 0, $5, $6, $7);
/*%
$$ = params_new($1, Qnil, $3, Qnil, $5, $6, escape_Qundef($7));
%*/
}
| f_arg ',' f_rest_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, 0, $5, 0, $6);
/*%
$$ = params_new($1, Qnil, $3, Qnil, $5, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_rest_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, 0, $4);
$$ = new_args($1, 0, $3, 0, 0, 0, $4);
/*%
$$ = params_new($1, Qnil, $3, Qnil, escape_Qundef($4));
$$ = params_new($1, Qnil, $3, Qnil, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_arg ','
{
/*%%%*/
$$ = new_args($1, 0, 1, 0, 0);
$$ = new_args($1, 0, 1, 0, 0, 0, 0);
/*%
$$ = params_new($1, Qnil, Qnil, Qnil, Qnil);
$$ = params_new($1, Qnil, Qnil, Qnil, Qnil, Qnil, Qnil);
dispatch1(excessed_comma, $$);
%*/
}
| f_arg ',' f_rest_arg ',' f_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, $5, $7, $8, $9);
/*%
$$ = params_new($1, Qnil, $3, $5, $7, $8, escape_Qundef($9));
%*/
}
| f_arg ',' f_rest_arg ',' f_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, $5, $7, 0, $8);
/*%
$$ = params_new($1, Qnil, $3, $5, $7, Qnil, escape_Qundef($8));
%*/
}
| f_arg ',' f_rest_arg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, $5, $6);
$$ = new_args($1, 0, $3, $5, 0, 0, $6);
/*%
$$ = params_new($1, Qnil, $3, $5, escape_Qundef($6));
$$ = params_new($1, Qnil, $3, $5, Qnil, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, 0, 0, $3, $4, $5);
/*%
$$ = params_new($1, Qnil,Qnil, Qnil, $3, $4, escape_Qundef($5));
%*/
}
| f_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, 0, 0, $3, 0, $4);
/*%
$$ = params_new($1, Qnil,Qnil, Qnil, $3, Qnil, escape_Qundef($4));
%*/
}
| f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, 0, 0, $2);
$$ = new_args($1, 0, 0, 0, 0, 0, $2);
/*%
$$ = params_new($1, Qnil,Qnil, Qnil, escape_Qundef($2));
$$ = params_new($1, Qnil,Qnil, Qnil, Qnil, Qnil, escape_Qundef($2));
%*/
}
| f_block_optarg ',' f_rest_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, 0, $5, $6, $7);
/*%
$$ = params_new(Qnil, $1, $3, Qnil, $5, $6, escape_Qundef($7));
%*/
}
| f_block_optarg ',' f_rest_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, 0, $5, 0, $6);
/*%
$$ = params_new(Qnil, $1, $3, Qnil, $5, Qnil, escape_Qundef($6));
%*/
}
| f_block_optarg ',' f_rest_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, 0, $4);
$$ = new_args(0, $1, $3, 0, 0, 0, $4);
/*%
$$ = params_new(Qnil, $1, $3, Qnil, escape_Qundef($4));
$$ = params_new(Qnil, $1, $3, Qnil, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_block_optarg ',' f_rest_arg ',' f_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, $5, $7, $8, $9);
/*%
$$ = params_new(Qnil, $1, $3, $5, $7, $8, escape_Qundef($9));
%*/
}
| f_block_optarg ',' f_rest_arg ',' f_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, $5, $7, 0, $8);
/*%
$$ = params_new(Qnil, $1, $3, $5, $7, Qnil, escape_Qundef($8));
%*/
}
| f_block_optarg ',' f_rest_arg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, $5, $6);
$$ = new_args(0, $1, $3, $5, 0, 0, $6);
/*%
$$ = params_new(Qnil, $1, $3, $5, escape_Qundef($6));
$$ = params_new(Qnil, $1, $3, $5, Qnil, Qnil, escape_Qundef($6));
%*/
}
| f_block_optarg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, 0, $3, $4, $5);
/*%
$$ = params_new(Qnil, $1, Qnil, Qnil, $3, $4, escape_Qundef($5));
%*/
}
| f_block_optarg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, 0, $3, 0, $4);
/*%
$$ = params_new(Qnil, $1, Qnil, Qnil, $3, Qnil, escape_Qundef($4));
%*/
}
| f_block_optarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, 0, $2);
$$ = new_args(0, $1, 0, 0, 0, 0, $2);
/*%
$$ = params_new(Qnil, $1, Qnil, Qnil,escape_Qundef($2));
$$ = params_new(Qnil, $1, Qnil, Qnil, Qnil, Qnil, escape_Qundef($2));
%*/
}
| f_block_optarg ',' f_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, $3, $5, $6, $7);
/*%
$$ = params_new(Qnil, $1, Qnil, $3, $5, $6, escape_Qundef($7));
%*/
}
| f_block_optarg ',' f_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, $3, $5, 0, $6);
/*%
$$ = params_new(Qnil, $1, Qnil, $3, $5, Qnil, escape_Qundef($6));
%*/
}
| f_block_optarg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, $3, $4);
$$ = new_args(0, $1, 0, $3, 0, 0, $4);
/*%
$$ = params_new(Qnil, $1, Qnil, $3, escape_Qundef($4));
$$ = params_new(Qnil, $1, Qnil, $3, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_rest_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, 0, $3, $4, $5);
/*%
$$ = params_new(Qnil, Qnil, $1, Qnil, $3, $4, escape_Qundef($5));
%*/
}
| f_rest_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, 0, $3, 0, $4);
/*%
$$ = params_new(Qnil, Qnil, $1, Qnil, $3, Qnil, escape_Qundef($4));
%*/
}
| f_rest_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, 0, $2);
$$ = new_args(0, 0, $1, 0, 0, 0, $2);
/*%
$$ = params_new(Qnil, Qnil, $1, Qnil, escape_Qundef($2));
$$ = params_new(Qnil, Qnil, $1, Qnil, Qnil, Qnil, escape_Qundef($2));
%*/
}
| f_rest_arg ',' f_arg ',' f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, $3, $5, $6, $7);
/*%
$$ = params_new(Qnil, Qnil, $1, $3, $5, $6, escape_Qundef($7));
%*/
}
| f_rest_arg ',' f_arg ',' f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, $3, $5, 0, $6);
/*%
$$ = params_new(Qnil, Qnil, $1, $3, $5, Qnil, escape_Qundef($6));
%*/
}
| f_rest_arg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, $3, $4);
$$ = new_args(0, 0, $1, $3, 0, 0, $4);
/*%
$$ = params_new(Qnil, Qnil, $1, $3, escape_Qundef($4));
$$ = params_new(Qnil, Qnil, $1, $3, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_block_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, 0, 0, $1, $2, $3);
/*%
$$ = params_new(Qnil, Qnil, Qnil, Qnil, $1, $2, escape_Qundef($3));
%*/
}
| f_block_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, 0, 0, $1, 0, $2);
/*%
$$ = params_new(Qnil, Qnil, Qnil, Qnil, $1, Qnil, escape_Qundef($2));
%*/
}
| f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, 0, 0, $1);
$$ = new_args(0, 0, 0, 0, 0, 0, $1);
/*%
$$ = params_new(Qnil, Qnil, Qnil, Qnil, $1);
$$ = params_new(Qnil, Qnil, Qnil, Qnil, Qnil, Qnil, $1);
%*/
}
;
@ -3474,7 +3702,7 @@ block_param_def : '|' opt_bv_decl '|'
/*%%%*/
$$ = 0;
/*%
$$ = blockvar_new(params_new(Qnil,Qnil,Qnil,Qnil,Qnil),
$$ = blockvar_new(params_new(Qnil,Qnil,Qnil,Qnil,Qnil,Qnil,Qnil),
escape_Qundef($2));
%*/
}
@ -3483,7 +3711,7 @@ block_param_def : '|' opt_bv_decl '|'
/*%%%*/
$$ = 0;
/*%
$$ = blockvar_new(params_new(Qnil,Qnil,Qnil,Qnil,Qnil),
$$ = blockvar_new(params_new(Qnil,Qnil,Qnil,Qnil,Qnil,Qnil,Qnil),
Qnil);
%*/
}
@ -4428,124 +4656,348 @@ f_arglist : '(' f_args rparen
}
;
f_args : f_arg ',' f_optarg ',' f_rest_arg opt_f_block_arg
f_args : f_arg ',' f_optarg ',' f_rest_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, 0, $6);
$$ = new_args($1, $3, $5, 0, $7, $8, $9);
/*%
$$ = params_new($1, $3, $5, Qnil, escape_Qundef($6));
$$ = params_new($1, $3, $5, Qnil, $7, $8, escape_Qundef($9));
%*/
}
| f_arg ',' f_optarg ',' f_rest_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, 0, $7, 0, $8);
/*%
$$ = params_new($1, $3, $5, Qnil, $7, Qnil, escape_Qundef($8));
%*/
}
| f_arg ',' f_optarg ',' f_rest_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, 0, 0, 0, $6);
/*%
$$ = params_new($1, $3, $5, Qnil, Qnil, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_optarg ',' f_rest_arg ',' f_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, $7, $9, $10, $11);
/*%
$$ = params_new($1, $3, $5, $7, $9, $10, escape_Qundef($11));
%*/
}
| f_arg ',' f_optarg ',' f_rest_arg ',' f_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, $7, $9, 0, $10);
/*%
$$ = params_new($1, $3, $5, $7, $9, Qnil, escape_Qundef($10));
%*/
}
| f_arg ',' f_optarg ',' f_rest_arg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, $5, $7, $8);
$$ = new_args($1, $3, $5, $7, 0, 0, $8);
/*%
$$ = params_new($1, $3, $5, $7, escape_Qundef($8));
$$ = params_new($1, $3, $5, $7, Qnil, Qnil, escape_Qundef($8));
%*/
}
| f_arg ',' f_optarg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, 0, $5, $6, $7);
/*%
$$ = params_new($1, $3, Qnil, Qnil, $5, $6, escape_Qundef($7));
%*/
}
| f_arg ',' f_optarg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, 0, $5, 0, $6);
/*%
$$ = params_new($1, $3, Qnil, Qnil, $5, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_optarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, 0, $4);
$$ = new_args($1, $3, 0, 0, 0, 0, $4);
/*%
$$ = params_new($1, $3, Qnil, Qnil, escape_Qundef($4));
$$ = params_new($1, $3, Qnil, Qnil, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_arg ',' f_optarg ',' f_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, $5, $7, $8, $9);
/*%
$$ = params_new($1, $3, Qnil, $5, $7, $8, escape_Qundef($9));
%*/
}
| f_arg ',' f_optarg ',' f_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, $5, $7, 0, $8);
/*%
$$ = params_new($1, $3, Qnil, $5, $7, Qnil, escape_Qundef($8));
%*/
}
| f_arg ',' f_optarg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, $3, 0, $5, $6);
$$ = new_args($1, $3, 0, $5, 0, 0, $6);
/*%
$$ = params_new($1, $3, Qnil, $5, escape_Qundef($6));
$$ = params_new($1, $3, Qnil, $5, Qnil, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_rest_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, 0, $5, $6, $7);
/*%
$$ = params_new($1, Qnil, $3, Qnil, $5, $6, escape_Qundef($7));
%*/
}
| f_arg ',' f_rest_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, 0, $5, 0, $6);
/*%
$$ = params_new($1, Qnil, $3, Qnil, $5, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_rest_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, 0, $4);
$$ = new_args($1, 0, $3, 0, 0, 0, $4);
/*%
$$ = params_new($1, Qnil, $3, Qnil, escape_Qundef($4));
$$ = params_new($1, Qnil, $3, Qnil, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_arg ',' f_rest_arg ',' f_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, $5, $7, $8, $9);
/*%
$$ = params_new($1, Qnil, $3, $5, $7, $8, escape_Qundef($9));
%*/
}
| f_arg ',' f_rest_arg ',' f_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, $5, $7, 0, $8);
/*%
$$ = params_new($1, Qnil, $3, $5, $7, Qnil, escape_Qundef($8));
%*/
}
| f_arg ',' f_rest_arg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, $3, $5, $6);
$$ = new_args($1, 0, $3, $5, 0, 0, $6);
/*%
$$ = params_new($1, Qnil, $3, $5, escape_Qundef($6));
$$ = params_new($1, Qnil, $3, $5, Qnil, Qnil, escape_Qundef($6));
%*/
}
| f_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, 0, 0, $3, $4, $5);
/*%
$$ = params_new($1, Qnil, Qnil, Qnil, $3, $4, escape_Qundef($5));
%*/
}
| f_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, 0, 0, $3, 0, $4);
/*%
$$ = params_new($1, Qnil, Qnil, Qnil, $3, Qnil, escape_Qundef($4));
%*/
}
| f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args($1, 0, 0, 0, $2);
$$ = new_args($1, 0, 0, 0, 0, 0, $2);
/*%
$$ = params_new($1, Qnil, Qnil, Qnil,escape_Qundef($2));
$$ = params_new($1, Qnil, Qnil, Qnil, Qnil, Qnil, escape_Qundef($2));
%*/
}
| f_optarg ',' f_rest_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, 0, $5, $6, $7);
/*%
$$ = params_new(Qnil, $1, $3, Qnil, $5, $6, escape_Qundef($7));
%*/
}
| f_optarg ',' f_rest_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, 0, $5, 0, $6);
/*%
$$ = params_new(Qnil, $1, $3, Qnil, $5, Qnil, escape_Qundef($6));
%*/
}
| f_optarg ',' f_rest_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, 0, $4);
$$ = new_args(0, $1, $3, 0, 0, 0, $4);
/*%
$$ = params_new(Qnil, $1, $3, Qnil, escape_Qundef($4));
$$ = params_new(Qnil, $1, $3, Qnil, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_optarg ',' f_rest_arg ',' f_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, $5, $7, $8, $9);
/*%
$$ = params_new(Qnil, $1, $3, $5, $7, $8, escape_Qundef($9));
%*/
}
| f_optarg ',' f_rest_arg ',' f_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, $5, $7, 0, $8);
/*%
$$ = params_new(Qnil, $1, $3, $5, $7, Qnil, escape_Qundef($8));
%*/
}
| f_optarg ',' f_rest_arg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, $3, $5, $6);
$$ = new_args(0, $1, $3, $5, 0, 0, $6);
/*%
$$ = params_new(Qnil, $1, $3, $5, escape_Qundef($6));
$$ = params_new(Qnil, $1, $3, $5, Qnil, Qnil, escape_Qundef($6));
%*/
}
| f_optarg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, 0, $3, $4, $5);
/*%
$$ = params_new(Qnil, $1, Qnil, Qnil, $3, $4, escape_Qundef($5));
%*/
}
| f_optarg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, 0, $3, 0, $4);
/*%
$$ = params_new(Qnil, $1, Qnil, Qnil, $3, Qnil, escape_Qundef($4));
%*/
}
| f_optarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, 0, $2);
$$ = new_args(0, $1, 0, 0, 0, 0, $2);
/*%
$$ = params_new(Qnil, $1, Qnil, Qnil,escape_Qundef($2));
$$ = params_new(Qnil, $1, Qnil, Qnil, Qnil, Qnil, escape_Qundef($2));
%*/
}
| f_optarg ',' f_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, $3, $5, $6, $7);
/*%
$$ = params_new(Qnil, $1, Qnil, $3, $5, $6, escape_Qundef($7));
%*/
}
| f_optarg ',' f_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, $3, $5, 0, $6);
/*%
$$ = params_new(Qnil, $1, Qnil, $3, $5, Qnil, escape_Qundef($6));
%*/
}
| f_optarg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, $1, 0, $3, $4);
$$ = new_args(0, $1, 0, $3, 0, 0, $4);
/*%
$$ = params_new(Qnil, $1, Qnil, $3, escape_Qundef($4));
$$ = params_new(Qnil, $1, Qnil, $3, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_rest_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, 0, $3, $4, $5);
/*%
$$ = params_new(Qnil, Qnil, $1, Qnil, $3, $4, escape_Qundef($5));
%*/
}
| f_rest_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, 0, $3, 0, $4);
/*%
$$ = params_new(Qnil, Qnil, $1, Qnil, $3, Qnil, escape_Qundef($4));
%*/
}
| f_rest_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, 0, $2);
$$ = new_args(0, 0, $1, 0, 0, 0, $2);
/*%
$$ = params_new(Qnil, Qnil, $1, Qnil,escape_Qundef($2));
$$ = params_new(Qnil, Qnil, $1, Qnil, Qnil, Qnil, escape_Qundef($2));
%*/
}
| f_rest_arg ',' f_arg ',' f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, $3, $5, $6, $7);
/*%
$$ = params_new(Qnil, Qnil, $1, $3, $5, $6, escape_Qundef($7));
%*/
}
| f_rest_arg ',' f_arg ',' f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, $3, $5, 0, $6);
/*%
$$ = params_new(Qnil, Qnil, $1, $3, $5, Qnil, escape_Qundef($6));
%*/
}
| f_rest_arg ',' f_arg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, $1, $3, $4);
$$ = new_args(0, 0, $1, $3, 0, 0, $4);
/*%
$$ = params_new(Qnil, Qnil, $1, $3, escape_Qundef($4));
$$ = params_new(Qnil, Qnil, $1, $3, Qnil, Qnil, escape_Qundef($4));
%*/
}
| f_kwarg f_kwrest opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, 0, 0, $1, $2, $3);
/*%
$$ = params_new(Qnil, Qnil, Qnil, Qnil, $1, $2, escape_Qundef($3));
%*/
}
| f_kwarg opt_f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, 0, 0, $1, 0, $2);
/*%
$$ = params_new(Qnil, Qnil, Qnil, Qnil, $1, Qnil, escape_Qundef($2));
%*/
}
| f_block_arg
{
/*%%%*/
$$ = new_args(0, 0, 0, 0, $1);
$$ = new_args(0, 0, 0, 0, 0, 0, $1);
/*%
$$ = params_new(Qnil, Qnil, Qnil, Qnil, $1);
$$ = params_new(Qnil, Qnil, Qnil, Qnil, Qnil, Qnil, $1);
%*/
}
| /* none */
{
/*%%%*/
$$ = new_args(0, 0, 0, 0, 0);
$$ = new_args(0, 0, 0, 0, 0, 0, 0);
/*%
$$ = params_new(Qnil, Qnil, Qnil, Qnil, Qnil);
$$ = params_new(Qnil, Qnil, Qnil, Qnil, Qnil, Qnil, Qnil);
%*/
}
;
@ -4644,6 +5096,85 @@ f_arg : f_arg_item
}
;
f_kw : tLABEL arg_value
{
arg_var(formal_argument(get_id($1)));
$$ = assignable($1, $2);
/*%%%*/
$$ = NEW_KW_ARG(0, $$);
/*%
$$ = rb_assoc_new($$, $2);
%*/
}
;
f_block_kw : tLABEL primary_value
{
arg_var(formal_argument(get_id($1)));
$$ = assignable($1, $2);
/*%%%*/
$$ = NEW_KW_ARG(0, $$);
/*%
$$ = rb_assoc_new($$, $2);
%*/
}
;
f_block_kwarg : f_block_kw
{
/*%%%*/
$$ = $1;
/*%
$$ = rb_ary_new3(1, $1);
%*/
}
| f_block_kwarg ',' f_block_kw
{
/*%%%*/
NODE *kws = $1;
while (kws->nd_next) {
kws = kws->nd_next;
}
kws->nd_next = $3;
$$ = $1;
/*%
$$ = rb_ary_push($1, $3);
%*/
}
;
f_kwarg : f_kw
{
/*%%%*/
$$ = $1;
/*%
$$ = rb_ary_new3(1, $1);
%*/
}
| f_kwarg ',' f_kw
{
/*%%%*/
NODE *kws = $1;
while (kws->nd_next) {
kws = kws->nd_next;
}
kws->nd_next = $3;
$$ = $1;
/*%
$$ = rb_ary_push($1, $3);
%*/
}
;
f_kwrest : ',' tPOW tIDENTIFIER
{
$$ = $3;
}
;
f_opt : tIDENTIFIER '=' arg_value
{
arg_var(formal_argument(get_id($1)));
@ -9118,7 +9649,7 @@ arg_blk_pass(NODE *node1, NODE *node2)
}
static NODE*
new_args_gen(struct parser_params *parser, NODE *m, NODE *o, ID r, NODE *p, ID b)
new_args_gen(struct parser_params *parser, NODE *m, NODE *o, ID r, NODE *p, NODE *k, ID kr, ID b)
{
int saved_line = ruby_sourceline;
struct rb_args_info *args;
@ -9136,6 +9667,10 @@ new_args_gen(struct parser_params *parser, NODE *m, NODE *o, ID r, NODE *p, ID b
args->block_arg = b;
args->opt_args = o;
args->kw_args = k;
if (k && !kr) kr = internal_id();
arg_var(kr);
args->kw_rest_arg = NEW_DVAR(kr);
ruby_sourceline = saved_line;
return NEW_NODE(NODE_ARGS, 0, 0, args);
@ -10656,6 +11191,19 @@ ripper_dispatch5(struct parser_params *parser, ID mid, VALUE a, VALUE b, VALUE c
return rb_funcall(parser->value, mid, 5, a, b, c, d, e);
}
static VALUE
ripper_dispatch7(struct parser_params *parser, ID mid, VALUE a, VALUE b, VALUE c, VALUE d, VALUE e, VALUE f, VALUE g)
{
validate(a);
validate(b);
validate(c);
validate(d);
validate(e);
validate(f);
validate(g);
return rb_funcall(parser->value, mid, 7, a, b, c, d, e, f, g);
}
static const struct kw_assoc {
ID id;
const char *name;