[ruby-dev:9631] Re: callargs([nil])

なかだです。

  話が右往左往してすいませんが。

At Fri, 5 May 2000 09:15:39 +0900,
Nobuyoshi-Nakada wrote:
> >   x には nil が渡って欲しいんですが、エラーになります。とりあえ
> > ず ad hoc にいじってみましたが、どうしたもんだか。
> 
>   見事にダメダメっす(;_;)。こんなんなっちゃう。
> 
> $ ~/src/ruby/current/miniruby -e 'p proc{|x|x}.call(*[nil])' 
> [nil]
> 
>   それよりそもそも * つけなきゃなんも問題ないっすね。Proc#call
> は Array をとれるし、というかそのための callargs() のような。

  やっぱりうまくないです。Proc#call に Array １個を渡したとき
の解釈として、

(a) array は引数の配列
(b) array は単独の引数

の２種類ありますが、(1)のときだけ(b)と解釈されますが、それ以外
は(a)と見なされます。(a)と解釈して欲しいときには(1'),(2') など
とする必要があります。

(1)  proc{|x|}.call(array)	-> (b)
(2)  proc{|x,|}.call(array)	-> (a)
(3)  proc{|x,*y|}.call(array)	-> (a)
(1') proc{|x|}.call(*array)	-> (a)
(2') proc{|x,|}.call(*array)	-> (a)
(3') proc{|x,*y|}.call(*array)	-> (a)

  ほとんどの場合はこれでうまくいくのですが、array == [nil] のと
きだけは *[nil] -> nil -> [] と変換されて引数なしと見なされてし
まいます。

  Proc#call 以外の場合に付いては妥当に解釈されるのですが。

p([nil])  -> [nil]
p(*nil)   -> 
p(*[nil]) -> nil

  悩んだのですが、結局あまりうまい手は思い付きませんでした。


--- eval.c	2000/05/04 17:44:06 	1.41
+++ eval.c	2000/05/05 00:01:38
@@ -5783,6 +5783,7 @@ blk_orphan(data)
 
 static VALUE
-callargs(args)
+callargs(args, var)
     VALUE args;
+    NODE *var;
 {
     switch (RARRAY(args)->len) {
@@ -5791,4 +5792,7 @@ callargs(args)
 	break;
       case 1:
+	if (var && nd_type(var) == NODE_MASGN) {
+	    return args;
+	}
 	return RARRAY(args)->ptr[0];
       default:
@@ -5820,5 +5824,5 @@ proc_call(proc, args)
 
     if (TYPE(args) == T_ARRAY) {
-	args = callargs(args);
+	args = callargs(args, data->var);
     }
 
@@ -7384,5 +7388,5 @@ rb_thread_yield(arg, th) 
 {
     scope_dup(ruby_block->scope);
-    return rb_yield_0(callargs(arg), 0, 0, Qfalse);
+    return rb_yield_0(callargs(arg, 0), 0, 0, Qfalse);
 }
 


-- 
そうだ 強気に ちょっと インチキに☆彡
    中田 "Bugるくらいがちょうどいいかも;-)" 伸悦