diff -u2raN ruby-0.66/ChangeLog ruby-0.67/ChangeLog
--- ruby-0.66/ChangeLog	Thu Feb  9 16:19:38 1995
+++ ruby-0.67/ChangeLog	Mon Feb 20 17:26:31 1995
@@ -1,2 +1,40 @@
+Mon Feb 20 16:10:14 1995  Yukihiro Matsumoto  (matz@ix-02)
+
+	* parse.y(yylex): 定数を`%識別子'から，第1文字が大文字の識別子に変
+	  更．それにともないクラスは定数となった．
+
+	* eval.c: クラス定義内のselfがクラス定義外部のthe_classだった．
+
+	* variable.c(rb_name_class): クラス名をインスタンス変数に格納する．
+
+Thu Feb 16 15:36:17 1995  Yukihiro Matsumoto  (matz@ix-02)
+
+	* parse.y: BLOCKをbraceで表現する文法に変更したものを作ってみる．
+	  MLに提示してみるが反応がない．
+
+	* object.c(do,forever): なくした．
+
+Wed Feb 15 13:20:49 1995  Yukihiro Matsumoto  (matz@ix-02)
+
+	* re.c(new): 第2引数が与えられて，かつnilでないときだけ設定するよ
+	  うに(以前はnilの時にも設定を行なっていた)．
+
+	* parse.y(parse_regexp): 正規表現リテラルで大文字小文字を無視する
+	  かどうか指定できるように．
+
+Tue Feb 14 00:55:33 1995  Yukihiro Matsumoto  (matz@dyna)
+
+	* parse.y: (compexpr) -> (expr).
+
+Fri Feb 10 16:30:00 1995  Yukihiro Matsumoto  (matz@ix-02)
+
+	* ruby.c(load_file): scriptを読み込む時だけ"#!"の解析を行うように．
+
+	* ruby.c(readin): ファイル読み込み時に先頭に"#!"があり，rubyに引数
+	  が与えられていれば，その引数も有効になる．
+
+	* parse.y(yylex): コメント行の終りが`\'であった時，次の行に継続し
+	  ているとみなすようにした．
+
 Thu Feb  9 16:18:37 1995  Yukihiro Matsumoto  (matz@ix-02)
 
diff -u2raN ruby-0.66/array.c ruby-0.67/array.c
--- ruby-0.66/array.c	Thu Jan 26 14:27:09 1995
+++ ruby-0.67/array.c	Tue Feb 21 00:25:40 1995
@@ -263,7 +263,5 @@
 	int tmp;
 
-	if (verbose) {
-	    Warning("start %d is bigger than end %d", beg, end);
-	}
+	Warning("start %d is bigger than end %d", beg, end);
 	tmp = beg; beg = end; end = tmp;
     }
diff -u2raN ruby-0.66/class.c ruby-0.67/class.c
--- ruby-0.66/class.c	Wed Feb  1 23:57:17 1995
+++ ruby-0.67/class.c	Tue Feb 21 00:29:46 1995
@@ -17,4 +17,5 @@
 
 struct st_table *new_idhash();
+extern st_table *rb_class_tbl;
 
 extern VALUE C_Class;
@@ -82,5 +83,4 @@
 
     rb_name_class(cls, id);
-
     /* make metaclass */
     RBASIC(cls)->class = single_class_new(super?super->class:C_Class);
@@ -94,5 +94,27 @@
     VALUE super;
 {
-    return rb_define_class_id(rb_intern(name), super);
+    VALUE class;
+    ID id;
+
+    id = rb_intern(name);
+    class = rb_define_class_id(id, super);
+    st_add_direct(rb_class_tbl, id, class);
+
+    return class;
+}
+
+rb_define_class_under(under, name, super)
+    VALUE under;
+    char *name;
+    VALUE super;
+{
+    VALUE class;
+    ID id;
+
+    id = rb_intern(name);
+    class = rb_define_class_id(id, super);
+    rb_const_set(under, id, class);
+
+    return class;
 }
 
@@ -113,7 +135,9 @@
     ID id;
 {
+    extern st_table *rb_class_tbl;
     struct RClass *mdl = (struct RClass*)module_new();
 
     rb_name_class(mdl, id);
+
     return (VALUE)mdl;
 }
@@ -123,5 +147,26 @@
     char *name;
 {
-    return rb_define_module_id(rb_intern(name));
+    VALUE module;
+    ID id;
+
+    id = rb_intern(name);
+    module = rb_define_module_id(id);
+    st_add_direct(rb_class_tbl, id, module);
+
+    return module;
+}
+
+rb_define_module_under(under, name)
+    VALUE under;
+    char *name;
+{
+    VALUE module;
+    ID id;
+
+    id = rb_intern(name);
+    module = rb_define_module_id(id);
+    rb_const_set(under, id, module);
+
+    return module;
 }
 
@@ -190,7 +235,5 @@
     if (class == Qnil) class = (struct RClass*)C_Object;
     if (st_lookup(class->m_tbl, mid, &body)) {
-	if (verbose) {
-	    Warning("redefine %s", rb_id2name(mid));
-	}
+	Warning("redefine %s", rb_id2name(mid));
 	rb_clear_cache(body);
     }
diff -u2raN ruby-0.66/dict.c ruby-0.67/dict.c
--- ruby-0.66/dict.c	Wed Feb  1 23:57:16 1995
+++ ruby-0.67/dict.c	Mon Feb 13 17:56:06 1995
@@ -580,5 +580,4 @@
 
     C_Dict = rb_define_class("Dict", C_Object);
-    rb_name_class(C_Dict, rb_intern("Hash")); /* alias */
 
     rb_include_module(C_Dict, M_Enumerable);
diff -u2raN ruby-0.66/dir.c ruby-0.67/dir.c
--- ruby-0.66/dir.c	Wed Feb  1 23:57:15 1995
+++ ruby-0.67/dir.c	Mon Feb 13 17:56:25 1995
@@ -242,6 +242,5 @@
     extern VALUE M_Enumerable;
 
-    C_Dir = rb_define_class("Directory", C_Object);
-    rb_name_class(C_Dir, rb_intern("Dir")); /* alias */
+    C_Dir = rb_define_class("Dir", C_Object);
 
     rb_include_module(C_Dir, M_Enumerable);
diff -u2raN ruby-0.66/error.c ruby-0.67/error.c
--- ruby-0.66/error.c	Wed Feb  1 23:57:13 1995
+++ ruby-0.67/error.c	Tue Feb 21 00:25:31 1995
@@ -86,4 +86,6 @@
     va_list args;
 
+    if (!verbose) return;
+
     sprintf(buf, "warning: %s", fmt);
 
diff -u2raN ruby-0.66/eval.c ruby-0.67/eval.c
--- ruby-0.66/eval.c	Thu Feb  9 12:26:47 1995
+++ ruby-0.67/eval.c	Tue Feb 21 00:26:42 1995
@@ -116,7 +116,5 @@
 
     if (st_lookup(class->m_tbl, name, &old)) {
-	if (verbose) {
-	    Warning("redefine %s", rb_id2name(name));
-	}
+	Warning("redefine %s", rb_id2name(name));
 	rb_clear_cache(old->nd_body);
     }
@@ -1018,9 +1016,5 @@
 	return the_scope->local_vars[node->nd_cnt];
 
-      case NODE_GVAR:
-	return rb_gvar_get(node->nd_entry);
-      case NODE_IVAR:
-	return rb_ivar_get(node->nd_vid);
-      case NODE_MVAR:
+      case NODE_LVAR2:
 	if (the_scope->flags & SCOPE_MALLOCED) {
 	    ID id = node->nd_vid, *tbl = the_scope->local_tbl;
@@ -1035,6 +1029,12 @@
 	    }
 	}
-	return rb_mvar_get(node->nd_vid);
+	Warning("local var %s not initialized", rb_id2name(node->nd_vid));
+	return Qnil;
 
+      case NODE_GVAR:
+	return rb_gvar_get(node->nd_entry);
+      case NODE_IVAR:
+	return rb_ivar_get(node->nd_vid);
+
       case NODE_CVAR:
 	{
@@ -1190,14 +1190,13 @@
 		super = C_Object;
 	    }
