version 0.76v0_76

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

Fri May 19 15:33:23 1995  Yukihiro Matsumoto  <matz@ix-02>

	* version 0.76

Fri May 19 00:48:08 1995  Yukihiro Matsumoto  (matz@dyna)

	* string.c (Fstr_each): イテレータブロック中で文字列の変更が行われ
	  たかどうかをチェック．ポインタの値が変わっていれば例外を発生する．

	* ruby-mode.el: ruby-electric-braceの新設．

Thu May 18 12:27:23 1995  Yukihiro Matsumoto  <matz@ix-02>

	* string.c (Fstr_tr): trの置換対象に`\0'を含む時に正しく置換を行わ
	  ないバグがあった．更に置換文字列をASCII順に指定しないと動作しな
	  い問題もあった．結果としてtrを書き換えたので，copyrightの問題は
	  無くなった(と思う)．

	* gc.c (gc): the_scopeをマークしていなかったので，ローカル変数が間
	  違って開放される場合があった．

	* gc.c (mark_locations_array): 若干の高速化．

Mon May 15 11:43:49 1995  Yukihiro Matsumoto  <matz@ix-02>

	* ext/extmk.rb.in: Dynamic Loadモジュールのコンパイル用チェックを
	  行うruby script．autoconfに近い感覚で使える．新しいモジュールを
	  提供したい人はextの下にディレクトリを作るだけで良い．必須のファ
	  イルはファイル名の一覧を記録した`MANIFEST'というファイルのみ．必
	  要に応じて`depend'(ファイルの依存関係を記述するファイル gcc -MM
	  の出力)，`extconf.rb'(コンパイル用にライブラリと関数の存在チェッ
	  クするファイル)を用意できる．

	* eval.c (rb_call): rubyメソッドの引数チェック時に未初期化の
	  jmp_bufを使用していた．

	* parse.y: `or'と`and'の優先順位を同じにした．

Wed May  3 18:21:36 1995  Yukihiro Matsumoto  (matz@dyna)

	* dln.c: Linuxでは`__.SYMDEF/'であった．

	* dln.c: system callのエラーチェックを忘れていた．

Wed Apr 26 09:50:56 1995  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y: イテレータブロックの変数宣言を`|'で括るようにした．これ
	  でイテレータ変数がない時は宣言そのものを省略できる．文法の変更は
	  久しぶりだ．

Tue Apr 25 12:04:17 1995  Yukihiro Matsumoto  (matz@ix-02)

	* eval.c(require): loadからダイナミックロードの機能を移してきた．
	  さらに拡張子の補完機能を追加してユーザがdln/dlopenの差を意識する
	  必要のないようにした．

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

	* object.c: init_object -> initialize.

Mon Apr 24 14:22:39 1995  Yukihiro Matsumoto  (matz@ix-02)

	* NEWS-OS 3.4対応

	* io.c: Solarisのstdioの動作が違うようだ．signalでEOFを返してしま
	  う…．perlでも同様の問題がある．

Fri Apr 21 20:04:39 1995  Yukihiro Matsumoto  (matz@ix-02)

	* version 0.75

	* signal.c: trapがなくなっていた．うーむ．

	* configure: Solaris 2.3対応．

	* io.c: #elifのないcppもある．

	* dir.c: autoconf 2.xへの対応が不十分

Thu Apr 20 12:31:24 1995  Yukihiro Matsumoto  (matz@ix-02)

	* version 0.74

	* env.h, gc.c, regex.c: IRIXへの移植対応

	* configure: picを生成するoptionの検出のため，システムタイプをチェッ
	  クするように．

Tue Apr 18 19:08:17 1995  Yukihiro Matsumoto  (matz@ix-02)

	* gc.c(xrealloc): ptr=nilの時，malloc()と同じ働きを

	* array.c(astore): 空の配列の0番目の要素に代入するとsize=0で
	  realloc()を呼んでいた．

	* configure, glob.c: Solaris 2.xでコンパイルできるように

1 files changed, 27 insertions, 19 deletions

diff --git a/io.c b/io.c
index 8b7fb21542..d9c93889f6 100644
--- a/io.c
+++ b/io.c
@@ -6,7 +6,7 @@
   $Date: 1995/01/10 10:42:39 $
   created at: Fri Oct 15 18:08:59 JST 1993
 
