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, 0 insertions, 441 deletions

diff --git a/ext/dbm.c b/ext/dbm.c
deleted file mode 100644
index f3e8295d6a..0000000000
--- a/ext/dbm.c
+++ /dev/null
@@ -1,441 +0,0 @@
-/************************************************
-
-  dbm.c -
-
-  $Author: matz $
-  $Date: 1995/01/10 10:42:24 $
-  created at: Mon Jan 24 15:59:52 JST 1994
-
-  Copyright (C) 1995 Yukihiro Matsumoto
-
-************************************************/
-
-#include "ruby.h"
-
-#ifdef USE_DBM
-
-#include <ndbm.h>
-#include <fcntl.h>
-#include <errno.h>
-
-VALUE C_DBM;
-static ID id_dbm;
-
-extern VALUE M_Enumerable;
-
-static void
-closeddbm()
-{
-    Fail("closed DBM file");
-}
-
-#define GetDBM(obj, dbmp) {\
-    DBM **_dbm;\
-    Get_Data_Struct(obj, id_dbm, DBM*, _dbm);\
-    dbmp = *_dbm;\
-    if (dbmp == Qnil) closeddbm();\
-}
-
-static void
-free_dbm(dbmp)
-    DBM **dbmp;
-{
-    if (*dbmp) dbm_close(*dbmp);
-}
-
-#define MakeDBM(obj, dp) {\
-    DBM **_dbm;\
-    if (!id_dbm) id_dbm = rb_intern("dbm");\
-    Make_Data_Struct(obj,id_dbm,DBM*,Qnil,free_dbm,_dbm);\
-    *_dbm=dp;\
-}
-
-static VALUE
-Sdbm_open(argc, argv, class)
-    int argc;
-    VALUE *argv;
-    VALUE class;
-{
-    VALUE file, vmode;
-    DBM *dbm, **dbm2;
-    int mode;
-    VALUE obj;
-
-    if (rb_scan_args(argc, argv, "11", &file, &vmode) == 1) {
-	mode = 0666;		/* default value */
-    }
-    else if (NIL_P(vmode)) {
-	mode = -1;		/* return nil if DB not exist */
-    }
-    else {
-	mode = NUM2INT(vmode);
-    }
-    Check_Type(file, T_STRING);
-
-    dbm = Qnil;
-    if (mode >= 0)
-	dbm = dbm_open(RSTRING(file)->ptr, O_RDWR|O_CREAT, mode);
-    if (!dbm)
-	dbm = dbm_open(RSTRING(file)->ptr, O_RDWR, mode);
-    if (!dbm)
-	dbm = dbm_open(RSTRING(file)->ptr, O_RDONLY, mode);
-
-    if (!dbm) {
-	if (mode == -1) return Qnil;
-	rb_sys_fail(RSTRING(file)->ptr);
-    }
-
-    obj = obj_alloc(class);
-    MakeDBM(obj, dbm);
-
-    return obj;
-}
-
-static VALUE
-Fdbm_close(obj)
-    VALUE obj;
-{
-    DBM **dbmp;
-
-    Get_Data_Struct(obj, id_dbm, DBM*, dbmp);
-    if (*dbmp == Qnil) Fail("already closed DBM file");
-    dbm_close(*dbmp);
-    *dbmp = Qnil;
-
-    return Qnil;
-}
-
-static VALUE
-Fdbm_fetch(obj, keystr)
-    VALUE obj, keystr;
-{
-    datum key, value;
-    DBM *dbm;
-
-    Check_Type(keystr, T_STRING);
-    key.dptr = RSTRING(keystr)->ptr;
-    key.dsize = RSTRING(keystr)->len;
-
-    GetDBM(obj, dbm);
-    value = dbm_fetch(dbm, key);
-    if (value.dptr == Qnil) {
-	return Qnil;
-    }
-    return str_new(value.dptr, value.dsize);
-}
-
-static VALUE
-Fdbm_indexes(obj, args)
-    VALUE obj;
-    struct RArray *args;
-{
-    VALUE *p, *pend;
-    struct RArray *new;
-    int i = 0;
-
-    if (!args || args->len == 1 && TYPE(args->ptr) != T_ARRAY) {
-	args = (struct RArray*)rb_to_a(args->ptr[0]);
-    }
-
-    new = (struct RArray*)ary_new2(args->len);
-
-    p = args->ptr; pend = p + args->len;
-    while (p < pend) {
-	new->ptr[i++] = Fdbm_fetch(obj, *p++);
-	new->len = i;
-    }
-    return (VALUE)new;
-}
-
-static VALUE
-Fdbm_delete(obj, keystr)
-    VALUE obj, keystr;
-{
-    datum key;
-    DBM *dbm;
-
-    Check_Type(keystr, T_STRING);
-    key.dptr = RSTRING(keystr)->ptr;
-    key.dsize = RSTRING(keystr)->len;
-
-    GetDBM(obj, dbm);
-    if (dbm_delete(dbm, key)) {
-	Fail("dbm_delete failed");
-    }
-    return obj;
-}
-
-static VALUE
-Fdbm_shift(obj)
-    VALUE obj;
-{
-    datum key, val;
-    DBM *dbm;
-    VALUE keystr, valstr;
-
-    GetDBM(obj, dbm);
-
-    key = dbm_firstkey(dbm); 
-    if (!key.dptr) return Qnil;
-    val = dbm_fetch(dbm, key);
-    dbm_delete(dbm, key);
-
-    keystr = str_new(key.dptr, key.dsize);
-    valstr = str_new(val.dptr, val.dsize);
-    return assoc_new(keystr, valstr);
-}
-
-static VALUE
-Fdbm_delete_if(obj)
-    VALUE obj;
-{
-    datum key, val;
-    DBM *dbm;
-    VALUE keystr, valstr;
-
-    GetDBM(obj, dbm);
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	val = dbm_fetch(dbm, key);
-	keystr = str_new(key.dptr, key.dsize);
-	valstr = str_new(val.dptr, val.dsize);
-	if (rb_yield(assoc_new(keystr, valstr))
-	    && dbm_delete(dbm, key)) {
-	    Fail("dbm_delete failed");
-	}
-    }
-    return obj;
-}
-
-static VALUE
-Fdbm_clear(obj)
-    VALUE obj;
-{
-    datum key;
-    DBM *dbm;
-
-    GetDBM(obj, dbm);
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	if (dbm_delete(dbm, key)) {
-	    Fail("dbm_delete failed");
-	}
-    }
-    return obj;
-}
-
-static VALUE
-Fdbm_store(obj, keystr, valstr)
-    VALUE obj, keystr, valstr;
-{
-    datum key, val;
-    DBM *dbm;
-
-    if (valstr == Qnil) {
-	Fdbm_delete(obj, keystr);
-	return Qnil;
-    }
-
-    Check_Type(keystr, T_STRING);
-    key.dptr = RSTRING(keystr)->ptr;
-    key.dsize = RSTRING(keystr)->len;
-    Check_Type(valstr, T_STRING);
-    val.dptr = RSTRING(valstr)->ptr;
-    val.dsize = RSTRING(valstr)->len;
-
-    GetDBM(obj, dbm);
-    if (dbm_store(dbm, key, val, DBM_REPLACE)) {
-	dbm_clearerr(dbm);
-	if (errno == EPERM) rb_sys_fail(Qnil);
-	Fail("dbm_store failed");
-    }
-    return valstr;
-}
-
-static VALUE
-Fdbm_length(obj)
-    VALUE obj;
-{
-    datum key;
-    DBM *dbm;
-    int i = 0;
-
-    GetDBM(obj, dbm);
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	i++;
-    }
-    return INT2FIX(i);
-}
-
-static VALUE
-Fdbm_each_value(obj)
-    VALUE obj;
-{
-    datum key, val;
-    DBM *dbm;
-
-    GetDBM(obj, dbm);
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	val = dbm_fetch(dbm, key);
-	rb_yield(str_new(val.dptr, val.dsize));
-    }
-    return obj;
-}
-
-static VALUE
-Fdbm_each_key(obj)
-    VALUE obj;
-{
-    datum key;
-    DBM *dbm;
-
-    GetDBM(obj, dbm);
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	rb_yield(str_new(key.dptr, key.dsize));
-    }
-    return obj;
-}
-
-static VALUE
-Fdbm_each_pair(obj)
-    VALUE obj;
-{
-    datum key, val;
-    DBM *dbm;
-    VALUE keystr, valstr;
-
-    GetDBM(obj, dbm);
-
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	val = dbm_fetch(dbm, key);
-	keystr = str_new(key.dptr, key.dsize);
-	valstr = str_new(val.dptr, val.dsize);
-	rb_yield(assoc_new(keystr, valstr));
-    }
-
-    return obj;
-}
-
-static VALUE
-Fdbm_keys(obj)
-    VALUE obj;
-{
-    datum key;
-    DBM *dbm;
-    VALUE ary;
-
-    ary = ary_new();
-    GetDBM(obj, dbm);
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	ary_push(ary, str_new(key.dptr, key.dsize));
-    }
-
-    return ary;
-}
-
-static VALUE
-Fdbm_values(obj)
-    VALUE obj;
-{
-    datum key, val;
-    DBM *dbm;
-    VALUE ary;
-
-    ary = ary_new();
-    GetDBM(obj, dbm);
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	val = dbm_fetch(dbm, key);
-	ary_push(ary, str_new(val.dptr, val.dsize));
-    }
-
-    return ary;
-}
-
-static VALUE
-Fdbm_has_key(obj, keystr)
-    VALUE obj, keystr;
-{
-    datum key, val;
-    DBM *dbm;
-
-    Check_Type(keystr, T_STRING);
-    key.dptr = RSTRING(keystr)->ptr;
-    key.dsize = RSTRING(keystr)->len;
-
-    GetDBM(obj, dbm);
-    val = dbm_fetch(dbm, key);
-    if (val.dptr) return TRUE;
-    return FALSE;
-}
-
-static VALUE
-Fdbm_has_value(obj, valstr)
-    VALUE obj, valstr;
-{
-    datum key, val;
-    DBM *dbm;
-
-    Check_Type(valstr, T_STRING);
-    val.dptr = RSTRING(valstr)->ptr;
-    val.dsize = RSTRING(valstr)->len;
-
-    GetDBM(obj, dbm);
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	val = dbm_fetch(dbm, key);
-	if (val.dsize == RSTRING(valstr)->len &&
-	    memcmp(val.dptr, RSTRING(valstr)->ptr, val.dsize) == 0)
-	    return TRUE;
-    }
-    return FALSE;
-}
-
-static VALUE
-Fdbm_to_a(obj)
-    VALUE obj;
-{
-    datum key, val;
-    DBM *dbm;
-    VALUE ary;
-
-    GetDBM(obj, dbm);
-
-    ary = ary_new();
-    for (key = dbm_firstkey(dbm); key.dptr; key = dbm_nextkey(dbm)) {
-	val = dbm_fetch(dbm, key);
-	ary_push(ary, assoc_new(str_new(key.dptr, key.dsize),
-				str_new(val.dptr, val.dsize)));
-    }
-
-    return ary;
-}
-
-Init_dbm()
-{
-#ifdef HAVE_LIBDBM
-    dln_load_lib("libdbm.a");
-#endif
-    C_DBM = rb_define_class("DBM", C_Object);
-    rb_include_module(C_DBM, M_Enumerable);
-
-    rb_define_single_method(C_DBM, "open", Sdbm_open, -1);
-    rb_define_method(C_DBM, "close", Fdbm_close, 0);
-    rb_define_method(C_DBM, "[]", Fdbm_fetch, 1);
-    rb_define_method(C_DBM, "[]=", Fdbm_store, 2);
-    rb_define_method(C_DBM, "indexes",  Fdbm_indexes, -2);
-    rb_define_method(C_DBM, "length", Fdbm_length, 0);
-    rb_define_alias(C_DBM,  "size", "length");
-    rb_define_method(C_DBM, "each", Fdbm_each_pair, 0);
-    rb_define_method(C_DBM, "each_value", Fdbm_each_value, 0);
-    rb_define_method(C_DBM, "each_key", Fdbm_each_key, 0);
-    rb_define_method(C_DBM, "each_pair", Fdbm_each_pair, 0);
-    rb_define_method(C_DBM, "keys", Fdbm_keys, 0);
-    rb_define_method(C_DBM, "values", Fdbm_values, 0);
-    rb_define_method(C_DBM, "shift", Fdbm_shift, 1);
-    rb_define_method(C_DBM, "delete", Fdbm_delete, 1);
-    rb_define_method(C_DBM, "delete_if", Fdbm_delete_if, 0);
-    rb_define_method(C_DBM, "clear", Fdbm_clear, 0);
-    rb_define_method(C_DBM, "includes", Fdbm_has_key, 1);
-    rb_define_method(C_DBM, "has_key", Fdbm_has_key, 1);
-    rb_define_method(C_DBM, "has_value", Fdbm_has_value, 1);
-
-    rb_define_method(C_DBM, "to_a", Fdbm_to_a, 0);
-}
-#endif				/* USE_DBM */