diff -u2raN ruby-0.67/ChangeLog ruby-0.68/ChangeLog
--- ruby-0.67/ChangeLog	Mon Feb 20 17:26:31 1995
+++ ruby-0.68/ChangeLog	Fri Feb 24 13:15:53 1995
@@ -1,2 +1,34 @@
+Fri Feb 24 13:15:43 1995  Yukihiro Matsumoto  (matz@ix-02)
+
+	* version 0.68
+
+Thu Feb 23 11:19:19 1995  Yukihiro Matsumoto  (matz@ix-02)
+
+	* eval.c: resque節のselfの値が間違っていた．
+
+	* eval.c(rb_clear_cache): キャッシュのクリアし忘れがあった．
+
+	* eval.c: 定数のスコープをクラス内の静的スコープに変更した．これに
+	  よって，特異メソッドからは参照される定数は，レシーバのクラスでは
+	  なく，定義されたスコープのクラスの定数となる．
+
+Wed Feb 22 00:51:38 1995  Yukihiro Matsumoto  (matz@dyna)
+
+	* regex.c: ignorecaseを正規表現のコンパイル前に指定しないと正しく
+	  動作しない．修正．
+
+	* string.c(toupper,tolower): bug fix.
+
+	* ENV,VERSION: readonly変数から定数へ．
+
+Tue Feb 21 18:56:56 1995  Yukihiro Matsumoto  (matz@ix-02)
+
+	* io.c(STDIN, STDOUT, STDERR): 定数として定義．今までの$stdinなど
+	  は将来なくなるかも知れない．
+
+	* io.c(select): bug fix.
+
+	* version 0.67
+
 Mon Feb 20 16:10:14 1995  Yukihiro Matsumoto  (matz@ix-02)
 
@@ -39,8 +71,12 @@
 Thu Feb  9 16:18:37 1995  Yukihiro Matsumoto  (matz@ix-02)
 
+	* version 0.66
+
 	* parse.y: protectをbeginに変更．begin..endは例外処理だけでなく，
 	  文括弧としても働くことになった．
 
 Wed Feb  1 19:48:24 1995  Yukihiro Matsumoto  (matz@ix-02)
+
+	* version 0.65
 
 	* string.c(str_replace): 置き換える文字列の長さが等しい時メモリコ
diff -u2raN ruby-0.67/array.c ruby-0.68/array.c
--- ruby-0.67/array.c	Tue Feb 21 00:25:40 1995
+++ ruby-0.68/array.c	Wed Feb 22 00:50:46 1995
@@ -7,5 +7,5 @@
   created at: Fri Aug  6 09:46:12 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/class.c ruby-0.68/class.c
--- ruby-0.67/class.c	Tue Feb 21 00:29:46 1995
+++ ruby-0.68/class.c	Thu Feb 23 12:08:37 1995
@@ -7,5 +7,5 @@
   created at: Tue Aug 10 15:05:44 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -204,5 +204,5 @@
 
     if (BUILTIN_TYPE(class) == T_CLASS) {
-	rb_clear_cache2(class);
+	rb_clear_cache(class);
     }
 
@@ -222,22 +222,4 @@
 	module = module->super;
     }
-}
-
-void
-rb_add_method(class, mid, node, noex)
-    struct RClass *class;
-    ID mid;
-    NODE *node;
-    int noex;
-{
-    NODE *body;
-
-    if (class == Qnil) class = (struct RClass*)C_Object;
-    if (st_lookup(class->m_tbl, mid, &body)) {
-	Warning("redefine %s", rb_id2name(mid));
-	rb_clear_cache(body);
-    }
-    body = NEW_METHOD(node, noex);
-    st_insert(class->m_tbl, mid, body);
 }
 
diff -u2raN ruby-0.67/compar.c ruby-0.68/compar.c
--- ruby-0.67/compar.c	Fri Dec 16 10:42:57 1994
+++ ruby-0.68/compar.c	Wed Feb 22 00:50:45 1995
@@ -7,5 +7,5 @@
   created at: Thu Aug 26 14:39:48 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/cons.c ruby-0.68/cons.c
--- ruby-0.67/cons.c	Fri Jan 20 10:55:28 1995
+++ ruby-0.68/cons.c	Wed Feb 22 00:50:45 1995
@@ -7,5 +7,5 @@
   created at: Fri Jan  6 10:10:36 JST 1995
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/dbm.c ruby-0.68/dbm.c
--- ruby-0.67/dbm.c	Wed Feb  1 23:57:17 1995
+++ ruby-0.68/dbm.c	Wed Feb 22 00:50:44 1995
@@ -7,5 +7,5 @@
   created at: Mon Jan 24 15:59:52 JST 1994
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/dict.c ruby-0.68/dict.c
--- ruby-0.67/dict.c	Mon Feb 13 17:56:06 1995
+++ ruby-0.68/dict.c	Fri Feb 24 01:10:54 1995
@@ -7,5 +7,5 @@
   created at: Mon Nov 22 18:51:18 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -615,5 +615,4 @@
     rb_define_method(C_Dict,"has_value", Fdic_has_value, 1);
 
-
     envtbl = obj_alloc(C_Object);
     rb_define_single_method(envtbl,"[]", Fgetenv, 1);
@@ -625,6 +624,4 @@
 
     rb_define_variable("$ENV", &envtbl, Qnil, rb_readonly_hook, 0);
-
-    rb_define_private_method(C_Kernel, "getenv", Fgetenv, 1);
-    rb_define_private_method(C_Kernel, "setenv", Fsetenv, 2);
+    rb_define_const(C_Kernel, "ENV", envtbl);
 }
diff -u2raN ruby-0.67/dir.c ruby-0.68/dir.c
--- ruby-0.67/dir.c	Mon Feb 13 17:56:25 1995
+++ ruby-0.68/dir.c	Wed Feb 22 00:50:43 1995
@@ -7,5 +7,5 @@
   created at: Wed Jan  5 09:51:01 JST 1994
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/dln.c ruby-0.68/dln.c
--- ruby-0.67/dln.c	Wed Feb  1 23:57:15 1995
+++ ruby-0.68/dln.c	Wed Feb 22 00:50:43 1995
@@ -7,5 +7,5 @@
   created at: Tue Jan 18 17:05:06 JST 1994
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/enum.c ruby-0.68/enum.c
--- ruby-0.67/enum.c	Wed Feb  1 23:57:14 1995
+++ ruby-0.68/enum.c	Wed Feb 22 00:50:42 1995
@@ -7,5 +7,5 @@
   created at: Fri Oct  1 15:15:19 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/env.h ruby-0.68/env.h
--- ruby-0.67/env.h	Tue Jan 10 19:42:30 1995
+++ ruby-0.68/env.h	Thu Feb 23 10:04:40 1995
@@ -31,3 +31,5 @@
 extern int rb_in_eval;
 
+extern struct RClass *the_class;
+
 #endif /* ENV_H */
diff -u2raN ruby-0.67/error.c ruby-0.68/error.c
--- ruby-0.67/error.c	Tue Feb 21 00:25:31 1995
+++ ruby-0.68/error.c	Wed Feb 22 00:50:42 1995
@@ -7,5 +7,5 @@
   created at: Mon Aug  9 16:11:34 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/eval.c ruby-0.68/eval.c
--- ruby-0.67/eval.c	Tue Feb 21 00:26:42 1995
+++ ruby-0.68/eval.c	Fri Feb 24 01:11:56 1995
@@ -7,5 +7,5 @@
   created at: Thu Jun 10 14:22:17 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -20,5 +20,6 @@
 #include "st.h"
 
-void rb_clear_cache();
+static void rb_clear_cache_body();
+static void rb_clear_cache_entry();
 
 /* #define TEST	/* prints cache miss */
@@ -41,4 +42,25 @@
 static struct cache_entry cache[CACHE_SIZE];
 
+void
+rb_add_method(class, mid, node, noex)
+    struct RClass *class;
+    ID mid;
+    NODE *node;
+    int noex;
+{
+    NODE *body;
+
+    if (class == Qnil) class = (struct RClass*)C_Object;
+    if (st_lookup(class->m_tbl, mid, &body)) {
+	Warning("redefine %s", rb_id2name(mid));
+	rb_clear_cache_body(body);
+    }
+    else {
+	rb_clear_cache_entry(class, mid);
+    }
+    body = NEW_METHOD(node, noex);
+    st_insert(class->m_tbl, mid, body);
+}
+
 static NODE*
 search_method(class, id, origin)
@@ -117,5 +139,8 @@
     if (st_lookup(class->m_tbl, name, &old)) {
 	Warning("redefine %s", rb_id2name(name));
-	rb_clear_cache(old->nd_body);
+	rb_clear_cache_body(body);
+    }
+    else {
+	rb_clear_cache_entry(class, name);
     }
 
@@ -159,6 +184,6 @@
 }
 
-void
-rb_clear_cache(body)
+static void
+rb_clear_cache_body(body)
     NODE *body;
 {
@@ -175,6 +200,21 @@
 }
 
+static void
+rb_clear_cache_entry(class, mid)
+    struct RClass *class;
+    ID mid;
+{
+    struct cache_entry *ent;
+
+    /* is it in the method cache? */
+    ent = cache + EXPR1(class, mid);
+    if (ent->mid == mid && ent->class == class) {
+	ent->class = Qnil;
+	ent->mid = Qnil;
+    }
+}
+
 void
