[ruby-dev:28844] Re: when *a

なかだです。

At Sat, 24 Jun 2006 23:53:27 +0900,
Yukihiro Matsumoto wrote in [ruby-dev:28829]:
> |At Sat, 24 Jun 2006 14:14:15 +0900,
> |Minero Aoki wrote in [ruby-dev:28822]:
> |> 次のように、when *a が動作しなくなっています。
> |
> |こんなとこでしょうか。
> 
> コミットしてください。

これだと when /b/, *[/a/] のような場合に動作してませんでした。
現状ではargsをそのまま使うようになっていますが、「ひとつひとつ
評価してはマッチさせる」という動作には不向きです。when_argsを復
活させたほうがいいような気がします。


Index: eval.c
===================================================================
RCS file: /cvs/ruby/src/ruby/eval.c,v
retrieving revision 1.903
diff -p -U2 -r1.903 eval.c
--- eval.c	23 Jun 2006 08:28:04 -0000	1.903
+++ eval.c	25 Jun 2006 08:01:46 -0000
@@ -2855,5 +2868,5 @@ rb_eval(VALUE self, NODE *n)
 				    ruby_frame->this_func,
 				    ruby_frame->this_class);
-		    if (tag->nd_head && nd_type(tag->nd_head) == NODE_WHEN) {
+		    if (tag->nd_head && nd_type(tag->nd_head) == NODE_SPLAT) {
 			VALUE v = rb_eval(self, tag->nd_head->nd_head);
 			long i;
Index: parse.y
===================================================================
RCS file: /cvs/ruby/src/ruby/parse.y,v
retrieving revision 1.443
diff -p -U2 -r1.443 parse.y
--- parse.y	21 Jun 2006 08:08:34 -0000	1.443
+++ parse.y	25 Jun 2006 07:56:00 -0000
@@ -533,5 +536,5 @@ static void ripper_compile_error(struct 
 %type <node> expr_value arg_value primary_value
 %type <node> if_tail opt_else case_body cases opt_rescue exc_list exc_var opt_ensure
-%type <node> args call_args call_args2 opt_call_args
+%type <node> args when_args call_args call_args2 opt_call_args
 %type <node> open_args paren_args opt_paren_args
 %type <node> command_args aref_args opt_block_arg block_arg var_ref var_lhs
@@ -3377,5 +3385,5 @@ brace_block	: '{'
 		;
 
-case_body	: kWHEN args then
+case_body	: kWHEN when_args then
 		  compstmt
 		  cases
@@ -3389,4 +3397,38 @@ case_body	: kWHEN args then
 		;
 
+when_args	: arg_value
+		    {
+		    /*%%%*/
+			$$ = NEW_LIST($1);
+		    /*%
+			$$ = arg_add(arg_new(), $1);
+		    %*/
+		    }
+		| tSTAR arg_value
+		    {
+		    /*%%%*/
+			$$ = NEW_LIST(NEW_SPLAT($2));
+		    /*%
+			$$ = arg_add_star(arg_new(), $2);
+		    %*/
+		    }
+		| when_args ',' arg_value
+		    {
+		    /*%%%*/
+			$$ = list_append($1, $3);
+		    /*%
+			$$ = arg_add($1, $3);
+		    %*/
+		    }
+		| when_args ',' tSTAR arg_value
+		    {
+		    /*%%%*/
+			$$ = list_append($1, NEW_SPLAT($4));
+		    /*%
+			$$ = arg_add_star($1, $4);
+		    %*/
+		    }
+		;
+
 cases		: opt_else
 		| case_body


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