-	    if (class = rb_id2class(node->nd_cname)) {
-		if (verbose) {
-		    Warning("redefine class %s", rb_id2name(node->nd_cname));
-		}
+	    if (verbose && rb_id2class(node->nd_cname)) {
+		Warning("redefine class %s", rb_id2name(node->nd_cname));
 	    }
 
-	    PUSH_SELF((VALUE)the_class);
+	    class = rb_define_class_id(node->nd_cname, super);
+	    rb_const_set(the_class, node->nd_cname, class);
 	    PUSH_CLASS();
-	    the_class = (struct RClass*)
-		rb_define_class_id(node->nd_cname, super);
+	    the_class = (struct RClass*)class;
+	    PUSH_SELF((VALUE)the_class);
 	    PUSH_TAG();
 	    if ((state = EXEC_TAG()) == 0) {
@@ -1205,9 +1204,9 @@
 	    }
 	    POP_TAG();
-	    POP_CLASS();
 	    POP_SELF();
+	    POP_CLASS();
 	    if (state) JUMP_TAG(state);
+	    return class;
 	}
-	return Qnil;
 
       case NODE_MODULE:
@@ -1215,13 +1214,13 @@
 	    VALUE module;
 
-	    if (module = rb_id2class(node->nd_cname)) {
-		if (verbose) {
-		    Warning("redefine module %s", rb_id2name(node->nd_cname));
-		}
+	    if (verbose && rb_id2class(node->nd_cname)) {
+		Warning("redefine module %s", rb_id2name(node->nd_cname));
 	    }
 
-	    PUSH_SELF((VALUE)the_class);
+	    module = rb_define_module_id(node->nd_cname);
+	    rb_const_set(the_class, node->nd_cname, module);
 	    PUSH_CLASS();
-	    the_class = (struct RClass*)rb_define_module_id(node->nd_cname);
+	    the_class = (struct RClass*)module;
+	    PUSH_SELF((VALUE)the_class);
 	    PUSH_TAG();
 	    if ((state = EXEC_TAG()) == 0) {
@@ -1229,9 +1228,9 @@
 	    }
 	    POP_TAG();
-	    POP_CLASS();
 	    POP_SELF();
+	    POP_CLASS();
 	    if (state) JUMP_TAG(state);
+	    return module;
 	}
-	return Qnil;
 
       case NODE_INC:
@@ -1239,5 +1238,5 @@
 	    struct RClass *module;
 
-	    module = (struct RClass*)rb_id2class(node->nd_modl);
+	    module = (struct RClass*)rb_const_get(node->nd_modl);
 	    if (module == Qnil) {
 		Fail("undefined module %s", rb_id2name(node->nd_modl));
diff -u2raN ruby-0.66/node.h ruby-0.67/node.h
--- ruby-0.66/node.h	Thu Feb  9 12:26:48 1995
+++ ruby-0.67/node.h	Mon Feb 20 16:28:08 1995
@@ -52,7 +52,7 @@
     NODE_YIELD,
     NODE_LVAR,
+    NODE_LVAR2,
     NODE_GVAR,
     NODE_IVAR,
-    NODE_MVAR,
     NODE_CVAR,
     NODE_CONST,
@@ -212,6 +212,6 @@
 #define NEW_GVAR(v) newnode(NODE_GVAR,v,Qnil,rb_global_entry(v))
 #define NEW_LVAR(v) newnode(NODE_LVAR,v,Qnil,local_cnt(v))
+#define NEW_LVAR2(v) newnode(NODE_LVAR2,v,Qnil,local_cnt(v))
 #define NEW_IVAR(v) newnode(NODE_IVAR,v,Qnil,Qnil)
-#define NEW_MVAR(v) newnode(NODE_MVAR,v,Qnil,Qnil)
 #define NEW_CVAR(v) newnode(NODE_CVAR,v,Qnil,Qnil)
 #define NEW_LIT(l) newnode(NODE_LIT,l,Qnil,Qnil)
diff -u2raN ruby-0.66/object.c ruby-0.67/object.c
--- ruby-0.66/object.c	Fri Jan 20 10:55:25 1995
+++ ruby-0.67/object.c	Mon Feb 20 16:35:30 1995
@@ -357,22 +357,13 @@
     VALUE super;
 {
+    extern st_table *rb_class_tbl;
     struct RClass *obj = (struct RClass*)class_new(super);
+    ID id = rb_intern(name);
 
-    rb_name_class(obj, rb_intern(name));
+    rb_name_class(obj, id);
+    st_add_direct(rb_class_tbl, id, obj);
     return (VALUE)obj;
 }
 
-Fdo()
-{
-    return rb_yield(Qnil);
-}
-
-Fforever()
-{
-    for (;;) {
-	rb_yield(Qnil);
-    }
-}
-
 VALUE TopSelf;
 VALUE TRUE = 1;
@@ -438,7 +429,4 @@
     rb_define_alias(C_Kernel, "format", "sprintf");
 
-    rb_define_private_method(C_Kernel, "do", Fdo, 0);
-    rb_define_private_method(C_Kernel, "forever", Fforever, 0);
-
     rb_define_private_method(C_Object, "init_object", Fobj_init_object, -1);
 
@@ -479,6 +467,6 @@
     TRUE = obj_alloc(C_Object);
     rb_define_single_method(TRUE, "to_s", Ftrue_to_s, 0);
-    rb_define_const(C_Kernel, "%TRUE", TRUE);
-    rb_define_const(C_Kernel, "%FALSE", FALSE);
+    rb_define_const(C_Kernel, "TRUE", TRUE);
+    rb_define_const(C_Kernel, "FALSE", FALSE);
 
     init_object = rb_intern("init_object");
diff -u2raN ruby-0.66/parse.y ruby-0.67/parse.y
--- ruby-0.66/parse.y	Thu Feb  9 12:26:46 1995
+++ ruby-0.67/parse.y	Tue Feb 21 00:25:37 1995
@@ -327,9 +327,9 @@
 		    }
 
-inc_list	: IDENTIFIER
+inc_list	: CONSTANT
 		    {
 			$$ = NEW_INC($1);
 		    }
