version 0.51v0_51

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

Thu Oct 13 12:13:48 1994  Yukihiro Matsumoto  (matz@ix-02)

	* eval.c(SETUP_ARGS): 付加演算子が配列でない時には配列に変換する.

	* parse.y: 括弧なしのメソッド呼び出しでも`*'による付加引数が使える
	  ようにした. ただし, 通常引数が一つもない場合は乗算演算子と区別が
	  つかないので, 必ず括弧が必要.

Wed Oct 12 10:09:07 1994  Yukihiro Matsumoto  (matz@ix-02)

	* eval.c(rb_call): キャッシュの計算をinline化. キャッシュミスがあ
	  れば関数呼び出しでメソッドを検索する. methods.cはなくなった.

	* eval.c(rb_eval): ローカル変数用の領域をalloca()するように変更.
	  サイズの変更が必要になれば改めてmalloc()するように.

	* parse.y: error recoveryの際にlex_stateを更新しておくように.

Tue Oct 11 17:10:46 1994  Yukihiro Matsumoto  (matz@ix-02)

	* socket.c(for_fd): ファイル記述子(Fixnum)からソケットインスタンス
	  を得るメソッド. たとえばinetdから起動されたサーバで標準入出力に
	  ソケット操作を行なうために使う. つまりSocket.for_fd($stdin)で標
	  準入力に対応するソケットオブジェクトが得られる.

	* io.c(to_i): IOクラスのインスタンスを整数に変換するとそのファイル
	  記述子を返すように.

	* numeric.c(num2int): to_iメソッドを使って, できる限り整数に変換す
	  る. 以前はnum2fixだけが全てのオブジェクトに対してto_iメソッドを
	  適用していた.

	* sprintf.c(Fsprintf): 整数表示の際, オブジェクトをできる限り整数
	  に変換するように(to_iメソッドを使う).

Fri Oct  7 14:06:32 1994  Yukihiro Matsumoto  (matz@ix-02)

	* eval.c(Fcaller): 必要性がよく分からないのでドキュメントから削除.
	  将来デバッガを作る時に復活させよう.

	* eval.c(rb_call): Cで記述されたメソッド呼び出しでは環境をスタック
	  にセーブしないことによって高速化.

Wed Oct  5 15:00:58 1994  Yukihiro Matsumoto  (matz@ix-02)

	* ruby.h: 一時env.hに移動してたQselfの定義を復活. ただし今回は関数
	  として実現(env.hでは変数として再定義してある).

	* ruby.h: TRUEでsyntax errorにならないよう#undefを追加.

	* eval.c(rb_eval): thread化に挑戦したが, 失敗(速くならなかった).
	  が, Scopingなどの無駄なコードの削除とメソッド呼び出しの引数セッ
	  トのinline化で若干の高速化を実現した. 副作用として, argc, argv形
	  式の関数呼び出しの仕様が変化した(argvにselfを含まなくなった).

	* eval.c(rb_call): メソッド呼び出しの高速化.

Tue Oct  4 11:40:53 1994  Yukihiro Matsumoto  (matz@ix-02)

	* ruby-mode.el: 修飾子に対応した.

	* parse.y: 多重代入にrestをつけた. この機能を使えばoptional引数の
	  解析が簡単にできる(はず).

	* pack.c(unpack): uuencode形式のdecodeの際に文字列の長さが間違って
	  いた.

Mon Oct  3 15:58:41 1994  Yukihiro Matsumoto  (matz@ix-02)

	* file.c(type): ファイルタイプを文字列で返すメソッド.

Fri Sep 30 11:36:07 1994  Yukihiro Matsumoto  (matz@ix-02)

	* object.c: デフォルトの真の値である%TRUEの値を1(Fixnum)からtに変
	  更した. to_sで文字列に変換した時にも`t'と表示される. 更に踏み込
	  んで`t'を予約語にしてlispのようにしようかとも思ったが, そこまで
	  は決心できなかった. 一文字のローカル変数はかなり使いそうな気がす
	  るので….

	* array.c,dict.c: equalを再定義しているクラスで, hashを正しく定義
	  した.

Wed Sep 28 23:30:28 1994  Yukihiro Matsumoto  (matz@dyna)

	* eval.c(Ffail): 今までfailはカーネルクラスのメソッドであったが,
	  構文に組み込んだ. この変更によって, 1)`fail'は予約語となり, ロー
	  カル変数に用いることができなくなった. 2)`fail'単体で例外を発生す
	  るようになった. 3)failはメソッドではなくなったので再定義される可
	  能性がなくなった.

	* dic.c, dbm.c(indexes): Arrayのindexesと同様の機能を持つメソッド
	  を追加.

	* array.c(indexes): 引数をインデックスとする要素の配列を返す. 整数
	  の配列を引数とする時には引数の要素をインデックスとする要素の配列
	  を返す.

Mon Sep 19 13:42:31 1994  Yukihiro Matsumoto  (matz@ix-02)

	* array.c(aset): 部分配列に対する代入で配列以外のオブジェクトが指
	  定された場合に多重代入と同じルールで配列化するようにした.

	* io.c(print): 引数として与えられた各オブジェクトにprint_onメッセー
	  ジを与えるように. 実行速度は落ちるが柔軟性は増す.

Fri Sep 16 14:59:18 1994  Yukihiro Matsumoto  (matz@ix-02)

	* glob.c: ワイルドカードの導入. bashに使われているGNUのglobルーチ
	  ンを流用した.

Mon Sep 12 18:36:58 1994  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y(value_expr): 式がnilの時に対応.

	* class.c: ICLASSのclassが必ずClass/Moduleを指すように.

Tue Sep  6 16:23:28 1994  Yukihiro Matsumoto  (matz@ix-02)

	* re.c:	正規表現内で「\数字」形式が指定できるように.

	* parse.y:「do expr using var ... end」形式はなくなった. 寂しい気
	  もする. *BACKWARD INCOMPATIBILITY*

Mon Sep  5 10:59:01 1994  Yukihiro Matsumoto  (matz@ix-02)

	* numeric.c(next): Numericクラスにもnextを提供.

	* string.c(upto): uptoを提供.

	* range.c(each): nextを使ったインタフェースからuptoを使うように変
	  更した. この方が一つのメソッドで処理をまとめで行なうことができる.

Fri Sep  2 15:25:39 1994  Yukihiro Matsumoto  (matz@ix-02)

	* dict.c(each): 戻り値を[key, value]のペアに変更. 今までのeachは
	  each_valueとして残る. *BACKWARD INCOMPATIBILITY*

Thu Sep  1 10:49:04 1994  Yukihiro Matsumoto  (matz@ix-02)

	* 成功した(特別な戻り値を持たない)システムコールは`0'を返すように.

