version 0.95v0_95

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

Thu Dec 21 00:56:57 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.95 - fj.sourcesに

	* eval.c (rb_eval): rescueのロジックをrb_rescue()に一元化．

Wed Dec 20 19:30:58 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* Makefile.in: 不要なコンパイルの回避(より完全に)．

	* class.c (singleton_class_new): `single'->`singleton'

Tue Dec 19 07:14:33 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* io.c (closed?): IOがcloseされているかどうかを知る述語．

	* parse.y (primary): 特異メソッドの引数のlex_stateが不適切．

	* lib/tk.rb: tcl->rubyの変換関数の用意．

	* ext/extmk.rb.in (install): installの2重コンパイルの回避．

	* array.c (range_beg_len): range指定の不適切なエラーを訂正．

	* string.c (str_aref): range指定のバグを削除．

	* lib/tk.rb (tk_split_list): Tclのリストに対応．

Mon Dec 18 09:58:12 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.94

	* dln.c (dln_load): HP対応(未確認)

	* eval.c (Init_Proc): BlockをProcに改名．

Sat Dec 16 13:46:14 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (rb_eval): retryでイテレータの再実行ができるように．

Fri Dec 15 17:14:30 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c: proc:lambdaの親しみやすい別名

Thu Dec 14 17:21:55 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (dyna_var_asgn): イテレータブロック内で最初に初期化された
	  ローカル変数の有効範囲をそのブロック内に限定．これでlambdaと呼べ
	  ないことはない．

Wed Dec 13 02:30:58 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* gc.c: autoloadのマークミス．

	* lib/tk.rb: wishからの複数行の戻り値に対応

	* lib/tkcomposite.rb: 複合widget

	* variable.c (rb_class2path): ICLASSに対応してなかった．

	* eval.c (ruby_run): exit(0)のバグ

Sat Dec  9 01:21:24 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ext/marshal/marshal.c (dumps|load): 文字列に対する入出力を可能に
	  した(ただし実はファイル経由なのだ)．

Fri Dec  8 18:29:11 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ext/marshal/marshal.c: シンボルを一度だけ初期化する．

Thu Dec  7 07:58:50 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y (yylex): 第1引数の正規表現の認識にエラーがあった．同時に
	  状態数を減らした．

	* string.c (str_sub): 置換でスキップ幅が大きすぎた．

Wed Dec  6 15:14:23 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* string.c (str_sub_method): sub/gsub(!なし)は置換が行なわれなかっ
	  た時，置換前の文字列を返す．

Tue Dec  5 00:55:15 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y (yylex): 括弧を省略した時の引数展開の`*'に対応．

	* eval.c (ruby_run): EXITハンドラ内での例外に対応．

	* bignum.c (big_cmp): BignumとFixnumの比較で落ちる．

Mon Dec  4 14:21:18 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y (call_op): コンパイル時の定数式の展開をやめた．労多くし
	  て益少ないと判断したので．

Thu Nov 30 01:35:15 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* lib/tk.rb: {Radio,Check}Buttonのvariableの実装．

	* eval.c (rb_yield_0): Block.callがネストした時のバグ．

	* io.c (f_select): 常に配列3つをふくむ配列を返すように

	* lib/tk.rb: fileeventをruby側で実装．

Wed Nov 29 17:53:23 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* variable.c (rb_ivar_get): selfを常に指定するように．

Tue Nov 14 00:07:29 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* lib/tk.rb: Tk4.0対応

Mon Nov 13 16:23:32 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.93

Thu Nov  9 23:26:01 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* gc.c (gc_mark): モジュールのMixinのマーク忘れ．

	* parse.y (f_arglist): メソッド定義の引数を括弧で括らなくても良い
	  ようにした．

Wed Nov  8 00:17:51 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (rb_yield_0): 未初期化のローカル変数があった．

	* eval.c (rb_eval): pendig signalのチェックをeval実行後に行うよう
	  にした．でないとシグナルの発生と検出が遠く離れてしまう事がある．

	* parse.y: class文のsuperclass部を定数から式に拡張した．

	* lib/tk.rb: Tkのほぼ全ウィンドウクラスに対応．キャンバスとテキス
	  ト上のオブジェクトが残っている．

Tue Nov  7 08:18:37 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* signal.c (trap): ブロックを指定できるように．

Mon Nov  6 16:44:00 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (f_caller): 呼出元の情報を得る．

	* ext/tkutil/tkutil.c: wishのstderr出力を監視することで，エラー処
	  理を行う．

	* ext/tkutil/tkutil.c: wishとの通信部をCで記述．

Sat Nov  4 01:12:59 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* sample/ruby-mode.el (ruby-calculate-indent): インデントの計算を
	  もう少しスマートにした(正規表現のチェック，継続行のチェック)．

	* eval.c (rb_call): 無限再帰を避けるため，関数のネストレベルの制限
	  を行なう．

	* lib/tk.rb: Tkインターフェース．まだ不完全だが．

	* eval.c (rb_yield_0): 空のBlockのバグ．

	* sample/ruby-mode.el (ruby-calculate-indent): 行末の演算子による
	  行継続に対応．

Fri Nov  3 12:56:21 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (rb_call): 本体が空の関数の実行にバグ．

	* parse.y (var_extend): 文字列の末尾の変数展開のバグ．

	* variable.c (rb_gvar_set): traceの評価時にに変数値を与えるように．

	* eval.c (f_require): ruby scriptのrequireにbug．

	* variable.c (rb_const_get): モジュールのinclude対策．

Thu Oct 19 13:56:06 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* dln.c (dln_load): HP対応でのtypo.

Wed Oct 18 17:39:39 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.92

	* object.c (krn_type): オブジェクトの動的な型を返すメソッド．

Tue Oct 17 00:48:18 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ruby.c (proc_options): -X オプション．chdirだけを行う．

	* re.c (reg_search): 漢字コードを途中で変更できるように．コンパイ
	  ル時のコードが変更された時にはマッチの直前に正規表現の再コンパイ
	  ルを行う．定数KCODEから変数$KCODEへ．

	* parse.y: ()のなかにcompexprを許す．

	* re.c (reg_search): メモリリークを直した．

Fri Oct 13 13:19:19 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* string.c (str_sub): 文字列置換にバグ．

	* string.c (str_strip_bang): 文字列の後ろの長さの調整が行われてい
	  なかった．

	* re.c (reg_search): $&, $1...のはローカルに束縛するようになった．
	  呼び出したメソッドでのマッチは現スコープの$&などの値に影響しない．
	  マッチの情報をスコープ外で得たいときには$~を使って束縛情報を持ち
	  出す必要がある．

Thu Oct 12 00:33:33 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* re.c (reg_search): String:split, String:indexでは$&, $1...が変化
	  しないようにした．

	* io.c (rb_str_setter): setterの仕様が変更になっていた．

	* variable.c (f_trace_var): 第2引数を省略してイテレータとして呼べ
	  るように．

Wed Oct 11 11:50:59 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.91

	* variable.c (var_setter): 引数が間違っていた．致命的バグ．

	* io.c (pipe_open): $stderrの値が変更されている時にはそちらを
	  子プロセスのstderrに設定する．

Mon Oct  9 13:06:33 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* object.c (mod_to_s): モジュール内のモジュールは`::'を使った表現
	  で表示されるように．

	* variable.c (rb_gvar_set): 代入によるループが発生しないように，
	  trace内での代入ではtraceを評価しない．

	* struct.c (struct_equal): structのequal判定にクラスの一致を含めた．