-		| inc_list comma IDENTIFIER
+		| inc_list comma CONSTANT
 		    {
 			$$ = block_append($1, NEW_INC($3));
@@ -347,4 +347,5 @@
 
 fname		: IDENTIFIER
+		| CONSTANT
 		| op
 		    {
@@ -719,5 +720,5 @@
 		    {
 			if (nd_type($1) == NODE_LVAR
-		            || nd_type($1) == NODE_MVAR) {
+		            || nd_type($1) == NODE_CVAR) {
 			    $1 = NEW_CALL(Qnil, $1->nd_vid, Qnil);
 			}
@@ -776,12 +777,15 @@
 			}
 		    }
-		| LPAREN compexpr rparen
+		| LPAREN expr 
+		  opt_nl
+		  rparen
 		    {
 			$$ = $2;
 		    }
-		| CLASS IDENTIFIER superclass
+		| CLASS CONSTANT superclass
 		    {
-			if (cur_class || cur_mid || in_single)
-			    Error("nested class definition");
+			if (cur_mid || in_single)
+			    Error("class definition in method body");
+
 			cur_class = $2;
 			push_local();
@@ -794,8 +798,8 @@
 		        cur_class = Qnil;
 		    }
-		| MODULE IDENTIFIER
+		| MODULE CONSTANT
 		    {
-			if (cur_class != Qnil)
-			    Error("nested module definition");
+			if (cur_mid || in_single)
+			    Error("module definition in method body");
 			cur_class = $2;
 			in_module = 1;
@@ -878,10 +882,5 @@
 
 cases		: opt_else
-		| WHEN args then
-		  compexpr
-		  cases
-		    {
-			$$ = NEW_WHEN($2, $4, $5);
-		    }
+		| case_body
 
 resque		: /* none */
@@ -917,5 +916,4 @@
 		| IVAR
 		| GVAR
-		| CONSTANT
 
 numeric		: INTEGER
@@ -948,5 +946,5 @@
 			lex_state = EXPR_BEG;
 		    }
-		  IDENTIFIER
+		  CONSTANT
 		    {
 			$$ = $3;
@@ -1070,4 +1068,7 @@
 		| term
 
+opt_nl		: /* none */
+		| nl
+
 term		: sc
 		| nl
@@ -1159,4 +1160,5 @@
 {
     register int c;
+    int casefold = 0;
     int in_brack = 0;
     int re_start = sourceline;
@@ -1200,4 +1202,11 @@
 		break;
 
+	    if ('i' == nextc()) {
+		casefold = 1;
+	    }
+	    else {
+		pushback();
+	    }
+
 	    tokfix();
 	    lex_state = EXPR_END;
@@ -1208,4 +1217,5 @@
 		}
 		nd_set_type(list, NODE_DREGX);
+		if (casefold) list->nd_cflag = 1;
 		yylval.node = list;
 		return DREGEXP;
@@ -1213,4 +1223,5 @@
 	    else {
 		yylval.val = regexp_new(tok(), toklen());
+		if (casefold) FL_SET(yylval.val, FL_USER1);
 		return REGEXP;
 	    }
@@ -1348,5 +1359,4 @@
     register int c;
     struct kwtable *low = kwtable, *mid, *high = LAST(kwtable);
-    int last;
 
 retry:
@@ -1367,4 +1377,8 @@
 	    if (c == -1)
 		return 0;
+	    if (c == '\\') {	/* skip a char */
+		c = nextc();
+		if (c == '\n') sourceline++;
+	    }
 	}
 	/* fall through */
@@ -1802,20 +1816,11 @@
 
       case '%':
-	if (lex_state == EXPR_BEG || lex_state == EXPR_MID) {
-	    /* class constant */
-	    newtok();
-	    tokadd('%');
-	    c = nextc();
-	    break;
-	}
-	else {
-	    lex_state = EXPR_BEG;
-	    if (nextc() == '=') {
-		yylval.id = '%';
-		return OP_ASGN;
-	    }
-	    pushback();
-	    return c;
+	lex_state = EXPR_BEG;
+	if (nextc() == '=') {
+	    yylval.id = '%';
+	    return OP_ASGN;
 	}
+	pushback();
+	return c;
 
       case '$':
@@ -1845,12 +1850,14 @@
 	  case '"':		/* $": already loaded files */
 	    tokadd(c);
-	    tokadd('\0');
-	    goto id_fetch;
+	    tokfix();
+	    yylval.id = rb_intern(tok());
+	    lex_state = EXPR_END;
+	    return GVAR;
 
 	  default:
-	    if (is_identchar(c))
-		break;
-	    pushback();
-	    return tok()[0];
+	    if (!is_identchar(c)) {
+		pushback();
+		return '$';
+	    }
 	}
 	break;
@@ -1887,42 +1894,38 @@
     tokfix();
 
-    /* See if it is a reserved word.  */
-    while (low <= high) {
-	mid = low + (high - low)/2;
-	if (( c = strcmp(mid->name, tok())) == 0) {
-	    enum lex_state state = lex_state;
-	    lex_state = mid->state;
-	    if (state != EXPR_BEG) {
-		if (mid->id == IF) return IF_MOD;
-		if (mid->id == WHILE) return WHILE_MOD;
-	    }
-	    return mid->id;
-	}
-	else if (c < 0) {
-	    low = mid + 1;
-	}
-	else {
-	    high = mid - 1;
-	}
-    }
-
-  id_fetch:
     {
-	enum lex_state state = lex_state;
+	int result;
 
-	lex_state = EXPR_END;
-	yylval.id = rb_intern(tok());
 	switch (tok()[0]) {
-	  case '%':
-	    return CONSTANT;
 	  case '$':
-	    return GVAR;
+	    result = GVAR;
+	    break;
 	  case '@':
-	    return IVAR;
+	    result = IVAR;
+	    break;
 	  default:
-	    if (state == EXPR_FNAME) {
+	    /* See if it is a reserved word.  */
+	    while (low <= high) {
+		mid = low + (high - low)/2;
+		if (( c = strcmp(mid->name, tok())) == 0) {
+		    enum lex_state state = lex_state;
+		    lex_state = mid->state;
+		    if (state != EXPR_BEG) {
+			if (mid->id == IF) return IF_MOD;
+			if (mid->id == WHILE) return WHILE_MOD;
+		    }
+		    return mid->id;
+		}
+		else if (c < 0) {
+		    low = mid + 1;
+		}
+		else {
+		    high = mid - 1;
+		}
+	    }
+
+	    if (lex_state == EXPR_FNAME) {
 		if ((c = nextc()) == '=') {
-		    yylval.id &= ~ID_SCOPE_MASK;
-		    yylval.id |= ID_ATTRSET;
+		    tokadd(c);
 		}
 		else {
@@ -1930,6 +1933,14 @@
 		}
 	    }
-	    return IDENTIFIER;
+	    if (isupper(tok()[0])) {
+		result = CONSTANT;
+	    }
+	    else {
+		result = IDENTIFIER;
+	    }
 	}
+	lex_state = EXPR_END;
+	yylval.id = rb_intern(tok());
+	return result;
     }
 }
@@ -1950,5 +1961,5 @@
 	pushback();
 	return list;
-      case '@': case '%':
+      case '@':
 	t = nextc();
 	pushback();
@@ -1999,5 +2010,5 @@
 	    }
 	    /* through */
-	  case '@': case '%':
+	  case '@':
 	    tokadd(c);
 	    c = nextc();
@@ -2371,5 +2382,5 @@
 	    return NEW_LVAR(id);
 	else
-	    return NEW_MVAR(id);
+	    return NEW_LVAR2(id);
     }
     else if (is_global_id(id)) {
@@ -2511,7 +2522,5 @@
       case NODE_IASGN:
       case NODE_CASGN:
-	if (verbose) {
-	    Warning("asignment in condition");
-	}
+	Warning("asignment in condition");
 	break;
     }
@@ -2772,9 +2781,4 @@
 	id |= ID_INSTANCE;
 	break;
-      case '%':
-	if (name[1] != '\0') {
-	    id |= ID_CONST;
-	    break;
-	}
 	/* fall through */
       default:
@@ -2793,4 +2797,5 @@
 	    break;
 	}
+	
 	last = strlen(name)-1;
 	if (name[last] == '=') {
@@ -2804,4 +2809,7 @@
 	    id |= ID_ATTRSET;
 	}
+	else if (isupper(name[0])) {
+	    id |= ID_CONST;
+        }
 	else {
 	    id |= ID_LOCAL;
@@ -2860,38 +2868,4 @@
     }
     return find_ok;
-}
-
-char *
-rb_class2name(class)
-    struct RClass *class;
-{
-    extern st_table *rb_class_tbl;
-
-    find_ok = Qnil;
-
-    switch (TYPE(class)) {
-      case T_ICLASS:
-        class = (struct RClass*)RBASIC(class)->class;
-	break;
-      case T_CLASS:
-      case T_MODULE:
-	break;
-      default:
-	Fail("0x%x is not a class/module", class);
-    }
-
-    while (FL_TEST(class, FL_SINGLE)) {
-	class = (struct RClass*)class->super;
-    }
-
-    while (TYPE(class) == T_ICLASS) {
-        class = (struct RClass*)class->super;
-    }
-
-    st_foreach(rb_class_tbl, id_find, class);
-    if (find_ok) {
-	return rb_id2name((ID)find_ok);
-    }
-    Bug("class 0x%x not named", class);
 }
 
diff -u2raN ruby-0.66/process.c ruby-0.67/process.c
--- ruby-0.66/process.c	Wed Feb  1 23:57:08 1995
+++ ruby-0.67/process.c	Mon Feb 20 16:36:19 1995
@@ -509,7 +509,7 @@
     rb_define_module_function(M_Process, "setpriority", Fproc_setpriority, 3);
 
-    rb_define_const(M_Process, "%PRIO_PROCESS", INT2FIX(PRIO_PROCESS));
-    rb_define_const(M_Process, "%PRIO_PGRP", INT2FIX(PRIO_PGRP));
-    rb_define_const(M_Process, "%PRIO_USER", INT2FIX(PRIO_USER));
+    rb_define_const(M_Process, "PRIO_PROCESS", INT2FIX(PRIO_PROCESS));
+    rb_define_const(M_Process, "PRIO_PGRP", INT2FIX(PRIO_PGRP));
+    rb_define_const(M_Process, "PRIO_USER", INT2FIX(PRIO_USER));
 
     rb_define_module_function(M_Process, "uid", Fproc_getuid, 0);
diff -u2raN ruby-0.66/re.c ruby-0.67/re.c
--- ruby-0.66/re.c	Wed Feb  1 23:57:07 1995
+++ ruby-0.67/re.c	Wed Feb 15 13:18:59 1995
@@ -129,6 +129,7 @@
     int result;
 
-    if (FL_TEST(reg, FL_USER1)) { /* case-flag set for the object */
-	ignorecase = FL_TEST(reg, FL_USER2); /* case-flag */
+    /* case-flag set for the object */
+    if (FL_TEST(reg, FL_USER1)) {
+	ignorecase = 1;
     }
     if (ignorecase)
@@ -388,12 +389,6 @@
     }
 
