version 0.62v0_62

https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.62.tar.gz

Mon Dec 19 12:01:10 1994  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y(cond): 条件式に代入式が置かれた場合，`-v'オプションで警
	  告が出るように．

	* parse.y(**): 冪乗演算子`**'の優先順位を単項演算子より高くした．

	* parse.y(and,or): 優先順位の低い演算子`and', `or'.

	* 0.62 released.

	* eval.c: 不必要になったPUSH_ENV, POP_ENVを減らした．

	* env.h: ENVIONからselfをはずした．PUSH_ENVはsuperの準備のためだけ
	  に用いることにした．

	* eval.c: 下記のオブジェクト化で遅くなった実行速度をもとに戻した．

Mon Dec 17 23:01:10 1994  Yukihiro Matsumoto  (matz@ix-02)

	* eval.c: env.{argv,argc}とscope.local_varsのオブジェクト化．

	* eval.c: 1スコープ内で複数Blockを生成したときのバグを修正．

Fri Dec 16 15:52:06 1994  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y: `&&'と`||'の両辺はいつでも条件式とした．

Thu Dec 15 00:16:04 1994  Yukihiro Matsumoto  (matz@dyna)

	* eval.c(Block): Blockオブジェクトを実現．

	* node.h: NODE_QLISTはなくなった．

	* eval.c(rb_call): 引数への代入を名前で一つずつ代入するのをやめて，
	  一度にコピーするようにした．

	* eval.c(rb_call): rubyで記述されたメソッドへの引数渡しをinline化．

	* eval.c: イテレータ判定処理の全面書き換え．不適切なイテレータ呼び
	  出しをなくした．例えば「[foo(),bar()]{i|baz(i)}」でfooもbarもイ
	  テレータとして呼び出され*ない*．

	* eval.c(rb_call): SCOPE処理をinline化．メソッド呼び出しの若干の高
	  速化．

Wed Dec 14 18:09:33 1994  Yukihiro Matsumoto  (matz@ix-02)

	* node.h: nodeもオブジェクトにする．よってGCで回収される．

1 files changed, 29 insertions, 40 deletions

diff --git a/re.c b/re.c
index ce79c9093c..06770ab71c 100644
--- a/re.c
+++ b/re.c
@@ -3,7 +3,7 @@
   re.c -
 
   $Author: matz $
-  $Date: 1994/12/06 09:30:14 $
+  $Date: 1994/12/19 08:30:12 $
   created at: Mon Aug  9 18:24:49 JST 1993
 
   Copyright (C) 1994 Yukihiro Matsumoto
@@ -135,8 +135,8 @@ research(reg, str, start, ignorecase)
 {
     int result;
 
-    if (FL_TEST(reg, FL_USER0)) { /* case-flag set for the object */
-	ignorecase = FL_TEST(reg, FL_USER1); /* case-flag */
+    if (FL_TEST(reg, FL_USER1)) { /* case-flag set for the object */
+	ignorecase = FL_TEST(reg, FL_USER2); /* case-flag */
     }
     if (ignorecase)
 	reg->ptr->pat.translate = casetable;
@@ -233,24 +233,13 @@ re_match_last()
     return nth_match(i);
 }
 
-#ifdef __STDC__
-#define CONCAT(a,b) a##b
-#else
-#define CONCAT(a,b) a/**/b
-#endif
-
-#define GET_MATCH(n) CONCAT(get_macth,n)
-#define GET_MATCH_FUNC(n) GET_MATCH(n)(id) ID id; { return nth_match(n); }
-
-GET_MATCH_FUNC(1);
-GET_MATCH_FUNC(2);
-GET_MATCH_FUNC(3);
-GET_MATCH_FUNC(4);
-GET_MATCH_FUNC(5);
-GET_MATCH_FUNC(6);
-GET_MATCH_FUNC(7);
-GET_MATCH_FUNC(8);
-GET_MATCH_FUNC(9);
+static VALUE
+get_match_data(id, nth)
+    ID id;
+    int nth;
+{
+    return nth_match(nth);
+}
 
 static VALUE
 store_match_data(val)
@@ -374,12 +363,12 @@ Sreg_new(argc, argv)
     }
 
     if (argc == 2) {
-	FL_SET(reg, FL_USER0);
+	FL_SET(reg, FL_USER1);
 	if (argv[1]) {
-	    FL_SET(reg, FL_USER1);
+	    FL_SET(reg, FL_USER2);
 	}
 	else {
-	    FL_UNSET(reg, FL_USER1);
+	    FL_UNSET(reg, FL_USER2);
 	}
     }
 
@@ -507,26 +496,26 @@ Init_Regexp()
 	| RE_NO_BK_CURLY_BRACES
 	| RE_MBCTYPE_EUC;
 
-    rb_define_variable("$~", last_match_data, Qnil, store_match_data);
+    rb_define_variable("$~", last_match_data, Qnil, store_match_data, 0);
 
-    rb_define_variable("$&", Qnil, re_last_match, Qnil);
-    rb_define_variable("$`", Qnil, re_match_pre,  Qnil);
-    rb_define_variable("$'", Qnil, re_match_post, Qnil);
-    rb_define_variable("$+", Qnil, re_match_last, Qnil);
+    rb_define_variable("$&", Qnil, re_last_match, Qnil, 0);
+    rb_define_variable("$`", Qnil, re_match_pre,  Qnil, 0);
+    rb_define_variable("$'", Qnil, re_match_post, Qnil, 0);
+    rb_define_variable("$+", Qnil, re_match_last, Qnil, 0);
 
-    rb_define_variable("$1", Qnil, GET_MATCH(1), Qnil);
-    rb_define_variable("$2", Qnil, GET_MATCH(2), Qnil);
-    rb_define_variable("$3", Qnil, GET_MATCH(3), Qnil);
-    rb_define_variable("$4", Qnil, GET_MATCH(4), Qnil);
-    rb_define_variable("$5", Qnil, GET_MATCH(5), Qnil);
-    rb_define_variable("$6", Qnil, GET_MATCH(6), Qnil);
-    rb_define_variable("$7", Qnil, GET_MATCH(7), Qnil);
-    rb_define_variable("$8", Qnil, GET_MATCH(8), Qnil);
-    rb_define_variable("$9", Qnil, GET_MATCH(9), Qnil);
+    rb_define_variable("$1", Qnil, get_match_data, Qnil, 1);
+    rb_define_variable("$2", Qnil, get_match_data, Qnil, 2);
+    rb_define_variable("$3", Qnil, get_match_data, Qnil, 3);
+    rb_define_variable("$4", Qnil, get_match_data, Qnil, 4);
+    rb_define_variable("$5", Qnil, get_match_data, Qnil, 5);
+    rb_define_variable("$6", Qnil, get_match_data, Qnil, 6);
+    rb_define_variable("$7", Qnil, get_match_data, Qnil, 7);
+    rb_define_variable("$8", Qnil, get_match_data, Qnil, 8);
+    rb_define_variable("$9", Qnil, get_match_data, Qnil, 9);
 
-    rb_define_variable("$KANJI", Qnil, kanji_var_get, kanji_var_set);
+    rb_define_variable("$KANJI", Qnil, kanji_var_get, kanji_var_set, 0);
 
-    rb_define_variable("$=", &ignorecase, Qnil, Qnil);
+    rb_define_variable("$=", &ignorecase, Qnil, Qnil, 0);
 
     C_Regexp  = rb_define_class("Regexp", C_Object);
     rb_define_single_method(C_Regexp, "new", Sreg_new, -1);