-rb_clear_cache2(class)
+rb_clear_cache(class)
     struct RClass *class;
 {
@@ -286,4 +326,5 @@
 #define EXEC_TAG()    (setjmp(prot_tag->buf))
 #define JUMP_TAG(val) {			\
+    Qself = prot_tag->self;		\
     the_env = prot_tag->env;		\
     iter = prot_tag->iter;		\
@@ -306,5 +347,5 @@
 #define IN_BLOCK   0x08
 
-static struct RClass *the_class;
+struct RClass *the_class;
 struct class_link {
     struct RClass *class;
@@ -339,4 +380,6 @@
 void rb_fail();
 
+static void module_setup();
+
 static VALUE masign();
 static void asign();
@@ -397,4 +440,6 @@
     PUSH_ITER(ITER_NOT);
     if ((state = EXEC_TAG()) == 0) {
+	rb_call_inits();
+	the_class = (struct RClass*)C_Object;
 	ruby_init0(argc, argv, envp);
     }
@@ -449,5 +494,4 @@
     PUSH_ITER(ITER_NOT);
     if ((state = EXEC_TAG()) == 0) {
-	the_class = (struct RClass*)C_Object;
 	Eval();
     }
@@ -1039,6 +1083,7 @@
       case NODE_CVAR:
 	{
-	    VALUE val = rb_const_get(node->nd_vid);
+	    VALUE val;
 
+	    val = rb_const_get(node->nd_rval->nd_clss, node->nd_vid);
 	    nd_set_type(node, NODE_CONST);
 	    node->nd_cval = val;
@@ -1115,5 +1160,7 @@
 	    }
 	    if (nd_type(node) == NODE_DREGX) {
-		return regexp_new(RSTRING(str)->ptr, RSTRING(str)->len);
+		VALUE re = regexp_new(RSTRING(str)->ptr, RSTRING(str)->len,
+				      node->nd_cflag);
+		return re;
 	    }
 	    if (nd_type(node) == NODE_XSTR2) {
@@ -1196,15 +1243,6 @@
 	    class = rb_define_class_id(node->nd_cname, super);
 	    rb_const_set(the_class, node->nd_cname, class);
-	    PUSH_CLASS();
-	    the_class = (struct RClass*)class;
-	    PUSH_SELF((VALUE)the_class);
-	    PUSH_TAG();
-	    if ((state = EXEC_TAG()) == 0) {
-		rb_eval(node->nd_body);
-	    }
-	    POP_TAG();
-	    POP_SELF();
-	    POP_CLASS();
-	    if (state) JUMP_TAG(state);
+
+	    module_setup(class, node->nd_body);
 	    return class;
 	}
@@ -1220,15 +1258,6 @@
 	    module = rb_define_module_id(node->nd_cname);
 	    rb_const_set(the_class, node->nd_cname, module);
-	    PUSH_CLASS();
-	    the_class = (struct RClass*)module;
-	    PUSH_SELF((VALUE)the_class);
-	    PUSH_TAG();
-	    if ((state = EXEC_TAG()) == 0) {
-		rb_eval(node->nd_body);
-	    }
-	    POP_TAG();
-	    POP_SELF();
-	    POP_CLASS();
-	    if (state) JUMP_TAG(state);
+
+	    module_setup(module, node->nd_body);
 	    return module;
 	}
@@ -1238,5 +1267,5 @@
 	    struct RClass *module;
 
-	    module = (struct RClass*)rb_const_get(node->nd_modl);
+	    module = (struct RClass*)rb_const_get(CLASS_OF(Qself), node->nd_modl);
 	    if (module == Qnil) {
 		Fail("undefined module %s", rb_id2name(node->nd_modl));
@@ -1250,4 +1279,47 @@
     }
     return Qnil;		/* not reached */
+}
+
+static void
+module_setup(module, node)
+    VALUE module;
+    NODE *node;
+{
+    int state;
+
+    /* fill c-ref */
+    node->nd_clss = module;
+    node = node->nd_body;
+
+    PUSH_CLASS();
+    the_class = (struct RClass*)module;
+    PUSH_SELF((VALUE)the_class);
+    PUSH_SCOPE();
+    PUSH_TAG();
+
+    if (node->nd_cnt > 0) {
+	the_scope->local_vars = ALLOCA_N(VALUE, node->nd_cnt);
+	MEMZERO(the_scope->local_vars, VALUE, node->nd_cnt);
+	the_scope->local_tbl = node->nd_tbl;
+    }
+    else {
+	the_scope->local_vars = Qnil;
+	the_scope->local_tbl  = Qnil;
+    }
+
+    if ((state = EXEC_TAG()) == 0) {
+	rb_eval(node->nd_body);
+    }
+
+    POP_TAG();
+    if (!(the_scope->flags & SCOPE_MALLOCED)) {
+	the_scope->local_vars = Qnil;
+	the_scope->local_tbl  = Qnil;
+    }
+    if (state != 0) JUMP_TAG(state);
+    POP_SCOPE();
+    POP_SELF();
+    POP_CLASS();
+    if (state) JUMP_TAG(state);
 }
 
diff -u2raN ruby-0.67/file.c ruby-0.68/file.c
--- ruby-0.67/file.c	Wed Feb  1 23:57:13 1995
+++ ruby-0.68/file.c	Wed Feb 22 00:50:41 1995
@@ -8,5 +8,5 @@
   created at: Mon Nov 15 12:24:34 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/gc.c ruby-0.68/gc.c
--- ruby-0.67/gc.c	Wed Feb  1 23:57:11 1995
+++ ruby-0.68/gc.c	Thu Feb 23 12:08:35 1995
@@ -7,5 +7,5 @@
   created at: Tue Oct  5 09:44:46 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -514,5 +514,5 @@
       case T_MODULE:
       case T_CLASS:
-	rb_clear_cache2(obj);
+	rb_clear_cache(obj);
 	st_free_table(obj->as.class.m_tbl);
 	if (obj->as.object.iv_tbl) st_free_table(obj->as.object.iv_tbl);
diff -u2raN ruby-0.67/ident.h ruby-0.68/ident.h
--- ruby-0.67/ident.h	Fri Dec 16 10:42:59 1994
+++ ruby-0.68/ident.h	Wed Feb 22 00:50:40 1995
@@ -8,5 +8,5 @@
   created at: Mon Jan 31 16:23:19 JST 1994
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/inits.c ruby-0.68/inits.c
--- ruby-0.67/inits.c	Tue Jan 10 19:42:38 1995
+++ ruby-0.68/inits.c	Wed Feb 22 00:50:39 1995
@@ -7,5 +7,5 @@
   created at: Tue Dec 28 16:01:58 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/io.c ruby-0.68/io.c
--- ruby-0.67/io.c	Thu Feb  2 00:35:11 1995
+++ ruby-0.68/io.c	Wed Feb 22 19:32:12 1995
@@ -7,5 +7,5 @@
   created at: Fri Oct 15 18:08:59 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -335,7 +335,6 @@
 	fptr->lineno++;
 	lineno = INT2FIX(fptr->lineno);
-	return rb_lastline = (VALUE)str;
     }
-    return Qnil;
+    return rb_lastline = (VALUE)str;
 }
 
@@ -937,20 +936,16 @@
 struct timeval *time_timeval();
 
-#ifdef STDSTDIO
-# define READ_PENDING(fp) ((fp)->_cnt != 0)
-#else
-# ifdef __SLBF
-#  define READ_PENDING(fp) ((fp)->_r > 0)
-# else
-#  ifdef __linux__
+#ifdef _STDIO_USES_IOSTREAM  /* GNU libc */
 #   ifdef _other_gbase
-#    define READ_PENDING(fp) ((fp)->_IO_read_ptr < (fp)->_IO_read_end)
+#	define READ_DATA_PENDING(fp) ((fp)->_IO_read_ptr < (fp)->_IO_read_end)
 #   else
-#    define READ_PENDING(fp) ((fp)->_gptr < (fp)->_egptr)
+#	define READ_DATA_PENDING(fp) ((fp)->_gptr < (fp)->_egptr)
 #   endif
-#  else
+#elif __SLBF
+#   define READ_DATA_PENDING(fp) (fp->_r > 0)
+#elif STDSTDIO
+#   define READ_DATA_PENDING(fp) (fp->_cnt != 0)
+#else
 --------------> You Lose <--------------
-#  endif
-# endif
 #endif
 
@@ -969,5 +964,5 @@
     int interrupt = 0;
 
