version 1.0-971002v1_0_971002

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

Thu Oct  2 17:59:18 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* version 1.0-971002

Wed Oct  1 14:01:49 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* ext/marshal/marshal.c (w_byte): argument must be char.

Wed Oct  1 10:30:22 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* ext/marshal/marshal.c (marshal_dump): try to set binmode.

	* ext/marshal/marshal.c (r_object): forgot to re-regist structs in
	  the object table.

	* eval.c (ruby_options): call Init_ext() before any require()
 	  calls by `-r'.

Tue Sep 30 14:51:07 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* version 1.0-970930

Fri Sep 30 14:29:22 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* ext/marshal/marshal.c (w_object): marshal dumped core.

Tue Sep 30 10:27:39 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* sample/test.rb: bignum test suits added.

Mon Sep 29 13:37:58 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* ruby.c (forbid_setid): forbid some options in suid mode.

Mon Sep 27 09:53:48 1997  EGUCHI Matsumoto  <eguchi@shizuokanet.or.jp>

	* bignum.c: modified for speeding.

Fri Sep 26 18:27:59 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* sample/from.rb: some extensions.

Mon Sep 29 13:15:56 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* parse.y (lhs): no more syntax error on `obj.CONSTANT = value'.

Fri Sep 26 14:41:46 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* eval.c (ruby_run): deferred calling Init_ext() just before eval_node.

Fri Sep 26 13:27:24 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* io.c (io_isatty): forgot to return TRUE value.

Fri Sep 25 11:10:58 1997  EGUCHI Osamu  <eguchi@shizuokanet.or.jp>

	* eval.c: use _setjmp/_longjmp instead of setjmp/longjmp on some
	  platforms.

Wed Sep 24 17:43:13 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* string.c (Init_String): String#taint and String#taint? added.

Wed Sep 24 00:57:00 1997  Katsuyuki Okabe  <HGC02147@niftyserve.or.jp>

	* X68000 patch.

Tue Sep 23 20:42:30 1997  EGUCHI Osamu  <eguchi@shizuokanet.or.jp>

	* parse.y (node_newnode): SEGV on null node setup.

Mon Sep 22 11:22:46 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* ruby.c (ruby_prog_init): wrong safe condition check.

Sun Sep 21 14:46:02 1997  MAEDA shugo  <shugo@po.aianet.ne.jp>

	* error.c (exc_inspect): garbage added to classpath.

Fri Sep 19 11:49:23 1997    <matz@netlab.co.jp>

	* version 1.0-970919

	* parse.y (newtok): forgot to adjust buffer size when shrinking
	  the token buffer.

	* enum.c (enum_find): rb_eval_cmd() does not return value.

	* io.c (pipe_open): close fds on pipe exec. fcntl(fd, F_SETFD, 1)
	  no longer used.

Tue Sep 16 17:54:25 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* file.c (f_test): problem if wrong command specified.

	* ruby.c (ruby_prog_init): close stdaux and stdprn for MSDOS.

	* ruby.c (ruby_prog_init): should not add path from environment
	  variable, if ruby is running under seuid.

	* process.c (init_ids): check suid check for setuid/seteuid etc.

Mon Sep 15 00:42:04 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* regex.c (re_compile_pattern): \w{3} and \W{3} did not work.

Thu Sep 11 10:31:48 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* version 1.0-970911

	* ext/socket/socket.c (sock_new): no setbuf() for NT.

	* io.c (rb_fopen,rb_fdopen): set close-on-exec for every fd.

Wed Sep 10 15:55:31 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* version 1.0-970910

	* ext/marshal/marshal.c (r_bytes0): extra big length check.

Tue Sep  9 16:27:14 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* io.c (pipe_fptr_atexit): clean up popen()'ed fptr.

	* error.c (set_syserr): some system has error code that is bigger
	  than sys_nerr. grrr.

Tue Sep  9 16:27:14 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* version 1.0-970909

	* error.c (set_syserr): some system has error code that is bigger
	  than sys_nerr. grrr.

Wed Sep  3 18:11:00 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* version 1.0-970903

	* eval.c (f_load): expand path if fname begins with `~'.

Mon Sep  1 13:42:48 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* eval.c (rb_call): alias occured in the module body caused SEGV.

Fri Aug 29 11:10:21 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* parse.y (yylex): spaces can follow =begin/=end.

	* variable.c (find_class_path): look for class_tbl also for
	  unnamed fundamental classes, such as Object, String, etc.

	* variable.c (rb_name_class): can't name class before String class
 	  is initilialized.

	* inits.c (rb_call_inits): unrecognized dependency from GC to
	  Array.

	* variable.c (find_class_path): could not find class if Object's
 	  iv_tbl is NULL.

Thu Aug 28 13:12:05 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* parse.y (yylex): revised `=begin' skip code.

	* eval.c (is_defined): separated from rb_eval().

Wed Aug 27 11:32:42 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* variable.c (fc_i): some classes/modules does not have iv_tbl.

	* variable.c (find_class_path): avoid inifinite loop.

Tue Aug 26 13:43:47 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* eval.c (rb_eval): undef'ing non-existing method will raise
	  NameError exception.

	* object.c (class_s_new): needed to create metaclass too.

	* eval.c (error_print): no class name print for anonymous class.

	* eval.c (rb_longjmp): proper exception raised if raise() called
 	  without arguments, with $! or $@ set.

	* object.c (Init_Object): superclass()'s method argument setting
 	  was wrong again.

Mon Aug 25 11:53:11 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* sample/ruby-mode.el (ruby-parse-region): auto-indent now
 	  supports "\\" in the strings.

	* struct.c (struct_getmember): new API to get member value from C
	  language side.

Fri Aug 22 14:26:40 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* eval.c (error_print): modified exception print format.

Thu Aug 21 16:10:58 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* sample/ruby-mode.el (ruby-calculate-indent): wrong indent level
	  calculated with keyword operators.

Thu Aug 21 11:55:41 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* version 1.0-970821

Thu Aug 21 11:36:58 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* parse.y (arg): ary[0] += 1 cause SEGV

Wed Aug 20 14:24:42 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* version 1.0-970820

	* eval.c (rb_call): infinite loop bug

Tue Aug 19 00:15:38 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* version 1.0-970819

	* eval.c (rb_call): did not raise ArgumentError if too many
 	  arguments more than optional arguments (without rest arg).

	* eval.c (rb_eval): did not work well for op_asgn2 (attribute
	  self assignment).

Mon Aug 18 09:25:56 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* object.c (inspect_i): did not display T_DATA instance variables.

	* parse.y: provides more accurate line number information.

	* eval.c (thread_value): include value's backtrace information in
	  the variable `$@'.

	* eval.c (f_abort): print backtrace and exit.

Sat Aug 16 00:17:44 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* object.c (class_s_new): do not make subclass of singleton class.

Fri Aug 15 15:49:46 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* eval.c (call_trace_func): block context switch in the trace
          function.

	* eval.c (rb_eval): clear method cache at class extention.

Fri Aug 15 19:40:43 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* ext/socket/socket.c (Init_socket): small typo caused SEGV.

Tue Aug 12 16:02:18 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* variable.c: option variables: $-0, $-p(readonly), $-v,
	  $-I(load_path), $-a(readonly), $-K, $-d, $-F, $-i, $-l.

	* parse.y (yylex): ignore rd (ruby document) in the code.

Mon Aug 11 12:37:58 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* re.c (Init_Regexp): $-K as alias to the $KCODE.

	* io.c (Init_IO): new virtual variable $-i for the value of -i
 	  option.

	* enum.c (Init_Enumerable): include? as alias of member?

Fri Aug  8 11:16:50 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* io.c (io_foreach): now the record separator can be specified.

	* io.c (io_s_readlines): new method to read in whole file (or
 	  command output) from path.

	* ext/socket/socket.c (Init_socket): recvfrom did not work.

	* ext/socket/socket.c (sock_send): forgot to check nil for false
	  value.

Thu Aug  7 11:40:01 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* object.c (Init_Object): remove private_attr/public_attr.

Wed Aug  6 14:21:36 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* object.c (mod_attr): forgot to check nil for false value.

Mon Aug  4 11:50:28 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* variable.c (rb_class_path): scan class constants for anonymous
	  classes/modules to make up pathes.

Wed Jul 30 08:45:12 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* eval.c (rb_eval): stop to cache const value in nodes.

Sat Jul 26 03:17:22 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* numeric.c (flo_to_s): wrong .0 at end.

Sat Jul 26 00:36:36 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* eval.c (error_print): always print exception type in the
 	  toplevel exception handler.

	* string.c (str_hash): wrong hash value.

Thu Jul 24 11:05:51 1997  Yukihiro Matsumoto  <matz@netlab.co.jp>

	* string.c (uscore_get): proper error message for unset $_.

Wed Jul 23 09:56:55 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* object.c (obj_methods): returns list of method names of the
	  specified object.

	* class.c (mod_instance_methods): returns list of method names of
	  the class instnace.

Fri Jul 11 22:38:55 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* object.c (class_superclass): returns class's superclass
 	  itself. (1.1)

	* object.c (obj_type): returns object's class itself. (1.1)

	* class.c (mod_included_modules): list included modules.

	* object.c (class_superclass): raises error for Object.

Thu Jul  3 09:54:02 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (SETUP_ARGS): save source position, remove nd_line().

	* eval.c (rb_call): replace modulo by bit-masking.

	* eval.c (POP_SCOPE): force recycle scope object to reduce gc rate.

	* gc.c (obj_free): aboid calling run_final() when no finalizer is set.

	* eval.c (PUSH_VARS): do not allocate the dynamic scope's end-mark
	  object.

Wed Jul  2 14:25:07 1997  KIMURA Koichi  <kkimura@pure.cpdc.canon.co.jp>

	* Native mswin32 support.

Tue Jul  1 09:59:00 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970701

	* parse.y (mrhs): allow rest-star(*) in right hand side.

Tue Jun 24 19:04:31 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970624

Sat Jun 20 22:22:51 1997  Michio "Karl" Jinbo  <karl@marcer.nagaokaut.ac.jp>

	* eval.c: freebsd 3.0 <sys/select.h> support.

Fri Jun 20 01:24:45 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970620

	* gc.c: eliminate uninitilalized field of Hash, Array etc., to
	  avoid dumping core.

Thu Jun 19 01:29:44 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970619

	* string.c (str_split_method): wrong limit.

Sat Jun 14 01:54:16 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* class.c (rb_singleton_class): no singleton for special
	  constants (now raises exception).

	* eval.c (ruby_init): cbase in TOPLEVEL_BINDING need to be
	  initialized.

Sat Jun 14 01:01:16 1997  maeda shugo  <shugo@po.aianet.ne.jp>

	* array.c (sort_2): wrong comparison.

Sat Jun 14 00:53:44 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* hash.c (hash_foreach): safe iteration.

Fri Jun 13 14:04:56 1997  Michio "Karl" Jinbo  <karl@marcer.nagaokaut.ac.jp>

	* configure.in: -Bshareable option for netbsd.

Fri Jun 13 01:16:22 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* io.c (pipe_open): call io_unbuffered() only for writable pipes.

Thu Jun 12 01:14:15 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970612

	* ext/socket/socket.c (sock_new): use io_unbuffered().

	* ext/marshal/marshal.c (w_long): compact long format, which
	  supports 64 bit architectures (unless longs are >32 bit size).

	* ext/marshal/marshal.c: allows recursive data for marshaling.

	* parse.y (rb_intern): raise exception for non-internable string.

	* ext/marshal/marshal.c (marshal_load): allows direct loading from
 	  strings.

	* ext/marshal/marshal.c (marshal_dump): allows direct dump to strings.

	* ext/marshal/marshal.c (marshal_dump): interface changed.

Wed Jun 11 18:26:00 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* gc.c (rb_newobj): remove needless memset().

Mon Jun  9 13:03:43 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (rb_eval): reduce condition checks from while/until loop.

	* eval.c (rb_eval): wrong jump point for `next'.

