[ruby-dev:4756] Re: [REQ] ２進数整数リテラル

えぐち＠エスアンドイー です。

>>> On Fri, 5 Feb 1999 20:41:35 +0900, えぐち said:

えぐち> えぐち＠エスアンドイー です。
えぐち> 
えぐち> >>> On Fri, 5 Feb 1999 13:12:37 +0900, [e-mail] (Yukihiro Matsumoto) said:
えぐち> 
えぐち> matz> まつもと ゆきひろです
えぐち> matz> 
えぐち> matz> In message "[ruby-dev:4727] [REQ] ２進数整数リテラル"
えぐち> matz>     on 99/02/05, EGUCHI Osamu <[e-mail]> writes:
えぐち> matz> 
えぐち> matz> |えぐち＠エスアンドイーです。
えぐち> matz> |
えぐち> matz> |文法の拡張の提案です。
...
えぐち> matz> printfに%bもあることですし，他への影響が小さそうですので，私
えぐち> matz> は前向きです．
えぐち> 
えぐち> ありがとうございます。
えぐち> (「ささとパッチ送れ」と解釈しました。0205 版 get し次第送ります。)

つくってみました。

 * ２進数リテラルを追加、有効なトークンは /0[bB][01][01_]*/ の正規表現で
   表せる。
 * １６進数リテラルを一部変更、有効なトークンは 
   /0[xX][0-9A-Fa-f1][0-9A-Fa-f_]*/ の正規表現で表せる。
   (0x、0x_ 0X_5 などは不可となった)
 * ８進数リテラルを一部変更、有効なトークンは 
   /0[0-7_]+/ の正規表現で表せる。
   (012_345_67 のように '_' を許すようにした。
 * ８進数で、２文字目以降の /[8-9]/ を警告しないで、空白のように
   解釈していたバグのフィックス。

   例)
	% ruby-1.3.1-990203 -e 'p "%#o" % 0123456789, "ABC"'
	"01234567"
	"ABC"
	% ruby -e 'p "%#o" % 0123456789'
	"01234567"
	% ruby-1.3.1-990205.bin -e 'p "%#o" % 0123456789, "ABC"'
	/var/tmp//rbKTK240:1: parse error
	p "%#o" % 0123456789, "ABC"
	                    ^
 * Integer() も 0b プリフィックスによる２進数表記に対応した。
   ( String#to_i は従来通り 0, 0x, 0b プリフックスは無効 )
   ＃ 私、Integer(文字列) と 文字列.to_i は等価だとおもってた ^^;;;

以上です。パッチつけます。

	えぐち

diff -rud --exclude=numeric.c ../ruby-1.3.1-990205/bignum.c ./bignum.c
--- ../ruby-1.3.1-990205/bignum.c	Thu Jan 28 16:55:29 1999
+++ ./bignum.c	Fri Feb  5 22:11:08 1999
@@ -191,6 +191,10 @@
 		str++;
 		base = 16;
 	    }
+	    else if (*str == 'b' || *str == 'B') {
+		str++;
+		base = 2;
+	    }
 	    else {
 		base = 8;
 	    }
@@ -204,8 +208,11 @@
 	while (str[0] == '0') str++;
 	len = 3*strlen(str)*sizeof(char);
     }
-    else {			/* base == 10 or 16 */
+    else {			/* base == 10, 2 or 16 */
 	if (base == 16 && str[0] == '0' && (str[1] == 'x'||str[1] == 'X')) {
+	    str += 2;
+	}
+	if (base == 2 && str[0] == '0' && (str[1] == 'b'||str[1] == 'B')) {
 	    str += 2;
 	}
 	while (str[0] == '0') str++;
Only in ../ruby-1.3.1-990205/: lex.c
Only in ../ruby-1.3.1-990205/: parse.c
diff -rud --exclude=numeric.c ../ruby-1.3.1-990205/parse.y ./parse.y
--- ../ruby-1.3.1-990205/parse.y	Fri Feb  5 19:27:32 1999
+++ ./parse.y	Fri Feb  5 22:48:40 1999
@@ -3,7 +3,7 @@
   parse.y -
 
   $Author: matz $
-  $Date: 1999/02/05 10:27:32 $
+  $Date: 1999/02/03 09:47:59 $
   created at: Fri May 28 18:02:42 JST 1993
 
   Copyright (C) 1993-1999 Yukihiro Matsumoto
@@ -2778,23 +2778,44 @@
 		c = nextc();
 		if (c == 'x' || c == 'X') {
 		    /* hexadecimal */
-		    while (c = nextc()) {
+		    c = nextc();
+		    if (!ISXDIGIT(c)) {
+			yyerror("numeric constant with no hex-digits");
+		    }
+		    do {
 			if (c == '_') continue;
 			if (!ISXDIGIT(c)) break;
 			tokadd(c);
-		    }
+		    } while (c = nextc());
 		    pushback(c);
 		    tokfix();
 		    yylval.val = rb_str2inum(tok(), 16);
 		    return tINTEGER;
 		}
-		else if (c >= '0' && c <= '7') {
-		    /* octal */
+		if (c == 'b' || c == 'B') {
+		    /* binary */
+		    c = nextc();
+		    if (c != '0' && c != '1') {
+			yyerror("numeric constant with no digits");
+		    }
 		    do {
+			if (c == '_') continue;
+			if (c != '0'&& c != '1') break;
 			tokadd(c);
-			while ((c = nextc()) == '_')
-			    ;
-		    } while (c >= '0' && c <= '9');
+		    } while (c = nextc());
+		    pushback(c);
+		    tokfix();
+		    yylval.val = rb_str2inum(tok(), 2);
+		    return tINTEGER;
+		}
+		else if (c >= '0' && c <= '7' || c == '_') {
+		    /* octal */
+		    tokadd(c);
+	            do {
+			if (c  == '_') continue;
+			if (c < '0' || c > '7') break;
+			tokadd(c);
+		    } while (c = nextc());
 		    pushback(c);
 		    tokfix();
 		    yylval.val = rb_str2inum(tok(), 8);
Only in .: y.tab.h