-    if (argc == 2) {
+    if (argc == 2 && argv[1]) {
 	FL_SET(reg, FL_USER1);
-	if (argv[1]) {
-	    FL_SET(reg, FL_USER2);
-	}
-	else {
-	    FL_UNSET(reg, FL_USER2);
-	}
     }
 
diff -u2raN ruby-0.66/ruby.1 ruby-0.67/ruby.1
--- ruby-0.66/ruby.1	Fri Dec 16 10:43:00 1994
+++ ruby-0.67/ruby.1	Sat Feb 11 01:25:42 1995
@@ -165,5 +165,27 @@
 .B \-S
 スクリプト名が`/'で始まっていない場合, 環境変数`PATH'の値を
-使ってスクリプトを探す.
+使ってスクリプトを探す.  これは、#! をサポートしていないマシ
+ンで、#! による実行をエミュレートするために、以下のようにし
+て使うことができる:
+
+        #! /usr/local/bin/ruby
+	# This line makes the next one a comment in ruby \
+        eval "exec /usr/local/bin/ruby -S $0 $*"
+
+システムは最初の行を無視し，スクリプトを`/bin/sh'に渡す．
+`/bin/sh'はrubyスクリプトをシェルスクリプトとして実行しよう
+とする．シェルは2行目だけをコメントであると解釈し，3行目を通
+常のシェルコマンドとして実行し，rubyインタプリタを起動する．
+
+システムによっては`$0'は必ずしもフルパスを含まないので，`-S'
+を用いてrubyに必要に応じてスクリプトを探すように指示する．
+rubyがスクリプトを見つけると、これらの行の解析を始めるが，
+rubyは2行目の行末にあるバックスラッシュにより，2行目のコメン
+トが3行目まで継続するとみなして，3行目を無視する．
+
+ファイル名に含まれるスペースなどを正しく扱うには，`$*'よりも
+`${1+"$@"}'のほうがよいだろうが，cshが解釈する場合には動作し
+ない．
+
 .TP 5
 .B \-v, \-\-verbose
diff -u2raN ruby-0.66/ruby.c ruby-0.67/ruby.c
--- ruby-0.66/ruby.c	Thu Feb  2 00:35:10 1995
+++ ruby-0.67/ruby.c	Tue Feb 14 00:53:48 1995
@@ -53,5 +53,5 @@
 
 static void load_stdin();
-void rb_load_file();
+static void load_file();
 
 static int do_loop = FALSE, do_print = FALSE;
@@ -211,5 +211,5 @@
 		if (!script) script = argv[optind];
 	    }
-	    rb_load_file(script);
+	    load_file(script, 1);
 	    optind++;
 	}
@@ -243,10 +243,11 @@
 
 static void
-readin(fd, fname)
+readin(fd, fname, script)
     int fd;
     char *fname;
+    int script;
 {
     struct stat st;
-    char *ptr, *p, *pend;
+    char *ptr, *p, *pend, *s;
 
     if (fstat(fd, &st) < 0) rb_sys_fail(fname);
@@ -260,29 +261,51 @@
     }
     pend = p + st.st_size;
-    if (xflag) {
-	char *s = p;
+    *pend = '\0';
 
-	*pend = '\0';
-	xflag = FALSE;
-	while (p < pend) {
+    if (script) {
+	if (xflag) {
+	    xflag = FALSE;
+	    while (p < pend) {
+		if (p[0] == '#' && p[1] == '!') {
+		    char *s = p;
+		    while (s < pend && *s != '\n') s++;
+		    if (*s == '\n') {
+			*s = '\0';
+			if (strstr(p, "ruby")) {
+			    *s = '\n';
+			    goto start_read;
+			}
+		    }
+		    p = s + 1;
+		}
+		else {
+		    while (p < pend && *p++ != '\n')
+			;
+		    if (p >= pend) break;
+		}
+	    }
+	    free(ptr);
+	    Fail("No Ruby script found in input");
+	}
+
+      start_read:
+	if (p[0] == '#' && p[1] == '!') {
+	    char *s = p, *q;
+
 	    while (s < pend && *s != '\n') s++;
-	    if (*s != '\n') break;
-	    *s = '\0';
-	    if (p[0] == '#' && p[1] == '!' && strstr(p, "ruby")) {
-		if (p = strstr(p, "ruby -")) {
+	    if (*s == '\n') {
+		*s = '\0';
+		if (q = strstr(p, "ruby -")) {
 		    int argc; char *argv[2]; char **argvp = argv;
-		    argc = 2; argv[0] = Qnil; argv[1] = p + 5;
+		    argc = 2; argv[0] = Qnil; argv[1] = q + 5;
 		    proc_options(&argc, &argvp);
+		    p = s + 1;
+		}
+		else {
+		    *s = '\n';
 		}
-		xflag = TRUE;
-		p = s + 1;
-		goto start_read;
 	    }
-	    p = s + 1;
 	}
-	free(ptr);
-	Fail("No Ruby script found in input");
     }
-  start_read:
     lex_setsrc(fname, p, pend - p);
     yyparse();
@@ -290,7 +313,8 @@
 }
 
-void
-rb_load_file(fname)
+static void
+load_file(fname, script)
     char *fname;
+    int script;
 {
     int fd;
@@ -304,8 +328,15 @@
     fd = open(fname, O_RDONLY, 0);
     if (fd < 0) rb_sys_fail(fname);
-    readin(fd, fname);
+    readin(fd, fname, script);
     close(fd);
 }
 
+void
+rb_load_file(fname)
+    char *fname;
+{
+    load_file(fname, 0);
+}
+
 static void
 load_stdin()
@@ -325,7 +356,4 @@
     }
     fclose(f);
-
-    if (fd < 0) rb_sys_fail(buf);
-
     readin(fd, "-");
 }
diff -u2raN ruby-0.66/sample/Artistic ruby-0.67/sample/Artistic
--- ruby-0.66/sample/Artistic	Fri Dec 16 10:43:05 1994
+++ ruby-0.67/sample/Artistic
@@ -1,117 +0,0 @@
-
-
-
-
-			 The "Artistic License"
-
-				Preamble
-
-The intent of this document is to state the conditions under which a
-Package may be copied, such that the Copyright Holder maintains some
-semblance of artistic control over the development of the package,
-while giving the users of the package the right to use and distribute
-the Package in a more-or-less customary fashion, plus the right to make
-reasonable modifications.
-
-Definitions:
-
-	"Package" refers to the collection of files distributed by the
-	Copyright Holder, and derivatives of that collection of files
-	created through textual modification.
-
-	"Standard Version" refers to such a Package if it has not been
-	modified, or has been modified in accordance with the wishes
-	of the Copyright Holder.
-
-	"Copyright Holder" is whoever is named in the copyright or
-	copyrights for the package.
-
-	"You" is you, if you're thinking about copying or distributing
-	this Package.
-
-	"Reasonable copying fee" is whatever you can justify on the
-	basis of media cost, duplication charges, time of people involved,
-	and so on.  (You will not be required to justify it to the
-	Copyright Holder, but only to the computing community at large
-	as a market that must bear the fee.)
-
-	"Freely Available" means that no fee is charged for the item
-	itself, though there may be fees involved in handling the item.
-	It also means that recipients of the item may redistribute it
-	under the same conditions they received it.
-
-1. You may make and give away verbatim copies of the source form of the
-Standard Version of this Package without restriction, provided that you
-duplicate all of the original copyright notices and associated disclaimers.
-
-2. You may apply bug fixes, portability fixes and other modifications
-derived from the Public Domain or from the Copyright Holder.  A Package
-modified in such a way shall still be considered the Standard Version.
-
-3. You may otherwise modify your copy of this Package in any way, provided
-that you insert a prominent notice in each changed file stating how and
-when you changed that file, and provided that you do at least ONE of the
-following:
-
-    a) place your modifications in the Public Domain or otherwise make them
-    Freely Available, such as by posting said modifications to Usenet or
-    an equivalent medium, or placing the modifications on a major archive
-    site such as uunet.uu.net, or by allowing the Copyright Holder to include
-    your modifications in the Standard Version of the Package.
-
-    b) use the modified Package only within your corporation or organization.
-
-    c) rename any non-standard executables so the names do not conflict
-    with standard executables, which must also be provided, and provide
-    a separate manual page for each non-standard executable that clearly
-    documents how it differs from the Standard Version.
-
-    d) make other distribution arrangements with the Copyright Holder.
-
-4. You may distribute the programs of this Package in object code or
-executable form, provided that you do at least ONE of the following:
-
-    a) distribute a Standard Version of the executables and library files,
-    together with instructions (in the manual page or equivalent) on where
-    to get the Standard Version.
-
-    b) accompany the distribution with the machine-readable source of
-    the Package with your modifications.
-
-    c) accompany any non-standard executables with their corresponding
-    Standard Version executables, giving the non-standard executables
-    non-standard names, and clearly documenting the differences in manual
-    pages (or equivalent), together with instructions on where to get
-    the Standard Version.
-
-    d) make other distribution arrangements with the Copyright Holder.
-
-5. You may charge a reasonable copying fee for any distribution of this
-Package.  You may charge any fee you choose for support of this Package.
-You may not charge a fee for this Package itself.  However,
-you may distribute this Package in aggregate with other (possibly
-commercial) programs as part of a larger (possibly commercial) software
-distribution provided that you do not advertise this Package as a
-product of your own.
-
-6. The scripts and library files supplied as input to or produced as
-output from the programs of this Package do not automatically fall
-under the copyright of this Package, but belong to whomever generated
-them, and may be sold commercially, and may be aggregated with this
-Package.
-
-7. C subroutines supplied by you and linked into this Package in order
-to emulate subroutines and variables of the language defined by this
-Package shall not be considered part of this Package, but are the
-equivalent of input as in Paragraph 6, provided these subroutines do
-not change the language in any way that would cause it to fail the
-regression tests for the language.
-
-8. The name of the Copyright Holder may not be used to endorse or promote
-products derived from this software without specific prior written permission.
-
-9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR
-IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
-WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
-
-				The End
diff -u2raN ruby-0.66/sample/MANIFEST ruby-0.67/sample/MANIFEST
--- ruby-0.66/sample/MANIFEST	Tue Feb  7 18:27:20 1995
+++ ruby-0.67/sample/MANIFEST	Tue Feb 14 00:43:57 1995
@@ -1,4 +1,3 @@
 MANIFEST