Sat Oct  7 00:18:32 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (rb_eval): defined?の機能を拡張(yieldのチェック，superの
	  存在など)．

Fri Oct  6 12:06:47 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.90

	* st.c (st_foreach): 要素を削除した時に要素数が変化していなかった．

	* hash.c (hash_values): バグ修正．keysを返していた…．

	* parse.y (call_op): defined? の引数では定数の畳み込みを行わない
	  (チェックする前にコンパイルエラーになっては困る)．

	* スコープ生成の一部見直し．

Thu Oct  5 00:29:43 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* 関数とクラスの命名規則を変更した．関数名，変数名の全面書き換え．

	* gc.c (looks_pointerp): ヒープチェックの高速化．

	* struct.c (Fstruct_aset): 構造体に対する`[]='．
	(struct_set): 構造体メンバに対する代入．

Wed Oct  4 09:54:07 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.89

	* eval.c (Frequire): ダイナミックロードのエラーチェックを厳しく．

	* struct.c: structの構造を完全に書き換えた．以前は順序付きの
	  id->valueの連想配列であったが，今度は構造体毎に新しいクラスを生
	  成するようにした．

	* parse.y: `::'の意味をAssocの生成からクラス(モジュール)内の定数ア
	  クセスへ変更．

	* assoc.c: なくす．

Tue Oct  3 13:31:08 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* variable.c (Ftrace_var): trace_var, 大域変数への書き込みhookを設
	  定する．

	* variable.c: global_entryの構成を書き換えた．これでtrace_varを実
	  装できる．

	* file.c (Ffile_stat): "&"で直前のfstatの結果も参照できるように．

Fri Sep 29 14:15:13 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.88

	* dln.c (dln_load): AIXとHPに対応したコードを入れた(動作は未確認)．

	* ext/extmk.rb.in: 必要に応じて，定数EXTLIBを定義するように．

	* dln.c (dln_load): dln独立に書き換える．将来の拡張用．
	(load_1): dln_a_outにおいてソースコードでライブラリを明示的にロー
	ドする必要がないように変更した．

Thu Sep 28 13:31:37 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* sample/ruby-mode.el: もっとましなhilit19対応(正規表現)．

Wed Sep 27 04:12:44 1995  Takahasi Mamoru <taka@soum.co.jp>

	* sample/test.rb: echoで-nを使わないように(SysV対策)．

	* ext/extmk.rb.in: sub -> sub!

Tue Sep 26 19:12:42 1995  Yasuo OHBA  <jammy@csg.mes.co.jp>

	* dln.c (dln_find_1): `.', `..'から始まるパスに対応した.

Mon Sep 25 12:33:03 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.87

Sat Sep 23 10:00:18 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (Fmod_modfunc): メソッドをprivateにし，同時に特異メソッド
	  も定義するメソッド．パッケージ的使い方のモジュール用．

Fri Sep 22 11:02:44 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* lib/find.rb: findを提供するライブラリ

	* variable.c (rb_define_variable): hookの設定を分離．
	(add_hook): 1変数に対して複数のhookを設定できるように．

Thu Sep 21 00:22:11 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* string.c (Fstr_frozen): 文字列が更新不可かどうかをチェックする述
	  語メソッド．

	* hash.c (Fhash_aset): keyが文字列の時，キーの内容が変化しないよう
	  に，dupしてfreezeする．

Wed Sep 20 16:12:44 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.86

	* ext/extmk.rb.in (have_header): キャッシュにバグ．

	* ext/extmk.rb.in (have_library): 引数の順序が変わった．

Thu Sep 14 18:00:59 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* object.c (obj_is_instance_of): is_member_ofから名称変更．

Wed Sep 13 15:44:35 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* string.c (Fstr_tr_bang): 範囲外の文字に対する変換バグ．

Tue Sep 12 14:27:58 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* file.c (Sfile_expand_path): expand_file_name -> expand_pathに名
	  称変更．

	* enum.c (Fenum_member): includes? -> member? に名称変更．

	* string.c (Fstr_each_byte): StringはByteArrayであるという基本に戻っ
	  て，eachの定義をeach_byteに変更した．今までのeachはeach_lineでア
	  クセスできる．

Mon Sep 11 18:31:17 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* file.c (cache_stat): ファイル名として"&"を指定すると直前の
	  stat(2)の結果を再利用するように．

Fri Sep  8 14:18:51 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ruby.texi: `!', `?'に対応してアップデート．

	* parse.y: defined -> defined?

	* file.c: FileOpの一文字メソッドをなくす．一文字テストはtestメソッ
	  ドにまかせる．

	* parse.y (yylex): 変数名の後ろに`?'も許す．述語メソッドの後ろに
	  `?'を追加する．

Thu Sep  7 20:01:33 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* string.c: 文字列の中身を更新するメソッドの名前の終りに`!'を付加．
	  `!'の無いバージョンも用意した．

	* parse.y: 変数名の後ろに`!'を許す．

Wed Sep  6 14:12:19 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.85

	* string.c (Fstr_dup): 文字列の複製を作る
	(Fstr_freeze): 文字列の更新不可属性を設定できるように．
	(Fsub/Fgsub): $_の内容をdupしてから置換を行うように．

	* ruby.h (CLONESETUP): flagsの状態もコピー

Tue Sep  5 01:27:50 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* sample/test.rb: 失敗の検出を厳しく．

Fri Aug 25 14:31:02 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* process.c (Ffork): イテレータとしても動作するように．

	* version 0.84

	* signal.c (sig_beg): ハンドラが設定されている時には再設定しない．

	* ext/extmk.rb.in (create_makefile): shared objectのリンクの際に
	  `-l'オプションを指定するように．

	* signal.c (trap): `EXIT'で終了処理を行う設定が出来る．

Wed Aug 16 00:13:22 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* signal.c (sig_beg): デフォルトではbegin節の中でだけSIGINTを捕捉
	  するように変更．

	* io.c (io_ctl): fcntlを持たないシステムにも対応．

	* 各ディレクトリに分散していたMANIFESTをまとめた．拡張モジュール毎
	  には必要．

	* string.c (Sstr_new,str_sub,Fstr_crypt): 引数を自動的に文字列に変
	  換するように．

Sat Aug 12 00:44:02 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* string.c (Fstr_crypt): PD cryptを用意した．

Fri Aug 11 14:37:03 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* assoc.c (Fassoc_clone): assocもcloneできるように．

	* io.c: マクロREAD_DATA_PENDINGの定義を変更(Linux対応)

	* io.c (io_fptr_finalize): ftprの開放時の処理を指定できるように．

Wed Aug  9 16:52:41 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* eval.c (rb_provided): 複数のfeatureをロードすると無限ループに落
	  ちるという単純な(しかし凶悪な)ミス．

	* ext/extmk.rb.in (install): dlopen対応を行った．今までdlnにしか十
	  分に対応していなかった．

Tue Aug  8 14:17:06 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.83

Mon Aug  7 12:47:41 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y: resque -> rescue．恥ずかしいがtypoを残しておくわけには
	  いかないよなあ．なんで今まで気がつかなかったのか…．

Thu Aug  3 18:18:05 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* missing/nt.c: NT移植用の関数群をまとめた．

	* variable.c (rb_const_get): また例外を発生するようにした．defined
	  がある以上例外を発生させない理由がないので(例外が発生した方がタ
	  イプミスの検出などの点で有利)．

	* variable.c (Fautoload): autoloadを実装．今度は使えるか．

Mon Jul 31 15:44:21 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y (arg_ambiguous): 第1引数のあいまいさを警告(-vオプション
	  で有効)．

	* eval.c (rb_eval): `-v'オプションをつけて`def'が呼ばれると不必要
	  なエラーメッセージが出た．

	* parse.y (yylex): メソッドの第1引数の判定をもうちょっと賢くした．