Fri Jun  6 11:47:39 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ruby.c (ruby_set_argv): initialize dln_argv0 for dln_a_out.

	* ext/socket/socket.c (open_unix): display path name for exceptions.

	* ruby.c (proc_options): option -S did not work well.

Fri May 30 02:14:44 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970530

	* eval.c (eval): set $! properly if exception raised in eval().

	* io.c (io_write): now handles non T_FILE object.

	* io.c (io_defset): $< can be anything which has `write' method.

Thu May 29 15:40:22 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (eval): $@ is always an array (not string).

	* pack.c (pack_unpack): avoid corrupting memory for unexpected
	  input strings.

Wed May 28 12:46:13 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970528

	* process.c (rb_waitpid): do not block other threads.

Tue May 27 12:02:31 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (ruby_init): split initialize and processing command line
	  options.

	* ruby.c (ruby_options): ruby_init(0, 0, envp) dumps core.

Tue May 20 18:59:45 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* variable.c (rb_ivar_set): invalid instance variable access for
	  built-in object raises TypeError.

Fri May 16 17:32:21 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970516

	* dir.c (push_globs): was freeing non heap pointer.

	* gc.c: remove some duplicated prototypes.

	* ext/kconv/kconv.c: fix prototypes.

Fri May  9 11:38:59 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970509

	* gc.c (obj_free): avoid free(NULL).

	* eval.c (rb_check_safe_str): argument missing for TypeError().

Thu May  8 01:14:28 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* file.c (file_s_dirname): need to return "." for path without
	  slashes.

Wed May  7 19:18:48 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* process.c (f_fork): child processe does not inherit parent's
 	  itimer setting on linux.  call setitimer() again in the child
	  process.

Sat May  3 02:49:43 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ext/curses/curses.c: modified for portability and add to the
 	  standard distribution.

Wed Apr 30 00:34:00 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* file.c (file_s_size): returns 0 for empty files (not FALSE).

Fri Apr 25 02:17:50 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970425

	* eval.c (f_load): free unused name-table.

	* eval.c (f_load): copy local variable name-table.

	* gc.c (obj_free): avoid free(NULL).

	* eval.c (rb_eval): forgot to make link from the scope object to
	  NODE_SCOPE.  It may crash the interpreter.

Thu Apr 24 00:35:09 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* random.c (f_srand): save old seed anyway.  srand() returns no
 	  value on some systems.

	* gc.c (obj_free): avoid double free of the local variable name
	  table.

	* parse.y (top_local_setup): modify realloc to handle offset.

Tue Apr 22 12:58:26 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970422

Thu Apr 17 00:40:51 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* configure.in (rb_cv_bsdpgrp): proper check for BSD
	  setpgrp/setpgrp.

Wed Apr 16 16:14:02 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (proc_call): proc called in other thread must be orphan.

Tue Apr 15 10:46:31 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970415

	* gc.c (obj_free): NODE_SCOPE marked from SCOPE object.

	* gc.c (gc_mark): some nodes marked wrong.

	* process.c (proc_getpgrp): wrong argument

Fri Apr 14 18:32:42 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970414

Fri Apr 12 01:20:12 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ruby.h: String pointer changed to unsigned char.

Fri Apr 11 10:27:29 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970411

	* Makefile.in: create libruby.a before linking ruby.

	* string.c (str_strip_bang): >0x80 characters for isspace().

	* eval.c (proc_call): set safe-level temporally

	* eval.c (proc_s_new): save safe-level in the proc context.

	* eval.c (rb_eval): no class/module extention in safe mode.

Thu Apr 10 02:10:41 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* gc.c (gc_mark): remove some pointer checks for speeding up.

	* ruby.c (ruby_options): set $0 temporally for -r option.

	* eval.c: built-in security feature.

	* gc.c (gc_sweep): do not free nodes during compile.

	* parse.y (yycompile): set flag when compiling.

Wed Apr  9 10:19:02 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ruby.c: forgot to include <ctype.h> for isspace().

	* file.c: provide S_ISREG for some platforms.

	* io.c (Init_IO): added some $< operations.

	* lib/ping.rb: check host upness using TCP echo.

Tue Apr  8 00:10:15 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* io.c (arg_read): bug with 0 length input.

Mon Apr  7 11:36:16 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ext/fcntl/fcntl.c: module for fcntl constants.

	* eval.c (rb_alias): bug when original was an alias.

	* parse.y (primary): syntax to access singleton class.

	* eval.c (mod_public_method): method's to specify visibitily of
	  the class methods.  make_method_{public,private} removed.

Fri Apr  4 21:43:57 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970404

	* gc.c (obj_free): finalizer added for experiment.

Thu Apr  3 02:12:31 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (thread_schedule): make Fatal rise on main_thread on
	  deadlocks.

	* eval.c (thread_join): raise ThreadError instead of Fatal, in
	  case of deadlock.

	* regex.c (re_compile_fastmap): uninitialized local variable.

	* parse.y (parse_regx): new option //[nes] to specify character
	  code for regexp literals.  Last specified code option is valid.

	* re.c (reg_s_new): addtional 3rd argument to specify compiled
 	  regexp's character code.

	* re.c (reg_new_1): regexp character code can be specified for
	  each regexp object.

Wed Apr  2 14:51:06 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (thread_create): handle uncaught throw.

	* eval.c (thread_create): halt on some deadlock conditions.

	* regex.c (is_in_list): wrong result for non-mbc higher-byte
	  characters.

	* regex.c (re_match): wrong skip for multi-byte characters.

	* regex.c (re_compile_fastmap): wrong fastmap in non-mbc mode.

	* hash.c (Init_Hash): hash compatible features added to ENV.

Tue Apr  1 15:24:06 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (obj_extend): remove Object#extend as an iterator which
 	  is in experimental state, since it unveils internal singleton
 	  classes.

Mon Mar 31 14:29:39 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970331

Sun Mar 30 19:40:57 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* parse.y (terms): avoided win32 gcc's optimization bug.

Sat Mar 29 11:21:58 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* struct.c (make_struct): St[val,..] creates new structure.

Fri Mar 28 11:24:51 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (obj_make_private): new method make_method_{public,private}
	  to change visibility of singleton methods.

	* regex.c (re_compile_pattern): enables numeric literal >= 0x80 in
	  the character class.

	* regex.c (re_compile_pattern): enabled numeric literal >= 0x80,
	  in multibyte mode.

	* regex.c (re_compile_fastmap): modified exantn and charset(_not)
	  to set fastmap for higher bytes properly.

	* regex.c (is_in_list): now matches numeric literals.

Thu Mar 27 13:34:20 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* pack.c (pack_unpack): extra null byte after unpacked string.

Wed Mar 26 15:20:34 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* regex.c (re_compile_pattern): register numbers must be fit in a
 	  byte (0 <= regnum <= 0xff).

	* regex.c (re_compile_fastmap): forgot to set mbchar map for
 	  charset_not if RE_MBCTYPE is on.

	* regex.c (re_compile_pattern): set list bits for multi-byte
	  characters for \W, \S, \D in range expression.

	* object.c (obj_is_kind_of): defined that nil itself is kind of
 	  nil.  TRUE is kind of TRUE, FALSE is kind of FALSE likewise.
  	  This change makes `obj.kind_of?(eval(obj.type))' always true.

Tue Mar 25 14:08:43 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* lib/English.rb: provides nicer English alias for the variables.

	* parse.y (expr): alias $var1 $var2 makes alias of the global
	  variable.

Mon Mar 24 18:23:20 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970324

Thu Mar 20 22:04:59 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (mod_modfunc): forget to clear method cache.

Wed Mar 19 17:06:55 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y (program): set methods' default private/public status
	  correctly under eval().

	* eval.c (eval): set the_class correctly while evaluating string.

Tue Mar 18 12:23:53 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (eval): yield can be called from eval().

	* version 1.0-970318

	* parse.y (program): regexp in condition expression should do
	  matching operation with $_.

	* re.c (reg_regsub): wrong substitution.

