[ruby-dev:19253] Re: CRLF (here document)

なかだです。

At Tue, 31 Dec 2002 03:24:37 +0900,
WATANABE Hirofumi wrote:
> > > > > これだと、" __END__\n"がエラーになりません。
> > > > 
> > > > じゃ、1.6.8も同じようにまずいっすね。
> > > 
> > > あ、うそうそ。結局Ruby 1.8.0で試してました。
> > 
> > なぜか1.6.8はちゃんと通りますね。あ、nextc()の中で\rをスキップ
> > する前に見てるからか。てことは#{}を改造したときにミスったか。
> 
> ということは
>   % ruby-1.6.8 -ve 'eval " __END__\n"'
>   ruby 1.6.8 (2002-12-24) [i386-linux]
>   -e:1: undefined local variable or method `__END__' for #<Object:0x40237ce0> (NameError)
> とエラーになるのは意図してなかった？

いや、その__END__は行頭から始まってるわけではないので、エラーに
なるのが正しいと思います。ミスったのは、nextc()では'\r'をスキッ
プするのにpushback()ではそれを考慮しない、というのを見落とした
というあたりです。

> > ついでに余分な条件判断をちょっと削ってみたバージョン。
> 
> すみません。このメールを見る前に元のコードのなるべく活かして
> commitしちゃいました。

全然本質的なとこではないので、とくに入れる必要はないかも。

それよりも、改行コード絡みのバグがもう一つありました。

$ cat -e a.rb
p <<END^M$
foo^M$
END^M$
p <<'END'^M$
bar^M$
END^M$

$ ruby -v a.rb
ruby 1.8.0 (2002-12-31) [i686-linux]
"foo\n"
"bar\r\n"


Index: parse.y
===================================================================
RCS file: /cvs/ruby/src/ruby/parse.y,v
retrieving revision 1.238
diff -u -2 -p -r1.238 parse.y
--- parse.y	30 Dec 2002 18:19:07 -0000	1.238
+++ parse.y	30 Dec 2002 21:10:37 -0000
@@ -3119,7 +3119,7 @@ here_document(here)
 {
     int c, func, indent = 0;
-    char *eos;
+    char *eos, *p, *pend;
     long len;
-    VALUE str = 0, line;
+    VALUE str = 0;
 
     eos = RSTRING(here->nd_lit)->ptr;
@@ -3141,9 +3141,22 @@ here_document(here)
     if (!(func & STR_FUNC_EXPAND)) {
 	do {
-	    line = lex_lastline;
+	    p = RSTRING(lex_lastline)->ptr;
+	    pend = lex_pend;
+	    if (pend > p) {
+		switch (pend[-1]) {
+		  case '\n':
+		    if (--pend == p || pend[-1] != '\r') {
+			pend++;
+			break;
+		    }
+		  case '\r':
+		    --pend;
+		}
+	    }
 	    if (str)
-		rb_str_cat(str, RSTRING(line)->ptr, RSTRING(line)->len);
+		rb_str_cat(str, p, pend - p);
 	    else
-		str = rb_str_new(RSTRING(line)->ptr, RSTRING(line)->len);
+		str = rb_str_new(p, pend - p);
+	    if (pend < lex_pend) rb_str_cat(str, "\n", 1);
 	    lex_p = lex_pend;
 	    if (nextc() == -1) {


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