Fri Jul 28 19:04:43 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y (yylex): `+/-/['の直前に空白が来るかどうかで動作を変更し
	  た(混乱のもとか?)

Wed Jul 26 09:21:23 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.82a

	* sprintf.c (Fsprintf): `%s'で'\0'を含む文字列に対応．

	* pack.c (Fpck_pack): packの要素確保のバグ．

	* eval.c (Floop): 無限ループのイテレータ．

	* io.c (next_argv): 存在しないファイル名が指定された時のエラー処理
	  が行われていなかった．

Mon Jul 24 17:37:34 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.82

	* ext/extmk.rb.in (install): 拡張モジュールをstatic linkする場合は
	  そのモジュールが既にrequireされたのと同じようにfeatureを設定する．
	  これで拡張モジュールの機能が必要な時には(static linkされているか
	  どうかにかかわらず)requireすればよくなる．

	* eval.c (Frequire): `$"'に格納する文字列をフルパスでなくフィーチャ
	  名とする．rubyスクリプトをロードした時には`.rb'，オブジェクトを
	  ロードした時には`.o'をフィーチャ名に付加する．lispのrequireと
	  provideの働きに(少し)近い．

Thu Jul 20 12:50:05 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* Makefile.in (test): make testができるように．

	* struct.c (struct_new): typo.

	* eval.c (rb_eval): `defined'を追加．メソッド/変数/定数の定義状態
	  を知る事が出来る．

Wed Jul 19 18:04:01 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.81

Mon Jul 17 14:53:51 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* variable.c (rb_const_get): 未初期化のCONSTANTの値をnilにした．し
	  かし，今後また例外に戻す可能性はある．要はoptionalなクラス/モジュー
	  ルが存在するかチェックしたいだけなんだな．

	* st.c (int): grow_factorを固定にした(大嶋さんのマシンに対応)．

Fri Jul 14 00:48:40 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* ext/extmk.rb.in: キャッシュのバグを修正．

	* parse.y (var_extend): #{$数字}に対応した．

	* dln.c (dln_load_1): `Init_FILENAME'だけを有効に．`init_*'は今後
	  実行しない．

	* ext/etc/etc.c : Etcモジュールを拡張モジュールとして分離．実はNT
	  対応への布石だったりするかもしれない．

Tue Jul 11 17:12:48 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* gcc -Wallで出たwarningを元にソースを変更．

	* signal.c (trap): typo.

Fri Jul  7 10:08:51 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.80

	* ruby.texi: texinfo documentを提供．specとruby.1は無くなった．

	* signal.c (Ftrap): 割込み禁止中の例外発生に対応．

	* eval.c (Flambda): Blockオブジェクトを返す．Block.newと同義．

Thu Jul  6 00:35:03 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* signal.c (Ftrap): SIG_DFLの処理を変更．SIGINTへのデフォルトハン
	ドラを用意(例外を発生する)．

	* file.c (Sfile_expand_fname): パス名を絶対パスに展開するメソッド．
	(Sfile_basename): basenameを得るメソッド．拡張子も外せる．
	(Sfile_dirname): basenameの反対．

	* eval.c (rb_call): argument評価中の例外発生に対応．

	* file.c (Ftest): `M', `A', `C'を追加.

Tue Jul  4 12:36:33 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* file.c (Ftest): ファイルテスト用メソッド．

	* ruby.c (proc_options): `-r'オプションを追加．

	* parse.y (f_args): デフォルト引数を追加．

	* eval.c (rb_call): 該当する引数が無い時，rest引数の値をnilに．

	* numeric.c (num_equal): 数値以外との比較で例外が発生していた．
	  FALSEを返すように．

	* eval.c (masign): 多重代入のrest部の動作がおかしかった．

Sat Jun 17 01:03:16 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* parse.y (gettable): 未初期化のローカル変数の参照(独立した識別子)
	  は正式にメソッド呼び出しとした．

	* parse.y (read_escape): tokenbufを使わないように修正．それにとも
	  ない，`\C-x',`\M-x'などのエスケープ表現を復活．これでドキュメン
	  トと実際の処理系が一致した．

Thu Jun 15 15:42:00 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* re.c (re_regcomp): cacheのチェックを改善．

Mon Jun 12 18:50:51 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* version 0.79

Sat Jun 10 00:25:01 1995  Yukihiro Matsumoto  <matz@caelum.co.jp>

	* re.c (re_regcomp): cache判定に`$='の値も反映させた．

	* sample/test.rb: test suite作成．

Fri Jun  9 15:58:34 1995  Yukihiro Matsumoto  <matz@ix-02>

	* re.c (re_regcomp): cacheの判定が間違っていた．

Fri Jun  9 00:01:35 1995  Yukihiro Matsumoto  (matz@dyna)

	* eval.c (rb_yield): block構造体に初期化していないメンバ(iter)があっ
	  たのでイテレータのネストが正しく動作しなかった．

Thu Jun  8 00:59:03 1995  Yukihiro Matsumoto  (matz@dyna)

	* re.c (=~): String以外との比較がFALSEを返すように(例外を発生して
	  いた)．

	* extmk.rb.in: 判定した値をファイルにキャッシュするようにした．

	* assoc.c (to_a): to_aメソッドが再定義されていなかった．

	* eval.c (rb_eval): 初期化されていないローカル変数へのアクセスを引
	  数の無いメソッド呼び出しと解釈する．ただし，(現状では)メソッドが
	  定義されていない場合，エラーにせず変数未初期化のwaringを出して
	  nilを返している．「ruby -pe print」などが実行できるという意味で
	  はありがたいこの仕様は，しかし今後の検討が必要である．-- メソッ
	  ド呼び出しとするのを止めるか(以前の仕様)，いつもメソッド呼び出し
	  とする(未定義ならばエラー)か，今の仕様で行くか．

	* eval.c (rb_eval): 初期化されていないローカル変数へのアクセスで
	  (evalなどで)初期化された事が分かった時には以後初期化されたローカ
	  ル変数とみなす．

Wed Jun  7 11:58:12 1995  Yukihiro Matsumoto  <matz@ix-02>

	* eval.c (rb_fail): 例外処理後も`$!'をクリアしないように．
	  (rb_fail): `$!'変数に最後に改行を追加しない．

	* io.c (Fprint): privateメソッドに変更．引数を取らない時の動作を変
	  更(`$_'を出力する)．
	  (Fio_print): 出力先指定のprintメソッド．
	  (Fio_printf): 出力先指定のprintfメソッド．

	* parse.y: not演算子の追加．優先順位の低い`!'演算子．

Mon Jun  5 19:00:55 1995  Yukihiro Matsumoto  <matz@ix-02>

	* version 0.78

Fri Jun  2 17:52:03 1995  Yukihiro Matsumoto  <matz@ix-02>

	* ruby.c (proc_options): -Iオプションで`$:'への追加される順番を修
	  正した．

Fri Jun  2 00:36:34 1995  Yukihiro Matsumoto  (matz@dyna)

	* parse.y: while修飾子の動作を通常のwhileと同じにした．ただし，
	  begin式へのwhile修飾子だけはdo..while型のループとなる．

Wed May 31 18:36:30 1995  Yukihiro Matsumoto  <matz@ix-02>

	* version 0.77

Mon May 29 18:39:37 1995  Yukihiro Matsumoto  <matz@ix-02>

	* ext/extmk.rb.in (install): 拡張モジュールもインストールできるよ
	  うに．