-Artistic
 aset.rb
 attr.rb
@@ -40,5 +39,5 @@
 occur2.rb
 opt_s.rb
-opt_x.rb
+opt_x.test
 parsearg.rb
 rcs.awk
diff -u2raN ruby-0.66/sample/attr.rb ruby-0.67/sample/attr.rb
--- ruby-0.66/sample/attr.rb	Fri Dec 16 10:43:02 1994
+++ ruby-0.67/sample/attr.rb	Mon Feb 20 16:37:11 1995
@@ -5,5 +5,5 @@
 
 class Foo
-  attr "test", %TRUE
+  attr "test", TRUE
 end
 
diff -u2raN ruby-0.66/sample/cbreak.rb ruby-0.67/sample/cbreak.rb
--- ruby-0.66/sample/cbreak.rb	Fri Dec 16 10:43:02 1994
+++ ruby-0.67/sample/cbreak.rb	Mon Feb 20 16:52:48 1995
@@ -1,30 +1,30 @@
 # ioctl example works on Sun
 
-%CBREAK = 0x00000002
-%ECHO = 0x00000008
-%TIOCGETP = 0x40067408
-%TIOCSETP = 0x80067409
+CBREAK = 0x00000002
+ECHO = 0x00000008
+TIOCGETP = 0x40067408
+TIOCSETP = 0x80067409
 
 def cbreak ()
-  set_cbreak(%TRUE)
+  set_cbreak(TRUE)
 end
 
 def cooked ()
-  set_cbreak(%FALSE)
+  set_cbreak(FALSE)
 end
 
 def set_cbreak (on)
   tty = "\0" * 256
-  $stdin.ioctl(%TIOCGETP, tty)
+  $stdin.ioctl(TIOCGETP, tty)
   ttys = tty.unpack("C4 S")
   if on
-    ttys[4] |= %CBREAK
-    ttys[4] &= ~%ECHO
+    ttys[4] |= CBREAK
+    ttys[4] &= ~ECHO
   else
-    ttys[4] &= ~%CBREAK
-    ttys[4] |= %ECHO
+    ttys[4] &= ~CBREAK
+    ttys[4] |= ECHO
   end
   tty = ttys.pack("C4 S")
-  $stdin.ioctl(%TIOCSETP, tty)
+  $stdin.ioctl(TIOCSETP, tty)
 end
 cbreak();
diff -u2raN ruby-0.66/sample/const.rb ruby-0.67/sample/const.rb
--- ruby-0.66/sample/const.rb	Fri Dec 16 10:43:02 1994
+++ ruby-0.67/sample/const.rb	Mon Feb 20 17:13:54 1995
@@ -3,22 +3,22 @@
 #	1234
 #	1268
-%test1 = 1
-%test2 = 2
+TEST1 = 1
+TEST2 = 2
 
 module Const
-  %test3 = 3
-  %test4 = 4
+  TEST3 = 3
+  TEST4 = 4
 end
 
 module Const2
-  %test3 = 6
-  %test4 = 8
+  TEST3 = 6
+  TEST4 = 8
 end
 
 include Const
 
-print(%test1,%test2,%test3,%test4,"\n")
+print(TEST1,TEST2,TEST3,TEST4,"\n")
 
 include Const2
 
-print(%test1,%test2,%test3,%test4,"\n")
+print(TEST1,TEST2,TEST3,TEST4,"\n")
diff -u2raN ruby-0.66/sample/evaldef.rb ruby-0.67/sample/evaldef.rb
--- ruby-0.66/sample/evaldef.rb	Mon Jan  9 19:14:20 1995
+++ ruby-0.67/sample/evaldef.rb	Mon Feb 20 17:02:54 1995
@@ -4,5 +4,5 @@
 #	(eval):26: method `baz' not available for "#<foo: 0xbfc5c>"(foo)
 
-class foo
+class Foo
   def foo
     eval("
@@ -13,5 +13,5 @@
 end
 
-class bar:foo
+class Bar : Foo
   def bar
     baz()
diff -u2raN ruby-0.66/sample/export.rb ruby-0.67/sample/export.rb
--- ruby-0.66/sample/export.rb	Fri Jan 13 15:16:37 1995
+++ ruby-0.67/sample/export.rb	Mon Feb 20 16:59:27 1995
@@ -4,5 +4,5 @@
 #	foo
 
-class foo
+class Foo
   export :printf
 end
diff -u2raN ruby-0.66/sample/getopts.rb ruby-0.67/sample/getopts.rb
--- ruby-0.66/sample/getopts.rb	Fri Dec 16 10:43:03 1994
+++ ruby-0.67/sample/getopts.rb	Mon Feb 20 19:04:11 1995
@@ -29,5 +29,5 @@
 #    �I�v�V�������w��������������, ���� $OPT_?? �� non-nil ��������, �����I
 #    �v�V�������������Z�b�g��������. 
-#	-f -> $OPT_f = %TRUE
+#	-f -> $OPT_f = TRUE
 #	--geometry 300x400 -> $OPT_geometry = 300x400
 #
@@ -51,5 +51,6 @@
     end
   end
-  
+
+  opts = {}
   count = 0
   while ($ARGV.length != 0)
@@ -69,9 +70,11 @@
             end
             eval("$OPT_" + compare + " = " + '$ARGV[1]')
+	    opts[compare] =  TRUE
             $ARGV.shift
 	    count += 1
 	    break
           elsif (option == compare)
-            eval("$OPT_" + compare + " = %TRUE")
+            eval("$OPT_" + compare + " = TRUE")
+	    opts[compare] =  TRUE
 	    count += 1
             break
@@ -83,9 +86,11 @@
 	compare = $ARGV[0][index, 1]
 	if (single_opts && compare =~ "[" + single_opts + "]")
-	  eval("$OPT_" + compare + " = %TRUE")
+	  eval("$OPT_" + compare + " = TRUE")
+	  opts[compare] =  TRUE
 	  count += 1
 	elsif (single_colon != "" && compare =~ "[" + single_colon + "]")
 	  if ($ARGV[0][index..-1].length > 1)
 	    eval("$OPT_" + compare + " = " + '$ARGV[0][(index + 1)..-1]')
+	    opts[compare] =  TRUE
 	    count += 1
 	  elsif ($ARGV.length <= 1)
@@ -93,4 +98,5 @@
 	  else
 	    eval("$OPT_" + compare + " = " + '$ARGV[1]')
+	    opts[compare] =  TRUE
 	    $ARGV.shift
 	    count = count + 1
@@ -104,5 +110,5 @@
 
     $ARGV.shift
-    if (!defined("$OPT_" + compare))
+    if (!opts.includes(compare))
       return nil
     end
diff -u2raN ruby-0.66/sample/getopts.test ruby-0.67/sample/getopts.test
--- ruby-0.66/sample/getopts.test	Fri Dec 16 10:43:03 1994
+++ ruby-0.67/sample/getopts.test	Mon Feb 20 16:54:17 1995
@@ -1,3 +1,3 @@
-#! /mp/free/bin/ruby -- -*- ruby -*-
+#! /usr/local/bin/ruby
 
 load("parsearg.rb")
diff -u2raN ruby-0.66/sample/less.rb ruby-0.67/sample/less.rb
--- ruby-0.66/sample/less.rb	Fri Dec 16 10:43:03 1994
+++ ruby-0.67/sample/less.rb	Mon Feb 13 18:05:39 1995
@@ -1,3 +1,3 @@
-#! /usr/local/bin/ruby -- -*- ruby -*-
+#! /usr/local/bin/ruby
 
 ZCAT = "/usr/local/bin/zcat"
diff -u2raN ruby-0.66/sample/opt_x.rb ruby-0.67/sample/opt_x.rb
--- ruby-0.66/sample/opt_x.rb	Fri Dec 16 10:43:04 1994
+++ ruby-0.67/sample/opt_x.rb
@@ -1,10 +0,0 @@
-test for option `-x'
-
-this is a forwarding header
-this is a header too.
-
-from here script starts
-#! ./ruby -v
-print("tt\n")
-__END__
-this is a trailer
diff -u2raN ruby-0.66/sample/opt_x.test ruby-0.67/sample/opt_x.test
--- ruby-0.66/sample/opt_x.test
+++ ruby-0.67/sample/opt_x.test	Fri Dec 16 10:43:04 1994
@@ -0,0 +1,10 @@
+test for option `-x'
+
+this is a forwarding header
+this is a header too.
+
+from here script starts
+#! ./ruby -v
+print("tt\n")
+__END__
+this is a trailer
diff -u2raN ruby-0.66/sample/ruby-mode.el ruby-0.67/sample/ruby-mode.el
--- ruby-0.66/sample/ruby-mode.el	Thu Feb  9 12:27:06 1995
+++ ruby-0.67/sample/ruby-mode.el	Tue Feb 21 00:38:36 1995
@@ -9,5 +9,5 @@
 
 (defconst ruby-block-beg-re
-  "class\\|module\\|def\\|if\\|unless\\|case\\|while\\|until\\|for\\|begin"
+  "class\\|module\\|def\\|if\\|case\\|while\\|for\\|begin"
   )
 
@@ -171,8 +171,12 @@
 		(string= "'" w)
 		(string= "`" w))