Fri Mar 14 14:36:28 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* hash.c (hash_invert): returns value to key mapping of the
	  associative array.

	* ext/socket/extconf.rb: set environment variable SOCKS_SERVER to
	  compile with libsocks.a.

	* ext/socket/socket.c (socks_s_open): SOCKSsocket class to access
	  internet via SOCKS library.

	* sprintf.c (f_sprintf): unsigned formats display leading double
 	  dots for imaginary sequence of signed bit to the left.

	* sprintf.c (f_sprintf): correct width and precision formatting
	  for big integers.

	* parse.y (yylex): enables negative hex/octal numbers and `_' in
	  non-decimal numbers.

	* sprintf.c (f_sprintf): %u added for unsigned decimal format.

Thu Mar 13 10:24:27 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* sprintf.c (f_sprintf): wrong output for bignums.

	* array.c (ary_reverse_each): iterates in reverse order.

	* pack.c (pack_unpack): L unpacked signed long.

	* io.c (f_backquote): now returns an empty string for no output.

Wed Mar 12 10:20:30 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ext/socks/socks.c: socket module with socks library.

Mon Mar 10 20:44:22 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* re.c (reg_regsub): \& for substitution.  \`, \', and \+ are
	  avaiable also.

Thu Mar  6 01:47:03 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970306

	* sample/rubydb.el (gud): ruby debugger emacs interface

	* lib/debug.rb: ruby debugger

	* parse.y (exprs): more accurate line number display.

Wed Mar  5 21:31:46 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970305

Tue Mar  4 12:28:32 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ruby.c (proc_options): search through RUBYPATH and PATH for
	  option -S.

Mon Mar  3 22:44:55 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (thread_status): returns nil for exception terminated
	  threads.

	* eval.c (thread_value): re-raise exceptions.

Sat Mar  1 00:59:47 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (rb_eval): restore $! value after rescue clause, to
	  re-raise exceptions correctly.

Fri Feb 28 16:43:38 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970228

Thu Feb 27 11:23:41 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (rb_yield_0): redo raises exception

	* eval.c (thread_schedule): bug in interrupt handling by rescue.

Wed Feb 26 00:55:36 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (eval): forgot to restore dynamic local variable
	  bindings.

Tue Feb 25 11:22:08 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ext/aix_ld.rb: AIX dynamic load support (not tested).

	* eval.c (rb_eval): wrong return value for defined? super.

	* error.c (exception): more error check.

	* re.c (reg_regsub): wrong substitution when sub expanded to null
 	  string.

Fri Feb 21 13:01:47 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970221

	* eval.c (f_require): volatile added.  register variable was
 	  recycled, so that GC did not mark that variable.

	* object.c (Init_Object): forget to mark main object (was mostly
	  ok, but made trouble with early GC.)

Thu Feb 20 11:50:50 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970220

Thu Feb 20 11:25:50 1997  Yasuo OHBA  <jammy@shljapan.co.jp>

	* lib/date.rb: update

Thu Feb 20 08:25:57 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y (yylex): forgot tokfix() before rb_intern().

	* lib/tk.rb (TkVariable): give up using trace_var.

Wed Feb 19 00:24:35 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970219

	* pack.c (pack_pack): packed by null for A specifier. must be
	  space filled.

	* pack.c (pack_unpack): bug in skipping spaces

	* gc.c (xmalloc): garbage collect for every 4 Meg. allocation.

	* string.c (str_split_method): limit worked wrong way.

	* io.c (io_gets_method): misunderstand 0xff in binary files when
	  $/ == nil.

	* re.c (reg_regsub): re-implement.

	* ext/socket/socket.c (thread_connect): remove O_NONBLOCK, which
	  is not defined on some platform like NeXT.

Mon Feb 17 13:08:30 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970217

	* object.c (mod_eqq): === extended for subclass check (to use case
	  as typecase).

Sat Feb 15 02:07:22 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* regex.c (re_compile_pattern): wrong match backref at end of pattern.

	* io.c (arg_read): now works beyond end of file.

Thu Feb 13 16:21:24 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y (expr): return/yield now accept normal argument format.

	* parse.y (yylex): a star in `yield *x' must not be multiplication
	  operator.

Wed Feb 12 15:06:44 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* time.c (time_plus): bug in simple addition.

	* eval.c (thread_raise): raise exceptions from outside.

	* eval.c (Init_Thread): Thread#alive? -- alias for Thread#status.

Mon Feb 10 00:38:55 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ruby.h (Data_Make_Struct): rename macros.

Sun Feb  8 11:48:13 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* io.c (f_syscall): argument offset was wrong.

Fri Feb  7 18:01:17 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970207

	* eval.c: add volatiles to avoid variable crobbering by longjmp().

	* eval.c (f_raise): 1st argument can be the GlobalExit object now.

	* array.c (ary_unshift): no longer accept more than 2 args.

	* eval.c (f_raise): bug if 2nd argument is the exception.

Tue Feb  4 00:37:29 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970204

	* eval.c (eval): check compile errors by nerrs.

	* eval.c (rb_eval): check syntax error by nerrs, not by the return
 	  value, which may be NULL.

	* eval.c (compile): Do not clear errinfo.

Mon Feb  3 10:13:06 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (obj_extend): move real inclusion to Module#extend_object
	  to allow redfinition.

	* object.c (Init_Object): Kernel class is now Module. Object class
	  became the true root class.

	* object.c (obj_inspect): remove useless buffer.

	* hash.c (any_cmp): disable interrupts and context switching.

	* st.c: remove ALLOW_INTS to disable interrupt during operations.

Fri Jan 31 22:10:08 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* hash.c (hash_rehash): re-register all key-value.