Fri May 26 14:43:01 1995  Yukihiro Matsumoto  <matz@ix-02>

	* process.c (Fsystem): 戻り値をサブプロセスの失敗/成功を表す真偽値
	  にした．終了ステータスは`$?'で得る．

Tue May 23 10:58:11 1995  Yukihiro Matsumoto  <matz@ix-02>

	* string.c (Fstr_upto): 無限ループに陥らないように．

	* parse.y (cond): `||'などの右辺に制御式が書けるように，条件式がか
	  ならずしも値を持たなくても良いようにした．

	* ext/marshal/marshal.c: オブジェクトの読み書きをメソッドの再定義
	  でコントロールできるように．インスタンスが`_dump_to'というメソッ
	  ドを定義している時はそちらを使うように．

	* ext/extmk.rb.in: static linkも設定できるような仕様にした．
	  ext/Setupというファイルにディレクトリ名を記述するとそのディレク
	  トリに存在するモジュールはstatic linkされる(はず)．

	* eval.c (rb_eval): `..'を文法に組み込み，`..'と`...'の動作をperl
	  に合わせた．

Sat May 20 01:22:48 1995  Yukihiro Matsumoto  (matz@dyna)

	* io.c (select): timeout時と割込み時の動作の明確化．

Co-authored-by: Takahasi Mamoru <taka@soum.co.jp>
Co-authored-by: Yasuo OHBA <jammy@csg.mes.co.jp>

1 files changed, 320 insertions, 224 deletions

diff --git a/io.c b/io.c
index d9c93889f6..47bd4b0fb0 100644
--- a/io.c
+++ b/io.c
@@ -14,15 +14,27 @@
 #include "io.h"
 #include <ctype.h>
 #include <errno.h>
-#include <sys/time.h>
+
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <sys/ioctl.h>
 
+#ifdef HAVE_SYS_TIME_H
+# include <sys/time.h>
+#else
+struct timeval {
+        long    tv_sec;         /* seconds */
+        long    tv_usec;        /* and microseconds */
+};
+#endif
+#ifdef HAVE_VFORK_H
+#include <vfork.h>
+#endif
+
 VALUE rb_ad_string();
 
-VALUE C_IO;
-extern VALUE C_File;
+VALUE cIO;
+extern VALUE cFile;
 
 VALUE rb_stdin, rb_stdout, rb_stderr, rb_defout;
 
@@ -46,9 +58,6 @@ io_write(obj, str)
     VALUE out;
     int n;
 
-    if (TYPE(str) != T_STRING)
-	str = (struct RString*)obj_as_string(str);
-
     GetOpenFile(obj, fptr);
     if (!(fptr->mode & FMODE_WRITABLE)) {
 	Fail("not opened for writing");
@@ -57,6 +66,8 @@ io_write(obj, str)
     f = (fptr->f2) ? fptr->f2 : fptr->f;
     if (f == NULL) Fail("closed stream");
 
+    if (TYPE(str) != T_STRING)
+	str = (struct RString*)obj_as_string(str);
     if (str->len == 0) return INT2FIX(0);
 
     n = fwrite(str->ptr, sizeof(char), str->len, f);
@@ -71,7 +82,7 @@ io_write(obj, str)
 }
 
 static VALUE
-Fio_puts(obj, str)
+io_puts(obj, str)
     VALUE obj, str;
 {
     io_write(obj, str);
@@ -79,7 +90,7 @@ Fio_puts(obj, str)
 }
 
 static VALUE
-Fio_flush(obj)
+io_flush(obj)
     VALUE obj;
 {
     OpenFile *fptr;
@@ -98,7 +109,7 @@ Fio_flush(obj)
 }
 
 static VALUE
-Fio_eof(obj)
+io_eof(obj)
     VALUE obj;
 {
     OpenFile *fptr;
@@ -126,7 +137,7 @@ Fio_eof(obj)
 }
 
 static VALUE
-Fio_sync(obj)
+io_sync(obj)
     VALUE obj;
 {
     OpenFile *fptr;
@@ -136,7 +147,7 @@ Fio_sync(obj)
 }
 
 static VALUE
-Fio_set_sync(obj, mode)
+io_set_sync(obj, mode)
     VALUE obj, mode;
 {
     OpenFile *fptr;
@@ -152,7 +163,7 @@ Fio_set_sync(obj, mode)
 }
 
 static VALUE
-Fio_fileno(obj)
+io_fileno(obj)
     VALUE obj;
 {
     OpenFile *fptr;
@@ -194,7 +205,7 @@ read_all(port)
 }
 
 static VALUE
-Fio_read(argc, argv, obj)
+io_read(argc, argv, obj)
     int argc;
     VALUE *argv;
     VALUE obj;
@@ -234,7 +245,7 @@ VALUE rb_lastline;
 static VALUE lineno;
 
 static VALUE
-Fio_gets(obj)
+io_gets(obj)
     VALUE obj;
 {
     OpenFile *fptr;
@@ -264,7 +275,7 @@ Fio_gets(obj)
 	rslen = 1;
     }
 
-    if (rslen == 0 && c == '\n') {
+    if (rslen == 0) {
 	do {
 	    TRAP_BEG;
 	    c = getc(f);
@@ -279,7 +290,6 @@ Fio_gets(obj)
     {
 	char buf[8192];
 	char *bp, *bpe = buf + sizeof buf - 3;
-	char *ptr;
 	int append = 0;
 
       again:
@@ -323,7 +333,7 @@ Fio_gets(obj)
     }
 
   return_gets:
-    if (rslen == 0 && c == '\n') {
+    if (rslen == 0) {
 	while (c != EOF) {
 	    TRAP_BEG;
 	    c = getc(f);
@@ -343,19 +353,19 @@ Fio_gets(obj)
 }
 
 static VALUE
-Fio_each(obj)
+io_each_line(obj)
     VALUE obj;
 {
     VALUE str;
 
-    while (str = Fio_gets(obj)) {
+    while (str = io_gets(obj)) {
 	rb_yield(str);
     }
     return Qnil;
 }
 
 static VALUE
-Fio_each_byte(obj)
+io_each_byte(obj)
     VALUE obj;
 {
     OpenFile *fptr;
@@ -381,7 +391,7 @@ Fio_each_byte(obj)
 }
 
 static VALUE
-Fio_getc(obj)
+io_getc(obj)
     VALUE obj;
 {
     OpenFile *fptr;
@@ -407,43 +417,78 @@ Fio_getc(obj)
 }
 
 static VALUE
-Fio_isatty(obj)
+io_isatty(obj)
     VALUE obj;
 {
     OpenFile *fptr;
 
+#ifndef NT
     GetOpenFile(obj, fptr);
     if (fptr->f == NULL) Fail("closed stream");
     if (isatty(fileno(fptr->f)) == 0)
 	return FALSE;
-
+#endif
     return TRUE;
 }
 
-static VALUE
-Fio_close(obj)
-    VALUE obj;
-{
+static void
+fptr_finalize(fptr)
     OpenFile *fptr;
-
-    GetOpenFile(obj, fptr);
-
+{
+    if (fptr->f != NULL) {
+	fclose(fptr->f);
+    }
     if (fptr->f2 != NULL) {
 	fclose(fptr->f2);
     }
-    if (fptr->f != NULL) {
-	fclose(fptr->f);
+    if (fptr->path) {
+	free(fptr->path);
+	fptr->path = NULL;
     }
-    fptr->f = fptr->f2 = NULL;
     if (fptr->pid) {
 	rb_syswait(fptr->pid);
 	fptr->pid = 0;
     }
+}
+
+void
+io_fptr_finalize(fptr)
+    OpenFile *fptr;
+{
+    if (fptr->finalize) {
+	(*fptr->finalize)(fptr);
+	fptr->finalize = 0;
+    }
+    else {
+	fptr_finalize(fptr);
+    }
+    fptr->f = fptr->f2 = NULL;
+}
+
+VALUE
+io_close(obj)
+    VALUE obj;
+{
+    OpenFile *fptr;
+
+    GetOpenFile(obj, fptr);
+    io_fptr_finalize(fptr);
+
     return Qnil;
 }
 
 static VALUE
-Fio_syswrite(obj, str)
+io_closed(obj)
+    VALUE obj;
+{
+    OpenFile *fptr;
+
+    GetOpenFile(obj, fptr);
+    return fptr->f?FALSE:TRUE;
+}
+
+static VALUE
+io_syswrite(obj, str)
     VALUE obj, str;
 {
     OpenFile *fptr;
@@ -468,7 +513,7 @@ Fio_syswrite(obj, str)
 }
 
 static VALUE
-Fio_sysread(obj, len)
+io_sysread(obj, len)
     VALUE obj, len;
 {
     OpenFile *fptr;
@@ -496,29 +541,11 @@ Fio_sysread(obj, len)
     return str;
 }
 
-void
-io_free_OpenFile(fptr)
-    OpenFile *fptr;
-{
-    if (fptr->f != NULL) {
-	fclose(fptr->f);
-    }
-    if (fptr->f2 != NULL) {
-	fclose(fptr->f2);
-    }
-    if (fptr->path) {
-	free(fptr->path);
-    }
-    if (fptr->pid) {
-	rb_syswait(fptr->pid);
-    }
-}
-
 static VALUE
-Fio_binmode(obj)
+io_binmode(obj)
     VALUE obj;
 {
-#ifdef MSDOS
+#ifdef NT
     OpenFile *fptr;
 
     GetOpenFile(obj, fptr);
@@ -530,6 +557,7 @@ Fio_binmode(obj)
 
 VALUE obj_alloc();
 
+int
 io_mode_flags(mode)
     char *mode;
 {
@@ -564,8 +592,7 @@ rb_fdopen(fd, mode)
 
     f = fdopen(fd, mode);
     if (f == NULL) {
-	if (errno = EMFILE) {
-	    gc();
+	if (errno == EMFILE) {
 	    f = fdopen(fd, mode);
 	}
 	if (f == NULL) {
@@ -575,22 +602,45 @@ rb_fdopen(fd, mode)
     return f;
 }
 
+#ifdef NT
+static void
+pipe_finalize(fptr)
+    OpenFile *fptr;
+{
+    if (fptr->f != NULL) {
+	pclose(fptr->f);
+    }
+    fptr->f = fptr->f2 = NULL;
+}
+#endif
+
 static VALUE
 pipe_open(pname, mode)
     char *pname, *mode;
 {
+    int modef = io_mode_flags(mode);
     VALUE port;
     OpenFile *fptr;
 
-    int pid, pr[2], pw[2];
-    int doexec;
+#ifdef NT
+    FILE *f = popen(pname, mode);
+
+    if (f == NULL) rb_sys_fail(pname);
 
-    port = obj_alloc(C_IO);
+    port = obj_alloc(cIO);
     MakeOpenFile(port, fptr);
-    fptr->mode = io_mode_flags(mode);
+    fptr->finalize = pipe_finalize;
+
+    if (modef & FMODE_READABLE) fptr->f  = f;
+    if (modef & FMODE_WRITABLE) fptr->f2 = f;
+    fptr->mode = modef | FMODE_SYNC;
+    return port;
+#else
+    int pid, pr[2], pw[2];
+    volatile int doexec;
 
-    if (((fptr->mode & FMODE_READABLE) && pipe(pr) == -1) ||
-	((fptr->mode & FMODE_WRITABLE) && pipe(pw) == -1))
+    if (((modef & FMODE_READABLE) && pipe(pr) == -1) ||
+	((modef & FMODE_WRITABLE) && pipe(pw) == -1))
 	rb_sys_fail(Qnil);
 
     doexec = (strcmp("-", pname) != 0);
@@ -603,18 +653,26 @@ pipe_open(pname, mode)
   retry:
     switch (pid = (doexec?vfork():fork())) {
       case 0:			/* child */
-	if (fptr->mode & FMODE_READABLE) {
+	if (modef & FMODE_READABLE) {
 	    close(pr[0]);
 	    dup2(pr[1], 1);
 	    close(pr[1]);
 	}
-	if (fptr->mode & FMODE_WRITABLE) {
+	if (modef & FMODE_WRITABLE) {
 	    close(pw[1]);
 	    dup2(pw[0], 0);
 	    close(pw[0]);
 	}
 
 	if (doexec) {
+	    VALUE fd = io_fileno(rb_stderr);
+	    int f = FIX2INT(fd);
+
+	    if (f != 2) {
+		close(2);
+		dup2(f, 2);
+		close(f);
+	    }
 	    rb_proc_exec(pname);
 	    _exit(127);
 	}
@@ -622,25 +680,28 @@ pipe_open(pname, mode)
 
       case -1:			/* fork failed */
 	if (errno == EAGAIN) {
-	    sleep(5);
+	    sleep(1);
 	    goto retry;
 	}
+	close(pr[0]); close(pw[1]);
+	rb_sys_fail(pname);
 	break;
 
       default:			/* parent */
-	if (fptr->mode & FMODE_READABLE) close(pr[1]);
-	if (fptr->mode & FMODE_WRITABLE) close(pw[0]);
-    }
-    if (pid == -1) {
-	close(pr[0]); close(pw[1]);
-	rb_sys_fail(Qnil);
+	port = obj_alloc(cIO);
+	MakeOpenFile(port, fptr);
+	if (modef & FMODE_READABLE) close(pr[1]);
+	if (modef & FMODE_WRITABLE) close(pw[0]);
+	fptr->mode = modef;
+	fptr->mode |= FMODE_SYNC;
     }
 
     fptr->pid = pid;
-    if (fptr->mode & FMODE_READABLE) fptr->f  = rb_fdopen(pr[0], "r");
-    if (fptr->mode & FMODE_WRITABLE) fptr->f2 = rb_fdopen(pw[1], "w");
+    if (modef & FMODE_READABLE) fptr->f  = rb_fdopen(pr[0], "r");
+    if (modef & FMODE_WRITABLE) fptr->f2 = rb_fdopen(pw[1], "w");
 
     return port;
+#endif
 }
 
 static VALUE
@@ -658,7 +719,7 @@ io_open(fname, mode)
 }
 
 static VALUE
-Fopen(argc, argv, self)
+f_open(argc, argv, self)
     int argc;
     VALUE *argv;
     VALUE self;
@@ -683,7 +744,18 @@ Fopen(argc, argv, self)
 }
 
 static VALUE
-Fprintf(argc, argv)
+io_printf(argc, argv, out)
+    int argc;
+    VALUE argv[];
+    VALUE out;
+{
+    rb_funcall(out, id_write, 1, f_sprintf(argc, argv));
+
+    return Qnil;
+}
+
+static VALUE
+f_printf(argc, argv)
     int argc;
     VALUE argv[];
 {
@@ -693,7 +765,7 @@ Fprintf(argc, argv)
     if (TYPE(argv[0]) == T_STRING) {
 	out = rb_defout;
     }
-    else if (obj_responds_to(argv[0], INT2FIX(id_write))) {
+    else if (rb_responds_to(argv[0], id_write)) {
 	out = argv[0];
 	argv++;
 	argc--;
@@ -701,63 +773,78 @@ Fprintf(argc, argv)
     else {
 	Fail("output must responds to `write'");
     }