Wed Aug 31 00:26:51 1994  Yukihiro Matsumoto  (matz@dyna)

	* string.c: チェックサムを得るメソッド`sum'を作った.

	* class.c(include_class_new): ICLASSのclassをもとのクラスにした.
	  gcの際に元クラスをマークする必要があるのが, フィールドを増やす余
	  地が無いので, classフィールドを流用した. 私の見積りが間違ってい
	  て, ICLASSのインスタンスにメッセージを送る事があれば, おかしな動
	  作をするだろう.

	* eval.c(masign): 式(a,b = nil)の値を[nil]からnilに変更した.

Mon Aug 29 11:56:09 1994  Yukihiro Matsumoto  (matz@ix-02)

	* class.c: rb_define_mfuncを無くして, メタクラスにモジュールをイン
	  クルードするようにした.

	* error.c(yyerror): 同じ行で複数のsyntax errorをリポートしないよう
	  にした.

	* file.c: FileTestモジュールにファイルテストメソッドを分離した.

	* parse.y: 演算子を指定する時のlex_stateを正しく設定した.

Sat Aug 27 01:23:34 1994  Yukihiro Matsumoto  (matz@dyna)

	* parse.y: if/whileなどの複合式をprimaryに移動した. これによって例
	  えば「if cond then a else b end.message()」のような式が書けるよ
	  うになった.

Fri Aug 26 10:46:30 1994  Yukihiro Matsumoto  (matz@ix-02)

	* spec: 整理された文法にしたがって書き直した.

	* parse.y: ここ数日で混乱していた文法を整理した. 括弧を省略したメ
	  ソッド呼び出しができるようになったこと, modifierが付けられるよう
	  になったこと, returnにリストが渡せるようになったことが主な変更点
	  である.

	* process周りが怪しいがとにかくSolaris 2.3で動くように.

	* parse.y: 曖昧性がない場合にはメソッド呼び出しの引数の括弧を省略
	  できるように. 省略できるメソッド呼び出しの条件は, 1)かならず1個
	  以上の引数を必要とすること, 2)第1引数が`+', `-', `(', `[', `{',
	  `/'など, 式の始まりに置かれた時と途中に現れた時とで解釈が違う記
	  号で始まらないこと, である.

Thu Aug 25 13:54:58 1994  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y(cond): 条件式の展開部にbugがあった.

Wed Aug 24 00:01:15 1994  Yukihiro Matsumoto  (matz@dyna)

	* parse.y: returnはコンマで区切ったリストも受け取るように. つまり,
	  return a, b, cはreturn [a, b, c]と同じ意味になる.

	* parse.y: yield以外の大域脱出制御式をexprからexpr0に移した. よっ
	  てメソッドの引数に制御式を使えなくなる(これで困る人はいないはず).

	* parse.y: `+'の定数展開の際に演算子の優先順位を忘れていた.

	* eval.c: untilの戻り値はnilになった.

	* parse.y: modifierとしてのif/unless/while/untilを追加.

	* parse.y: 文法からendの後ろにつけるキーワードを削除. ほとんど使わ
	  なかった上に, emacsではruby-modeがあれば対応のチェックが機械的に
	  出来るため.

Tue Aug 23 18:08:33 1994  Yukihiro Matsumoto  (matz@ix-02)

	* eval.c: スクリプト実行開始前に例外が発生した時にcore dumpした.
	  組み込み用にコードを変更した時にenbugしてしまった.

Tue Aug 23 00:07:17 1994  Yukihiro Matsumoto  (matz@dyna)

	* eval.c: doの戻り値がいつもnilになっていた.

	* parse.y: loop制御変数の多重代入化にbugがあった.

	* parse.y(expand_op): 文字列も畳み込みの対象に.

Mon Aug 22 10:50:01 1994  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y(expand_op): `+'に関しては結合則を使って, より多く定数畳
	  み込みを行なうように.

	* ruby.c(proc_options): argcが0の時にも対応.

	* parse.y: forなどの制御変数に多重代入も使えるように.

Sat Aug 20 00:59:40 1994  Yukihiro Matsumoto  (matz@dyna)

	* parse.y(call_op): 演算子`~'の取り扱いをルール部へ移動.

Fri Aug 19 11:44:13 1994  Yukihiro Matsumoto  (matz@ix-02)

	* main.c: rubyをほかのプログラムに組み込めるようにmain()を分割した.
	  それにともない, プログラムの呼び出し構造を修正した.

	* parse.y: 条件式の定義を変更. ifなどの条件式の中でだけ`&&'や`||'
	  および`!'の引数が条件式になるように. この変更により条件式以外の
	  場所での `&&', `||', `!'演算子の動作が直観に一致する.

	* parse.y: 実引数の`*'の後に続く引数はexprに制限した. 今までは全て
	  の文が有効であったが, ここで定義文があってもしょうがない.

Thu Aug 18 10:21:45 1994  Yukihiro Matsumoto  (matz@ix-02)

	* re.c: 正規表現ルーチンの初期化部分を削除してしまっていた. これで
	  はemacsの正規表現になってしまう.

	* version.c: copyright表示を追加.

	* version.c: バージョン表示をstderrに.

	* configure.in: gccがない場合testに失敗していた.

Fri Aug 12 14:12:23 1994  Yukihiro Matsumoto  (matz@ix-02)

	* array.c(astore): 配列の拡大する時にある程度の大きさをまとめて拡
	  大するように.

	* io.c(Fprint): 配列に対しては一度文字列に変換することなく, 直接内
	  容を出力するように.

	* string.c(str_new): memmoveからmemcpyへ置き換えた. これでもかなり
	  速度が違う.

	* ruby.h: データメンバの取り出しで名前を文字列からIDで指定するよう
	  にした. かなりの高速化になる.

	* io.c: $ARGFという変数で引数列からなる仮想ファイルをオブジェクト
	  として扱えるようにした. 今まではトップレベルのgets()などを使って
	  アクセスしていたが, どうもオブジェクト指向的ではなかった.

Thu Aug 11 11:43:15 1994  Yukihiro Matsumoto  (matz@ix-02)

	* gc.c: mark_location()の間違った呼び出し方の行が残っていた.

	* method.c: プロトタイプ宣言が足りなかった.

1 files changed, 129 insertions, 51 deletions

diff --git a/io.c b/io.c
index 4b3c03afb8..429a1b9f3a 100644
--- a/io.c
+++ b/io.c
@@ -3,7 +3,7 @@
   io.c -
 
   $Author: matz $
-  $Date: 1994/06/27 15:48:29 $
+  $Date: 1994/08/12 11:06:40 $
   created at: Fri Oct 15 18:08:59 JST 1993
 
   Copyright (C) 1994 Yukihiro Matsumoto
@@ -21,7 +21,7 @@
 
 VALUE rb_ad_string();
 
-VALUE C_IO;
+VALUE C_IO, C_ARGFILE;
 extern VALUE C_File;
 
 VALUE rb_stdin, rb_stdout, rb_stderr, rb_defout;
@@ -29,12 +29,12 @@ VALUE rb_stdin, rb_stdout, rb_stderr, rb_defout;
 VALUE FS, OFS;
 VALUE RS, ORS;
 
-ID id_write;
+ID id_write, id_fd, id_print_on;
 
 extern char *inplace;
 
 /* writing functions */
-static VALUE
+VALUE
 Fio_write(obj, str)
     VALUE obj;
     struct RString *str;
@@ -151,11 +151,11 @@ Fio_fileno(obj)
     VALUE obj;
 {
     OpenFile *fptr;
-    int f;
+    int fd;
 
     GetOpenFile(obj, fptr);
-    f = fileno(fptr->f);
-    return INT2FIX(f);
+    fd = fileno(fptr->f);
+    return INT2FIX(fd);
 }
 
 /* reading functions */
@@ -178,7 +178,7 @@ read_all(port)
     for (;;) {
 	n = fread(buf, 1, BUFSIZ, fptr->f);
 	if (n == 0) {
-	    if (feof(fptr->f)) break;
+	    if (feof(fptr->f)) return Qnil;
 	    rb_sys_fail(Qnil);
 	}
 	str_cat(str, buf, n);
@@ -219,15 +219,6 @@ Fio_read(obj, args)
     return str;
 }
 
-static void
-io_gets(str)
-    VALUE str;
-{
-    rb_break();
-}
-
-void rb_each();
-
 VALUE rb_lastline;
 static VALUE lineno;
 
@@ -660,12 +651,12 @@ Fprintf(argc, argv)
 {
     VALUE out;
 
-    if (argc == 1) return Qnil;
-    if (TYPE(argv[1]) == T_STRING) {
+    if (argc == 0) return Qnil;
+    if (TYPE(argv[0]) == T_STRING) {
 	out = rb_defout;
     }
-    else if (obj_responds_to(argv[1], INT2FIX(id_write))) {
-	out = argv[1];
+    else if (obj_responds_to(argv[0], INT2FIX(id_write))) {
+	out = argv[0];
 	argv++;
 	argc--;
     }
@@ -678,15 +669,6 @@ Fprintf(argc, argv)
     return Qnil;
 }
 
-static void
-obj_print(obj)
-    VALUE obj;
-{
-    int i;
-
-    Fio_write(rb_defout, obj);
-}
-
 static VALUE
 Fprint(argc, argv)
     int argc;
@@ -695,25 +677,32 @@ Fprint(argc, argv)
     int i;
 
     /* if no argument given, print recv */
-    if (argc == 1) {
-	obj_print(argv[0]);
+    if (argc == 0) {
+	rb_funcall(Qself, id_print_on, 1, rb_defout);
     }
     else {
-	for (i=1; i<argc; i++) {
-	    obj_print(argv[i]);
-	    if (OFS && i>1) {
-		obj_print(OFS);
+	for (i=0; i<argc; i++) {
+	    if (OFS && i>0) {
+		Fio_write(rb_defout, OFS);
 	    }
+	    rb_funcall(argv[i], id_print_on, 1, rb_defout);
 	}
     }
     if (ORS) {
-	obj_print(ORS);
+	Fio_write(rb_defout, ORS);
     }
 
     return Qnil;
 }
 
 static VALUE
+Fprint_on(obj, port)
+    VALUE obj, port;
+{
+    return Fio_write(port, obj);
+}
+
+static VALUE
 prep_stdio(f, mode)
     FILE *f;
     int mode;
@@ -806,8 +795,7 @@ next_argv()
 }
 
 static VALUE
-Fgets(obj)
-    VALUE obj;
+Fgets()
 {
     VALUE line;
 
@@ -827,8 +815,7 @@ Fgets(obj)
 }
 
 static VALUE
-Feof(obj)
-    VALUE obj;
+Feof()
 {
     if (init_p == 0 && !next_argv())
 	return TRUE;
@@ -840,8 +827,7 @@ Feof(obj)
 }
 
 static VALUE
-Fgetc(obj)
-    VALUE obj;
+Fgetc()
 {
     return Fio_getc(rb_stdin);
 }
@@ -1120,14 +1106,14 @@ Fsyscall(argc, argv)
     unsigned long arg[8];
 #endif
     int retval = -1;
-    int i = 1;
-    int items = argc - 2;
+    int i = 0;
+    int items = argc - 1;
 
     /* This probably won't work on machines where sizeof(long) != sizeof(int)
      * or where sizeof(long) != sizeof(char*).  But such machines will
      * not likely have syscall implemented either, so who cares?
      */
-    argv++;			/* skip SELF */
+
     arg[0] = NUM2INT(argv[0]); argv++;
     while (items--) {
 	if (FIXNUM_P(*argv)) {
@@ -1140,7 +1126,7 @@ Fsyscall(argc, argv)
 	}
 	i++;
     }
-    switch (argc-1) {
+    switch (argc) {
       case 0:
 	Fail("Too few args to syscall");
       case 1:
@@ -1196,12 +1182,80 @@ Fsyscall(argc, argv)
 #endif /* atarist */
     }
     if (retval == -1) rb_sys_fail(0);
-    return Qnil;
+    return INT2FIX(0);
 #else
     Fail("syscall() unimplemented");
 #endif
 }
 
+static VALUE
+Farg_read(obj)
+    VALUE obj;
+{
+    VALUE str, str2;
+
+    str = str_new(0, 0);
+    for (;;) {
+      retry:
+	if (!next_argv()) return Qnil;
+	str2 = Fio_read(file, Qnil);
+	if (str2 == Qnil && next_p != -1) {
+	    Fio_close(file);
+	    next_p = 1;
+	    goto retry;
+	}
+	if (str2 == Qnil) break;
+	str_cat(str, RSTRING(str2)->ptr, RSTRING(str2)->len);
+    }
+
+    return str;
+}
+
+static VALUE
+Farg_getc()
+{
+    VALUE byte;
+
+  retry:
+    if (!next_argv()) return Qnil;
+    byte = Fio_getc(file);
+    if (byte == Qnil && next_p != -1) {
+	Fio_close(file);
+	next_p = 1;
+	goto retry;
+    }
+
+    return byte;
+}
+
+static VALUE
+Farg_each()
+{
+    VALUE str;
+
+    while (str = Fgets()) {
+	rb_yield(str);
+    }
+    return Qnil;
+}
+
+static VALUE
+Farg_each_byte()
+{
+    VALUE byte;
+
+    while (byte = Farg_getc()) {
+	rb_yield(byte);
+    }
+    return Qnil;
+}
+
+static VALUE
+Farg_to_s()
+{
+    return str_new2("$ARGF");
+}
+
 extern VALUE M_Enumerable;
 VALUE rb_readonly_hook();
 
@@ -1209,19 +1263,25 @@ Init_IO()
 {
     extern VALUE C_Kernel;
 
+    id_write = rb_intern("write");
+    id_fd = rb_intern("fd");
+    id_print_on = rb_intern("print_on");
+
     rb_define_method(C_Kernel, "syscall", Fsyscall, -1);
 
     rb_define_method(C_Kernel, "open", Fopen, -2);
     rb_define_method(C_Kernel, "printf", Fprintf, -1);
     rb_define_method(C_Kernel, "print", Fprint, -1);
     rb_define_method(C_Kernel, "gets", Fgets, 0);
-    rb_define_method(C_Kernel, "eof", Feof, 0);
     rb_define_alias(C_Kernel,"readline", "gets");
+    rb_define_method(C_Kernel, "eof", Feof, 0);
     rb_define_method(C_Kernel, "getc", Fgetc, 0);
     rb_define_method(C_Kernel, "select", Fselect, -2);
 
     rb_define_method(C_Kernel, "readlines", Freadlines, 0);
 
+    rb_define_method(C_Kernel, "print_on", Fprint_on, 1);
+
     C_IO = rb_define_class("IO", C_Object);
     rb_include_module(C_IO, M_Enumerable);
 
@@ -1245,7 +1305,9 @@ Init_IO()
     rb_define_method(C_IO, "sysread",  Fio_sysread, 1);
 
     rb_define_method(C_IO, "fileno", Fio_fileno, 0);
-    rb_define_method(C_IO, "sync",  Fio_sync, 0);
+    rb_define_alias(C_IO, "to_i", "fileno");
+
+    rb_define_method(C_IO, "sync",   Fio_sync, 0);
     rb_define_method(C_IO, "sync=",  Fio_set_sync, 1);
 
     rb_define_alias(C_IO, "readlines", "to_a");
@@ -1278,6 +1340,22 @@ Init_IO()
     rb_define_single_method(C_IO, "default", Fio_defget, 0);
     rb_define_single_method(C_IO, "default=", Fio_defset, 1);
 
-    id_write = rb_intern("write");
+    C_ARGFILE = rb_define_class("ARGFILE", C_Object);
+    rb_include_module(C_ARGFILE, M_Enumerable);
+
+    rb_define_variable("$ARGF", &C_ARGFILE, Qnil, rb_readonly_hook);
+
+    rb_define_single_method(C_ARGFILE, "each",  Farg_each, 0);
+    rb_define_single_method(C_ARGFILE, "each_byte",  Farg_each_byte, 0);
+
+    rb_define_single_method(C_ARGFILE, "read",  Farg_read, 0);
+    rb_define_single_method(C_ARGFILE, "readlines", Freadlines, 0);
+    rb_define_single_method(C_ARGFILE, "gets", Fgets, 0);
+    rb_define_single_method(C_ARGFILE, "realine", Fgets, 0);
+    rb_define_single_method(C_ARGFILE, "getc", Farg_getc, 0);
+    rb_define_single_method(C_ARGFILE, "eof", Feof, 0);
+
+    rb_define_single_method(C_ARGFILE, "to_s", Farg_to_s, 0);
+
     Init_File();
 }