-    rb_scan_args(argc, argv, argv, "13", &read, &write, &except, &timeout);
+    rb_scan_args(argc, argv, "13", &read, &write, &except, &timeout);
     if (timeout) {
 	tp = time_timeval(timeout);
@@ -987,5 +982,5 @@
 	    GetOpenFile(RARRAY(read)->ptr[i], fptr);
 	    FD_SET(fileno(fptr->f), rp);
-	    if (READ_PENDING(fptr->f)) { /* check for buffered data */
+	    if (READ_DATA_PENDING(fptr->f)) { /* check for buffered data */
 		pending++;
 		FD_SET(fileno(fptr->f), &pset);
@@ -1395,4 +1390,8 @@
     rb_defout = rb_stdout;
     rb_define_variable("$>", &rb_defout, Qnil, io_defset, 0);
+
+    rb_define_const(C_Object, "STDIN", rb_stdin);
+    rb_define_const(C_Object, "STDOUT", rb_stdout);
+    rb_define_const(C_Object, "STDERR", rb_stderr);
 
     argf = obj_alloc(C_Object);
diff -u2raN ruby-0.67/io.h ruby-0.68/io.h
--- ruby-0.67/io.h	Fri Dec 16 10:42:59 1994
+++ ruby-0.68/io.h	Wed Feb 22 00:50:38 1995
@@ -8,5 +8,5 @@
   created at: Fri Nov 12 16:47:09 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/math.c ruby-0.68/math.c
--- ruby-0.67/math.c	Fri Dec 16 10:42:59 1994
+++ ruby-0.68/math.c	Wed Feb 22 00:50:38 1995
@@ -7,5 +7,5 @@
   created at: Tue Jan 25 14:12:56 JST 1994
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/node.h ruby-0.68/node.h
--- ruby-0.67/node.h	Mon Feb 20 16:28:08 1995
+++ ruby-0.68/node.h	Thu Feb 23 11:17:20 1995
@@ -7,5 +7,5 @@
   created at: Fri May 28 15:14:02 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -71,4 +71,5 @@
     NODE_CLASS,
     NODE_MODULE,
+    NODE_CREF,
     NODE_INC,
     NODE_DOT3,
@@ -166,4 +167,5 @@
 
 #define nd_modl  u1.id
+#define nd_clss  u1.value
 
 #define nd_beg   u1.node
@@ -172,65 +174,68 @@
 #define nd_rval  u3.node
 
-#define NEW_METHOD(n,x) newnode(NODE_METHOD,x,n,Qnil)
+#define NEW_METHOD(n,x) newnode(NODE_METHOD,x,n,0)
 #define NEW_FBODY(n,i,o) newnode(NODE_FBODY,n,i,o)
-#define NEW_DEFN(i,d,p) newnode(NODE_DEFN,p,i,d)
-#define NEW_DEFS(r,i,d) newnode(NODE_DEFS,r,i,d)
-#define NEW_CFUNC(f,c) newnode(NODE_CFUNC,f,c,Qnil)
+#define NEW_DEFN(i,a,d,p) newnode(NODE_DEFN,p,i,NEW_RFUNC(a,d))
+#define NEW_DEFS(r,i,a,d) newnode(NODE_DEFS,r,i,NEW_RFUNC(a,d))
+#define NEW_CFUNC(f,c) newnode(NODE_CFUNC,f,c,0)
 #define NEW_RFUNC(b1,b2) NEW_SCOPE(block_append(b1,b2))
 #define NEW_SCOPE(b) newnode(NODE_SCOPE,local_tbl(),(b),local_cnt(0))
-#define NEW_BLOCK(a) newnode(NODE_BLOCK,a,1,Qnil)
+#define NEW_BLOCK(a) newnode(NODE_BLOCK,a,1,0)
 #define NEW_IF(c,t,e) newnode(NODE_IF,c,t,e)
-#define NEW_EXNOT(c) newnode(NODE_EXNOT,c,Qnil,Qnil)
-#define NEW_CASE(h,b) newnode(NODE_CASE,h,b,Qnil)
+#define NEW_EXNOT(c) newnode(NODE_EXNOT,c,0,0)
+#define NEW_CASE(h,b) newnode(NODE_CASE,h,b,0)
 #define NEW_WHEN(c,t,e) newnode(NODE_WHEN,c,t,e)
-#define NEW_WHILE(c,b) newnode(NODE_WHILE,c,b,Qnil)
-#define NEW_WHILE2(c,b) newnode(NODE_WHILE2,c,b,Qnil)
+#define NEW_WHILE(c,b) newnode(NODE_WHILE,c,b,0)
+#define NEW_WHILE2(c,b) newnode(NODE_WHILE2,c,b,0)
 #define NEW_FOR(v,i,b) newnode(NODE_FOR,v,b,i)
 #define NEW_ITER(v,i,b) newnode(NODE_ITER,v,b,i)
 #define NEW_BEGIN(b,ex,en) newnode(NODE_BEGIN,b,ex,en)
-#define NEW_REDO() newnode(NODE_REDO,Qnil,Qnil,Qnil)
-#define NEW_BREAK() newnode(NODE_BREAK,Qnil,Qnil,Qnil)
-#define NEW_CONT()  newnode(NODE_CONTINUE,Qnil,Qnil,Qnil)
-#define NEW_RETRY() newnode(NODE_RETRY,Qnil,Qnil,Qnil)
-#define NEW_RET(s)  newnode(NODE_RETURN,s,Qnil,Qnil)
-#define NEW_FAIL(s)  newnode(NODE_FAIL,s,Qnil,Qnil)
-#define NEW_YIELD(a) newnode(NODE_YIELD,a,Qnil,Qnil)
+#define NEW_REDO() newnode(NODE_REDO,0,0,0)
+#define NEW_BREAK() newnode(NODE_BREAK,0,0,0)
+#define NEW_CONT()  newnode(NODE_CONTINUE,0,0,0)
+#define NEW_RETRY() newnode(NODE_RETRY,0,0,0)
+#define NEW_RET(s)  newnode(NODE_RETURN,s,0,0)
+#define NEW_FAIL(s)  newnode(NODE_FAIL,s,0,0)
+#define NEW_YIELD(a) newnode(NODE_YIELD,a,0,0)
 #define NEW_LIST(a) NEW_ARRAY(a)
-#define NEW_ARRAY(a) newnode(NODE_ARRAY,a,1,Qnil)
-#define NEW_ZARRAY() newnode(NODE_ZARRAY,Qnil,Qnil,Qnil)
-#define NEW_HASH(a) newnode(NODE_HASH,a,Qnil,Qnil)
-#define NEW_AND(a,b) newnode(NODE_AND,a,b,Qnil)
-#define NEW_OR(a,b)  newnode(NODE_OR,a,b,Qnil)
-#define NEW_NOT(a)   newnode(NODE_NOT,Qnil,a,Qnil)
-#define NEW_MASGN(l,r) newnode(NODE_MASGN,l,r,Qnil)
+#define NEW_ARRAY(a) newnode(NODE_ARRAY,a,1,0)
+#define NEW_ZARRAY() newnode(NODE_ZARRAY,0,0,0)
+#define NEW_HASH(a) newnode(NODE_HASH,a,0,0)
+#define NEW_AND(a,b) newnode(NODE_AND,a,b,0)
+#define NEW_OR(a,b)  newnode(NODE_OR,a,b,0)
+#define NEW_NOT(a)   newnode(NODE_NOT,0,a,0)
+#define NEW_MASGN(l,r) newnode(NODE_MASGN,l,r,0)
 #define NEW_GASGN(v,val) newnode(NODE_GASGN,v,val,rb_global_entry(v))
 #define NEW_LASGN(v,val) newnode(NODE_LASGN,v,val,local_cnt(v))
-#define NEW_IASGN(v,val) newnode(NODE_IASGN,v,val,Qnil)
-#define NEW_CASGN(v,val) newnode(NODE_CASGN,v,val,Qnil)
+#define NEW_IASGN(v,val) newnode(NODE_IASGN,v,val,0)
+#define NEW_CASGN(v,val) newnode(NODE_CASGN,v,val,0)
 #define NEW_OP_ASGN1(p,id,a) newnode(NODE_OP_ASGN1,p,id,a)
 #define NEW_OP_ASGN2(r,i,val) newnode(NODE_OP_ASGN1,r,val,i)
-#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_CVAR(v) newnode(NODE_CVAR,v,Qnil,Qnil)
-#define NEW_LIT(l) newnode(NODE_LIT,l,Qnil,Qnil)
-#define NEW_STR(s) newnode(NODE_STR,s,Qnil,Qnil)
-#define NEW_STR2(s) newnode(NODE_STR2,s,Qnil,Qnil)
-#define NEW_XSTR(s) newnode(NODE_XSTR,s,Qnil,Qnil)
-#define NEW_XSTR2(s) newnode(NODE_XSTR2,s,Qnil,Qnil)
+#define NEW_GVAR(v) newnode(NODE_GVAR,v,0,rb_global_entry(v))
+#define NEW_LVAR(v) newnode(NODE_LVAR,v,0,local_cnt(v))
+#define NEW_LVAR2(v) newnode(NODE_LVAR2,v,0,0)
+#define NEW_IVAR(v) newnode(NODE_IVAR,v,0,0)
+#define NEW_CVAR(v) newnode(NODE_CVAR,v,0,cref_list)
+#define NEW_LIT(l) newnode(NODE_LIT,l,0,0)
+#define NEW_STR(s) newnode(NODE_STR,s,0,0)
+#define NEW_STR2(s) newnode(NODE_STR2,s,0,0)
+#define NEW_XSTR(s) newnode(NODE_XSTR,s,0,0)
+#define NEW_XSTR2(s) newnode(NODE_XSTR2,s,0,0)
 #define NEW_CALL(r,m,a) newnode(NODE_CALL,r,m,a)
-#define NEW_SUPER(a) newnode(NODE_SUPER,Qnil,Qnil,a)
-#define NEW_ZSUPER() newnode(NODE_ZSUPER,Qnil,Qnil,Qnil)
-#define NEW_ARGS(f,r) newnode(NODE_ARGS,Qnil,r,f)
-#define NEW_ALIAS(n,o) newnode(NODE_ALIAS,Qnil,n,o)
-#define NEW_UNDEF(i) newnode(NODE_UNDEF,Qnil,i,Qnil)
-#define NEW_CLASS(n,b,s) newnode(NODE_CLASS,n,NEW_SCOPE(b),s)
-#define NEW_MODULE(n,b) newnode(NODE_MODULE,n,NEW_SCOPE(b),Qnil)
-#define NEW_INC(m) newnode(NODE_INC,m,Qnil,Qnil)
+#define NEW_SUPER(a) newnode(NODE_SUPER,0,0,a)
+#define NEW_ZSUPER() newnode(NODE_ZSUPER,0,0,0)
+#define NEW_ARGS(f,r) newnode(NODE_ARGS,0,r,f)
+#define NEW_ALIAS(n,o) newnode(NODE_ALIAS,0,n,o)
+#define NEW_UNDEF(i) newnode(NODE_UNDEF,0,i,0)
+#define NEW_CLASS(n,b,s) newnode(NODE_CLASS,n,NEW_CBODY(b),s)
+#define NEW_MODULE(n,b) newnode(NODE_MODULE,n,NEW_CBODY(b),0)
+#define NEW_CREF0() (cref_list=newnode(NODE_CREF,the_class,0,0))
+#define NEW_CREF(b) (cref_list=newnode(NODE_CREF,0,0,cref_list))
+#define NEW_CBODY(b) (cref_list->nd_body=NEW_SCOPE(b),cref_list)
+#define NEW_INC(m) newnode(NODE_INC,m,0,0)
 #define NEW_DOT3(b,e) newnode(NODE_DOT3,b,e,0)
-#define NEW_ATTRSET(a) newnode(NODE_ATTRSET,a,Qnil,Qnil)
-#define NEW_SELF() newnode(NODE_SELF,Qnil,Qnil,Qnil)
-#define NEW_NIL() newnode(NODE_NIL,Qnil,Qnil,Qnil)
+#define NEW_ATTRSET(a) newnode(NODE_ATTRSET,a,0,0)
+#define NEW_SELF() newnode(NODE_SELF,0,0,0)
+#define NEW_NIL() newnode(NODE_NIL,0,0,0)
 
 NODE *newnode();
diff -u2raN ruby-0.67/numeric.c ruby-0.68/numeric.c
--- ruby-0.67/numeric.c	Thu Feb  2 00:35:10 1995
+++ ruby-0.68/numeric.c	Wed Feb 22 00:50:37 1995
@@ -7,5 +7,5 @@
   created at: Fri Aug 13 18:33:09 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/object.c ruby-0.68/object.c
--- ruby-0.67/object.c	Mon Feb 20 16:35:30 1995
+++ ruby-0.68/object.c	Wed Feb 22 00:50:36 1995
@@ -7,5 +7,5 @@
   created at: Thu Jul 15 12:01:24 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/pack.c ruby-0.68/pack.c
--- ruby-0.67/pack.c	Fri Dec 16 10:42:59 1994
+++ ruby-0.68/pack.c	Wed Feb 22 00:50:36 1995
@@ -7,5 +7,5 @@
   created at: Thu Feb 10 15:17:05 JST 1994
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/parse.y ruby-0.68/parse.y
--- ruby-0.67/parse.y	Tue Feb 21 00:25:37 1995
+++ ruby-0.68/parse.y	Thu Feb 23 11:17:20 1995
@@ -48,6 +48,7 @@
 } lex_state;
 
-static ID cur_class = Qnil, cur_mid = Qnil;
-static int in_module, in_single;
+static int class_nest = 0;
+static int in_single = 0;
+static ID cur_mid = Qnil;
 
 static int value_expr();
@@ -67,14 +68,18 @@
 static NODE *attrset();
 
-static void push_local();
-static void pop_local();
-static int local_cnt();
-static int local_id();
-static ID *local_tbl();
+static void local_push();
+static void local_pop();
+static int  local_cnt();
+static int  local_id();
+static ID  *local_tbl();
+
+#define cref_push() NEW_CREF(0)
+static void cref_pop();
+static NODE *cref_list;
 
 struct global_entry* rb_global_entry();
 
-static void init_top_local();
-static void setup_top_local();
+static void top_local_init();
+static void top_local_setup();
 %}
 
@@ -183,10 +188,10 @@
 program		:  {
 			lex_state = EXPR_BEG;
-                        init_top_local();
+                        top_local_init();
 		    }
 		  compexpr
 		    {
 			eval_tree = block_append(eval_tree, $2);
-                        setup_top_local();
+                        top_local_setup();
 		    }
 
@@ -720,4 +725,5 @@
 		    {
 			if (nd_type($1) == NODE_LVAR
+		            || nd_type($1) == NODE_LVAR2
 		            || nd_type($1) == NODE_CVAR) {
 			    $1 = NEW_CALL(Qnil, $1->nd_vid, Qnil);
@@ -788,6 +794,7 @@
 			    Error("class definition in method body");
 
-			cur_class = $2;
-			push_local();
+			class_nest++;
+			cref_push();
+			local_push();
 		    }
 		  compexpr
@@ -795,6 +802,7 @@
 		    {
 		        $$ = NEW_CLASS($2, $5, $3);
-		        pop_local();
-		        cur_class = Qnil;
+		        local_pop();
+			cref_pop();
+			class_nest--;
 		    }
 		| MODULE CONSTANT
@@ -802,7 +810,7 @@
 			if (cur_mid || in_single)
 			    Error("module definition in method body");
-			cur_class = $2;
-			in_module = 1;
-			push_local();
+			class_nest++;
+			cref_push();
+			local_push();
 		    }
 		  compexpr
@@ -810,7 +818,7 @@
 		    {
 		        $$ = NEW_MODULE($2, $4);
-		        pop_local();
-		        cur_class = Qnil;
-			in_module = 0;
+		        local_pop();
+			cref_pop();
+			class_nest--;
 		    }
 		| DEF fname
@@ -819,5 +827,5 @@
 			    Error("nested method definition");
 			cur_mid = $2;
-			push_local();
+			local_push();
 		    }
 		  f_arglist