Thu Jan 30 02:14:49 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* io.c (io_reopen): re-implement according to clone() way.

	* io.c (io_clone): copy IO object.

	* struct.c (struct_eql): compare elements by eql?.

	* io.c (io_mode_flags): detect "rb", "wb" etc.

	* io.h (FMODE_BINMODE): added.

	* ext/socket/socket.c (Init_socket): undef BasicSocket.new

	* file.c (Init_File): File.new(path[,mode])

	* io.c (Init_IO): IO.new(fd[,mode])

	* eval.c (rb_method_boundp): forgot to enable priv argument.

	* object.c (Init_Object): remove `=~' from Kernel class.

	* ext/socket/socket.c (open_inet): initialize sockaddr before
	  calling bind(2).

	* sample/ruby-mode.el (ruby-calculate-indent): skip comment lines

Wed Jan 29 18:43:22 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (Init_Thread): DEFER_INTS during initializing threads.

	* hash.c (Init_Hash): Hash#eql? checks for object identity.

	* eval.c (thread_set_critical): wrong value assigned.

Mon Jan 27 16:10:51 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* io.c (io_print): remove print_on().

	* eval.c (f_missing): proper error message for undefined method
	  without argument

Sat Jan 25 23:32:32 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* string.c (str_sub_s): false alert - sub() does not modify string.

	* array.c (ary_times): negative multiplication detected

	* string.c (str_times): negative multiplication detected

Fri Jan 24 10:51:39 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* time.c (time_arg): month -> 0 == "jan" == "1" == "01", little bit
	  confusing but wanted to conform japanese style.

	* version 1.0-970124

Fri Jan 24 09:52:49 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* util.c (_fixpath): supports SJIS filenames on DJGPP.

Thu Jan 23 16:52:06 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* README.EXT: update. partially translated into English.

	* ext/extmk.rb.in: inherit $LDFLAGS to the final link.

	* ext/socket/socket.c (Init_socket): add various constants.

Mon Jan 23 11:40:59 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* eval.c (Init_Thread): allocate main_thread first to avoid crash.

Thu Jan 23 02:09:26 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* gc.c (ObjectSpace): API modified. each_object method will do all
 	  the iteration.

	* eval.c (proc_call): wrong return from nested lambda.

	* ext/GD/GD.c: debugged.

Wed Jan 22 16:12:25 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970122

	* gc.c (gc_mark): forgot to mark match->str.

	* ext/GD/GD.c: GD interface module.

	* eval.c (PUSH_BLOCK): wrong value pushed as the block level.

Mon Jan 20 14:01:31 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (thread_run): no context switch in the critical section.

Mon Jan 20 09:40:59 1997  WATANABE Hirofumi  <watanabe@ase.ptg.sony.co.jp>

	* utils.c: supports 8+3 filenames

Sat Jan 18 01:23:03 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970118

	* regex.c (PATFETCH): need cast to unsigned char.

	* io.c (io_ctl): bug in case when arg is not a string.

	* lib/tk.rb: forgot that Kernel#type returns the class name now.

	* regex.c (re_search): "abc\n" =~ "^$" should not match.

Fri Jan 17 12:31:37 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970117

	* ruby.c (ruby_options): constant PLATFORM, which is in the {cpu}-{os}
	  form, defined.

	* configure.in: platform infomation embedded in the interpreter.

	* regex.c (re_search): /^$/ did not match to "" by wrong exit condition.

	* lib/thread.rb: re-write Mutex/Queue based on Thread.critical.

	* eval.c (thread_set_critical): remove Thread.exclusive, add
	  Thread.critical = TRUE/FALSE instead.

	* re.c (reg_search): re-compile pattern if needed

	* regex.c (PATFETCH): do translate at compile time

Thu Jan 16 00:49:10 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* gc.c (gc_mark_frame): forgot to mark frame->cbase.

	* regex.c (re_compile_pattern): /a$|b)/ causes error.

	* regex.c (re_compile_pattern): /(^|b)/ causes error.

	* version 1.0-970116

	* re.c (Init_Regexp): set RE_CONTEXTUAL_INVALID_OPS flag.

Tue Jan 14 02:09:06 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (proc_call): Proc#callをイテレータとして呼んだ時に対応

	* configure.in: nextstep対応？

	* eval.c (rb_eval): a[b]=cで無駄な配列を割り当てない

	* eval.c (f_send): イテレータとして呼ばれたらイテレータとしてメソッ
	  ドを呼ぶ．

	* string.c (str_new4): match共有用の生成関数

	* re.c (reg_search): matchの実体(文字列)をマッチを行った文字列と
	  copy-on-writeで共有

	* string.c (str_hash): toupperをかける条件が違っていた

	* array.c (sort_2): FixnumとStringを特別扱いして高速化

Mon Jan 13 11:03:53 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (thread_create): threadが生成されるまで割込みを設定しない

	* eval.c (Init_Thread): 割込みタイミングを100msecに

Sat Jan 11 00:17:05 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* regex.c (re_search): マッチに失敗する場合があった(本当に直ったか？)

	* io.c (io_ioctl,io_fcntl): 第2引数を省略可能に

	* io.c (io_ioctl,io_fcntl): 戻り値がIOだった．整数(システムコール
	  の戻り値)を返すようにした．

	* io.c (io_ctl): 引数が整数の時に対応

	* io.c (io_fcntl): file.cから移動

Fri Jan 10 17:01:47 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 1.0-970110

	* ext/socket/socket.c (thread_connect): open(connect(2))で他の
	  threadをブロックしないように

	* eval.c (thread_create): exitでないときにexitだと思い込む

Mon Jan  6 17:42:22 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* string.c (str_sub_s): 文字列長より長いoffsetの検出

	* regex.c (re_search): 空にマッチするパターン後の$で失敗

Thu Jan  2 16:36:23 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* file.c (file_reopen): Fileのreopen(pathまたはIOで指定)．

	* io.c (io_reopen): IOのreopen(IOで指定) -- change classつき

Wed Jan  1 11:09:01 1997  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* io.c (f_select): timeoutでnilを返す

Fri Dec 27 13:06:44 1996  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* file.c (file_s_open): サブクラスではそのクラスのインスタンスを返
	  すように．

Fri Dec 27 08:58:27 1996  ono@isl.nara.sharp.co.jp

	* numeric.c (flo_to_s): index()を使わない．strstr()に．

Thu Dec 26 01:34:17 1996  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* lib/tk.rb: placeが使えるように

	* pack.c (endian): マクロDYNAMIC_ENDIANを指定すると実行時にendian
	  を判定するように．

	* eval.c (thread_alloc): 初期化忘れのメンバがあった．

Co-authored-by: EGUCHI Matsumoto <eguchi@shizuokanet.or.jp>
Co-authored-by: EGUCHI Osamu <eguchi@shizuokanet.or.jp>
Co-authored-by: KIMURA Koichi <kkimura@pure.cpdc.canon.co.jp>
Co-authored-by: Katsuyuki Okabe <HGC02147@niftyserve.or.jp>
Co-authored-by: MAEDA shugo <shugo@po.aianet.ne.jp>
Co-authored-by: Michio "Karl" Jinbo <karl@marcer.nagaokaut.ac.jp>
Co-authored-by: WATANABE Hirofumi <watanabe@ase.ptg.sony.co.jp>
Co-authored-by: Yasuo OHBA <jammy@shljapan.co.jp>
Co-authored-by: maeda shugo <shugo@po.aianet.ne.jp>
Co-authored-by: ono <ono@isl.nara.sharp.co.jp>

16 files changed, 617 insertions, 301 deletions

diff --git a/sample/biorhythm.rb b/sample/biorhythm.rb
index 5a452e0078..b97ee85e16 100644
--- a/sample/biorhythm.rb
+++ b/sample/biorhythm.rb
@@ -1,74 +1,45 @@
-#!/mp/free/bin/ruby
+#!/usr/local/bin/ruby
 #
-#		biorhythm.rb - 
-#			$Release Version: $
-#			$Revision: 1.6 $
-#			$Date: 1994/02/24 10:23:34 $
-#			by Yasuo OHBA(STAFS Development Room)
+#               biorhythm.rb - 
+#                       $Release Version: $
+#                       $Revision: 1.3 $
+#                       $Date: 1997/02/14 11:07:08 $
+#                       by Yasuo OHBA(STAFS Development Room)
 #
 # --
 #
-#	
+#       
 #
 
-$RCS_ID="$Header: /var/ohba/RCS/biorhythm.rb,v 1.6 1994/02/24 10:23:34 ohba Exp ohba $"
-
 include Math
-load("parsearg.rb")
-
-$wochentag = ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" ]
-monatstag1 = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
-monatstag2 = [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
+require "date.rb"
+require "parsearg.rb"
 
 def usage()
-  print("Usage:\n")
-  print("biorhythm.rb [options]\n")
-  print("  options...\n")
-  print("    -D YYYYMMDD(birthday)     : ���٤� default �ͤ�Ȥ�. \n")
-  print("    --sdate | --date YYYYMMDD : system date �⤷���ϻ��ꤷ�����դ�Ȥ�.\n")
-  print("    --birthday YYYYMMDD       : �������λ���򤹤�.  \n")
-  print("    -v | -g                   : Values or Graph ���. \n")
-  print("    --days DAYS               : ���֤λ���򤹤�(Graph �λ��Τ�ͭ��). \n")
-  print("    --help                    : help\n")
+  print "Usage:\n"
+  print "biorhythm.rb [options]\n"
+  print "  options...\n"
+  print "    -D YYYYMMDD(birthday)     : ���٤� default �ͤ�Ȥ�. \n"
+  print "    --sdate | --date YYYYMMDD : system date �⤷���ϻ��ꤷ�����դ�Ȥ�.\n"
+  print "    --birthday YYYYMMDD       : �������λ���򤹤�.  \n"
+  print "    -v | -g                   : Values or Graph ���. \n"
+  print "    --days DAYS               : ���֤λ���򤹤�(Graph �λ��Τ�ͭ��). \n"
+  print "    --help                    : help\n"
 end
 $USAGE = 'usage'
 
-def leapyear(y)
-  ta = 0
-  if ((y % 4.0) == 0); ta = 1; end
-  if ((y % 100.0) == 0); ta = 0; end
-  if ((y % 400.0) == 0); ta = 1; end
-  return ta
-end
-  
-def bcalc(tt, m, j)
-  ta = 0
-  if (m <= 2)
-    ta = (m - 1) * 31
-  else
-    ta = leapyear(j)
-    ta = ta + ((306 * m - 324) / 10.0).to_i
-  end
-  ta = ta + (j - 1) * 365 + ((j - 1) / 4.0).to_i
-  ta = ta - ((j - 1) / 100) + ((j - 1) / 400.0).to_i
-  ta = ta + tt
-  return ta
-end
-
-def printHeader(tg, mg, jg, gtag, tage)
-  print("\n")
-  print("    Biorhythm\n")
-  print("    =========\n")
-  print("\n")
-  printf("The birthday %04d.%02d.%02d is a %s\n", jg, mg, tg, $wochentag[gtag])
-  printf("Age in days: [%d]\n", tage)
+def printHeader(y, m, d, p, w)
+  print "\n>>> Biorhythm <<<\n"
+  printf "The birthday %04d.%02d.%02d is a %s\n", y, m, d, w
+  printf "Age in days: [%d]\n\n", p
 end
 
 def getPosition(z)
   pi = 3.14159265
-  $phys = (50.0 * (1.0 + sin((z / 23.0 - (z / 23)) * 360.0 * pi / 180.0))).to_i
-  $emot = (50.0 * (1.0 + sin((z / 28.0 - (z / 28)) * 360.0 * pi / 180.0))).to_i
-  $geist =(50.0 * (1.0 + sin((z / 33.0 - (z / 33)) * 360.0 * pi / 180.0))).to_i
+  phys = (50.0 * (1.0 + sin((z / 23.0 - (z / 23)) * 360.0 * pi / 180.0))).to_i
+  emot = (50.0 * (1.0 + sin((z / 28.0 - (z / 28)) * 360.0 * pi / 180.0))).to_i
+  geist =(50.0 * (1.0 + sin((z / 33.0 - (z / 33)) * 360.0 * pi / 180.0))).to_i
+  return phys, emot, geist
 end
 
 #
@@ -76,55 +47,41 @@ end
 #
 parseArgs(0, nil, "vg", "D:", "sdate", "date:", "birthday:", "days:")
 
-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")
-  jh = dtmp[0,4].to_i
-  mh = dtmp[4,2].to_i
-  th = dtmp[6,2].to_i
-  dtmp = $OPT_D
-  jg = dtmp[0,4].to_i
-  mg = dtmp[4,2].to_i
-  tg = dtmp[6,2].to_i
-  gtag = bcalc(tg, mg, jg) % 7
+if $OPT_D
+  dd = Date.new(Time.now.strftime("%Y%m%d"))
+  bd = Date.new($OPT_D)
   ausgabeart = "g"
 else
-  if ($OPT_birthday)
-    dtmp = $OPT_birthday
+  if $OPT_birthday
+    bd = Date.new($OPT_birthday)
   else
-    printf(STDERR, "Birthday 			  (YYYYMMDD) : ")
-    dtmp = STDIN.gets.chop
+    printf(STDERR, "Birthday                      (YYYYMMDD) : ")
+    if (si = STDIN.gets.chop) != ""
+      bd = Date.new(si)
+    end
   end
-  if (dtmp.length != 8)
-    printf(STDERR, "BAD Input Birthday!!\n")
+  if !bd
+    printf STDERR, "BAD Input Birthday!!\n"
     exit()
   end
-  jg = dtmp[0,4].to_i
-  mg = dtmp[4,2].to_i
-  tg = dtmp[6,2].to_i
   
-  gtag = bcalc(tg, mg, jg) % 7
-  
-  if ($OPT_sdate)
-    dtmp = Time.now.strftime("%Y%m%d")
-  elsif ($OPT_date)
-    dtmp = $OPT_date
+  if $OPT_sdate
+    dd = Date.new(Time.now.strftime("%Y%m%d"))
+  elsif $OPT_date
+    dd = Date.new($OPT_date)
   else
-    printf(STDERR, "Date	[<RETURN> for Systemdate] (YYYYMMDD) : ")
-    dtmp = STDIN.gets.chop
+    printf(STDERR, "Date        [<RETURN> for Systemdate] (YYYYMMDD) : ")
+    if (si = STDIN.gets.chop) != ""
+      dd = Date.new(si)
+    end
   end
-  if (dtmp.length != 8)
-    dtmp = Time.now.strftime("%Y%m%d")
+  if !dd
+    dd = Date.new(Time.now.strftime("%Y%m%d"))
   end
-  jh = dtmp[0,4].to_i
-  mh = dtmp[4,2].to_i
-  th = dtmp[6,2].to_i
-  
-  if ($OPT_v)
+
+  if $OPT_v
     ausgabeart = "v"
-  elsif ($OPT_g)
+  elsif $OPT_g
     ausgabeart = "g"
   else
     printf(STDERR, "Values for today or Graph  (v/g) [default g] : ")
@@ -132,70 +89,50 @@ else
   end
 end
 if (ausgabeart == "v")
-  tag = bcalc(tg, mg, jg)
-  tah = bcalc(th, mh, jh)
-  tage = tah - tag
-  printHeader(tg, mg, jg, gtag, tage)
-  print("\n")
+  printHeader(bd.year, bd.month, bd.day, dd.period - bd.period, bd.name_of_week)
+  print "\n"
   
-  getPosition(tage)
-  printf("Biorhythm:   %04d.%02d.%02d\n", jh, mh, th)
-  printf("Physical:    %d%%\n", $phys)
-  printf("Emotional:   %d%%\n", $emot)
-  printf("Mental:      %d%%\n", $geist)
-  print("\n")
+  phys, emot, geist = getPosition(dd.period - bd.period)
+  printf "Biorhythm:   %04d.%02d.%02d\n", dd.year, dd.month, dd.day
+  printf "Physical:    %d%%\n", phys
+  printf "Emotional:   %d%%\n", emot
+  printf "Mental:      %d%%\n", geist
+  print "\n"
 else
-  if ($OPT_days)
-    ktage = $OPT_days.to_i
+  if $OPT_days
+    display_period = $OPT_days.to_i
+  elsif $OPT_D
+    display_period = 9
   else
-    if ($OPT_D)
-      ktage = 9
+    printf(STDERR, "Graph for how many days     [default 10] : ")
+    display_period = STDIN.gets.chop
+    if (display_period == "")
+      display_period = 9
     else
-      printf(STDERR, "Graph for how many days 	[default 10] : ")
-      ktage = STDIN.gets.chop
-      if (ktage == "")
-	ktage = 9
-      else
-	ktage = ktage.to_i - 1
-      end
+      display_period = display_period.to_i - 1
     end
   end
-  tag = bcalc(tg, mg, jg)
-  tah = bcalc(th, mh, jh)
-  tage = tah - tag
-  printHeader(tg, mg, jg, gtag, tage)
-  print("		      P=physical, E=emotional, M=mental\n")
-  print("             -------------------------+-------------------------\n")
-  print("                     Bad Condition    |    Good Condition\n")
-  print("             -------------------------+-------------------------\n")
+
+  printHeader(bd.year, bd.month, bd.day, dd.period - bd.period, bd.name_of_week)
+  print "                     P=physical, E=emotional, M=mental\n"
+  print "             -------------------------+-------------------------\n"
+  print "                     Bad Condition    |    Good Condition\n"
+  print "             -------------------------+-------------------------\n"
   
-  for z in tage..(tage + ktage)
-    getPosition(z)
+  for z in (dd.period - bd.period)..(dd.period - bd.period + display_period)
+    phys, emot, geist = getPosition(z)
     
-    printf("%04d.%02d.%02d : ", jh, mh, th)
-    p = ($phys / 2.0 + 0.5).to_i
-    e = ($emot / 2.0 + 0.5).to_i
-    g = ($geist / 2.0 + 0.5).to_i
+    printf "%04d.%02d.%02d : ", dd.year, dd.month, dd.day
+    p = (phys / 2.0 + 0.5).to_i
+    e = (emot / 2.0 + 0.5).to_i
+    g = (geist / 2.0 + 0.5).to_i
     graph = "." * 51
     graph[25] = ?|
     graph[p] = ?P
     graph[e] = ?E
     graph[g] = ?M
-    print(graph, "\n")
-    th = th + 1
-    if (leapyear(jh) == 0)
-      $MONATSTAG = monatstag1
-    else
-      $MONATSTAG = monatstag2
-    end
-    if (th > $MONATSTAG[mh - 1])
-      mh = mh + 1
-      th = 1
-    end
-    if (mh > 12)
-      jh = jh + 1
-      mh = 1
-    end
+    print graph, "\n"
+    dd = dd + 1
   end
-  print("             -------------------------+-------------------------\n\n")
+  print "             -------------------------+-------------------------\n\n"
 end
diff --git a/sample/dbm.rb b/sample/dbmtest.rb
index c77cc2065b..c77cc2065b 100644
--- a/sample/dbm.rb
+++ b/sample/dbmtest.rb
diff --git a/sample/dir.rb b/sample/dir.rb
index 1fc0bb2aa8..2465c4d68e 100644
--- a/sample/dir.rb
+++ b/sample/dir.rb
@@ -3,7 +3,7 @@
 dirp = Dir.open(".")
 for f in dirp
   $_ = f
-  if (~/^\./ || ~/~$/ || ~/\.o/)
+  unless (~/^\./ || ~/~$/ || ~/\.o/)
     print f, "\n"
   end
 end
diff --git a/sample/eval.rb b/sample/eval.rb
index da31b77153..216bf8ca39 100644
--- a/sample/eval.rb
+++ b/sample/eval.rb
@@ -1,9 +1,10 @@
 line = ''
 indent=0
+$stdout.sync = TRUE
 print "ruby> "
 while TRUE
   l = gets
-  if not l
+  unless l
     break if line == ''
   else
     line = line + l 
@@ -17,7 +18,7 @@ while TRUE
     if l =~ /^\s*end\b[^_]/
       indent -= 1
     end
-    if l =~ /{\s*(\|.*\|)?\s*$/
+    if l =~ /\{\s*(\|.*\|)?\s*$/
       indent += 1
     end
     if l =~ /^\s*\}/
@@ -31,7 +32,7 @@ while TRUE
   begin
     print eval(line).inspect, "\n"
   rescue
-    $! = 'exception raised' if not $!
+    $! = 'exception raised' unless $!
     print "ERR: ", $!, "\n"
   end
   break if not l
diff --git a/sample/freq.rb b/sample/freq.rb
index 0c433ae25a..d951591735 100644
--- a/sample/freq.rb
+++ b/sample/freq.rb
@@ -1,8 +1,8 @@
 # word occurrence listing
 # usege: ruby freq.rb file..
 freq = {}
-while gets()
-  while sub(/\w+/, '')
+while gets
+  while sub!(/\w+/, '')
     word = $&
     freq[word] +=1
   end
diff --git a/sample/from.rb b/sample/from.rb
index 2ef000face..d39bb70084 100755
--- a/sample/from.rb
+++ b/sample/from.rb
@@ -1,81 +1,76 @@
 #! /usr/local/bin/ruby
 
 require "parsedate"
-require "base64"
+require "kconv"
+require "mailread"
 
 include ParseDate
+include Kconv
 
-if ARGV[0] == '-w'
-  wait = TRUE
-  ARGV.shift
-end
+class String
 
-class Mail
+  public :kconv
 
-  def Mail.new(f)
-    if !f.kind_of?(IO)
-      f = open(f, "r")
-      me = super
-      f.close
-    else
-      me = super
-    end
-    return me
+  def kconv(code = Kconv::EUC)
+    Kconv.kconv(self, code, Kconv::AUTO)
   end
 
-  def initialize(f)
-    @header = {}
-    @body = []
-    while f.gets()
-      $_.chop!
-      next if /^From /	# skip From-line  
-      break if /^$/		# end of header
-      if /^(\S+):\s*(.*)/
-	@header[attr = $1.capitalize] = $2
-      elsif attr
-	sub(/^\s*/, '')
-	@header[attr] += "\n" + $_
-      end
-    end
-
-    return if ! $_
-
-    while f.gets()
-      break if /^From /
-      @body.push($_)
+  def kjust(len)
+    len += 1
+    me = self[0, len].ljust(len)
+    if me =~ /.$/ and $&.size == 2
+      me[-2, 2] = '  '
     end
+    me.chop!
   end
 
-  def header
-    return @header
-  end
+end
 
-  def body
-    return @body
-  end
+if ARGV[0] == '-w'
+  wait = TRUE
+  ARGV.shift
+end
 
+if ARGV.length == 0
+  user = ENV['USER']
+else
+  user = ARGV[0]
 end
 
-ARGV[0] = '/usr/spool/mail/' + ENV['USER'] if ARGV.length == 0
+[ENV['SPOOLDIR'], '/usr/spool', '/var/spool', '/usr', '/var'].each do |m|
+  break if File.exist? ARGV[0] = "#{m}/mail/#{user}" 
+end
 
 $outcount = 0;
 def fromout(date, from, subj)
   return if !date
   y = m = d = 0
-  esc = "\033\(B"
   y, m, d = parsedate(date) if date
-  from = "sombody@somewhere" if ! from
-  subj = "(nil)" if ! subj
-  from = decode_b(from)
-  subj = decode_b(subj)
-  printf "%-02d/%02d/%02d [%-28.28s%s] %-40.40s%s\n",y,m,d,from,esc,subj,esc
+  if from
+    from.gsub! /\n/, ""
+  else
+    from = "sombody@somewhere"
+  end
+  if subj
+    subj.gsub! /\n/, ""
+  else
+    subj = "(nil)"
+  end
+  if ENV['LANG'] =~ /sjis/i
+    lang = Kconv::SJIS
+  else
+    lang = Kconv::EUC
+  end
+  from = from.kconv(lang).kjust(28)
+  subj = subj.kconv(lang).kjust(40)
+  printf "%02d/%02d/%02d [%s] %s\n",y,m,d,from,subj
   $outcount += 1
 end
 
 for file in ARGV
   next if !File.exist?(file)
   f = open(file, "r")
-  while !f.eof
+  while !f.eof?
     mail = Mail.new(f)
     fromout mail.header['Date'], mail.header['From'], mail.header['Subject']
   end
diff --git a/sample/marshal.rb b/sample/mrshtest.rb
index 3d399ffe68..402b35ad55 100644
--- a/sample/marshal.rb
+++ b/sample/mrshtest.rb
@@ -1,13 +1,14 @@
 require "marshal"
 include Marshal
 a = 25.6;
-pt = Struct.new('point', :x,:y);
+pt = Struct.new('Point', :x,:y);
 x = pt.new(10, 10)
 y = pt.new(20, 20)
-rt = Struct.new('rectangle', :origin,:corner);
+rt = Struct.new('Rectangle', :origin,:corner);
 z = rt.new(x, y)
 c = Object.new
 s = [a, x, z, c, c, "fff"];
-print s.inspect;
-d = dumps(s);
-print load(d).inspect
+p s
+d = dump(s);
+p d
+p load(d)
diff --git a/sample/philos.rb b/sample/philos.rb
index ee0a8cd5fc..3ccb052532 100644
--- a/sample/philos.rb
+++ b/sample/philos.rb
@@ -30,7 +30,7 @@ def philosopher(n)
     $forks[n].lock
     if not $forks[(n+1)%N].try_lock
       $forks[n].unlock		# avoid deadlock
-      continue
+      next
     end
     $state[n*2] = ?|;
     $state[(n+1)%N*2] = ?|;
diff --git a/sample/regx.rb b/sample/regx.rb
index b9d8ca6e14..aaf4b5f1ee 100644
--- a/sample/regx.rb
+++ b/sample/regx.rb
@@ -17,7 +17,7 @@ while TRUE
   re = gets
   break if not re
   re.chop!
-  str.gsub! re, "#{st}&#{en}"
+  str.gsub! re, "#{st}\\&#{en}"
   print str, "\n"
 end
 print "\n"
diff --git a/sample/ruby-mode.el b/sample/ruby-mode.el
index 9dfde8588c..678a43ba77 100644
--- a/sample/ruby-mode.el
+++ b/sample/ruby-mode.el
@@ -1,13 +1,12 @@
 ;;;
 ;;;  ruby-mode.el -
 ;;;
-;;;  $Author$
-;;;  $Revision$
-;;;  $Date$
+;;;  $Author: matz$
+;;;  Time-stamp: <97/03/21 01:16:05 matz>
 ;;;  created at: Fri Feb  4 14:49:13 JST 1994
 ;;;
 
-(defconst ruby-mode-version "1.0.2")
+(defconst ruby-mode-version "1.0.7")
 
 (defconst ruby-block-beg-re
   "class\\|module\\|def\\|if\\|unless\\|case\\|while\\|until\\|for\\|begin\\|do"
@@ -25,15 +24,21 @@
   "then\\|else\\|elsif\\|when\\|rescue\\|ensure"
   )
 
+(defconst ruby-block-op-re
+  "and\\|or\\|not"
+  )
+
 (defconst ruby-block-end-re "end")
 
 (defconst ruby-delimiter
   (concat "[?$/%(){}#\"'`]\\|\\[\\|\\]\\|\\<\\("
-	    ruby-block-beg-re "\\|" ruby-block-end-re "\\)\\>")
+	  ruby-block-beg-re
+	  "\\|" ruby-block-end-re
+	  "\\)\\>\\|^=begin")
   )
 
 (defconst ruby-negative
-  (concat "^[ \t]*\\(\\(" ruby-block-mid-re "\\)\\|\\("
+  (concat "^[ \t]*\\(\\(" ruby-block-mid-re "\\)\\>\\|\\("
 	    ruby-block-end-re "\\)\\>\\|\\}\\|\\]\\)")
   )
 
@@ -59,8 +64,9 @@
   (define-key ruby-mode-map "\e\C-p" 'ruby-beginning-of-block)
   (define-key ruby-mode-map "\e\C-n" 'ruby-end-of-block)
   (define-key ruby-mode-map "\t" 'ruby-indent-command)
-  (define-key ruby-mode-map "\C-m" 'ruby-reindent-then-newline-and-indent)
-  (define-key ruby-mode-map "\C-j" 'newline))
+  (define-key ruby-mode-map "\C-c\C-e" 'ruby-insert-end)
+  (define-key ruby-mode-map "\C-j" 'ruby-reindent-then-newline-and-indent)
+  (define-key ruby-mode-map "\C-m" 'newline))
 
 (defvar ruby-mode-syntax-table nil
   "Syntax table in use in ruby-mode buffers.")
@@ -70,6 +76,7 @@
   (setq ruby-mode-syntax-table (make-syntax-table))
   (modify-syntax-entry ?\' "\"" ruby-mode-syntax-table)
   (modify-syntax-entry ?\" "\"" ruby-mode-syntax-table)
+  (modify-syntax-entry ?\` "\"" ruby-mode-syntax-table)
   (modify-syntax-entry ?# "<" ruby-mode-syntax-table)
   (modify-syntax-entry ?\n ">" ruby-mode-syntax-table)
   (modify-syntax-entry ?\\ "'" ruby-mode-syntax-table)
@@ -184,7 +191,10 @@ The variable ruby-indent-level controls the amount of indentation.
 	       (forward-word -1)
 	       (or 
 		(looking-at ruby-block-beg-re)
-		(looking-at ruby-block-mid-re)))))))
+		(looking-at ruby-block-op-re)
+		(looking-at ruby-block-mid-re))
+	       (goto-char (match-end 0))
+	       (looking-at "[^_]"))))))
 
 (defun ruby-parse-region (start end)
   (let ((indent-point end)
@@ -228,7 +238,7 @@ The variable ruby-indent-level controls the amount of indentation.
 	       ((looking-at "%")
 		(cond
 		 ((and (not (eobp)) (ruby-expr-beg)
-		       (looking-at "%[Qq\"'Rr/Xx`]\\(.\\)"))
+		       (looking-at "%[Qqrx]?\\(.\\)"))
 		  (setq w (buffer-substring (match-beginning 1)
 					    (match-end 1)))
 		  (cond
@@ -278,13 +288,16 @@ The variable ruby-indent-level controls the amount of indentation.
 		(setq depth (1- depth))
 		(goto-char pnt))
 	       ((looking-at ruby-block-end-re)
-		(if (and (not (bolp))
-			 (progn
-			   (forward-char -1)
-			   (eq ?_ (char-after (point))))
-			 (progn
-			   (goto-char pnt)
-			   (eq ?_ (char-after (point)))))
+		(if (or (and (not (bolp))
+			     (progn
+			       (forward-char -1)
+			       (eq ?_ (char-after (point)))))
+			(progn
+			  (goto-char pnt)
+			  (setq w (char-after (point)))
+			  (or (eq ?_ w)
+			      (eq ?! w)
+			      (eq ?? w))))
 		    nil
 		  (setq nest (cdr nest))
 		  (setq depth (1- depth)))
@@ -295,7 +308,7 @@ The variable ruby-indent-level controls the amount of indentation.
 		     (progn
 		       (forward-char -1)
 		       (not (eq ?_ (char-after (point))))))
-		 (save-excursion
+		 (progn
 		   (goto-char pnt)
 		   (setq w (char-after (point)))
 		   (and (not (eq ?_ w))
@@ -312,6 +325,11 @@ The variable ruby-indent-level controls the amount of indentation.
 		(if (looking-at "def\\s *[/`]")
 		    (goto-char (match-end 0))
 		  (goto-char pnt)))
+	       ((looking-at "^=begin")
+		(if (re-search-forward "^=end" indent-point t)
+		    (forward-line 1)
+		  (setq in-string (match-end 0))
+		  (goto-char indent-point)))
 	       (t
 		(error (format "bad string %s"
 			       (buffer-substring (point) pnt)
@@ -342,7 +360,7 @@ The variable ruby-indent-level controls the amount of indentation.
 	      (let ((column (current-column))
 		    (s (ruby-parse-region (point) indent-point)))
 		(cond
-		 ((> (nth 2 s) 0)
+		 ((and (nth 2 s) (> (nth 2 s) 0))
 		  (goto-char (cdr (nth 1 s)))
 		  (forward-word -1)
 		  (setq indent (+ (current-column) ruby-indent-level)))
@@ -358,7 +376,7 @@ The variable ruby-indent-level controls the amount of indentation.
 	      (setq indent (+ (current-column) (* (nth 2 state) ruby-indent-level)))))
 	    ))
 
-	 ((> (nth 2 state) 0)		; in nest
+	 ((and (nth 2 state)(> (nth 2 state) 0)) ; in nest
 	  (goto-char (cdr (nth 1 state)))
 	  (forward-word -1)		; skip back a keyword
 	  (cond
@@ -374,7 +392,7 @@ The variable ruby-indent-level controls the amount of indentation.
 	   (t
 	    (setq indent (+ (current-column) ruby-indent-level)))))
 
-	 ((< (nth 2 state) 0)		; in negative nest
+	 ((and (nth 2 state) (< (nth 2 state) 0)) ; in negative nest
 	  (setq indent (+ (current-column) (* (nth 2 state) ruby-indent-level)))))
 
 	(cond
@@ -385,7 +403,8 @@ The variable ruby-indent-level controls the amount of indentation.
 	  (beginning-of-line)
 	  (cond 
 	   ((re-search-forward ruby-negative eol t)
-	    (setq indent (- indent ruby-indent-level)))
+	    (and (not (eq ?_ (char-after (match-end 0))))
+		 (setq indent (- indent ruby-indent-level))))
 	   ;;operator terminated lines
 	   ((and
 	     (save-excursion
@@ -396,33 +415,41 @@ The variable ruby-indent-level controls the amount of indentation.
 		      (save-excursion	;except non-block braces
 			(goto-char (cdr (nth 1 state)))
 			(or (bobp) (forward-char -1))
-			(not (ruby-expr-beg))))))	
-	    (beginning-of-line)
-	    (skip-chars-backward " \t\n")
-	    (beginning-of-line)		; goto beginning of non-empty line
+			(not (ruby-expr-beg))))))
+	    ;; goto beginning of non-empty no-comment line
+	    (let (end done)
+	      (while (not done)
+		(skip-chars-backward " \t\n")
+		(setq end (point))
+		(beginning-of-line)
+		(if (re-search-forward "^\\s *#" end t)
+		    (beginning-of-line)
+		  (setq done t))))
 	    (setq bol (point))
 	    (end-of-line)
 	    (skip-chars-backward " \t")
 	    (or (bobp) (forward-char -1))
-	    (and (looking-at ruby-operator-chars)
-		 (or (not (or (eq ?/ (char-after (point)))))
-		     (null (nth 0 (ruby-parse-region parse-start (point)))))
-		 (save-excursion
-		   (goto-char parse-start))
-		 (not (eq (char-after (1- (point))) ?$))
-		 (or (not (eq ?| (char-after (point))))
-		     (save-excursion
-		       (or (eolp) (forward-char -1))
-		       (and (search-backward "|")
-			    (skip-chars-backward " \t\n")
-			    (and (not (eolp))
-				 (progn
-				   (forward-char -1)
-				   (not (looking-at "\\{")))
-				 (progn
-				   (forward-word -1)
-				   (not (looking-at "do\\>[^_]")))))))
-		 (setq indent (+ indent ruby-indent-level)))))))
+	    (and
+	     (or (and (looking-at ruby-symbol-chars)
+		      (skip-chars-backward ruby-symbol-chars)
+		      (looking-at ruby-block-op-re))
+		 (and (looking-at ruby-operator-chars)
+		      (or (not (or (eq ?/ (char-after (point)))))
+			  (null (nth 0 (ruby-parse-region parse-start (point)))))
+		      (not (eq (char-after (1- (point))) ?$))
+		      (or (not (eq ?| (char-after (point))))
+			  (save-excursion
+			    (or (eolp) (forward-char -1))
+			    (and (search-backward "|")
+				 (skip-chars-backward " \t\n")
+				 (and (not (eolp))
+				      (progn
+					(forward-char -1)
+					(not (looking-at "\\{")))
+				      (progn
+					(forward-word -1)
+					(not (looking-at "do\\>[^_]")))))))))
+	     (setq indent (+ indent ruby-indent-level)))))))
 	indent)))
  
 (defun ruby-electric-brace (arg)
@@ -450,7 +477,7 @@ Returns t unless search stops due to end of buffer."
   "Move forward to next end of defun.
 An end of a defun is found by moving forward from the beginning of one."
   (interactive "p")
-  (and (re-search-forward (concat "^\\(" ruby-block-end-re "\\)\\b")
+  (and (re-search-forward (concat "^\\(" ruby-block-end-re "\\)\\b[^_]")
 			  nil 'move (or arg 1))
        (progn (beginning-of-line) t))
   (forward-line 1))
@@ -512,21 +539,91 @@ An end of a defun is found by moving forward from the beginning of one."
       (save-excursion
 	(ruby-indent-line)))))
 
-(if (featurep 'hilit19)
-    (hilit-set-mode-patterns
-     'ruby-mode
-     '(("[^$\\?]\\(\"[^\\\"]*\\(\\\\\\(.\\|\n\\)[^\\\"]*\\)*\"\\)" 1 string)
-       ("[^$\\?]\\('[^\\']*\\(\\\\\\(.\\|\n\\)[^\\']*\\)*'\\)" 1 string)
-       ("[^$\\?]\\(`[^\\`]*\\(\\\\\\(.\\|\n\\)[^\\`]*\\)*`\\)" 1 string)
-       ("^\\s *#.*$" nil comment)
-       ("[^$@?\\]\\(#[^$@{].*$\\)" 1 comment)
-       ("[^a-zA-Z_]\\(\\?\\(\\\\[CM]-\\)*.\\)" 1 string)
-       ("^\\s *\\(require\\|load\\).*$" nil include)
-       ("^\\s *\\(include\\|alias\\|undef\\).*$" nil decl)
-       ("^\\s *\\<\\(class\\|def\\|module\\)\\>" "[)\n;]" defun)
-       ("[^_]\\<\\(begin\\|case\\|else\\|elsif\\|end\\|ensure\\|for\\|if\\|unless\\|rescue\\|then\\|when\\|while\\|until\\|do\\)\\>[^_]" 1 defun)
-       ("[^_]\\<\\(and\\|break\\|next\\|raise\\|fail\\|in\\|not\\|or\\|redo\\|retry\\|return\\|super\\|yield\\)\\>[^_]" 1 keyword)
-       ("[^_]\\<\\(self\\|nil\\|[A-Z][a-zA-Z_0-9]*\\)\\>[^_]" 1 define)
-       ("\\$\\(.\\|\\sw+\\)" nil type)
-       ("[$@].[a-zA-Z_0-9]*" nil struct)
-       ("^__END__" nil label))))
+(defun ruby-insert-end ()
+  (interactive)
+  (insert "end")
+  (ruby-indent-line t)
+  (end-of-line))
+
+(cond
+ ((featurep 'hilit19)
+  (hilit-set-mode-patterns
+   'ruby-mode
+   '(("[^$\\?]\\(\"[^\\\"]*\\(\\\\\\(.\\|\n\\)[^\\\"]*\\)*\"\\)" 1 string)
+     ("[^$\\?]\\('[^\\']*\\(\\\\\\(.\\|\n\\)[^\\']*\\)*'\\)" 1 string)
+     ("[^$\\?]\\(`[^\\`]*\\(\\\\\\(.\\|\n\\)[^\\`]*\\)*`\\)" 1 string)
+     ("^\\s *#.*$" nil comment)
+     ("[^$@?\\]\\(#[^$@{].*$\\)" 1 comment)
+     ("[^a-zA-Z_]\\(\\?\\(\\\\[CM]-\\)*.\\)" 1 string)
+     ("^\\s *\\(require\\|load\\).*$" nil include)
+     ("^\\s *\\(include\\|alias\\|undef\\).*$" nil decl)
+     ("^\\s *\\<\\(class\\|def\\|module\\)\\>" "[)\n;]" defun)
+     ("[^_]\\<\\(begin\\|case\\|else\\|elsif\\|end\\|ensure\\|for\\|if\\|unless\\|rescue\\|then\\|when\\|while\\|until\\|do\\)\\>[^_]" 1 defun)
+     ("[^_]\\<\\(and\\|break\\|next\\|raise\\|fail\\|in\\|not\\|or\\|redo\\|retry\\|return\\|super\\|yield\\|self\\|nil\\)\\>[^_]" 1 keyword)
+     ("\\$\\(.\\|\\sw+\\)" nil type)
+     ("[$@].[a-zA-Z_0-9]*" nil struct)
+     ("^__END__" nil label))))
+
+ ((featurep 'font-lock)
+  (or (boundp 'font-lock-variable-name-face)
+      (setq font-lock-variable-name-face font-lock-type-face))
+  (defvar ruby-font-lock-keywords
+    (list
+     (cons (concat
+	    "\\(^\\|[^_]\\)\\b\\("
+	    (mapconcat
+	     'identity
+	     '("alias"
+	       "and"
+	       "begin"
+	       "break"
+	       "case"
+	       "class"
+	       "do"
+	       "elsif"
+	       "else"
+	       "fail"
+	       "ensure"
+	       "for"
+	       "end"
+	       "if"
+	       "in"
+	       "module"
+	       "next"
+	       "nil"
+	       "not"
+	       "or"
+	       "raise"
+	       "redo"
+	       "rescue"
+	       "retry"
+	       "return"
+	       "then"
+	       "self"
+	       "super"
+	       "unless"
+	       "undef"
+	       "until"
+	       "when"
+	       "while"
+	       )
+	     "\\|")
+	    "\\)[ \n\t()]")
+	   2)
+     ;; variables
+     '("nil\\|self\\|TRUE\\|FALSE"
+       0 font-lock-variable-name-face)
+     ;; variables
+     '("\\[$@].\\([a-zA-Z0-9_]\\)"
+       0 font-lock-variable-name-face)
+     ;; constants
+     '("\\b[A-Z]+[a-zA-Z0-9_]*"
+       0 font-lock-type-face)
+     ;; functions
+     '("\\bdef[ \t]+[a-zA-Z_]+[a-zA-Z0-9_]*[?!]?"
+       0 font-lock-function-name-face))
+    "*Additional expressions to highlight in ruby mode.")
+  (add-hook 'ruby-mode-hook
+	    (lambda ()
+	      (setq font-lock-keywords ruby-font-lock-keywords)
+	      (font-lock-mode 1)))))
diff --git a/sample/rubydb2x.el b/sample/rubydb2x.el
new file mode 100644
index 0000000000..a74265fb0e
--- /dev/null
+++ b/sample/rubydb2x.el
@@ -0,0 +1,104 @@
+(require 'gud)
+(provide 'rubydb)
+
+;; ======================================================================
+;; rubydb functions
+
+;;; History of argument lists passed to rubydb.
+(defvar gud-rubydb-history nil)
+
+(defun gud-rubydb-massage-args (file args)
+  (cons "-I" (cons "." (cons "-r" (cons "debug" (cons file args))))))
+
+;; There's no guarantee that Emacs will hand the filter the entire
+;; marker at once; it could be broken up across several strings.  We
+;; might even receive a big chunk with several markers in it.  If we
+;; receive a chunk of text which looks like it might contain the
+;; beginning of a marker, we save it here between calls to the
+;; filter.
+(defvar gud-rubydb-marker-acc "")
+
+(defun gud-rubydb-marker-filter (string)
+  (save-match-data
+    (setq gud-marker-acc (concat gud-marker-acc string))
+    (let ((output ""))
+      
+      ;; Process all the complete markers in this chunk.
+      (while (string-match "\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
+                           gud-marker-acc)
+        (setq
+         
+         ;; Extract the frame position from the marker.
+         gud-last-frame
+         (cons (substring gud-marker-acc (match-beginning 1) (match-end 1))
+               (string-to-int (substring gud-marker-acc
+                                         (match-beginning 2)
+                                         (match-end 2))))
+         
+         ;; Append any text before the marker to the output we're going
+         ;; to return - we don't include the marker in this text.
+         output (concat output
+                        (substring gud-marker-acc 0 (match-beginning 0)))
+         
+         ;; Set the accumulator to the remaining text.
+         gud-marker-acc (substring gud-marker-acc (match-end 0))))
+      
+      ;; Does the remaining text look like it might end with the
+      ;; beginning of another marker?  If it does, then keep it in
+      ;; gud-marker-acc until we receive the rest of it.  Since we
+      ;; know the full marker regexp above failed, it's pretty simple to
+      ;; test for marker starts.
+      (if (string-match "\032.*\\'" gud-marker-acc)
+          (progn
+            ;; Everything before the potential marker start can be output.
+            (setq output (concat output (substring gud-marker-acc
+                                                   0 (match-beginning 0))))
+            
+            ;; Everything after, we save, to combine with later input.
+            (setq gud-marker-acc
+                  (substring gud-marker-acc (match-beginning 0))))
+        
+        (setq output (concat output gud-marker-acc)
+              gud-marker-acc ""))
+      
+      output)))
+  
+(defun gud-rubydb-find-file (f)
+  (find-file-noselect f))
+
+(defvar rubydb-command-name "ruby"
+  "File name for executing ruby.")
+
+;;;###autoload
+(defun rubydb (command-line)
+  "Run rubydb on program FILE in buffer *gud-FILE*.
+The directory containing FILE becomes the initial working directory
+and source-file directory for your debugger."
+  (interactive
+   (list (read-from-minibuffer "Run rubydb (like this): "
+                               (if (consp gud-rubydb-history)
+                                   (car gud-rubydb-history)
+                                 (concat rubydb-command-name " "))
+                               nil nil
+                               '(gud-rubydb-history . 1))))
+
+  (gud-overload-functions '((gud-massage-args . gud-rubydb-massage-args)
+                            (gud-marker-filter . gud-rubydb-marker-filter)
+                            (gud-find-file . gud-rubydb-find-file)
+                            ))
+  (gud-common-init command-line)
+
+  (gud-def gud-break  "b %l"         "\C-b" "Set breakpoint at current line.")
+;  (gud-def gud-remove "clear %l"     "\C-d" "Remove breakpoint at current line")
+  (gud-def gud-step   "s"            "\C-s" "Step one source line with display.")
+  (gud-def gud-next   "n"            "\C-n" "Step one line (skip functions).")
+  (gud-def gud-cont   "c"            "\C-r" "Continue with display.")
+  (gud-def gud-finish "finish"       "\C-f" "Finish executing current function.")
+  (gud-def gud-up     "up %p"        "<" "Up N stack frames (numeric arg).")
+  (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")
+  (gud-def gud-print  "p %e"         "\C-p" "Evaluate ruby expression at point.")
+
+  (setq comint-prompt-regexp "^(rdb:-) ")
+  (setq paragraph-start comint-prompt-regexp)
+  (run-hooks 'rubydb-mode-hook)
+  )
diff --git a/sample/rubydb3x.el b/sample/rubydb3x.el
new file mode 100644
index 0000000000..9d4e31f90e
--- /dev/null
+++ b/sample/rubydb3x.el
@@ -0,0 +1,104 @@
+(require 'gud)
+(provide 'rubydb)
+
+;; ======================================================================
+;; rubydb functions
+
+;;; History of argument lists passed to rubydb.
+(defvar gud-rubydb-history nil)
+
+(defun gud-rubydb-massage-args (file args)
+  (cons "-r" (cons "debug" args)))
+
+;; There's no guarantee that Emacs will hand the filter the entire
+;; marker at once; it could be broken up across several strings.  We
+;; might even receive a big chunk with several markers in it.  If we
+;; receive a chunk of text which looks like it might contain the
+;; beginning of a marker, we save it here between calls to the
+;; filter.
+(defvar gud-rubydb-marker-acc "")
+
+(defun gud-rubydb-marker-filter (string)
+  (setq gud-marker-acc (concat gud-marker-acc string))
+  (let ((output ""))
+
+    ;; Process all the complete markers in this chunk.
+    (while (string-match "\032\032\\([^:\n]*\\):\\([0-9]*\\):.*\n"
+			 gud-marker-acc)
+      (setq
+
+       ;; Extract the frame position from the marker.
+       gud-last-frame
+       (cons (substring gud-marker-acc (match-beginning 1) (match-end 1))
+	     (string-to-int (substring gud-marker-acc
+				       (match-beginning 2)
+				       (match-end 2))))
+
+       ;; Append any text before the marker to the output we're going
+       ;; to return - we don't include the marker in this text.
+       output (concat output
+		      (substring gud-marker-acc 0 (match-beginning 0)))
+
+       ;; Set the accumulator to the remaining text.
+       gud-marker-acc (substring gud-marker-acc (match-end 0))))
+
+    ;; Does the remaining text look like it might end with the
+    ;; beginning of another marker?  If it does, then keep it in
+    ;; gud-marker-acc until we receive the rest of it.  Since we
+    ;; know the full marker regexp above failed, it's pretty simple to
+    ;; test for marker starts.
+    (if (string-match "\032.*\\'" gud-marker-acc)
+	(progn
+	  ;; Everything before the potential marker start can be output.
+	  (setq output (concat output (substring gud-marker-acc
+						 0 (match-beginning 0))))
+
+	  ;; Everything after, we save, to combine with later input.
+	  (setq gud-marker-acc
+		(substring gud-marker-acc (match-beginning 0))))
+
+      (setq output (concat output gud-marker-acc)
+	    gud-marker-acc ""))
+
+    output))
+
+(defun gud-rubydb-find-file (f)
+  (save-excursion
+    (let ((buf (find-file-noselect f)))
+      (set-buffer buf)
+      (gud-make-debug-menu)
+      buf)))
+
+(defvar rubydb-command-name "ruby"
+  "File name for executing ruby.")
+
+;;;###autoload
+(defun rubydb (command-line)
+  "Run rubydb on program FILE in buffer *gud-FILE*.
+The directory containing FILE becomes the initial working directory
+and source-file directory for your debugger."
+  (interactive
+   (list (read-from-minibuffer "Run rubydb (like this): "
+			       (if (consp gud-rubydb-history)
+				   (car gud-rubydb-history)
+				 (concat rubydb-command-name " "))
+			       nil nil
+			       '(gud-rubydb-history . 1))))
+
+  (gud-common-init command-line 'gud-rubydb-massage-args
+		   'gud-rubydb-marker-filter 'gud-rubydb-find-file)
+
+  (gud-def gud-break  "b %l"         "\C-b" "Set breakpoint at current line.")
+;  (gud-def gud-remove "clear %l"     "\C-d" "Remove breakpoint at current line")
+  (gud-def gud-step   "s"            "\C-s" "Step one source line with display.")
+  (gud-def gud-next   "n"            "\C-n" "Step one line (skip functions).")
+  (gud-def gud-cont   "c"            "\C-r" "Continue with display.")
+  (gud-def gud-finish "finish"       "\C-f" "Finish executing current function.")
+  (gud-def gud-up     "up %p"        "<" "Up N stack frames (numeric arg).")
+  (gud-def gud-down   "down %p"      ">" "Down N stack frames (numeric arg).")
+  (gud-def gud-print  "p %e"         "\C-p" "Evaluate ruby expression at point.")
+
+  (setq comint-prompt-regexp "^(rdb:-) ")
+  (setq paragraph-start comint-prompt-regexp)
+  (run-hooks 'rubydb-mode-hook)
+  )
diff --git a/sample/svr.rb b/sample/svr.rb
index 14aded8c3f..c866407eb0 100644
--- a/sample/svr.rb
+++ b/sample/svr.rb
@@ -18,7 +18,7 @@ while TRUE
       socks.push(ns)
       print(s, " is accepted\n")
     else
-      if s.eof
+      if s.eof?
 	print(s, " is gone\n")
 	s.close
 	socks.delete(s)
diff --git a/sample/test.rb b/sample/test.rb
index aacddbc56a..c940f0023f 100644
--- a/sample/test.rb
+++ b/sample/test.rb
@@ -96,13 +96,13 @@ tmp.close
 # test break
 
 tmp = open("while_tmp", "r")
-ok(tmp.type == "File")
+ok(tmp.kind_of?(File))
 
 while tmp.gets()
   break if /vt100/
 end
 
-ok(!tmp.eof && /vt100/)
+ok(!tmp.eof? && /vt100/)
 tmp.close
 
 # test next
@@ -112,7 +112,7 @@ while tmp.gets()
     next if /vt100/;
     $bad = 1 if /vt100/;
 end
-ok(!(!tmp.eof || /vt100/ || $bad))
+ok(!(!tmp.eof? || /vt100/ || $bad))
 tmp.close
 
 # test redo
@@ -126,9 +126,19 @@ while tmp.gets()
   $bad = 1 if /vt100/;
   $bad = 1 if /VT100/;
 end
-ok(tmp.eof && !$bad)
+ok(tmp.eof? && !$bad)
 tmp.close
 
+sum=0
+for i in 1..10
+  sum += i
+  i -= 1
+  if i > 0
+    redo
+  end
+end
+ok(sum == 220)
+
 # test interval
 $bad = FALSE
 tmp = open("while_tmp", "r")
@@ -173,33 +183,23 @@ rescue
 end
 ok(TRUE)
 
-$bad = TRUE
-$string = "this must be handled no.3"
-begin
-  fail $string
-rescue
-ensure
-  $bad = FALSE
-  ok(TRUE)
-end
-ok(FALSE) if $bad || $! != $string
-
 # exception in rescue clause
+$string = "this must be handled no.3"
 begin
   begin
-    fail "this must be handled no.4"
-  rescue 
     fail "exception in rescue clause"
+  rescue 
+    fail $string
   end
   ok(FALSE)
 rescue
-  ok(TRUE)
+  ok(TRUE) if $! == $string
 end
   
 # exception in ensure clause
 begin
   begin
-    fail "this must be handled no.5"
+    fail "this must be handled no.4"
   ensure 
     fail "exception in ensure clause"
   end
@@ -222,7 +222,7 @@ ok(!$bad)
 $bad = TRUE
 begin
   begin
-    fail "this must be handled no.5"
+    fail "this must be handled no.6"
   ensure
     $bad = FALSE
   end
@@ -429,8 +429,15 @@ ok($x == [1, 2, 3, 1, 2, 3, 4, 5, 6, 7])
 check "bignum"
 def fact(n)
   return 1 if n == 0
-  return n*fact(n-1)
+  f = 1
+  while n>0
+    f *= n
+    n -= 1
+  end
+  p f
+  return f
 end
+fact(3)
 $x = fact(40)
 ok($x == $x)
 ok($x == fact(40))
@@ -445,11 +452,48 @@ ok($x == -815915283247897734345611269596115894272000000000)
 ok(2-(2**32) == -(2**32-2))
 ok(2**32 - 5 == (2**32-3)-2)
 
+$good = TRUE;
+for i in 1000..3000
+  $good = FALSE if ((1<<i) != (2**i))
+end
+ok($good)
+
+$good = TRUE;
+n1=1
+for i in 0..3000
+  $good = FALSE if ((1<<i) != n1)
+  n1 *= 2
+end
+ok($good)
+
+$good = TRUE;
+n2=n1
+for i in 3000..-1
+  n1 = n1 / 2
+  n2 = n2 >> 1
+  $good = FALSE if (n1 != n2)
+end
+ok($good)
+
+$good = TRUE;
+for i in 3500..4000
+  n1 = 1 << i;
+  $good = FALSE if ((n1**2-1) / (n1+1) != (n1-1))
+end
+ok($good)
+
 check "string & char"
 
 ok("abcd" == "abcd")
 ok("abcd" =~ "abcd")
 ok("abcd" === "abcd")
+ok(("abc" =~ /^$/) == FALSE)
+ok(("abc\n" =~ /^$/) == FALSE)
+ok(("abc" =~ /^d*$/) == FALSE)
+ok(("abc" =~ /d*$/) == 3)
+ok("" =~ /^$/)
+ok("\n" =~ /^$/)
+ok("a\n\n" =~ /^$/)
 
 $foo = "abc"
 ok("#$foo = abc" == "abc = abc")
@@ -467,6 +511,13 @@ ok(foo * 5 == '-----')
 ok(foo * 1 == '-')
 ok(foo * 0 == '')
 
+$x = "a.gif"
+ok($x.sub(/.*\.([^\.]+)$/, '\1') == "gif")
+ok($x.sub(/.*\.([^\.]+)$/, 'b.\1') == "b.gif")
+ok($x.sub(/.*\.([^\.]+)$/, '\2') == "")
+ok($x.sub(/.*\.([^\.]+)$/, 'a\2b') == "ab")
+ok($x.sub(/.*\.([^\.]+)$/, '<\&>') == "<a.gif>")
+
 # character constants(assumes ASCII)
 ok("a"[0] == ?a)
 ok(?a == ?a)
@@ -582,7 +633,7 @@ if defined? Process.kill
   check "signal"
 
   $x = 0
-  trap "SIGINT", proc{|sig| $x = sig}
+  trap "SIGINT", proc{|sig| $x = 2}
   Process.kill "SIGINT", $$
   sleep 0.1
   ok($x == 2)
@@ -596,12 +647,13 @@ if defined? Process.kill
   rescue
     x = $!
   end
-  ok(x =~ /Interrupt/)
+  ok(x && x =~ /Interrupt/)
 else
   ok(FALSE)
 end
 
 check "eval"
+ok(eval("") == nil)
 $bad=FALSE
 eval 'while FALSE; $bad = TRUE; print "foo\n" end'
 ok(!$bad)
@@ -696,7 +748,6 @@ tmp.close
 done = TRUE
 tmp = open("script_tmp", "r")
 while tmp.gets
-  print "c: ", $_
   if $_.to_i % 5 != 0
     done = FALSE
     break
@@ -859,6 +910,22 @@ ok(x.baz == "foo+foo")
 # check for cache
 ok(x.baz == "foo+foo")
 
+class Alias3<Alias2
+  def foo
+    defined? super
+  end
+  def bar
+    defined? super
+  end
+  def quux
+    defined? super
+  end
+end
+x = Alias3.new
+ok(!x.foo)
+ok(x.bar)
+ok(!x.quux)
+
 check "gc"
 begin
   1.upto(10000) {
diff --git a/sample/tkbiff.rb b/sample/tkbiff.rb
index 24860c11a6..d2d7bf7beb 100644
--- a/sample/tkbiff.rb
+++ b/sample/tkbiff.rb
@@ -116,7 +116,7 @@ def pop_up
   outcount = 0;
   $list.delete 0, 'end'
   f = open($spool, "r")
-  while !f.eof
+  while !f.eof?
     mail = Mail.new(f)
     date, from, subj =  mail.header['Date'], mail.header['From'], mail.header['Subject']
     next if !date
diff --git a/sample/tkfrom.rb b/sample/tkfrom.rb
index 9a53ea2d72..b0ef8995ca 100644
--- a/sample/tkfrom.rb
+++ b/sample/tkfrom.rb
@@ -9,7 +9,7 @@ class Mail
   def Mail.new(f)
     if !f.kind_of?(IO)
       f = open(f, "r")
-      me = super
+      me = super(f)
       f.close
     else
       me = super
@@ -22,7 +22,7 @@ class Mail
     @body = []
     while f.gets()
       $_.chop!
-      next if /^From /	# skip From-line  
+      next if /^From /		# skip From-line  
       break if /^$/		# end of header
       if /^(\S+):\s*(.*)/
 	@header[attr = $1.capitalize] = $2
@@ -50,7 +50,15 @@ class Mail
 
 end
 
-ARGV[0] = '/usr/spool/mail/' + ENV['USER'] if ARGV.length == 0
+if ARGV.length == 0
+  if ENV['MAIL']
+    ARGV[0] = ENV['MAIL']
+  elsif ENV['USER']
+    ARGV[0] = '/usr/spool/mail/' + ENV['USER']
+  elsif ENV['LOGNAME']
+    ARGV[0] = '/usr/spool/mail/' + ENV['LOGNAME']
+  end
+end
 
 require "tk"
 list = scroll = nil
@@ -90,8 +98,10 @@ for file in ARGV
   f = open(file, "r")
   while !f.eof
     mail = Mail.new(f)
-    date, from, subj =  mail.header['Date'], mail.header['From'], mail.header['Subject']
+    date =  mail.header['Date']
     next if !date
+    from =  mail.header['From']
+    subj =  mail.header['Subject']
     y = m = d = 0
     y, m, d = parsedate(date) if date
     from = "sombody@somewhere" if ! from