-    rb_funcall(out, id_write, 1, Fsprintf(argc, argv));
+    rb_funcall(out, id_write, 1, f_sprintf(argc, argv));
 
     return Qnil;
 }
 
 static VALUE
-Fprint(argc, argv, self)
+io_print(argc, argv, out)
     int argc;
     VALUE *argv;
-    VALUE self;
+    VALUE out;
 {
     int i;
+    VALUE line;
 
-    /* if no argument given, print recv */
+    /* if no argument given, print `$_' */
     if (argc == 0) {
-	rb_funcall(self, id_print_on, 1, rb_defout);
+	argc = 1;
+	if (rb_lastline)
+	    argv = &rb_lastline;
+	else {
+	    line = str_new(0,0);
+	    argv = &line;
+	}
     }
-    else {
-	for (i=0; i<argc; i++) {
-	    if (OFS && i>0) {
-		io_write(rb_defout, OFS);
-	    }
-	    switch (TYPE(argv[i])) {
-	      case T_STRING:
-		io_write(rb_defout, argv[i]);
-		break;
-	      case T_ARRAY:
-		Fary_print_on(argv[i], rb_defout);
-		break;
-	      default:
-		rb_funcall(argv[i], id_print_on, 1, rb_defout);
-		break;
-	    }
+    for (i=0; i<argc; i++) {
+	if (OFS && i>0) {
+	    io_write(out, OFS);
+	}
+	switch (TYPE(argv[i])) {
+	  case T_STRING:
+	    io_write(out, argv[i]);
+	    break;
+	  case T_ARRAY:
+	    ary_print_on(argv[i], out);
+	    break;
+	  default:
+	    rb_funcall(argv[i], id_print_on, 1, out);
+	    break;
 	}
     }
     if (ORS) {
-	io_write(rb_defout, ORS);
+	io_write(out, ORS);
     }
 
     return Qnil;
 }
 
 static VALUE
-io_defset(obj, val)
-    VALUE obj, val;
+f_print(argc, argv)
+    int argc;
+    VALUE *argv;
+{
+    io_print(argc, argv, rb_defout);
+    return Qnil;
+}
+
+static VALUE
+io_defset(val, id)
+    VALUE val;
+    ID id;
 {
     if (TYPE(val) == T_STRING) {
 	val = io_open(RSTRING(val)->ptr, "w");
     }
-    if (!obj_is_kind_of(val, C_IO)) {
+    if (!obj_is_kind_of(val, cIO)) {
 	Fail("$< must be a file, %s given", rb_class2name(CLASS_OF(val)));
     }
     return rb_defout = val;
 }
 
 static VALUE
-Fprint_on(obj, port)
+f_print_on(obj, port)
     VALUE obj, port;
 {
     return io_write(port, obj);
@@ -768,7 +855,7 @@ prep_stdio(f, mode)
     FILE *f;
     int mode;
 {
-    VALUE obj = obj_alloc(C_IO);
+    VALUE obj = obj_alloc(cIO);
     OpenFile *fp;
 
     MakeOpenFile(obj, fp);
@@ -815,18 +902,23 @@ next_argv()
 	    else {
 		FILE *fr = fopen(fn, "r");
 
+		if (!fr) rb_sys_fail(fn);
 		if (inplace) {
 		    struct stat st, st2;
 		    VALUE str;
 		    FILE *fw;
 
 		    if (rb_defout != rb_stdout) {
-			Fio_close(rb_defout);
+			io_close(rb_defout);
 		    }
 		    fstat(fileno(fr), &st);
 		    if (*inplace) {
 			str = str_new2(fn);
+#ifdef NT
+			add_suffix(str, inplace);
+#else
 			str_cat(str, inplace, strlen(inplace));
+#endif
 			if (rename(fn, RSTRING(str)->ptr) < 0) {
 			    Warning("Can't rename %s to %s: %s, skipping file",
 				    fn, RSTRING(str)->ptr, strerror(errno));
@@ -860,15 +952,15 @@ next_argv()
 }
 
 static VALUE
-Fgets()
+f_gets()
 {
     VALUE line;
 
   retry:
     if (!next_argv()) return Qnil;
-    line = Fio_gets(file);
+    line = io_gets(file);
     if (line == Qnil && next_p != -1) {
-	Fio_close(file);
+	io_close(file);
 	next_p = 1;
 	goto retry;
     }
@@ -880,11 +972,11 @@ Fgets()
 }
 
 static VALUE
-Feof()
+f_eof()
 {
     if (init_p == 0 && !next_argv())
 	return TRUE;
-    if (Fio_eof(file)) {
+    if (io_eof(file)) {
 	next_p = 1;
 	return TRUE;
     }
@@ -892,19 +984,19 @@ Feof()
 }
 
 static VALUE
-Fgetc()
+f_getc()
 {
-    return Fio_getc(rb_stdin);
+    return io_getc(rb_stdin);
 }
 
 static VALUE
-Freadlines(obj)
+f_readlines(obj)
     VALUE obj;
 {
     VALUE line, ary;
 
     ary = ary_new();
-    while (line = Fgets(obj)) {
+    while (line = f_gets(obj)) {
 	ary_push(ary, line);
     }
 
@@ -912,15 +1004,15 @@ Freadlines(obj)
 }
 
 VALUE
-rb_check_str(val, id)
+rb_str_setter(val, id, var)
     VALUE val;
     ID id;
+    VALUE *var;
 {
-    if (val == Qnil) return TRUE;
-    if (TYPE(val) != T_STRING) {
+    if (val && TYPE(val) != T_STRING) {
 	Fail("value of %s must be String", rb_id2name(id));
     }
-    return TRUE;
+    return *var = val;
 }
 
 VALUE
@@ -929,15 +1021,12 @@ rb_xstring(str)
 {
     VALUE port, result;
     OpenFile *fptr;
-    int mask;
 
     Check_Type(str, T_STRING);
     port = pipe_open(str->ptr, "r");
     result = read_all(port);
 
-    GetOpenFile(port, fptr);
-    rb_syswait(fptr->pid);
-    fptr->pid = 0;
+    io_close(port);
 
     return result;
 }
@@ -945,25 +1034,22 @@ rb_xstring(str)
 struct timeval *time_timeval();
 
 #ifdef _STDIO_USES_IOSTREAM  /* GNU libc */
-#  ifdef _other_gbase
+#  ifdef _IO_fpos_t
 #    define READ_DATA_PENDING(fp) ((fp)->_IO_read_ptr < (fp)->_IO_read_end)
 #  else
 #    define READ_DATA_PENDING(fp) ((fp)->_gptr < (fp)->_egptr)
 #  endif
 #else
-#  if __SLBF
-#    define READ_DATA_PENDING(fp) (fp->_r > 0)
+#  ifdef FILE_COUNT
+#    define READ_DATA_PENDING(fp) ((fp)->FILE_COUNT > 0)
 #  else
-#    if STDSTDIO
-#      define READ_DATA_PENDING(fp) (fp->_cnt != 0)
-#    else
---------------> You Lose <--------------
-#    endif
+extern int ReadDataPending();
+#    define READ_DATA_PENDING(fp) ReadDataPending(fp)
 #  endif
 #endif
 
 static VALUE
-Fselect(argc, argv, obj)
+f_select(argc, argv, obj)
     int argc;
     VALUE *argv;
     VALUE obj;
@@ -971,7 +1057,7 @@ Fselect(argc, argv, obj)
     VALUE read, write, except, timeout, res, list;
     fd_set rset, wset, eset, pset;
     fd_set *rp, *wp, *ep;
-    struct timeval time, *tp, timerec;
+    struct timeval *tp, timerec;
     OpenFile *fptr;
     int i, max = 0, n;
     int interrupt = 0;
@@ -1049,21 +1135,17 @@ Fselect(argc, argv, obj)
     n = select(max, rp, wp, ep, tp);
     TRAP_END;
     if (n < 0) {
-	if (errno == EINTR) {
-	    if (tp == NULL) goto retry;
-	    interrupt = 1;
+	if (errno != EINTR) {
+	    rb_sys_fail(Qnil);
 	}
-	rb_sys_fail(Qnil);
+	if (tp == NULL) goto retry;
+	interrupt = 1;
     }
-    if (n == 0) return Qnil;
 
     res = ary_new2(3);
-    RARRAY(res)->ptr[0] = rp?ary_new():Qnil;
-    RARRAY(res)->len++;
-    RARRAY(res)->ptr[1] = wp?ary_new():Qnil;
-    RARRAY(res)->len++;
-    RARRAY(res)->ptr[2] = ep?ary_new():Qnil;
-    RARRAY(res)->len++;
+    ary_push(res, rp?ary_new():ary_new2(0));
+    ary_push(res, wp?ary_new():ary_new2(0));
+    ary_push(res, ep?ary_new():ary_new2(0));
 
     if (interrupt == 0) {
 
@@ -1139,16 +1221,23 @@ io_ctl(obj, req, arg, io_p)
     }
     arg->ptr[len] = 17;
     fd = fileno(fptr->f);
+#ifdef HAVE_FCNTL
     if ((io_p?ioctl(fd, cmd, arg->ptr):fcntl(fd, cmd, arg->ptr))<0) {
 	rb_sys_fail(fptr->path);
     }
+#else
+    if (!io_p) {
+	Bug("fcntl() not implemented");
+    }
+    if (ioctl(fd, cmd, arg->ptr)<0) rb_sys_fail(fptr->path);
+#endif
     if (arg->ptr[len] != 17) {
 	Fail("Return value overflowed string");
     }
 }
 
 static VALUE
-Fio_ioctl(obj, req, arg)
+io_ioctl(obj, req, arg)
     VALUE obj, req;
     struct RString *arg;
 {
@@ -1157,7 +1246,7 @@ Fio_ioctl(obj, req, arg)
 }
 
 static VALUE
-Fsyscall(argc, argv)
+f_syscall(argc, argv)
     int argc;
     VALUE *argv;
 {
@@ -1251,7 +1340,7 @@ Fsyscall(argc, argv)
 }
 
 static VALUE
-Farg_read(obj)
+arg_read(obj)
     VALUE obj;
 {
     VALUE str, str2;
@@ -1260,9 +1349,9 @@ Farg_read(obj)
     for (;;) {
       retry:
 	if (!next_argv()) return Qnil;
-	str2 = Fio_read(0, Qnil, file);
+	str2 = io_read(0, Qnil, file);
 	if (str2 == Qnil && next_p != -1) {
-	    Fio_close(file);
+	    io_close(file);
 	    next_p = 1;
 	    goto retry;
 	}
@@ -1274,15 +1363,15 @@ Farg_read(obj)
 }
 
 static VALUE
-Farg_getc()
+arg_getc()
 {
     VALUE byte;
 
   retry:
     if (!next_argv()) return Qnil;
-    byte = Fio_getc(file);
+    byte = io_getc(file);
     if (byte == Qnil && next_p != -1) {
-	Fio_close(file);
+	io_close(file);
 	next_p = 1;
 	goto retry;
     }
@@ -1291,144 +1380,151 @@ Farg_getc()
 }
 
 static VALUE
-Farg_each()
+arg_each_line()
 {
     VALUE str;
 
-    while (str = Fgets()) {
+    while (str = f_gets()) {
 	rb_yield(str);
     }
     return Qnil;
 }
 
 static VALUE
-Farg_each_byte()
+arg_each_byte()
 {
     VALUE byte;
 
-    while (byte = Farg_getc()) {
+    while (byte = arg_getc()) {
 	rb_yield(byte);
     }
     return Qnil;
 }
 
 static VALUE
-Farg_filename()
+arg_filename()
 {
     return filename;
 }
 
 static VALUE
-Farg_file()
+arg_file()
 {
     return file;
 }
 
-extern VALUE M_Enumerable;
-VALUE rb_readonly_hook();
+extern VALUE mEnumerable;
 
+void
 Init_IO()
 {
-    extern VALUE C_Kernel;
+    extern VALUE cKernel;
 
     id_write = rb_intern("write");
     id_fd = rb_intern("fd");
     id_print_on = rb_intern("print_on");
 
-    rb_define_private_method(C_Kernel, "syscall", Fsyscall, -1);
+    rb_define_private_method(cKernel, "syscall", f_syscall, -1);
 
-    rb_define_private_method(C_Kernel, "open", Fopen, -1);
-    rb_define_private_method(C_Kernel, "printf", Fprintf, -1);
-    rb_define_private_method(C_Kernel, "gets", Fgets, 0);
-    rb_define_alias(C_Kernel,"readline", "gets");
-    rb_define_private_method(C_Kernel, "eof", Feof, 0);
-    rb_define_private_method(C_Kernel, "getc", Fgetc, 0);
-    rb_define_private_method(C_Kernel, "select", Fselect, -1);
+    rb_define_private_method(cKernel, "open", f_open, -1);
+    rb_define_private_method(cKernel, "printf", f_printf, -1);
+    rb_define_private_method(cKernel, "print", f_print, -1);
+    rb_define_private_method(cKernel, "gets", f_gets, 0);
+    rb_define_alias(cKernel,"readline", "gets");
+    rb_define_private_method(cKernel, "eof", f_eof, 0);
+    rb_define_private_method(cKernel, "getc", f_getc, 0);
+    rb_define_private_method(cKernel, "select", f_select, -1);
 
-    rb_define_private_method(C_Kernel, "readlines", Freadlines, 0);
+    rb_define_private_method(cKernel, "readlines", f_readlines, 0);
 
-    rb_define_method(C_Kernel, "print_on", Fprint_on, 1);
-    rb_define_method(C_Kernel, "print", Fprint, -1);
+    rb_define_method(cKernel, "print_on", f_print_on, 1);
 
-    C_IO = rb_define_class("IO", C_Object);
-    rb_include_module(C_IO, M_Enumerable);
+    cIO = rb_define_class("IO", cObject);
+    rb_include_module(cIO, mEnumerable);
 
-    rb_define_variable("$;", &FS,  Qnil, rb_check_str, 0);
-    rb_define_variable("$,", &OFS, Qnil, rb_check_str, 0);
+    rb_define_hooked_variable("$;", &FS, 0, rb_str_setter);
+    rb_define_hooked_variable("$,", &OFS, 0, rb_str_setter);
 
     RS = str_new2("\n");
-    rb_define_variable("$/",  &RS, Qnil, rb_check_str, 0);
-    rb_define_variable("$\\", &ORS, Qnil, rb_check_str, 0);
+    rb_define_hooked_variable("$/", &RS, 0, rb_str_setter);
+    rb_define_hooked_variable("$\\", &ORS, 0, rb_str_setter);
+
+    rb_define_variable("$.", &lineno);
+    rb_define_variable("$_", &rb_lastline);
 
-    rb_define_variable("$.", &lineno, Qnil, Qnil, 0);
-    rb_define_variable("$_", &rb_lastline, Qnil, Qnil, 0);
+    rb_define_method(cIO, "print", io_print, -1);
 
-    rb_define_method(C_IO, "each",  Fio_each, 0);
-    rb_define_method(C_IO, "each_byte",  Fio_each_byte, 0);
+    rb_define_method(cIO, "each",  io_each_line, 0);
+    rb_define_method(cIO, "each_line",  io_each_line, 0);
+    rb_define_method(cIO, "each_byte",  io_each_byte, 0);
 
-    rb_define_method(C_IO, "syswrite", Fio_syswrite, 1);
-    rb_define_method(C_IO, "sysread",  Fio_sysread, 1);
+    rb_define_method(cIO, "syswrite", io_syswrite, 1);
+    rb_define_method(cIO, "sysread",  io_sysread, 1);
 
-    rb_define_method(C_IO, "fileno", Fio_fileno, 0);
-    rb_define_alias(C_IO, "to_i", "fileno");
+    rb_define_method(cIO, "fileno", io_fileno, 0);
+    rb_define_alias(cIO, "to_i", "fileno");
 
-    rb_define_method(C_IO, "sync",   Fio_sync, 0);
-    rb_define_method(C_IO, "sync=",  Fio_set_sync, 1);
+    rb_define_method(cIO, "sync",   io_sync, 0);
+    rb_define_method(cIO, "sync=",  io_set_sync, 1);
 
-    rb_define_alias(C_IO, "readlines", "to_a");
+    rb_define_alias(cIO, "readlines", "to_a");
 
-    rb_define_method(C_IO, "read",  Fio_read, -2);
-    rb_define_method(C_IO, "write", io_write, 1);
-    rb_define_method(C_IO, "gets",  Fio_gets, 0);
-    rb_define_alias(C_IO,  "readline", "gets");
-    rb_define_method(C_IO, "getc",  Fio_getc, 0);
-    rb_define_method(C_IO, "puts",  Fio_puts, 1);
-    rb_define_method(C_IO, "<<",    Fio_puts, 1);
-    rb_define_method(C_IO, "flush", Fio_flush, 0);
-    rb_define_method(C_IO, "eof", Fio_eof, 0);
+    rb_define_method(cIO, "read",  io_read, -2);
+    rb_define_method(cIO, "write", io_write, 1);
+    rb_define_method(cIO, "gets",  io_gets, 0);
+    rb_define_alias(cIO,  "readline", "gets");
+    rb_define_method(cIO, "getc",  io_getc, 0);
+    rb_define_method(cIO, "puts",  io_puts, 1);
+    rb_define_method(cIO, "<<",    io_puts, 1);
+    rb_define_method(cIO, "flush", io_flush, 0);
+    rb_define_method(cIO, "eof", io_eof, 0);
 
-    rb_define_method(C_IO, "close", Fio_close, 0);
+    rb_define_method(cIO, "close", io_close, 0);
+    rb_define_method(cIO, "closed?", io_closed, 0);
 
-    rb_define_method(C_IO, "isatty", Fio_isatty, 0);
-    rb_define_method(C_IO, "binmode",  Fio_binmode, 0);
+    rb_define_method(cIO, "isatty", io_isatty, 0);
+    rb_define_method(cIO, "tty?", io_isatty, 0);
+    rb_define_method(cIO, "binmode",  io_binmode, 0);
 
-    rb_define_method(C_IO, "ioctl", Fio_ioctl, 2);
+    rb_define_method(cIO, "ioctl", io_ioctl, 2);
 
     rb_stdin = prep_stdio(stdin, FMODE_READABLE);
-    rb_define_variable("$stdin",  &rb_stdin, Qnil, rb_readonly_hook, 0);
+    rb_define_readonly_variable("$stdin", &rb_stdin);
     rb_stdout = prep_stdio(stdout, FMODE_WRITABLE);
-    rb_define_variable("$stdout", &rb_stdout, Qnil, rb_readonly_hook, 0);
+    rb_define_readonly_variable("$stdout", &rb_stdout);
     rb_stderr = prep_stdio(stderr, FMODE_WRITABLE);
-    rb_define_variable("$stderr", &rb_stderr, Qnil, rb_readonly_hook, 0);
+    rb_define_readonly_variable("$stderr", &rb_stderr);
     rb_defout = rb_stdout;
-    rb_define_variable("$>", &rb_defout, Qnil, io_defset, 0);
+    rb_define_hooked_variable("$>", &rb_defout, 0, io_defset);
 
-    rb_define_const(C_Object, "STDIN", rb_stdin);
-    rb_define_const(C_Object, "STDOUT", rb_stdout);
-    rb_define_const(C_Object, "STDERR", rb_stderr);
+    rb_define_const(cObject, "STDIN", rb_stdin);
+    rb_define_const(cObject, "STDOUT", rb_stdout);
+    rb_define_const(cObject, "STDERR", rb_stderr);
 
-    argf = obj_alloc(C_Object);
-    rb_extend_object(argf, M_Enumerable);
+    argf = obj_alloc(cObject);
+    rb_extend_object(argf, mEnumerable);
 
-    rb_define_variable("$<", &argf, Qnil, rb_readonly_hook, 0);
-    rb_define_variable("$ARGF", &argf, Qnil, rb_readonly_hook, 0);
+    rb_define_readonly_variable("$<", &argf);
+    rb_define_readonly_variable("$ARGF", &argf);
 
-    rb_define_single_method(argf, "each",  Farg_each, 0);
-    rb_define_single_method(argf, "each_byte",  Farg_each_byte, 0);
+    rb_define_singleton_method(argf, "each",  arg_each_line, 0);
+    rb_define_singleton_method(argf, "each_line",  arg_each_line, 0);
+    rb_define_singleton_method(argf, "each_byte",  arg_each_byte, 0);
 
-    rb_define_single_method(argf, "read",  Farg_read, 0);
-    rb_define_single_method(argf, "readlines", Freadlines, 0);
-    rb_define_single_method(argf, "gets", Fgets, 0);
-    rb_define_single_method(argf, "readline", Fgets, 0);
-    rb_define_single_method(argf, "getc", Farg_getc, 0);
-    rb_define_single_method(argf, "eof", Feof, 0);
+    rb_define_singleton_method(argf, "read",  arg_read, 0);
+    rb_define_singleton_method(argf, "readlines", f_readlines, 0);
+    rb_define_singleton_method(argf, "gets", f_gets, 0);
+    rb_define_singleton_method(argf, "readline", f_gets, 0);
+    rb_define_singleton_method(argf, "getc", arg_getc, 0);
+    rb_define_singleton_method(argf, "eof", f_eof, 0);
+    rb_define_singleton_method(argf, "eof?", f_eof, 0);
 
-    rb_define_single_method(argf, "to_s", Farg_filename, 0);
-    rb_define_single_method(argf, "filename", Farg_filename, 0);
-    rb_define_single_method(argf, "file", Farg_file, 0);
+    rb_define_singleton_method(argf, "to_s", arg_filename, 0);
+    rb_define_singleton_method(argf, "filename", arg_filename, 0);
+    rb_define_singleton_method(argf, "file", arg_file, 0);
 
     filename = str_new2("-");
-    rb_define_variable("$FILENAME", &filename, Qnil, rb_readonly_hook, 0);
+    rb_define_readonly_variable("$FILENAME", &filename);
     file = rb_stdin;
     rb_global_variable(&file);