@@ -825,6 +833,6 @@
 		  END
 		    {
-			$$ = NEW_DEFN($2, NEW_RFUNC($4, $5), cur_class?0:1);
-		        pop_local();
+			$$ = NEW_DEFN($2, $4, $5, class_nest?1:0);
+		        local_pop();
 			cur_mid = Qnil;
 		    }
@@ -833,5 +841,5 @@
 			value_expr($2);
 			in_single++;
-			push_local();
+			local_push();
 		    }
 		  f_arglist
@@ -839,6 +847,6 @@
 		  END
 		    {
-			$$ = NEW_DEFS($2, $4, NEW_RFUNC($6, $7));
-		        pop_local();
+			$$ = NEW_DEFS($2, $4, $6, $7);
+		        local_pop();
 			in_single--;
 		    }
@@ -1085,5 +1093,4 @@
 comma		: ',' 		{ yyerrok; }
 %%
-
 #include <ctype.h>
 #include <sys/types.h>
@@ -1222,6 +1229,5 @@
 	    }
 	    else {
-		yylval.val = regexp_new(tok(), toklen());
-		if (casefold) FL_SET(yylval.val, FL_USER1);
+		yylval.val = regexp_new(tok(), toklen(), casefold);
 		return REGEXP;
 	    }
@@ -1561,14 +1567,5 @@
 
       case '+':