-	    (if (search-forward w indent-point t)
-		nil
+	    (cond 
+	     ((string= w (char-to-string (char-after (point))))
+	      (forward-char 1))
+	     ((re-search-forward (format "[^\\]%s" w) indent-point t)
+		nil)
+	     (t
 	      (goto-char indent-point)
-	      (setq in-string t)))
+	      (setq in-string t))))
 	   ((or (string= "/" w)
 		(string= "<" w))
@@ -190,5 +194,7 @@
 			 (save-excursion
 			   (forward-word -1)
-			   (looking-at ruby-block-beg-re))))
+			   (or 
+			    (looking-at ruby-block-beg-re)
+			    (looking-at ruby-block-mid-re)))))
 		(if (search-forward w indent-point t)
 		    nil
diff -u2raN ruby-0.66/sample/svr.rb ruby-0.67/sample/svr.rb
--- ruby-0.66/sample/svr.rb	Fri Dec 16 10:43:04 1994
+++ ruby-0.67/sample/svr.rb	Mon Feb 20 16:59:26 1995
@@ -6,5 +6,5 @@
 socks = [gs]
 
-while %TRUE
+while TRUE
   nsock = select(socks);
   if nsock == nil; continue end
diff -u2raN ruby-0.66/sample/tt.rb ruby-0.67/sample/tt.rb
--- ruby-0.66/sample/tt.rb	Mon Jan  9 18:14:11 1995
+++ ruby-0.67/sample/tt.rb	Mon Feb 20 17:03:13 1995
@@ -44,5 +44,5 @@
 end
 
-class Fib:Object
+class Fib : Object
   print("in Fib:Object\n")
 
diff -u2raN ruby-0.66/spec ruby-0.67/spec
--- ruby-0.66/spec	Thu Feb  9 12:39:54 1995
+++ ruby-0.67/spec	Tue Feb 21 14:42:29 1995
@@ -55,7 +55,8 @@
 (EUC,SJIS)も通すが勧められない．
 
-グローバル変数名は"$"に続く識別子または記号1文字，インスタンス変数は
-"@"に続く識別子，クラス定数は"%"に続く識別子である．メソッド名，ローカ
-ル変数名とクラス名は単なる識別子を用いる．
+グローバル変数名は"$"に続く識別子または記号1文字，インスタンス変数は 
+"@"に続く識別子，定数には大文字で始まる識別子，ローカル変数名は小文字
+で始まる識別子である．メソッド名には単なる識別子を用いる(メソッド名は
+大文字でも小文字でも始められる)．
 
 ** コメント
@@ -127,10 +128,13 @@
    \それ以外      文字そのもの
 
+文字列式は毎回新しい文字列オブジェクトを生成するので，文字列の内容を変
+更してももともとの文字列は変わらない．
+
 変数展開
 
 ダブルクォート(`"')で囲まれた文字列と正規表現の中では `#{変数名}'とい
-う形式で変数の内容を展開することができる．変数が変数記号(`$',`@',`%')
- で始まる場合には`#変数名'という形式でも展開できる．文字`#'に続く文字
-が `{',`$',`@',`%'でなければ，そのまま`#'として解釈される．
+う形式で変数の内容を展開することができる．変数が変数記号(`$',`@')で始
+まる場合には`#変数名'という形式でも展開できる．文字`#'に続く文字が 
+`{',`$',`@'でなければ，そのまま`#'として解釈される．
 
 ** コマンド出力
@@ -143,5 +147,5 @@
 ** 正規表現式
 
-  /.../
+  /.../[i]
 
            ^      行頭
@@ -165,5 +169,6 @@
          ( )      正規表現をまとめる
 
-その他に文字列と同じバックスラッシュ記法や変数展開も有効である．
+その他に文字列と同じバックスラッシュ記法や変数展開も有効である．正規表
+現の後ろにiがついた時には大文字小文字の違いを無視する．
 
 ** ワイルドカード式
@@ -227,54 +232,29 @@
 クトの寿命に等しい．
 
-*** クラス名/モジュール名/ローカル変数
+*** クラス定数
 
 例:
 
-  Array
-  Math
-  foobar
-
-アルファベットまたは`_'で始まる変数は識別子とも呼ばれ，ローカル変数，
-クラス名またはモジュール名である．
-
-初期状態では識別子はクラス/モジュール名とみなされるが(該当するクラスが
-存在しない場合の値はnil)，代入式の左辺に現れた識別子は，そのスコープ内
-ではローカル変数として見なされ，同名のクラスやモジュールは隠される．こ
-の意味で識別子への代入は宣言としての働きも持つ．
-
-        Array       		# 配列クラス Array
-        Array = 15		# 代入．以後Arrayはローカル変数
-        print Array, "\n"	# `15'が出力される
-
-この宣言としての代入の解釈はコンパイル時に行なわれるため，識別子への代
-入式が実際に実行されてもされなくても，以降のスコープ内ではその識別子は
-ローカル変数とみなされる．
-
-        Array       		# 配列クラス Array
-        if %FALSE
-          Array = 15    	# このコードは実行されないが，
-				# 以降Arrayはローカル変数とみなされる．
-        end
-        print Array, "\n"  	# `nil'が出力される
+  FOOBAR
 
-このルールは一見複雑だが，クラス/モジュール名とローカル変数名が重複し
-ない限り，未初期化のローカル変数の値はnilであると考えても差し支えはな
-い．Rubyの組み込みクラスは大文字のアルファベットで始まる名前がついて
-おり，ユーザもクラス/モジュール名には大文字で始まる識別子を，ローカル
-変数名には小文字または`_'で始まる識別子を使うことを強く推奨する．
+大文字で始まる識別子ははクラス定数へのアクセスであり，そのクラスと全て
+のサブクラスのインスタンスから参照できる．この定数へはトップレベル，す
+なわちメソッドが定義できるレベルでのみ代入可能である．この変数はクラス
+間で値が共有され，一度代入すると値を変更することができない．クラス定数
+の寿命はクラスの寿命と等しい．
 
-ローカル変数のスコープも寿命もそのブロックの終りまで(トップレベルのロー
-カル変数はプログラムの終了まで)である．
+クラス定義は自動的に定数を定義するので，クラス名は定数である．
 
-*** クラス定数
+*** ローカル変数
 
 例:
 
-  %foobar
+  foobar
+
+小文字または`_'で始まる識別子はローカル変数へのアクセスである．初期化
+されないローカル変数の値はnilである
 
-`%'で始まる変数はクラス定数であり，そのクラスと全てのサブクラスのイン
-スタンスから参照できる．この定数へはトップレベル，すなわちメソッドが定
-義できるレベルでのみ代入可能である．この変数はクラス間で値が共有され，
-一度代入すると値を変更することができない．
+ローカル変数のスコープは寿命もそのブロックの終りまで(トップレベルのロー
+カル変数はプログラムの終了まで)である．
 
 *** 疑似変数
@@ -301,12 +281,4 @@
   `(' 式 `)'
 
-括弧の中には単なる式だけではなく，式の並び(＝プログラム)を置くことが出
-来る．
-
-  `(' 式 `;' 式.. `)'
-
-式の並びの値は最後に評価した式の値である．つまりの値は最後に評価した式
-の値になる．
-
 ** 配列式
 
@@ -366,9 +338,12 @@
 ミング言語における関数のような形式でメソッドを呼び出すことができる．
 
-メソッド呼び出しでは曖昧さがない時には括弧を省略できる．曖昧さがある時
-とは第一引数が以下の文字または予約語で始まる場合である．
+メソッド呼び出しの引数の周りの括弧を省略できるが，第一引数となる式が以
+下の文字または予約語で始まる場合は，優先順位の関係で予想通りの結果が得
+られない場合がある．
 
-	(, [, {, <, /, %, +, -, if, while
+	(, [, {, <, /, +, -, if, while
 
+どのように評価されるか曖昧な場合には括弧をつける事．
+
 例：
 	      foo bar+baz	# メソッド呼び出しfoo(bar+baz)
@@ -417,29 +392,29 @@
   foo.bar = baz
 
-代入には変数に対する代入(真の代入)と，プログラムを簡単にするためのシン
-タックスシュガーとしての代入がある．真の代入は以下の形式である．
+代入式は変数などに値を設定するために用いられる．代入式は演算子形式をとっ
+ているが，メソッドではないので再定義することはできない．左辺になること
+が出来るのは以下の3種類の式である．
 
-  変数 `=' 式
+変数(`$'識別子 | `@'識別子 | 識別子)
 
-これは式を評価し，変数の値として代入する．クラスやモジュールや疑似変数
-には代入できない．クラスやモジュールの定義を変更するためにはclass式，
-module式を用いる．代入式は演算子形式をとっているが，メソッドではないの
-で再定義することはできない．
+    変数 `=' 式
 
-シンタックスシュガーとしての代入式は以下のものがある．
+変数への代入は右辺の式を評価して得られた値を左辺で指定された変数に代入
+する．
 
-配列要素への代入
+配列参照(式[式..])
 
   式1`[' 式2.. `]' `=' 式n
 
-式1を評価して得られるオブジェクトに，式2から式nまでを引数として，"[]="
-というメソッドを呼び出す．
+配列参照式への代入は，式1を評価して得られるオブジェクトに，式2から式n
+までを引数として，"[]=" というメソッドを呼び出す．
 
-属性代入
+属性参照(式`.'識別子)
 
   式1 `.' 識別子 `=' 式2
 
-式1を評価して得られるオブジェクト(レシーバが省略された場合は`self')に
-対して，"識別子="というメソッドを式 2を引数として呼び出す．
+属性参照(引数なしのメソッド呼び出し)への代入は，式1を評価して得られる
+オブジェクト(レシーバが省略された場合は`self')に対して，"識別子="とい
+うメソッドを式 2を引数として呼び出す．
 
 ** 自己代入
@@ -473,9 +448,10 @@
     左辺 `,' [左辺 `,'..] [`*' 左辺]= 式 [, 式..]
 
-右辺の式が一つしかない場合は，その値を配列として(必要ならばto_aメソッ
-ドで配列に変換して)，要素をそれぞれ左辺に代入する．それ以外の場合には，
-それぞれの式の値が左辺に代入される．左辺の数と右辺の要素の数が合わない
-時には足りない変数には nilが代入され，余った要素は無視される．多重代入
-の最後の要素の前に`*'がある場合，残りの全て引数が配列として代入される．
+左辺には代入式の3種類の式が来る．右辺の式が一つしかない場合は，その値
+を配列として(必要ならばto_aメソッドで配列に変換して)，要素をそれぞれ左
+辺に代入する．それ以外の場合には，それぞれの式の値が左辺に代入される．
+左辺の数と右辺の要素の数が合わない時には足りない変数には nilが代入され，
+余った要素は無視される．多重代入の最後の要素の前に`*'がある場合，残り
+の全て引数が配列として代入される．
 
     foo, bar = [1, 2]		# foo = 1; bar = 2
@@ -691,5 +667,5 @@
 一種である．イテレータの呼び出しは以下の構文で行なわれる．
 
-  式 `{' 変数.. `|' 式.. `}'
+  式 `{' 左辺式.. `|' 式.. `}'
 
 「式」をブロックとして設定し，「式」のメソッドをイテレータとして評価す
@@ -710,5 +686,5 @@
 式は以下の通り．
 
-  for 変数.. in 式
+  for 左辺式.. in 式
     式
   end
@@ -716,5 +692,5 @@
 式の各要素に対し式を実行する．これは以下の式と等価である．
 
-  (式).each `{' 変数.. `|' 式 `}'
+  (式).each `{' 左辺式.. `|' 式 `}'
 
 よって式の値のオブジェクトがメソッドeachを持たない場合，forを実行する
@@ -909,11 +885,4 @@
 	プロセスを終了させる時などに用いる．
 
-   do()
-
-	ブロックを1度だけ実行するイテレータ．ブロックをまとめるためだ
-	けに存在する．使い方の例:
-
-	  do { foobar() } while (baz())
-
    eof()
 
@@ -1049,6 +1018,6 @@
 	fileをロードする．loadとの動作の違いはrequireはロードしたファ
 	イルのフルパスを変数`$"'に覚えていて，既にロードしたファイルは
-	再ロードしない点である．実際にロードした時には%TRUE，既にロー
-	ドされている時には%FALSEを返す．
+	再ロードしない点である．実際にロードした時にはTRUE，既にロード
+	されている時にはFALSEを返す．
 
    select(reads[, writes[, execpts[, timeout]]])
@@ -1225,13 +1194,13 @@
 
 
-   %TRUE        t
-   %FALSE       nil
+   TRUE        t
+   FALSE       nil
 
         それぞれ真偽値を表す．条件判断はnilを偽，それ以外の全ての値を
-        真として判断するため，%TRUEの値は代表的な真の値という以上の意
-        味を持たない．よって，あるメソッドの返値が真であるということと，
-        それが%TRUEを返すということは厳密には同じではない(述語的に用い
-        られるメソッドは大抵真の値として%TRUEを返すようにはなっている
-        が)．つまり
+        真として判断するため，TRUEの値は代表的な真の値という以上の意味
+        を持たない．よって，あるメソッドの返値が真であるということと，
+        それがTRUEを返すということは厳密には同じではない(述語的に用い
+        られるメソッドは大抵真の値としてTRUEを返すようにはなっているが)．
+        つまり
 
 	  if some.method() then ... else ... end
@@ -1239,7 +1208,7 @@
 	と
 
-	  if some.method() == %TRUE then ... else ... end
+	  if some.method() == TRUE then ... else ... end
 
-        は完全には同義ではない．%FALSEに関しては，このような問題は生じ
+        は完全には同義ではない．FALSEに関しては，このような問題は生じ
         ない．
 
@@ -1709,6 +1678,6 @@
 
 辞書あるいは連想配列．任意のオブジェクトを添字とできる配列のクラスであ
-る．Hashという名前でもアクセスできる．連想配列オブジェクトの生成は一般
-的には連想配列式``{a=>b,..}'' で行なわれる．
+る．連想配列オブジェクトの生成は一般的には連想配列式``{a=>b,..}'' で行
+なわれる．
 
 SuperClass: Object
@@ -1797,8 +1766,7 @@
         新しい(空の)辞書オブジェクトを返す．
 
-** Directory(クラス)
+** Dir(クラス)
 
 ディレクトリ内の要素を順に返すディレクトリストリーム操作のためのクラス．
-Dirという名前でもアクセスできる．
 
 SuperClass: Object
@@ -2682,5 +2650,5 @@
 	省略可能な第2引数publicが与えられて，かつその値がnilでない時に
 	はその属性には属性設定メソッドも用意され，外部から代入可能にな
-	る．attr("attr", %TRUE)はクラス定義に以下のコードを追加するの
+	る．attr("attr", TRUE)はクラス定義に以下のコードを追加するの
 	とほぼ同義である．
 
@@ -2691,5 +2659,5 @@
 	作を変更できる．例えば
 
-	  attr("test", %TRUE)
+	  attr("test", TRUE)
 	  def test=(val)
 	    print("test was ", @test, "\n")
@@ -2844,6 +2812,6 @@
 	whichとwhoで指定されるプロセス，プロセスグループ，ユーザの現在
 	の優先順位を返す．詳細はgetpriority(2)を参照．Processモジュー
-	ルではwhichとして指定できる定数%PRIO_PROCESS，%PRIO_PGRP，
-	%PRIO_USERが定義されている．
+	ルではwhichとして指定できる定数PRIO_PROCESS，PRIO_PGRP，
+	PRIO_USERが定義されている．
 
    gid
@@ -2894,7 +2862,7 @@
 しかし，この場合は以下の方が速い.
 
-        do 1.upto(5)
+        1.upto(5) {
           ...
-        end
+        }
 
 範囲オブジェクトを生成する`..'演算子の両辺はComparableを含むクラスのイ
@@ -3026,8 +2994,7 @@
 
         文字列を正規表現に変換したオブジェクトを返す．省略可能な第2引
-        数が与えられた時には，生成される正規表現オブジェクトはシステム
-        変数`$='の値に関わらず，真の時は大文字小文字を無視し，偽の時は
-        区別する．設定されない場合はマッチを行なった時点のシステム変数
-        `$='の値によって区別するかしないかが決定される．
+        数が与えられ，その値がnilでない時には，生成された正規表現オブ
+        ジェクトはシステム変数`$='の値に関わらず，マッチする時に大文字
+        小文字の違いを無視する．
 
    quote(str)
@@ -3457,5 +3424,5 @@
  socks = [gs]
 
- while %TRUE
+ while TRUE
    nsock = select(socks);
    if nsock == nil; continue end
@@ -3767,5 +3734,6 @@
 		| PRIMARY
 
-PRIMARY		: LITERAL
+PRIMARY		: `(' EXPR `)'
+		| LITERAL
 		| VARIABLE
 		| super `(' [CALL_ARGS] `)'
@@ -3808,5 +3776,4 @@
 		  [ensure COMPEXPR]
 		  end
-		| `(' COMPEXPR `)'
 		| class identifier `:' identifier
 		  COMPEXPR
@@ -3853,6 +3820,5 @@
 ASSOC		: ARG `=>' ARG
 
-VARIABLE	: identifier
-		| VARNAME
+VARIABLE	: VARNAME
 		| nil
 		| self
@@ -3881,5 +3847,5 @@
 VARNAME		: GLOBAL
 		| `@'identifier
-		| `%'identifier
+		| identifier
 
 GLOBAL		: `$'identifier
@@ -3890,5 +3856,5 @@
 		| ``' any_char* ``'
 
-REGEXP		: `/' any_char* `/'
+REGEXP		: `/' any_char* `/'[i]
 
 GLOB		: `<' any_char* `>'
@@ -3896,10 +3862,14 @@
 * 謝辞
 
-Rubyの言語仕様はC, Perl, Eiffelの各言語にこの順に影響を受けている. そ
-の他に影響を受けた言語としてはtcl, AWK, bourne shell, CLU, Sather,
-Icon, Smalltalk, Emacs Lispなどがある. またrubyの言語仕様を決定するた
-めに協力して下さった方々を以下にあげる(敬称略): 石塚圭樹，大庭康生，伊
-藤純一郎，中村＠ＮＥＣ．関根＠日本DEC，たなか@赤坂.富士通．
+Rubyの言語仕様は数多くの言語の影響を受けている. 以下にあげるのはその主
+な言語である．
+
+  C, Perl, CLU, Sather, CLOS, Eiffel, Icon, tcl, AWK, bourne shell,
+  Smalltalk, Emacs Lisp.
+
+またrubyの言語仕様を決定するために協力して下さった方々を以下にあげる
 
+  石塚圭樹，大庭康生，伊藤純一郎，中村＠ＮＥＣ．関根＠日本DEC，
+  たなか＠赤坂.富士通(敬称略)．
 -------------------------------------------------------
 Local variables:
diff -u2raN ruby-0.66/string.c ruby-0.67/string.c
--- ruby-0.66/string.c	Wed Feb  1 23:49:31 1995
+++ ruby-0.67/string.c	Tue Feb 21 00:25:37 1995
@@ -210,7 +210,5 @@
 	int tmp;
 
-	if (verbose) {
-	    Warning("start %d is bigger than end %d", beg, end);
-	}
+	Warning("start %d is bigger than end %d", beg, end);
 	tmp = beg; beg = end; end = tmp;
     }
@@ -607,7 +605,5 @@
 		int tmp;
 
-		if (verbose) {
-		    Warning("start %d is bigger than end %d", beg, end);
-		}
+		Warning("start %d is bigger than end %d", beg, end);
 		tmp = beg; beg = end; end = tmp;
 	    }
@@ -744,7 +740,5 @@
 		int tmp;
 
-		if (verbose) {
-		    Warning("start %d is bigger than end %d", beg, end);
-		}
+		Warning("start %d is bigger than end %d", beg, end);
 		tmp = beg; beg = end; end = tmp;
 	    }
diff -u2raN ruby-0.66/variable.c ruby-0.67/variable.c
--- ruby-0.66/variable.c	Tue Feb  7 18:17:33 1995
+++ ruby-0.67/variable.c	Tue Feb 21 00:25:36 1995
@@ -39,9 +39,38 @@
     VALUE body;
 
-    if (st_lookup(class_tbl, id, &body)) {
-	Bug("%s %s already exists",
-	    TYPE(body)==T_CLASS?"class":"module", rb_id2name(id));
+    rb_ivar_set_1(class, rb_intern("__classname__"), INT2FIX(id));
+}
+
+char *
+rb_class2name(class)
+    struct RClass *class;
+{
+    int name;
+
+    switch (TYPE(class)) {
+      case T_ICLASS:
+        class = (struct RClass*)RBASIC(class)->class;
+	break;
+      case T_CLASS:
+      case T_MODULE:
+	break;
+      default:
+	Fail("0x%x is not a class/module", class);
+    }
+
+    while (FL_TEST(class, FL_SINGLE)) {
+	class = (struct RClass*)class->super;
+    }
+
+    while (TYPE(class) == T_ICLASS) {
+        class = (struct RClass*)class->super;
     }
-    st_add_direct(class_tbl, id, class);
+
+    name = rb_ivar_get_1(class, rb_intern("__classname__"));
+    if (name) {
+	name = FIX2INT(name);
+	return rb_id2name((ID)name);
+    }
+    Bug("class 0x%x not named", class);
 }
 
@@ -204,6 +233,5 @@
 	break;
     }
-    if (verbose)
-	Warning("global var %s not initialized", rb_id2name(entry->id));
+    Warning("global var %s not initialized", rb_id2name(entry->id));
     return Qnil;
 }
@@ -249,16 +277,4 @@
 
 VALUE
-rb_mvar_get(id)
-    ID id;
-{
-    VALUE val;
-
-    if (st_lookup(class_tbl, id, &val)) return val;
-    if (verbose)
-	Warning("local var %s not initialized", rb_id2name(id));
-    return Qnil;
-}
-
-VALUE
 rb_ivar_get_1(obj, id)
     struct RObject *obj;
@@ -279,7 +295,5 @@
 	break;
     }
-    if (verbose) {
-	Warning("instance var %s not initialized", rb_id2name(id));
-    }
+    Warning("instance var %s not initialized", rb_id2name(id));
     return Qnil;
 }
@@ -334,4 +348,8 @@
 	class = class->super;
     }
+
+    /* pre-defined class */
+    if (st_lookup(class_tbl, id, &value)) return value;
+
     Fail("Uninitialized constant %s", rb_id2name(id));
     /* not reached */
diff -u2raN ruby-0.66/version.h ruby-0.67/version.h
--- ruby-0.66/version.h	Thu Feb  9 16:18:55 1995
+++ ruby-0.67/version.h	Tue Feb 21 00:16:43 1995
@@ -1,2 +1,2 @@
-#define RUBY_VERSION "0.66"
-#define VERSION_DATE "95/02/09"
+#define RUBY_VERSION "0.67"
+#define VERSION_DATE "95/02/21"