-  Copyright (C) 1995 Yukihiro Matsumoto
+  Copyright (C) 1993-1995 Yukihiro Matsumoto
 
 ************************************************/
 
@@ -285,14 +285,18 @@ Fio_gets(obj)
       again:
 	bp = buf;
 
+      retry:
 	TRAP_BEG;
 	while ((c = getc(f)) != EOF && (*bp++ = c) != newline && bp < bpe)
 	    ;
 	TRAP_END;
 
-	if (c == EOF && !append && bp == buf) {
-	    str = Qnil;
-	    goto return_gets;
+	if (c == EOF) {
+	    if (!feof(f)) goto retry;
+	    if (!append && bp == buf) {
+		str = Qnil;
+		goto return_gets;
+	    }
 	}
 
 	if (append)
@@ -941,17 +945,21 @@ rb_xstring(str)
 struct timeval *time_timeval();
 
 #ifdef _STDIO_USES_IOSTREAM  /* GNU libc */
-#   ifdef _other_gbase
-#	define READ_DATA_PENDING(fp) ((fp)->_IO_read_ptr < (fp)->_IO_read_end)
-#   else
-#	define READ_DATA_PENDING(fp) ((fp)->_gptr < (fp)->_egptr)
-#   endif
-#elif __SLBF
-#   define READ_DATA_PENDING(fp) (fp->_r > 0)
-#elif STDSTDIO
-#   define READ_DATA_PENDING(fp) (fp->_cnt != 0)
+#  ifdef _other_gbase
+#    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)
+#  else
+#    if STDSTDIO
+#      define READ_DATA_PENDING(fp) (fp->_cnt != 0)
+#    else
 --------------> You Lose <--------------
+#    endif
+#  endif
 #endif
 
 static VALUE
@@ -990,7 +998,7 @@ Fselect(argc, argv, obj)
 		pending++;
 		FD_SET(fileno(fptr->f), &pset);
 	    }
-	    if (max < fileno(fptr->f)) max = fileno(fptr->f);
+	    if (max < (int)fileno(fptr->f)) max = fileno(fptr->f);
 	}
 	if (pending) {		/* no blocking if there's buffered data */
 	    timerec.tv_sec = timerec.tv_usec = 0;
@@ -1007,10 +1015,10 @@ Fselect(argc, argv, obj)
 	for (i=0; i<RARRAY(write)->len; i++) {
 	    GetOpenFile(RARRAY(write)->ptr[i], fptr);
 	    FD_SET(fileno(fptr->f), wp);
-	    if (max > fileno(fptr->f)) max = fileno(fptr->f);
+	    if (max > (int)fileno(fptr->f)) max = fileno(fptr->f);
 	    if (fptr->f2) {
 		FD_SET(fileno(fptr->f2), wp);
-		if (max < fileno(fptr->f2)) max = fileno(fptr->f2);
+		if (max < (int)fileno(fptr->f2)) max = fileno(fptr->f2);
 	    }
 	}
     }
@@ -1024,10 +1032,10 @@ Fselect(argc, argv, obj)
 	for (i=0; i<RARRAY(except)->len; i++) {
 	    GetOpenFile(RARRAY(except)->ptr[i], fptr);
 	    FD_SET(fileno(fptr->f), ep);
-	    if (max < fileno(fptr->f)) max = fileno(fptr->f);
+	    if (max < (int)fileno(fptr->f)) max = fileno(fptr->f);
 	    if (fptr->f2) {
 		FD_SET(fileno(fptr->f2), ep);
-		if (max > fileno(fptr->f2)) max = fileno(fptr->f2);
+		if (max > (int)fileno(fptr->f2)) max = fileno(fptr->f2);
 	    }
 	}
     }
@@ -1118,7 +1126,7 @@ io_ctl(obj, req, arg, io_p)
 #endif
 #endif
 #ifdef IOCPARM_LEN
-    len = IOCPARM_LEN(cmd);	/* on BSDish systes we're safe */
+    len = IOCPARM_LEN(cmd);	/* on BSDish systems we're safe */
 #else
     len = 256;			/* otherwise guess at what's safe */
 #endif