-	if (lex_state == EXPR_BEG || lex_state == EXPR_MID) {
-	    c = nextc();
-	    pushback();
-	    if (isdigit(c)) {
-		goto start_num;
-	    }
-	    lex_state = EXPR_BEG;
-	    return UPLUS;
-	}
-	else if (lex_state == EXPR_FNAME) {
+	if (lex_state == EXPR_FNAME) {
 	    if ((c = nextc()) == '@') {
 		return UPLUS;
@@ -1577,6 +1574,15 @@
 	    return '+';
 	}
+	c = nextc();
+	if (lex_state != EXPR_END) {
+	    pushback();
+	    if (isdigit(c)) {
+		goto start_num;
+	    }
+	    lex_state = EXPR_BEG;
+	    return UMINUS;
+	}
 	lex_state = EXPR_BEG;
-	if ((c = nextc()) == '=') {
+	if (c == '=') {
 	    yylval.id = '+';
 	    return OP_ASGN;
@@ -1586,6 +1592,13 @@
 
       case '-':
-	if (lex_state == EXPR_BEG || lex_state == EXPR_MID) {
-	    c = nextc();
+	if (lex_state == EXPR_FNAME) {
+	    if ((c = nextc()) == '@') {
+		return UMINUS;
+	    }
+	    pushback();
+	    return '-';
+	}
+	c = nextc();
+	if (lex_state != EXPR_END) {
 	    pushback();
 	    if (isdigit(c)) {
@@ -1596,13 +1609,6 @@
 	    return UMINUS;
 	}
-	else if (lex_state == EXPR_FNAME) {
-	    if ((c = nextc()) == '@') {
-		return UMINUS;
-	    }
-	    pushback();
-	    return '-';
-	}
 	lex_state = EXPR_BEG;
-	if ((c = nextc()) == '=') {
+	if (c == '=') {
 	    yylval.id = '-';
 	    return OP_ASGN;
@@ -2449,6 +2455,6 @@
     value_expr(recv);
     value_expr(val);
-
-    id &= ~ID_SCOPE_MASK;
+ 
+   id &= ~ID_SCOPE_MASK;
     id |= ID_ATTRSET;
 
@@ -2556,5 +2562,5 @@
 
 static void
-push_local()
+local_push()
 {
     struct local_vars *local;
@@ -2568,5 +2574,5 @@
 
 static void
-pop_local()
+local_pop()
 {
     struct local_vars *local = lvtbl;
@@ -2621,8 +2627,8 @@
 
 static void
-init_top_local()
+top_local_init()
 {
     if (lvtbl == Qnil) {
-	push_local();
+	local_push();
     }
     else if (the_scope->local_tbl) {
@@ -2639,8 +2645,9 @@
 	lvtbl->tbl = Qnil;
     }
+    NEW_CREF0();		/* initialize constant c-ref */
 }
 
 static void
-setup_top_local()
+top_local_setup()
 {
     int len = lvtbl->cnt;
@@ -2677,4 +2684,14 @@
 	}
     }
+    cref_list = Qnil;
+}
+
+static void
+cref_pop()
+{
+    NODE *cref = cref_list;
+
+    cref_list = cref_list->nd_next;
+    cref->nd_next = Qnil;
 }
 
@@ -2759,4 +2776,5 @@
 
     sym_tbl = st_init_table(strcmp, st_strhash);
+    rb_global_variable(&cref_list);
 }
 
diff -u2raN ruby-0.67/process.c ruby-0.68/process.c
--- ruby-0.67/process.c	Mon Feb 20 16:36:19 1995
+++ ruby-0.68/process.c	Wed Feb 22 00:50:35 1995
@@ -7,5 +7,5 @@
   created at: Tue Aug 10 14:30:50 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/random.c ruby-0.68/random.c
--- ruby-0.67/random.c	Tue Jan 10 19:42:48 1995
+++ ruby-0.68/random.c	Wed Feb 22 00:50:35 1995
@@ -7,5 +7,5 @@
   created at: Fri Dec 24 16:39:21 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/range.c ruby-0.68/range.c
--- ruby-0.67/range.c	Fri Jan 20 10:55:24 1995
+++ ruby-0.68/range.c	Wed Feb 22 00:50:33 1995
@@ -7,5 +7,5 @@
   created at: Thu Aug 19 17:46:47 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/re.c ruby-0.68/re.c
--- ruby-0.67/re.c	Wed Feb 15 13:18:59 1995
+++ ruby-0.68/re.c	Wed Feb 22 21:05:58 1995
@@ -7,5 +7,5 @@
   created at: Mon Aug  9 18:24:49 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -85,5 +85,5 @@
 }
 
-Regexp*
+static Regexp*
 make_regexp(s, len)
 char *s;
@@ -109,4 +109,5 @@
     if ((err = re_compile_pattern(s, (size_t)len, &(rp->pat))) != NULL)
 	Fail("%s: /%s/", err, s);
+
     return rp;
 }
@@ -119,24 +120,25 @@
 
 struct match last_match;
+VALUE ignorecase;
 
 int
-research(reg, str, start, ignorecase)
+research(reg, str, start)
     struct RRegexp *reg;
     struct RString *str;
     int start;
-    int ignorecase;
 {
     int result;
+    int casefold = ignorecase;
 
     /* case-flag set for the object */
     if (FL_TEST(reg, FL_USER1)) {
-	ignorecase = 1;
+	casefold = TRUE;
     }
-    if (ignorecase)
+    if (casefold)
 	reg->ptr->pat.translate = casetable;
     else
 	reg->ptr->pat.translate = NULL;
 
-    if (start >= str->len) return -1;
+    if (start > str->len) return -1;
     result = re_search(&(reg->ptr->pat), str->ptr, str->len,
 		       start, str->len - start, &(reg->ptr->regs));
@@ -291,12 +293,11 @@
 }
 
-VALUE ignorecase;
 VALUE C_Regexp;
 
 static VALUE
-regexp_new_1(class, s, len)
+regexp_new_1(class, s, len, ci)
     VALUE class;
     char *s;
-    int len;
+    int len, ci;
 {
     NEWOBJ(re, struct RRegexp);
@@ -308,13 +309,15 @@
     re->str[len] = '\0';
     re->len = len;
+
+    if (ci) FL_SET(re, FL_USER1);
     return (VALUE)re;
 }
 
 VALUE
-regexp_new(s, len)
+regexp_new(s, len, ci)
     char *s;
-    int len;
+    int len, ci;
 {
-    return regexp_new_1(C_Regexp, s, len);
+    return regexp_new_1(C_Regexp, s, len, ci);
 }
 
@@ -330,5 +333,5 @@
 
     str_cache = (VALUE)str;
-    return reg_cache = regexp_new(str->ptr, str->len);
+    return reg_cache = regexp_new(str->ptr, str->len, ignorecase);
 }
 
@@ -341,5 +344,5 @@
 
     Check_Type(str, T_STRING);
-    start = research(re, str, 0, ignorecase);
+    start = research(re, str, 0);
     if (start == -1) {
 	return Qnil;
@@ -358,5 +361,5 @@
 	Fail("$_ is not a string");
 
-    start = research(re, rb_lastline, 0, ignorecase);
+    start = research(re, rb_lastline, 0);
     if (start == -1) {
 	return Qnil;
@@ -372,16 +375,20 @@
 {
     VALUE src, reg;
+    int ci = 0;
 
     if (argc == 0 || argc > 2) {
 	Fail("wrong # of argument");
     }
+    if (argc == 2 && argv[1]) {
+	ci = 1;
+    }
 
     src = argv[0];
     switch (TYPE(src)) {
       case T_STRING:
-	reg = regexp_new_1(self, RREGEXP(src)->ptr, RREGEXP(src)->len);
+	reg = regexp_new_1(self, RREGEXP(src)->ptr, RREGEXP(src)->len, ci);
 
       case T_REGEXP:
-	reg = regexp_new_1(self, RREGEXP(src)->str, RREGEXP(src)->len);
+	reg = regexp_new_1(self, RREGEXP(src)->str, RREGEXP(src)->len, ci);
 
       default:
@@ -389,8 +396,4 @@
     }
 
-    if (argc == 2 && argv[1]) {
-	FL_SET(reg, FL_USER1);
-    }
-
     return Qnil;
 }
@@ -430,5 +433,6 @@
     struct RRegexp *re;
 {
-    return regexp_new_1(CLASS_OF(re), re->str, re->len);
+    int ci = FL_TEST(re, FL_USER1);
+    return regexp_new_1(CLASS_OF(re), re->str, re->len, ci);
 }
 
diff -u2raN ruby-0.67/re.h ruby-0.68/re.h
--- ruby-0.67/re.h	Fri Dec 16 10:43:00 1994
+++ ruby-0.68/re.h	Wed Feb 22 00:50:32 1995
@@ -8,5 +8,5 @@
   created at: Thu Sep 30 14:18:32 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/regex.c ruby-0.68/regex.c
--- ruby-0.67/regex.c	Fri Dec 16 10:43:00 1994
+++ ruby-0.68/regex.c	Wed Feb 22 20:49:23 1995
@@ -1634,10 +1634,10 @@
 	{
 	case exactn:
-#if 0 /* The original was: */
+#if 1 /* The original was: */
 	  if (translate)
 	    fastmap[translate[p[1]]] = 1;
 	  else
 	    fastmap[p[1]] = 1;
-#else /* The compiled pattern has already been translated.  */
+#else /* The compiled pattern has already been translated. (not true for ruby) */
 	  fastmap[p[1]] = 1;
 #endif
@@ -1776,5 +1776,5 @@
 	    if (p[j / BYTEWIDTH] & (1 << (j % BYTEWIDTH)))
 	      {
-#if 0 /* The original was: */
+#if 1 /* The original was: */
 		if (translate)
 		  fastmap[translate[j]] = 1;
@@ -2912,5 +2912,7 @@
 		    continue;
 		  }
-		  if ((unsigned char) translate[c] != (unsigned char) *p++)
+		  /* compiled code translation needed for ruby */
+		  if ((unsigned char) translate[c]
+		      != (unsigned char) translate[*p++])
 		    goto fail;
 		}
diff -u2raN ruby-0.67/ruby.c ruby-0.68/ruby.c
--- ruby-0.67/ruby.c	Tue Feb 14 00:53:48 1995
+++ ruby-0.68/ruby.c	Thu Feb 23 11:02:55 1995
@@ -7,5 +7,5 @@
   created at: Tue Aug 10 12:47:31 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -421,6 +421,4 @@
 
     origargc = argc; origargv = argv; origenvp = envp;
-
-    rb_call_inits();
 
     rb_define_variable("$@", &errat, Qnil, Qnil, 0);
diff -u2raN ruby-0.67/ruby.h ruby-0.68/ruby.h
--- ruby-0.67/ruby.h	Thu Feb  2 00:35:09 1995
+++ ruby-0.68/ruby.h	Wed Feb 22 00:50:31 1995
@@ -7,5 +7,5 @@
   created at: Thu Jun 10 14:26:32 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 *************************************************/
diff -u2raN ruby-0.67/sample/MANIFEST ruby-0.68/sample/MANIFEST
--- ruby-0.67/sample/MANIFEST	Tue Feb 14 00:43:57 1995
+++ ruby-0.68/sample/MANIFEST	Wed Feb 22 21:08:45 1995
@@ -21,4 +21,5 @@
 fib.scm
 freq.rb
+from.rb
 fullpath.pl
 fullpath.rb
diff -u2raN ruby-0.67/sample/biorhythm.rb ruby-0.68/sample/biorhythm.rb
--- ruby-0.67/sample/biorhythm.rb	Fri Dec 16 10:43:05 1994
+++ ruby-0.68/sample/biorhythm.rb	Tue Feb 21 19:02:03 1995
@@ -77,7 +77,7 @@
 parseArgs(0, nil, "vg", "D:", "sdate", "date:", "birthday:", "days:")
 
-printf($stderr, "\n")
-printf($stderr, "Biorhythm (c) 1987-1994 V3.0\n")
-printf($stderr, "\n")
+printf(STDERR, "\n")
+printf(STDERR, "Biorhythm (c) 1987-1994 V3.0\n")
+printf(STDERR, "\n")
 if ($OPT_D)
   dtmp = Time.now.strftime("%Y%m%d")
@@ -95,9 +95,9 @@
     dtmp = $OPT_birthday
   else
-    printf($stderr, "Birthday 			  (YYYYMMDD) : ")
-    dtmp = $stdin.gets.chop
+    printf(STDERR, "Birthday 			  (YYYYMMDD) : ")
+    dtmp = STDIN.gets.chop
   end
   if (dtmp.length != 8)
-    printf($stderr, "BAD Input Birthday!!\n")
+    printf(STDERR, "BAD Input Birthday!!\n")
     exit()
   end
@@ -113,6 +113,6 @@
     dtmp = $OPT_date
   else
-    printf($stderr, "Date	[<RETURN> for Systemdate] (YYYYMMDD) : ")
-    dtmp = $stdin.gets.chop
+    printf(STDERR, "Date	[<RETURN> for Systemdate] (YYYYMMDD) : ")
+    dtmp = STDIN.gets.chop
   end
   if (dtmp.length != 8)
@@ -128,6 +128,6 @@
     ausgabeart = "g"
   else
-    printf($stderr, "Values for today or Graph  (v/g) [default g] : ")
-    ausgabeart = $stdin.gets.chop
+    printf(STDERR, "Values for today or Graph  (v/g) [default g] : ")
+    ausgabeart = STDIN.gets.chop
   end
 end
@@ -152,6 +152,6 @@
       ktage = 9
     else
-      printf($stderr, "Graph for how many days 	[default 10] : ")
-      ktage = $stdin.gets.chop
+      printf(STDERR, "Graph for how many days 	[default 10] : ")
+      ktage = STDIN.gets.chop
       if (ktage == "")
 	ktage = 9
diff -u2raN ruby-0.67/sample/cbreak.rb ruby-0.68/sample/cbreak.rb
--- ruby-0.67/sample/cbreak.rb	Mon Feb 20 16:52:48 1995
+++ ruby-0.68/sample/cbreak.rb	Tue Feb 21 19:02:01 1995
@@ -16,5 +16,5 @@
 def set_cbreak (on)
   tty = "\0" * 256
-  $stdin.ioctl(TIOCGETP, tty)
+  STDIN.ioctl(TIOCGETP, tty)
   ttys = tty.unpack("C4 S")
   if on
@@ -26,5 +26,5 @@
   end
   tty = ttys.pack("C4 S")
-  $stdin.ioctl(TIOCSETP, tty)
+  STDIN.ioctl(TIOCSETP, tty)
 end
 cbreak();
diff -u2raN ruby-0.67/sample/clnt.rb ruby-0.68/sample/clnt.rb
--- ruby-0.67/sample/clnt.rb	Fri Dec 16 10:43:02 1994
+++ ruby-0.68/sample/clnt.rb	Tue Feb 21 19:01:57 1995
@@ -3,5 +3,5 @@
 host=(if $ARGV.length == 2; $ARGV.shift; else "localhost"; end)
 print("Trying ", host, " ...")
-$stdout.flush
+STDOUT.flush
 s = TCPsocket.open(host, $ARGV.shift)
 print(" done\n")
diff -u2raN ruby-0.67/sample/from.rb ruby-0.68/sample/from.rb
--- ruby-0.67/sample/from.rb
+++ ruby-0.68/sample/from.rb	Wed Feb 22 21:08:27 1995
@@ -0,0 +1,100 @@
+#! /usr/local/bin/ruby
+
+$= = TRUE
+
+module ParseDate
+  MONTHS = {
+    'jan' => 1, 'feb' => 2, 'mar' => 3, 'apr' => 4,
+    'may' => 5, 'jun' => 6, 'jul' => 7, 'aug' => 8,
+    'sep' => 9, 'oct' =>10, 'nov' =>11, 'dec' =>12 }
+  MONTHPAT = MONTHS.keys.join('|')
+  DAYPAT = 'mon|tue|wed|thu|fri|sat|sun'
+  
+  def ParseDate.parsedate(date) 
+    if date.sub(/(#{DAYPAT})/i, ' ')
+      dayofweek = $1
+    end
+    if date.sub(/\s+(\d+:\d+(:\d+)?)/, ' ')
+      time = $1
+    end
+    if date =~ /19\d\d/
+      year = $&
+    end
+    if date.sub(/\s*(\d+)\s+(#{MONTHPAT})\S*\s+/, ' ')
+      dayofmonth = $1
+      monthname  = $2
+    elsif date.sub(/\s*(#{MONTHPAT})\S*\s+(\d+)\s+/, ' ')
+      monthname  = $1
+      dayofmonth = $2
+    elsif date.sub(/\s*(#{MONTHPAT})\S*\s+(\d+)\D+/, ' ')
+      monthname  = $1
+      dayofmonth = $2
+    elsif date.sub(/\s*(\d\d?)\/(\d\d?)/, ' ')
+      month  = $1
+      dayofmonth = $2
+    end
+    if monthname
+      month = MONTHS[monthname.tolower]
+    end
+    if ! year && date =~ /\d\d/
+      year = $&
+    end
+    return year, month, dayofmonth
+  end
+
+end
+
+  def parsedate(date)
+    ParseDate.parsedate(date)
+  end
+
+# include ParseDate
+
+if $ARGV[0] == '-w'
+  wait = TRUE
+  $ARGV.shift
+end
+
+$ARGV[0] = '/usr/spool/mail/' + ENV['USER'] if $ARGV.length == 0
+
+$outcount = 0;
+def fromout(date, from, subj)
+  y, m, d = parsedate(date)
+  printf "%-2d/%02d/%02d [%.28s] %.40s\n", y, m, d, from, subj
+  $outcount += 1
+end
+  
+while TRUE
+  fields = {}
+  while gets()
+    $_.chop
+    continue if /^From /	# skip From-line  
+    break if /^[ \t]*$/		# end of header
+    if /^(\S+):\s*(.*)/
+      fields[attr = $1] = $2
+    elsif attr
+      sub(/^\s*/, '')
+      fields[attr] += "\n" + $_
+    end
+  end
+
+  break if ! $_
+
+  fromout fields['Date'], fields['From'], fields['Subject']
+
+  while gets()
+#    print $_
+    break if /^From /
+  end
+
+  break if ! $_
+end
+
+if $outcount == 0
+  print "You have no mail.\n"
+  sleep 2 if wait
+elsif wait
+  system "stty cbreak -echo"
+  getc()
+  system "stty cooked echo"
+end
diff -u2raN ruby-0.67/sample/io.rb ruby-0.68/sample/io.rb
--- ruby-0.67/sample/io.rb	Fri Dec 16 10:43:03 1994
+++ ruby-0.68/sample/io.rb	Fri Feb 24 01:50:53 1995
@@ -2,5 +2,5 @@
 # usage: ruby io.rb file..
 
-home = getenv("HOME")
+home = ENV["HOME"]
 home.sub("m", "&&")
 print(home, "\n")
diff -u2raN ruby-0.67/sample/ruby-mode.el ruby-0.68/sample/ruby-mode.el
--- ruby-0.67/sample/ruby-mode.el	Tue Feb 21 00:38:36 1995
+++ ruby-0.68/sample/ruby-mode.el	Thu Feb 23 15:59:58 1995
@@ -322,10 +322,10 @@
 (defun ruby-reindent-then-newline-and-indent ()
   (interactive "*")
-  (save-excursion
-    (delete-region (point) (progn (skip-chars-backward " \t") (point))))
   (insert ?\n)
   (save-excursion
     (forward-line -1)
-    (indent-according-to-mode))
+    (indent-according-to-mode)
+    (end-of-line)
+    (delete-region (point) (progn (skip-chars-backward " \t") (point))))
   (indent-according-to-mode))
 
diff -u2raN ruby-0.67/sample/svr.rb ruby-0.68/sample/svr.rb
--- ruby-0.67/sample/svr.rb	Mon Feb 20 16:59:26 1995
+++ ruby-0.68/sample/svr.rb	Tue Feb 21 18:45:43 1995
@@ -3,5 +3,7 @@
 
 gs = TCPserver.open(0)
-printf("server port is on %d\n", gs.port)
+addr = gs.addr
+addr.shift
+printf("server is on %d\n", addr.join(":"))
 socks = [gs]
 
@@ -11,5 +13,7 @@
   for s in nsock[0]
     if s == gs
-      socks.push(s.accept)
+      ns = s.accept
+      socks.push(ns)
+      print(s, " is accepted\n")
     else
       if s.eof
diff -u2raN ruby-0.67/sample/time.rb ruby-0.68/sample/time.rb
--- ruby-0.67/sample/time.rb	Fri Dec 16 10:43:05 1994
+++ ruby-0.68/sample/time.rb	Tue Feb 21 19:01:52 1995
@@ -6,3 +6,3 @@
 ut, st, cut, cst = Time.times
 total = (e - b).to_f
-printf $stderr, "%11.1f real %11.1f user %11.1f sys\n", total, cut, cst
+printf STDERR, "%11.1f real %11.1f user %11.1f sys\n", total, cut, cst
diff -u2raN ruby-0.67/sample/trojan.rb ruby-0.68/sample/trojan.rb
--- ruby-0.67/sample/trojan.rb	Fri Dec 16 10:43:05 1994
+++ ruby-0.68/sample/trojan.rb	Wed Feb 22 00:53:33 1995
@@ -1,4 +1,4 @@
 #! /usr/local/bin/ruby
-path = $ENV['PATH'].split(/:/)
+path = ENV['PATH'].split(/:/)
 
 for dir in path
diff -u2raN ruby-0.67/spec ruby-0.68/spec
--- ruby-0.67/spec	Tue Feb 21 14:42:29 1995
+++ ruby-0.68/spec	Fri Feb 24 01:57:15 1995
@@ -87,6 +87,6 @@
     b
 
-のように行が式の途中で終り，次の行に続くことが明白な場合を除き，式の区
-切りとしても認識される．
+のように行が式の途中で終り，次の行に続くことが明白な(最後の非空白文字
+が演算子あるいは`,'である)場合を除き，式の区切りとして認識される．
 
 * プログラム
@@ -97,17 +97,15 @@
 
 プログラムは式を並べたものである．式と式の間はセミコロン(`;')または改
-行で区切られる(※)．
+行で区切られる．
 
-※ 式が次の行に継続することが明白な時には改行は式の区切りにならない．
-
 * 式
 
-Rubyではnilが偽，それ以外が真と評価される．CやPerl などとは異なり，0や 
+Rubyではnilが偽，それ以外が真と評価される．CやPerlなどとは異なり，0や
 ""(空文字列)は偽とは評価されないので気をつけること．
 
 ** 文字列式
 
-  "..."   # バックスラッシュの解釈と変数展開あり
-  '...'   # バックスラッシュの解釈なし(\\と\'は解釈する)
+ダブルクォート(`"')で括られた文字列はバックスラッシュに続く文字が以下
+のように解釈される．
 
 バックスラッシュ記法
@@ -126,15 +124,12 @@
         \C-c      コントロール文字(同上)
         \M-c      メタ文字(c|0x80)
-   \それ以外      文字そのもの
-
-文字列式は毎回新しい文字列オブジェクトを生成するので，文字列の内容を変
-更してももともとの文字列は変わらない．
+          \x      文字xそのもの
 
-変数展開
+また，`#'による変数展開も行われる．一方，シングルクォート(`'')で括られ
+た文字列は，`\\'(バックスラッシュそのもの)と`\''(シングルクォート)を除
+いて，文字列の中身の解釈を行わない．
 
-ダブルクォート(`"')で囲まれた文字列と正規表現の中では `#{変数名}'とい
-う形式で変数の内容を展開することができる．変数が変数記号(`$',`@')で始
-まる場合には`#変数名'という形式でも展開できる．文字`#'に続く文字が 
-`{',`$',`@'でなければ，そのまま`#'として解釈される．
+文字列式は毎回新しい文字列オブジェクトを生成するので，文字列の内容を変
+更しても，もともとの文字列は変わらない．
 
 ** コマンド出力
@@ -147,5 +142,6 @@
 ** 正規表現式
 
-  /.../[i]
+`/'で囲まれた文字列は正規表現を表す．終りの`/'の後ろに文字`i'が与えら
+れた場合には，その正規表現はマッチ時に大文字小文字の区別をしない．
 
            ^      行頭
@@ -169,6 +165,5 @@
          ( )      正規表現をまとめる
 
-その他に文字列と同じバックスラッシュ記法や変数展開も有効である．正規表
-現の後ろにiがついた時には大文字小文字の違いを無視する．
+その他に文字列と同じバックスラッシュ記法や変数展開も有効である．
 
 ** ワイルドカード式
@@ -183,4 +178,12 @@
 その他に文字列と同じバックスラッシュ記法や変数展開も有効である．
 
+** 変数展開
+
+ダブルクォート(`"')で囲まれた文字列式，コマンド文字列，正規表現，およ
+びワイルドカード式の中では`#{変数名}'という形式で変数の内容を展開する
+ことができる．変数が変数記号(`$',`@')で始まる場合には`#変数名'という形
+式でも展開できる．文字`#'に続く文字が `{',`$',`@'でなければ，そのまま
+文字`#'として解釈される．
+
 ** 数値リテラル
 
@@ -238,9 +241,9 @@
   FOOBAR
 
-大文字で始まる識別子ははクラス定数へのアクセスであり，そのクラスと全て
-のサブクラスのインスタンスから参照できる．この定数へはトップレベル，す
-なわちメソッドが定義できるレベルでのみ代入可能である．この変数はクラス
-間で値が共有され，一度代入すると値を変更することができない．クラス定数
-の寿命はクラスの寿命と等しい．
+大文字で始まる識別子はクラス定数へのアクセスであり，そのクラスと全ての
+サブクラスのスコープ内で参照できる．定数への代入はトップレベル，すなわ
+ちメソッドが定義できるレベルでのみ可能である．この変数はクラス間で値が
+共有され，一度代入すると値を変更することができない．クラス定数の寿命は
+クラスの寿命と等しい．
 
 クラス定義は自動的に定数を定義するので，クラス名は定数である．
@@ -255,6 +258,8 @@
 されないローカル変数の値はnilである
 
-ローカル変数のスコープは寿命もそのブロックの終りまで(トップレベルのロー
-カル変数はプログラムの終了まで)である．
+ローカル変数のスコープはブロックの範囲内(メソッド内ではメソッドの終り
+まで，クラス/モジュール定義内ではその定義の終りまで)である．寿命もその
+ブロックの終りまで(トップレベルのローカル変数はプログラムの終了まで)で
+ある．
 
 *** 疑似変数
@@ -275,5 +280,4 @@
 
   (1+2)*3
-  (foo();bar())
 
 式は括弧によってグルーピングすることができる．
@@ -353,8 +357,10 @@
 
 レシーバを指定したメソッド呼び出しではの場合引数が1つもない時にも括弧
-を省略できる．
+を省略できる(レシーバを指定しない場合，括弧をつけないとローカル変数の
+参照として解釈される)．
 
-メソッド名としては任意の識別子を用いることができる．変数名とは識別子の
-名前空間が違うので重複しても構わない．
+メソッド名としては任意の識別子を用いることができる．最初の文字は大文字
+でも小文字でも構わない．変数名とは識別子の名前空間が違うので重複しても
+構わない．
 
 クラス定義文の外で指定されたメソッドとクラスModuleのunexportメソッドで
@@ -517,7 +523,7 @@
 配列要素の代入( 式1 `[' 式2.. `]' `=' 式n)
 
-  式1. `[]=' (式2..)
+  式1. `[]=' (式2.., 式n)
 
-それ以外の2項演算子(式 演算子 式)
+それ以外の2項演算子(式1 演算子 式2)
 
   式1. 演算子 (式2)
@@ -536,7 +542,7 @@
   end
 
-条件判断式．式1が真の場合に式1を評価する．それ以外の場合は式2を評価す
-る．Rubyのif式はelse ifでもelifでもなくelsifでifの連続を行なうことに注
-意すること．
+条件判断式．Rubyのif式はelse ifでもelifでもなくelsifでifの連続を行なう
+ことに注意すること．条件が成立して実行した式の値を返す．実行しなかった
+場合の値はnil．
 
 ifの条件判断部の式では文字列と正規表現リテラルは式「$_=~ リテラル」の
@@ -614,7 +620,6 @@
 が真になれば状態は偽に戻る．
 
-演算子`...'の両辺は条件式であり，更に `...'の両辺の式では文字列と正規
-表現リテラルは式「$_=~ リテラル」の省略，整数定数が「$.==定数」の省略
-と解釈される．
+`...'の両辺の式では文字列と正規表現リテラルは式「$_=~ リテラル」の省略，
+整数定数は「$.==定数」の省略と解釈される．
 
 ** NOT 式
@@ -627,5 +632,4 @@
 なされる．
 
-
   式1 `!=' 式2
 
@@ -664,7 +668,4 @@
 イテレータの呼び出しは以下の構文で行なわれる．
 
-イテレータとは制御構造(特にループ)の抽象化のために用いられるメソッドの
-一種である．イテレータの呼び出しは以下の構文で行なわれる．
-
   式 `{' 左辺式.. `|' 式.. `}'
 
@@ -674,5 +675,5 @@
 が複数の式を含む時，各々がイテレータとして順に呼ばれる．
 
-イテレータ内でyield式が実行されると，そこで指定された値がdo式で指定さ
+イテレータ内でyield式が実行されると，そこで指定された値が左辺式で指定さ
 れた変数に代入され，ブロックが実行される．ブロックの実行が終了するとそ
 の値は yield式の値として返される．あるメソッドがイテレータとして呼び出
@@ -715,9 +716,10 @@
 名，行番号をシステム変数`$@'に，メッセージを`$!'にセットする．
 
-failの引数の括弧は曖昧でない限り省略できる．
+failの引数の括弧は省略できる．
 
 ** BEGIN
 
-複数の式をまとめるためにbegin式がある．begin式の形式は以下の通りである．
+複数の式をまとめるためと例外所理のためにbegin式がある．begin式の形式は
+以下の通りである．
 
   begin
@@ -730,8 +732,8 @@
 
 begin式の値は一番最後に評価された式の値である．begin式の処理中に発生し
-た時に例外はresque節で捕獲することが出来る．この場合の値はresque部で最
-後に評価した式の値である．更にensure節が存在する時はbegin式を終了する
-前に必ず(正常終了時だけでなく，例外, return, break, continue, redoなど
-による脱出でも)ensure節の式を評価する．
+た時に例外はresque節で捕獲することが出来る．この場合の値begin式の値は
+はresque部で最後に評価した式の値である．更にensure節が存在する時は
+begin式を終了する前に必ず(正常終了時だけでなく，例外, return, break,
+continue, redoなどによる脱出でも)ensure節の式を評価する．
 
 ** RETURN
@@ -751,4 +753,5 @@
 
 ** CONTINUE
+
   continue
 
@@ -777,6 +780,5 @@
    end
 
-クラス名は任意の識別子である(大文字で始めることを推奨する)．クラス定義
-のネストはできないので他の定義式内ではクラスを定義できない．
+クラス名は大文字で始まる識別子である．
 
 ** モジュール定義
@@ -788,6 +790,5 @@
    end
 
-モジュール名は大文字で始まる識別子である．クラス同様，モジュール定義も
-ネストできない．
+モジュール名は大文字で始まる識別子である．
 
 ** メソッド定義
@@ -831,21 +832,20 @@
 でもネストして定義することができる．
 
-特異メソッドは通常は継承しえないが，例外としてクラスの特異メソッドはそ
-のサブクラスにも継承される．言い替えればクラスの特異メソッドは他のオブ
-ジェクト指向システムにおけるクラスメソッドの働きをする．
+特異メソッドは通常は継承しないが，例外としてクラスの特異メソッドはその
+サブクラスにも継承される．言い替えればクラスの特異メソッドは他のオブジェ
+クト指向システムにおけるクラスメソッドの働きをする．
 
 ** INCLUDE
 
 モジュールをインクルードすることによって，クラスまたはモジュールに機能
-を追加できる．モジュールをインクルードした場合，そのモジュール(および
-そのモジュールが更にインクルードしているモジュール)の全てのメソッドを
-受け継ぐ．別のいい方をすればインクルードは限定された多重継承といえる．
-
-他のモジュールをインクルードする構式は以下の通りである．
+を追加できる．現在の定義中のクラスまたはモジュール(トップレベルでは
+Objectクラス)に指定したモジュールをインクルードする構式は以下の通りで
+ある．
 
    include モジュール名 [`,' モジュール名..]
 
-現在の定義中のクラスまたはモジュール(トップレベルではObjectクラス)に指
-定したモジュールをインクルードする．
+モジュールをインクルードすると，そのモジュール(およびそのモジュールが
+更にインクルードしているモジュール)の全てのメソッドを受け継ぐ．別のい
+い方をすればインクルードは限定された多重継承(Mixin)といえる．
 
 ** ALIAS
@@ -856,6 +856,6 @@
 
 別名を付けられたメソッドは，その時点でのメソッド定義を引き継ぎ，元のメ
-ソッドが再定義されても，古いメソッドが呼び出されたのと全く同じ働きをす
-る．
+ソッドが再定義されても，再定義前の古いメソッドが呼び出されたのと全く同
+じ働きをする．
 
 ** UNDEF
@@ -867,8 +867,8 @@
 指定したメソッドの定義を取り消す．
 
-defによる別名定義とundefによる定義取り消しを使うとクラスのインタフェー
-スをスーパークラスと独立に変更することができる．ただし，メソッドがself 
-にメッセージを送っている場合もあるので，よく注意しないと既存のメソッド
-が動作しなくなる可能性がある．
+defによる別名定義とundefによる定義取り消しによってクラスのインタフェー
+スをスーパークラスと独立に変更することができる．ただし，メソッドがself
+ にメッセージを送っている場合もあるので，よく注意しないと既存のメソッ
+ドが動作しなくなる可能性がある．
 
 * 組み込み関数
@@ -923,8 +923,4 @@
         (ASCII)を表すFixnumである．
 
-   getenv(name)
-
-        nameに該当する環境変数を取り出す．$ENV[name]と同義．
-
    gets()
 
@@ -1029,9 +1025,4 @@
         例外待ちのオブジェクトを要素として持つ．
 
-   setenv(name, value)
-
-        nameで指定される環境変数をvalueにセットする．$ENV[name]=value
-        と同じ働きをする．
-
    sleep([sec])
 
@@ -1176,8 +1167,4 @@
    $DEBUG	`-d'フラグの状態(真偽値)．
 
-   $ENV		環境変数にアクセスする連想配列．文字列をキーとして与え
-		ると対応する環境変数の値が得られる．環境変数が存在しな
-		い場合はnilが返る．
-
    $FILENAME	仮想ファイル`$<'で現在読み込み中の(メソッドgets()が今
 	     	読んでいる)ファイル名．$<.filenameと同じ．
@@ -1191,7 +1178,4 @@
    $VERBOSE	`-v'フラグの状態(真偽値)
 
-   $VERSION     rubyのバージョンを示す文字列
-
-
    TRUE        t
    FALSE       nil
@@ -1213,4 +1197,14 @@
         ない．
 
+   STDIN        標準入力
+   STDOUT       標準出力
+   STDERR	標準エラー出力
+
+   ENV		環境変数にアクセスする連想配列．文字列をキーとして与え
+		ると対応する環境変数の値が得られる．環境変数が存在しな
+		い場合はnilが返る．
+
+   VERSION	rubyのバージョンを示す文字列
+
 * 組み込みクラスとモジュール
 
@@ -3868,7 +3862,7 @@
   Smalltalk, Emacs Lisp.
 
-またrubyの言語仕様を決定するために協力して下さった方々を以下にあげる
+またrubyの言語仕様を決定するために協力して下さった方々を以下にあげる．
 
-  石塚圭樹，大庭康生，伊藤純一郎，中村＠ＮＥＣ．関根＠日本DEC，
+  石塚圭樹，大庭康生，伊藤純一郎，中村＠ＮＥＣ．関根＠日本ＤＥＣ，
   たなか＠赤坂.富士通(敬称略)．
 -------------------------------------------------------
diff -u2raN ruby-0.67/sprintf.c ruby-0.68/sprintf.c
--- ruby-0.67/sprintf.c	Thu Feb  2 00:35:08 1995
+++ ruby-0.68/sprintf.c	Wed Feb 22 00:50:31 1995
@@ -7,5 +7,5 @@
   created at: Fri Oct 15 10:39:26 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/string.c ruby-0.68/string.c
--- ruby-0.67/string.c	Tue Feb 21 00:25:37 1995
+++ ruby-0.68/string.c	Wed Feb 22 20:37:45 1995
@@ -7,5 +7,5 @@
   created at: Mon Aug  9 17:12:58 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -359,5 +359,4 @@
 }
 
-Regexp * make_regexp();
 VALUE Freg_match();
 
@@ -377,5 +376,5 @@
       case T_STRING:
 	reg = re_regcomp(y);
-	start = research(reg, x, 0, ignorecase);
+	start = research(reg, x, 0);
 	if (start == -1) {
 	    return FALSE;
@@ -404,5 +403,5 @@
 
     reg = re_regcomp(str);
-    start = research(reg, rb_lastline, 0, ignorecase);
+    start = research(reg, rb_lastline, 0);
     if (start == -1) {
 	return Qnil;
@@ -452,5 +451,5 @@
     switch (TYPE(sub)) {
       case T_REGEXP:
-	pos = research(sub, str, pos, ignorecase);
+	pos = research(sub, str, pos);
 	break;
 
@@ -685,5 +684,5 @@
 
     for (offset=0, n=0;
-	 (beg=research(pat, str, offset, ignorecase)) >= 0;
+	 (beg=research(pat, str, offset)) >= 0;
 	 offset=RREGEXP(pat)->ptr->regs.start[0]+STRLEN(val)) {
 	end = RREGEXP(pat)->ptr->regs.end[0]-1;
@@ -1035,5 +1034,5 @@
     struct RString *str;
 {
-    return Fstr_upcase(str_new(str_new(str->ptr, str->len)));
+    return Fstr_upcase(str_new(str->ptr, str->len));
 }
 
@@ -1042,5 +1041,5 @@
     struct RString *str;
 {
-    return Fstr_downcase(str_new(str_new(str->ptr, str->len)));
+    return Fstr_downcase(str_new(str->ptr, str->len));
 }
 
@@ -1344,5 +1343,5 @@
 #define RMATCH spat->ptr->regs.end
 
-	while ((end = research(spat, str, start, ignorecase)) >= 0) {
+	while ((end = research(spat, str, start)) >= 0) {
 	    if (start == end && LMATCH[0] == RMATCH[0]) {
 		if (last_null == 1) {
diff -u2raN ruby-0.67/struct.c ruby-0.68/struct.c
--- ruby-0.67/struct.c	Thu Feb  2 00:34:59 1995
+++ ruby-0.68/struct.c	Wed Feb 22 00:50:30 1995
@@ -5,5 +5,5 @@
   $Author: matz $
   $Date: 1995/01/10 10:43:02 $
-  created at: Tue Mar 22 18:44:30 JST 1994
+  created at: Tue Mar 22 18:44:30 JST 1995
 
 ************************************************/
diff -u2raN ruby-0.67/time.c ruby-0.68/time.c
--- ruby-0.67/time.c	Thu Feb  2 00:35:32 1995
+++ ruby-0.68/time.c	Wed Feb 22 00:50:29 1995
@@ -7,5 +7,5 @@
   created at: Tue Dec 28 14:31:59 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
diff -u2raN ruby-0.67/variable.c ruby-0.68/variable.c
--- ruby-0.67/variable.c	Tue Feb 21 00:25:36 1995
+++ ruby-0.68/variable.c	Wed Feb 22 18:41:51 1995
@@ -336,8 +336,8 @@
 
 VALUE
-rb_const_get(id)
+rb_const_get(class, id)
+    struct RClass *class;
     ID id;
 {
-    struct RClass *class = (struct RClass*)CLASS_OF(Qself);
     VALUE value;
 
@@ -346,5 +346,10 @@
 	    return value;
 	}
-	class = class->super;
+	if (BUILTIN_TYPE(class) == T_MODULE) {
+	    class = RCLASS(C_Object);
+	}
+	else {
+	    class = class->super;
+	}
     }
 
@@ -352,4 +357,6 @@
     if (st_lookup(class_tbl, id, &value)) return value;
 
+    /* here comes autoload code in the future. */
+
     Fail("Uninitialized constant %s", rb_id2name(id));
     /* not reached */
@@ -367,4 +374,6 @@
 	class = class->super;
     }
+    if (st_lookup(class_tbl, id, Qnil))
+	return TRUE;
     return FALSE;
 }
diff -u2raN ruby-0.67/version.c ruby-0.68/version.c
--- ruby-0.67/version.c	Thu Jan 12 17:54:54 1995
+++ ruby-0.68/version.c	Wed Feb 22 01:03:21 1995
@@ -8,5 +8,5 @@
   created at: Thu Sep 30 20:08:01 JST 1993
 
-  Copyright (C) 1994 Yukihiro Matsumoto
+  Copyright (C) 1995 Yukihiro Matsumoto
 
 ************************************************/
@@ -16,12 +16,9 @@
 #include <stdio.h>
 
-static VALUE rb_version;
+extern VALUE C_Kernel;
 
-VALUE rb_readonly_hook();
-
 Init_version()
 {
-    rb_version = str_new2(RUBY_VERSION);
-    rb_define_variable("$VERSION", &rb_version, Qnil, rb_readonly_hook, 0);
+    rb_define_const(C_Kernel, "VERSION", str_new2(RUBY_VERSION));
 }
 
@@ -33,5 +30,5 @@
 show_copyright()
 {
-    fprintf(stderr, "ruby - Copyright (C) 1994 Yukihiro Matsumoto\n");
+    fprintf(stderr, "ruby - Copyright (C) 1995 Yukihiro Matsumoto\n");
     exit(0);
 }
diff -u2raN ruby-0.67/version.h ruby-0.68/version.h
--- ruby-0.67/version.h	Tue Feb 21 00:16:43 1995
+++ ruby-0.68/version.h	Thu Feb 23 12:09:08 1995
@@ -1,2 +1,2 @@
-#define RUBY_VERSION "0.67"
-#define VERSION_DATE "95/02/21"
+#define RUBY_VERSION "0.68"
+#define VERSION_DATE "95/02/23"