summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-12-16 07:30:36 +0000
committermatz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>1998-12-16 07:30:36 +0000
commite299d511db939232c628d6880e61c32e83937d66 (patch)
treea2083bfd64a4fb3ed7454a7e7062ff9f7fa1232e
parentce8859c5563493a94f57d3b630e7b9c1d3cd656f (diff)
first public release of 1.1d (pre1.2) series
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1dev@354 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r--ChangeLog81
-rw-r--r--MANIFEST9
-rw-r--r--README.EXT327
-rw-r--r--README.EXT.jp48
-rw-r--r--ToDo39
-rw-r--r--config.guess15
-rw-r--r--configure.in40
-rw-r--r--dln.c17
-rw-r--r--enum.c4
-rw-r--r--error.c10
-rw-r--r--eval.c115
-rw-r--r--ext/extmk.rb.in15
-rw-r--r--ext/gtk/gtk.c10
-rw-r--r--gc.c16
-rw-r--r--hash.c8
-rw-r--r--intern.h12
-rw-r--r--io.c2
-rw-r--r--lib/debug.rb4
-rw-r--r--lib/delegate.rb50
-rw-r--r--lib/mailread.rb2
-rw-r--r--lib/mkmf.rb10
-rw-r--r--lib/pstore.rb1
-rw-r--r--misc/README5
-rw-r--r--misc/inf-ruby.el (renamed from sample/inf-ruby.el)11
-rw-r--r--misc/ruby-mode.el (renamed from sample/ruby-mode.el)8
-rw-r--r--misc/rubydb2x.el (renamed from sample/rubydb2x.el)0
-rw-r--r--misc/rubydb3x.el (renamed from sample/rubydb3x.el)0
-rw-r--r--missing/nt.c17
-rw-r--r--numeric.c2
-rw-r--r--object.c22
-rw-r--r--pack.c157
-rw-r--r--parse.y48
-rw-r--r--process.c44
-rw-r--r--re.h1
-rw-r--r--regex.c1
-rw-r--r--ruby.c22
-rw-r--r--ruby.h16
-rw-r--r--rubyio.h1
-rw-r--r--sample/cal.rb4
-rw-r--r--st.c9
-rw-r--r--string.c6
-rw-r--r--top.sed2
-rw-r--r--variable.c168
-rw-r--r--version.h2
44 files changed, 911 insertions, 470 deletions
diff --git a/ChangeLog b/ChangeLog
index 45aa379..b08a28f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,68 @@
+Wed Dec 16 16:28:31 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * experimental version 1.1d0 (pre1.2) released.
+
+Wed Dec 16 10:43:34 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * regex.c (re_search): bound check before calling re_match().
+
+Tue Dec 15 13:59:01 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * error.c (exc_to_s): returns class name for unset mesg.
+
+ * error.c (exc_initialize): do not initialize @mesg by "".
+
+ * parse.y (nextc): __END__ should handle CR+LF newlines.
+
+Wed Dec 9 13:37:12 1998 MAEDA shugo <shugo@aianet.ne.jp>
+
+ * pack.c (encodes): use buffering for B-encoding.
+
+ * pack.c (pack_pack): Q-encoding by 'M'.
+
+Tue Dec 8 14:10:00 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * variable.c (generic_ivar_get): any object can have instance
+ variables now. great improvement.
+
+ * variable.c (rb_name_class): do not set __classpath__ by default,
+ use __classid__ instead.
+
+Mon Dec 7 22:08:22 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * ruby.h (struct RFile): IO objects can have instance variables now.
+
+ * parse.y (primary): allows `def obj::foo; .. end'.
+
+Mon Dec 7 18:24:50 1998 WATANABE Tetsuya <tetsu@jpn.hp.com>
+
+ * ruby.c (set_arg0): $0 supprt for HP-UX.
+
+Mon Dec 7 01:30:28 1998 WATANABE Hirofumi <watanabe@ase.ptg.sony.co.jp>
+
+ * dln.c (dln_strerror): better error messages on win32.
+
+Sat Dec 5 23:27:23 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * parse.y (here_document): indentable here-doc delimiter by
+ `<<-'. Proposed by Clemens <c.hintze@gmx.net>. Thanks.
+
+Thu Dec 3 16:50:17 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * ext/extmk.rb.in (realclean): trouble on install.
+
+Sun Nov 29 22:25:39 1998 Takaaki Tateishi <ttate@jaist.ac.jp>
+
+ * process.c (f_exec): check number of argument.
+
+Wed Nov 25 13:07:12 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * parse.y (yycompile): reduce known memory leak (hard to remove).
+
+Thu Nov 26 17:27:30 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * version 1.1c9 released.
+
Wed Nov 25 03:41:21 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
* st.c (st_init_table_with_size): round size up to prime number.
@@ -20,6 +85,14 @@ Sat Nov 21 23:27:23 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
* string.c (rb_str_dup): do not copy additional data (STR_NO_ORIG).
+Sat Nov 21 18:44:06 1998 Masaki Fukushima <fukusima@goto.info.waseda.ac.jp>
+
+ * time.c (time_s_now): had memory leak.
+
+ * ext/md5/md5init.c (md5_new): had memory leak.
+
+ * ext/md5/md5init.c (md5_clone): ditto.
+
Fri Nov 20 23:23:23 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
* lib/delegate.rb: do not propagate hash and eql?.
@@ -34,15 +107,15 @@ Thu Nov 19 01:40:52 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
* eval.c (rb_eval): actual rest arguments extended arrays too much.
-Wed Nov 18 10:48:09 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
-
- * io.c (read_all): SEGV on large files.
-
Wed Nov 18 14:30:24 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
* class.c (rb_define_global_function): global functions now be
module function of the Kernel.
+Wed Nov 18 10:48:09 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
+
+ * io.c (read_all): SEGV on large files.
+
Tue Nov 17 18:11:20 1998 Yukihiro Matsumoto <matz@netlab.co.jp>
* version 1.1c8 released.
diff --git a/MANIFEST b/MANIFEST
index 5193149..131906d 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -131,6 +131,11 @@ lib/thwait.rb
lib/timeout.rb
lib/tracer.rb
lib/weakref.rb
+misc/README
+misc/inf-ruby.el
+misc/ruby-mode.el
+misc/rubydb2x.el
+mics/rubydb3x.el
missing/alloca.c
missing/crypt.c
missing/dir.h
@@ -174,7 +179,6 @@ sample/from.rb
sample/fullpath.rb
sample/getopts.test
sample/goodfriday.rb
-sample/inf-ruby.el
sample/less.rb
sample/list.rb
sample/list2.rb
@@ -194,9 +198,6 @@ sample/rcs.awk
sample/rcs.dat
sample/rcs.rb
sample/regx.rb
-sample/ruby-mode.el
-sample/rubydb2x.el
-sample/rubydb3x.el
sample/sieve.rb
sample/svr.rb
sample/test.rb
diff --git a/README.EXT b/README.EXT
index a6d6cdb..f169e54 100644
--- a/README.EXT
+++ b/README.EXT
@@ -84,37 +84,28 @@ There are faster check-macros for fixnums and nil.
1.3 Convert VALUE into C data
-データタイプがT_NIL, T_FALSE, T_TRUEである時,データはそれぞ
-れnil, false, trueです.このデータタイプのオブジェクトはひと
-つずつしか存在しません.
-
-データタイプがT_FIXNUMの時,これは31bitのサイズを持つ整数で
-す.FIXNUMをCの整数に変換するためにはマクロ「FIX2INT()」を使
-います.それから,FIXNUMに限らずRubyのデータを整数に変換する
-「NUM2INT()」というマクロがあります.このマクロはデータタイ
-プのチェック無しで使えます(整数に変換できない場合には例外が
-発生する).
-
-それ以外のデータタイプは対応するCの構造体があります.対応す
-る構造体のあるVALUEはそのままキャスト(型変換)すれば構造体の
-ポインタに変換できます.
-
-構造体は「struct RXxxxx」という名前でruby.hで定義されていま
-す.例えば文字列は「struct RString」です.実際に使う可能性が
-あるのは文字列と配列くらいだと思います.
-
-ruby.hでは構造体へキャストするマクロも「RXXXXX()」(全部大文
-字にしたもの)という名前で提供されています(例: RSTRING()).
-
-例えば,文字列strの長さを得るためには「RSTRING(str)->len」と
-し,文字列strをchar*として得るためには「RSTRING(str)->ptr」
-とします.配列の場合には,それぞれ「RARRAT(str)->len」,
-「RARRAT(str)->ptr」となります.
-
-Rubyの構造体を直接アクセスする時に気をつけなければならないこ
-とは,配列や文字列の構造体の中身は参照するだけで,直接変更し
-ないことです.直接変更した場合,オブジェクトの内容の整合性が
-とれなくなって,思わぬバグの原因になります.
+The data for type T_NIL, T_FALSE, T_TRUE are nil, true, false
+respectively. They are singletons for the data type.
+
+The T_FIXNUM data is the 31bit length fixed integer (63bit length on
+some machines), which can be conver to the C integer by using
+FIX2INT() macro. There also be NUM2INT() which converts any Ruby
+numbers into C integer. The NUM2INT() macro includes type check, so
+the exception will be raised if conversion failed.
+
+Other data types have corresponding C structures, e.g. struct RArray
+for T_ARRAY etc. VALUE of the type which has corresponding structure
+can be cast to retrieve the pointer to the struct. The casting macro
+RXXXX for each data type like RARRAY(obj). see "ruby.h".
+
+For example, `RSTRING(size)->len' is the way to get the size of the
+Ruby String object. The allocated region can be accessed by
+`RSTRING(str)->ptr'. For arrays, `RARRAY(ary)->len' and
+`RARRAY(ary)->ptr' respectively.
+
+Notice: Do not change the value of the structure directly, unless you
+are responsible about the result. It will be the cause of interesting
+bugs.
1.4 Convert C data into VALUE
@@ -150,12 +141,9 @@ INT2NUM()は整数がFIXNUMの範囲に収まらない場合,Bignumに変換
1.5 Manipulate Ruby data
-先程も述べた通り,Rubyの構造体をアクセスする時に内容の更新を
-行うことは勧められません.で,Rubyのデータを操作する時には
-Rubyが用意している関数を用いてください.
-
-ここではもっとも使われるであろう文字列と配列の生成/操作を行
-い関数をあげます(全部ではないです).
+As I already told, it is not recommended to modify object's internal
+structure. To manipulate objects, use functions supplied by Ruby
+interpreter. Useful functions are listed below (not all):
String funtions
@@ -213,160 +201,148 @@ Rubyで提供されている関数を使えばRubyインタプリタに新しい機能
を追加することができます.Rubyでは以下の機能を追加する関数が
提供されています.
- * クラス,モジュール
- * メソッド,特異メソッドなど
- * 定数
+ * Classes, Modules
+ * Methods, Singleton Methods
+ * Constants
では順に紹介します.
2.1.1 Class/module definition
-クラスやモジュールを定義するためには,以下の関数を使います.
+To define class or module, use functions below:
VALUE rb_define_class(char *name, VALUE super)
VALUE rb_define_module(char *name)
-これらの関数は新しく定義されたクラスやモジュールを返します.
-メソッドや定数の定義にこれらの値が必要なので,ほとんどの場合
-は戻り値を変数に格納しておく必要があるでしょう.
+These functions return the newly created class ot module. You may
+want to save this reference into the variable to use later.
2.1.2 Method/singleton method definition
-メソッドや特異メソッドを定義するには以下の関数を使います.
+To define methods or singleton methods, use functions below:
void rb_define_method(VALUE class, char *name,
VALUE (*func)(), int argc)
void rb_define_singleton_method(VALUE object, char *name,
- VALUE (*func)(), int argc)
+ VALUE (*func)(), int argc)
+The `argc' represents the number of the arguments to the C function,
+which must be less than 17. But I believe you don't need that much. :-)
-念のため説明すると「特異メソッド」とは,その特定のオブジェク
-トに対してだけ有効なメソッドです.RubyではよくSmalltalkにお
-けるクラスメソッドとして,クラスに対する特異メソッドが使われ
-ます.
+If `argc' is negative, it specifies calling sequence, not number of
+the arguments.
-これらの関数の argcという引数はCの関数へ渡される引数の数(と
-形式)を決めます.argcが正の時は関数に引き渡す引数の数を意味
-します.16個以上の引数は使えません(が,要りませんよね,そん
-なに).
+If argc is -1, the function will be called like:
-argcが負の時は引数の数ではなく,形式を指定したことになります.
-argcが-1の時は引数を配列に入れて渡されます.argcが-2の時は引
-数はRubyの配列として渡されます.
+ VALUE func(int argc, VALUE *argv, VALUE obj)
-メソッドを定義する関数はもう二つあります.ひとつはprivateメ
-ソッドを定義する関数で,引数はrb_define_method()と同じです.
+where argc is the actual number of arguments, argv is the C array of
+the arguments, and obj is the receiver.
+
+if argc is -2, the arguments are passed in Ruby array. The function
+will be called like:
+
+ VALUE func(VALUE obj, VALUE args)
+
+where obj is the receiver, and args is the Ruby array containing
+actual arguments.
+
+There're two more functions to define method. One is to define
+private method:
void rb_define_private_method(VALUE class, char *name,
VALUE (*func)(), int argc)
-privateメソッドとは関数形式でしか呼び出すことの出来ないメソッ
-ドです.
-
-もうひとつはモジュール関数を定義するものです.モジュール関数
-とはモジュールの特異メソッドであり,同時にprivateメソッドで
-もあるものです.例をあげるとMathモジュールのsqrt()などがあげ
-られます.このメソッドは
+The other is to define module function, which is private AND singleton
+method of the module. For example, sqrt is the module function
+defined in Math module. It can be call in the form like:
Math.sqrt(4)
-という形式でも
+or
include Math
sqrt(4)
-という形式でも使えます.モジュール関数を定義する関数は以下の
-通りです.
+To define module function
void rb_define_module_function(VALUE module, char *name,
VALUE (*func)(), int argc)
-関数的メソッド(Kernelモジュールのprivaet method)を定義するた
-めの関数は以下の通りです.
+Oh, in addition, function-like method, which is private method defined
+in Kernel module, can be defined using:
void rb_define_global_function(char *name, VALUE (*func)(), int argc)
2.1.3 Constant definition
-拡張モジュールが必要な定数はあらかじめ定義しておいた方が良い
-でしょう.定数を定義する関数は二つあります.
+We have 2 functions to define constants:
void rb_define_const(VALUE class, char *name, VALUE val)
void rb_define_global_const(char *name, VALUE val)
-前者は特定のクラス/モジュールに属する定数を定義するもの,後
-者はグローバルな定数を定義するものです.
+The former is to define constant under specified class/module. The
+latter is to define global constant.
2.2 Use Ruby features from C
-既に『1.5 Rubyのデータを操作する』で一部紹介したような関数を
-使えば,Rubyの機能を実現している関数を直接呼び出すことが出来
-ます.
-
-# このような関数の一覧表はいまのところありません.ソースを見
-# るしかないですね.
-
-それ以外にもRubyの機能を呼び出す方法はいくつかあります.
+There are several ways to invoke Ruby's features from C code.
-2.2.1 Rubyのプログラムをevalする
+2.2.1 Evaluate Ruby Program in String
-CからRubyの機能を呼び出すもっとも簡単な方法として,文字列で
-与えられたRubyのプログラムを評価する関数があります.
+Easiest way to call Ruby's function from C program is to evaluate the
+string as Ruby program. This function will do the job.
VALUE rb_eval_string(char *str)
-この評価は現在の環境で行われます.つまり,現在のローカル変数
-などを受け継ぎます.
+Evaluation is done under current context, thus current local variables
+of the innermost method (which is defined by Ruby) can be accessed.
2.2.2 ID or Symbol
-Cから文字列を経由せずにRubyのメソッドを呼び出すこともできま
-す.その前に,Rubyインタプリタ内でメソッドや変数名を指定する
-時に使われているIDについて説明しておきましょう.
-
-IDとは変数名,メソッド名を表す整数です.Rubyの中では
+You can invoke methods directly, without parsing the string. First I
+need to explain about symbols (which data type is ID). ID is the
+integer number to represent Ruby's identifiers such as variable names.
+It can be accessed from Ruby in the form like:
- :識別子
+ :Identifier
-でアクセスできます.Cからこの整数を得るためには関数
+You can get the symbol value from string within C code, by using
rb_intern(char *name)
-を使います.また一文字の演算子はその文字コードがそのままシン
-ボルになっています.
+In addition, the symbols for one character operators (e.g +) is the
+code for that character.
2.2.3 Invoke Ruby method from C
-Cから文字列を経由せずにRubyのメソッドを呼び出すためには以下
-の関数を使います.
+To invoke methods directly, you can use the function below
VALUE rb_funcall(VALUE recv, ID mid, int argc, ...)
-この関数はオブジェクトrecvのmidで指定されるメソッドを呼び出
-します.
+This function invokes the method of the recv, which name is specified
+by the symbol mid.
-2.2.4 変数/定数を参照/更新する
+2.2.4 Accessing the variables and constants
Cから関数を使って参照・更新できるのは,クラス定数,インスタ
ンス変数です.大域変数は一部のものはCの大域変数としてアクセ
スできます.ローカル変数を参照する方法は公開していません.
-オブジェクトのインスタンス変数を参照・更新する関数は以下の通
-りです.
+The functions to access/modify instance variables are below:
VALUE rb_ivar_get(VALUE obj, ID id)
VALUE rb_ivar_set(VALUE obj, ID id, VALUE val)
-idはrb_intern()で得られるものを使ってください.
+id must be the symbol, which can be retrieved by rb_intern().
-クラス定数を参照するには以下の関数を使ってください.
+To access the constants of the class/module:
VALUE rb_const_get(VALUE obj, ID id)
-クラス定数を新しく定義するためには『2.1.3 定数定義』で紹介さ
-れている関数を使ってください.
+See 2.1.3 for defining new constant.
3. Informatin sharing between Ruby and C
@@ -477,7 +453,7 @@ Cの構造体へのポインタは変数svalに代入されます.
4.Example - Create dbm module
-ここまでの説明でとりあえず拡張モジュールは作れるはずです.
+ここまでの説明でとりあえず拡張ライブラリは作れるはずです.
Rubyのextディレクトリにすでに含まれているdbmモジュールを例に
して段階的に説明します.
@@ -485,39 +461,30 @@ Rubyのextディレクトリにすでに含まれているdbmモジュールを例に
% mkdir ext/dbm
-Rubyを展開したディレクトリの下,extディレクトリの中に拡張モ
-ジュール用のディレクトリを作ります.名前は適当に選んで構いま
-せん.
+Make a directory for the extension library under ext directory.
(2) create MANIFEST file
% cd ext/dbm
% touch MANIFEST
-拡張モジュールのディレクトリの下にはMANIFESTというファイルが
-必要なので,とりあえず空のファイルを作っておきます.後でこの
-ファイルには必要なファイル一覧が入ることになります.
-
-MANIFESTというファイルは,makeの時にディレクトリが拡張モジュー
-ルを含んでいるかどうか判定するために使われれています.
+There should be MANIFEST file in the directory for the extension
+library. Make empty file now.
(3) design the library
-まあ,当然なんですけど,どういう機能を実現するかどうかまず設
-計する必要があります.どんなクラスをつくるか,そのクラスには
-どんなメソッドがあるか,クラスが提供する定数などについて設計
-します.dbmクラスについてはext/dbm.docを参照してください.
+You need to design the library features, before making it.
(4) write C code.
-拡張モジュール本体となるC言語のソースを書きます.C言語のソー
+拡張ライブラリ本体となるC言語のソースを書きます.C言語のソー
スがひとつの時には「モジュール名.c」を選ぶと良いでしょう.C
言語のソースが複数の場合には逆に「モジュール名.c」というファ
イル名は避ける必要があります.オブジェクトファイルとモジュー
ル生成時に中間的に生成される「モジュール名.o」というファイル
とが衝突するからです.
-Rubyは拡張モジュールをロードする時に「Init_モジュール名」と
+Rubyは拡張ライブラリをロードする時に「Init_モジュール名」と
いう関数を自動的に実行します.dbmモジュールの場合「Init_dbm」
です.この関数の中でクラス,モジュール,メソッド,定数などの
定義を行います.dbm.cから一部引用します.
@@ -525,22 +492,20 @@ Rubyは拡張モジュールをロードする時に「Init_モジュール名」と
--
Init_dbm()
{
- /* DBMクラスを定義する */
+ /* define DBM class */
cDBM = rb_define_class("DBM", rb_cObject);
- /* DBMはEnumerateモジュールをインクルードする */
+ /* DBM includes Enumerate module */
rb_include_module(cDBM, rb_mEnumerable);
- /* DBMクラスのクラスメソッドopen(): 引数はCの配列で受ける */
+ /* DBM has class method open(): arguments are received as C array */
rb_define_singleton_method(cDBM, "open", fdbm_s_open, -1);
- /* DBMクラスのメソッドclose(): 引数はなし */
+ /* DBM instance method close(): no args */
rb_define_method(cDBM, "close", fdbm_close, 0);
- /* DBMクラスのメソッド[]: 引数は1個 */
+ /* DBM instance method []: 1 argument */
rb_define_method(cDBM, "[]", fdbm_fetch, 1);
:
- /* DBMデータを格納するインスタンス変数名のためのID */
- id_dbm = rb_intern("dbm");
}
--
@@ -646,11 +611,10 @@ fdbm_indexes(obj, args)
らすため struct RArray* で受けていますが,VALUEでも同じこと
です.
-** 注意事項
+** Notice
-Rubyと共有はしないがRubyのオブジェクトを格納する可能性のある
-Cの大域変数は以下の関数を使ってRubyインタプリタに変数の存在
-を教えてあげてください.でないとGCでトラブルを起こします.
+GC should know about global variables which refers Ruby's objects, but
+not exported to the Ruby world. You need to protect them by
void rb_global_variable(VALUE *var)
@@ -704,22 +668,22 @@ Rubyのディレクトリでmakeを実行するとMakefileを生成からmake,
してくれます.extconf.rbを書き換えるなどしてMakefileの再生成
が必要な時はまたRubyディレクトリでmakeしてください.
-(9) rb_debug
+(9) debug
You may need to rb_debug the module. The modules can be linked
statically by adding directory name in the ext/Setup file,
so that you can inspect the module by the debugger.
-(10) done, now you have the extension module
+(10) done, now you have the extension library
後はこっそり使うなり,広く公開するなり,売るなり,ご自由にお
-使いください.Rubyの作者は拡張モジュールに関して一切の権利を
+使いください.Rubyの作者は拡張ライブラリに関して一切の権利を
主張しません.
Appendix A. Rubyのソースコードの分類
Rubyのソースはいくつかに分類することが出来ます.このうちクラ
-スライブラリの部分は基本的に拡張モジュールと同じ作り方になっ
+スライブラリの部分は基本的に拡張ライブラリと同じ作り方になっ
ています.これらのソースは今までの説明でほとんど理解できると
思います.
@@ -847,54 +811,63 @@ superのサブクラスとして新しいRubyクラスを定義し,moduleの定
オブジェクトをモジュール(で定義されているメソッド)で拡張する.
-** 大域変数定義
+** Defining Global Variables
void rb_define_variable(char *name, VALUE *var)
-RubyとCとで共有するグローバル変数を定義する.変数名が`$'で始
-まらない時には自動的に追加される.nameとしてRubyの識別子とし
-て許されない文字(例えば` ')を含む場合にはRubyプログラムから
-は見えなくなる.
+Defines a global variable which is shared between C and Ruby. If name
+contains the character which is not allowed to be part of the symbol,
+it can't be seen from Ruby programs.
void rb_define_readonly_variable(char *name, VALUE *var)
-RubyとCとで共有するread onlyのグローバル変数を定義する.read
-onlyであること以外はrb_define_variable()と同じ.
+Defines a read-only global variable. Works just like
+rb_define_variable(), except defined variable is read-only.
void rb_define_virtual_variable(char *name,
VALUE (*getter)(), VALUE (*setter)())
-関数によって実現されるRuby変数を定義する.変数が参照された時
-にはgetterが,変数に値がセットされた時にはsetterが呼ばれる.
+Defines a virtual variable, whose behavior is defined by pair of C
+functions. The getter function is called when the variable is
+referred. The setter function is called when the value is set to the
+variable. The prototype for getter/setter functions are:
+
+ VALUE getter(ID id)
+ void setter(VALUE val, ID id)
+
+The getter function must return the value for the access.
void rb_define_hooked_variable(char *name, VALUE *var,
VALUE (*getter)(), VALUE (*setter)())
-関数によってhookのつけられたグローバル変数を定義する.変数が
-参照された時にはgetterが,関数に値がセットされた時にはsetter
-が呼ばれる.getterやsetterに0を指定した時にはhookを指定しな
-いのと同じ事になる.
+Defines hooked variable. It's virtual variable with C variable. The
+getter is called as
+
+ VALUE getter(ID id, VALUE *var)
+
+returning new value. The setter is called as
+
+ void setter(VALUE val, ID id, VALUE *var)
+
+GC requires to mark the C global variables which hold Ruby values.
void rb_global_variable(VALUE *var)
-GCのため,Rubyプログラムからはアクセスされないが, Rubyオブジェ
-クトを含む大域変数をマークする.
+Tells GC to protect these variables.
-** クラス定数
+** Constant Definition
- void rb_define_const(VALUE class, char *name, VALUE val)
+ void rb_define_const(VALUE klass, char *name, VALUE val)
-クラス定数を定義する.
+Defines a new constant under the class/module.
void rb_define_global_const(char *name, VALUE val)
-大域定数を定義する.
+Defines global contant. This is just work as
rb_define_const(cKernal, name, val)
-と同じ意味.
-
-** メソッド定義
+** Method Definition
rb_define_method(VALUE class, char *name, VALUE (*func)(), int argc)
@@ -1008,50 +981,46 @@ rb_verbose時に標準エラー出力に警告情報を表示する.引数はprintf()と同じ.
況の時呼ぶ.インタープリタはコアダンプし直ちに終了する.例外
処理は一切行なわれない.
-** Rubyの初期化・実行
+** Initialize and Starts the Interpreter
-Rubyをアプリケーションに埋め込む場合には以下のインタフェース
-を使う.通常の拡張モジュールには必要ない.
+The embedding API are below (not needed for extension libraries):
void ruby_init(int argc, char **argv, char **envp)
-Rubyインタプリタの初期化を行なう.
+Initializes the interpreter.
void ruby_run()
-Rubyインタプリタを実行する.
+Starts execution of the interpreter.
void ruby_script(char *name)
-Rubyのスクリプト名($0)を設定する.
-
+Specifies the name of the script ($0).
-Appendix B. extconf.rbで使える関数たち
+Appendix B. Functions Available in extconf.rb
extconf.rbの中では利用可能なコンパイル条件チェックの関数は以
下の通りである.
have_library(lib, func)
-関数funcを定義しているライブラリlibの存在をチェックする.ラ
-イブラリが存在する時,Qtrueを返す.
+Checks whether library which contains specified function exists.
+Returns true if the library exists.
have_func(func)
-関数funcの存在をチェックする.funcが標準ではリンクされないラ
-イブラリ内のものである時には先にhave_libraryでそのライブラリ
-をチェックしておく事.関数が存在する時TRUEを返す.
+Checks whether func exists. Returns true if the function exists. To
+check functions in the additional library, you need to check that
+library first using have_library().
have_header(header)
-ヘッダファイルの存在をチェックする.ヘッダファイルが存在する
-時TRUEを返す.
+Checks for the header files. Returns true if the header file exists.
create_makefile(target)
-拡張モジュール用のMakefileを生成する.この関数を呼ばなければ
-そのモジュールはコンパイルされない.targetはモジュール名を表
-す.
+Generates the Makefile for the extension library. If you don't invoke
+this method, the compilation will not be done.
/*
* Local variables:
diff --git a/README.EXT.jp b/README.EXT.jp
index 9dbd845..87175be 100644
--- a/README.EXT.jp
+++ b/README.EXT.jp
@@ -1,6 +1,6 @@
.\" README.EXT - -*- Text -*- created at: Mon Aug 7 16:45:54 JST 1995
-Rubyの拡張モジュールの作り方を説明します.
+Rubyの拡張ライブラリの作り方を説明します.
1.基礎知識
@@ -120,8 +120,8 @@ ruby.hでは構造体へキャストするマクロも「RXXXXX()」(全部大文
例えば,文字列strの長さを得るためには「RSTRING(str)->len」と
し,文字列strをchar*として得るためには「RSTRING(str)->ptr」
-とします.配列の場合には,それぞれ「RARRAY(str)->len」,
-「RARRAY(str)->ptr」となります.
+とします.配列の場合には,それぞれ「RARRAY(ary)->len」,
+「RARRAY(ary)->ptr」となります.
Rubyの構造体を直接アクセスする時に気をつけなければならないこ
とは,配列や文字列の構造体の中身は参照するだけで,直接変更し
@@ -309,7 +309,7 @@ privateメソッドとは関数形式でしか呼び出すことの出来ないメソッ
2.1.3 定数定義
-拡張モジュールが必要な定数はあらかじめ定義しておいた方が良い
+拡張ライブラリが必要な定数はあらかじめ定義しておいた方が良い
でしょう.定数を定義する関数は二つあります.
void rb_define_const(VALUE class, char *name, VALUE val)
@@ -376,9 +376,9 @@ applyには引数としてRubyの配列を与えます.
2.2.4 変数/定数を参照/更新する
-Cから関数を使って参照・更新できるのは,クラス定数,インスタ
-ンス変数です.大域変数は一部のものはCの大域変数としてアクセ
-スできます.ローカル変数を参照する方法は公開していません.
+Cから関数を使って参照・更新できるのは,定数,インスタンス変
+数です.大域変数は一部のものはCの大域変数としてアクセスでき
+ます.ローカル変数を参照する方法は公開していません.
オブジェクトのインスタンス変数を参照・更新する関数は以下の通
りです.
@@ -388,11 +388,11 @@ Cから関数を使って参照・更新できるのは,クラス定数,インスタ
idはrb_intern()で得られるものを使ってください.
-クラス定数を参照するには以下の関数を使ってください.
+定数を参照するには以下の関数を使ってください.
VALUE rb_const_get(VALUE obj, ID id)
-クラス定数を新しく定義するためには『2.1.3 定数定義』で紹介さ
+定数を新しく定義するためには『2.1.3 定数定義』で紹介さ
れている関数を使ってください.
3.RubyとCとの情報共有
@@ -504,7 +504,7 @@ Cの構造体へのポインタは変数svalに代入されます.
4.例題 - dbmパッケージを作る
-ここまでの説明でとりあえず拡張モジュールは作れるはずです.
+ここまでの説明でとりあえず拡張ライブラリは作れるはずです.
Rubyのextディレクトリにすでに含まれているdbmモジュールを例に
して段階的に説明します.
@@ -523,12 +523,12 @@ Ruby 1.1からは任意のディレクトリでダイナミックライブラリを作
% cd ext/dbm
% touch MANIFEST
-拡張モジュールのディレクトリの下にはMANIFESTというファイルが
+拡張ライブラリのディレクトリの下にはMANIFESTというファイルが
必要なので,とりあえず空のファイルを作っておきます.後でこの
ファイルには必要なファイル一覧が入ることになります.
MANIFESTというファイルは,静的リンクのmakeの時にディレクトリ
-が拡張モジュールを含んでいるかどうか判定するために使われれて
+が拡張ライブラリを含んでいるかどうか判定するために使われれて
います.ダイナミックライブラリを作る場合には必ずしも必要では
ありません.
@@ -541,14 +541,14 @@ MANIFESTというファイルは,静的リンクのmakeの時にディレクトリ
(4) Cコードを書く
-拡張モジュール本体となるC言語のソースを書きます.C言語のソー
+拡張ライブラリ本体となるC言語のソースを書きます.C言語のソー
スがひとつの時には「モジュール名.c」を選ぶと良いでしょう.C
言語のソースが複数の場合には逆に「モジュール名.c」というファ
イル名は避ける必要があります.オブジェクトファイルとモジュー
ル生成時に中間的に生成される「モジュール名.o」というファイル
とが衝突するからです.
-Rubyは拡張モジュールをロードする時に「Init_モジュール名」と
+Rubyは拡張ライブラリをロードする時に「Init_モジュール名」と
いう関数を自動的に実行します.dbmモジュールの場合「Init_dbm」
です.この関数の中でクラス,モジュール,メソッド,定数などの
定義を行います.dbm.cから一部引用します.
@@ -762,7 +762,7 @@ extconf.rbを書き換えるなどしてMakefileの再生成が必要な時はま
動的リンクライブラリはmake installでRubyライブラリのディレク
トリの下にコピーされます.もしモジュールと協調して使うRubyで
記述されたプログラムがあり,Rubyライブラリに置きたい場合には,
-拡張モジュール用のディレクトリの下に lib というディレクトリ
+拡張ライブラリ用のディレクトリの下に lib というディレクトリ
を作り,そこに 拡張子 .rb のファイルを置いておけば同時にイン
ストールされます.
@@ -775,13 +775,13 @@ extconf.rbを書き換えるなどしてMakefileの再生成が必要な時はま
(11) できあがり
後はこっそり使うなり,広く公開するなり,売るなり,ご自由にお
-使いください.Rubyの作者は拡張モジュールに関して一切の権利を
+使いください.Rubyの作者は拡張ライブラリに関して一切の権利を
主張しません.
Appendix A. Rubyのソースコードの分類
Rubyのソースはいくつかに分類することが出来ます.このうちクラ
-スライブラリの部分は基本的に拡張モジュールと同じ作り方になっ
+スライブラリの部分は基本的に拡張ライブラリと同じ作り方になっ
ています.これらのソースは今までの説明でほとんど理解できると
思います.
@@ -962,11 +962,11 @@ onlyであること以外はrb_define_variable()と同じ.
GCのため,Rubyプログラムからはアクセスされないが, Rubyオブジェ
クトを含む大域変数をマークする.
-** クラス定数
+** 定数
- void rb_define_const(VALUE class, char *name, VALUE val)
+ void rb_define_const(VALUE klass, char *name, VALUE val)
-クラス定数を定義する.
+定数を定義する.
void rb_define_global_const(char *name, VALUE val)
@@ -1098,7 +1098,7 @@ exceptionで指定した例外を発生させる.fmt以下の引数はprintf()と同じ.
** Rubyの初期化・実行
Rubyをアプリケーションに埋め込む場合には以下のインタフェース
-を使う.通常の拡張モジュールには必要ない.
+を使う.通常の拡張ライブラリには必要ない.
void ruby_init(int argc, char **argv, char **envp)
@@ -1121,7 +1121,7 @@ extconf.rbの中では利用可能なコンパイル条件チェックの関数は以
have_library(lib, func)
関数funcを定義しているライブラリlibの存在をチェックする.ラ
-イブラリが存在する時,Qtrueを返す.
+イブラリが存在する時,trueを返す.
have_func(func)
@@ -1132,11 +1132,11 @@ extconf.rbの中では利用可能なコンパイル条件チェックの関数は以
have_header(header)
ヘッダファイルの存在をチェックする.ヘッダファイルが存在する
-時TRUEを返す.
+時trueを返す.
create_makefile(target)
-拡張モジュール用のMakefileを生成する.この関数を呼ばなければ
+拡張ライブラリ用のMakefileを生成する.この関数を呼ばなければ
そのモジュールはコンパイルされない.targetはモジュール名を表
す.
diff --git a/ToDo b/ToDo
index edb2389..87fd542 100644
--- a/ToDo
+++ b/ToDo
@@ -1,5 +1,36 @@
-* non-blocking open/write for thread
-* avoid blocking with gethostbyname/gethostbyaddr
+Language Spec.
+
* package or access control for global variables
-* format
-* freeze or undump to bundle everything in birary format.
+* named arguments like foo(nation:="german").
+* multiple return values, yield values. maybe imcompatible
+
+Hacking Interpreter
+
+* non-blocking open (e.g. named pipe) for thread
+* avoid blocking with gethostbyname/gethostbyaddr
+* objectify interpreters
+* remove rb_eval() recursions
+* syntax tree -> bytecode ???
+* scrambled script, or script filter
+
+Extension Libraries
+
+* mod_ruby, FastCGI ruby
+* InterBase module
+* ptk.rb pTk wrapper that is compatible to tk.rb
+
+Ruby Libraries
+
+* CGI.rb
+* httplib.rb, urllib.rb, nttplib.rb, etc.
+* format like perl's
+
+Tools
+
+* extension library maker like XS or SWIG
+* freeze or undump to bundle everything
+
+Misc
+
+* translate README.EXT fully into English
+* publish Ruby books
diff --git a/config.guess b/config.guess
index d628579..d1eb24f 100644
--- a/config.guess
+++ b/config.guess
@@ -740,6 +740,21 @@ EOF
BePC:BeOS:*:*)
echo i586-pc-beos
exit 0 ;;
+
+ *:Rhapsody:*:*)
+ arch=`/usr/bin/arch`
+ case "$arch" in
+ ppc)
+ echo powerpc-apple-rhapsody${UNAME_RELEASE}
+ ;;
+ i[3456]86)
+ echo i386-apple-rhapsody${UNAME_RELEASE}
+ ;;
+ *)
+ echo $arch-apple-rhapsody${UNAME_RELEASE}
+ ;;
+ esac
+ exit 0 ;;
esac
#echo '(No uname command or uname output not recognized.)' 1>&2
diff --git a/configure.in b/configure.in
index 6aa2254..33b43de 100644
--- a/configure.in
+++ b/configure.in
@@ -34,25 +34,37 @@ fat_binary=no
AC_ARG_ENABLE( fat-binary,
[--enable-fat-binary build a NeXT/Apple Multi Architecture Binary. ],
[ fat_binary=$enableval ] )
- if test "$fat_binary" = yes ; then
+ if test "$fat_binary" = yes ; then
AC_MSG_CHECKING( target architecture )
- if test "$host_os" = "rhapsody" ; then
- echo -n "Rhapsody: "
- if test "$TARGET_ARCHS" = "" ; then
- TARGET_ARCHS="ppc i486"
+ case "$host_os" in
+ rhapsody*)
+ echo -n "MacOS X Server: "
+ if test "$TARGET_ARCHS" = "" ; then
+ TARGET_ARCHS="ppc i386"
fi
- else
+ ;;
+ nextstep*|openstep*)
echo -n "NeXTSTEP/OPENSTEP: "
- if test "$TARGET_ARCHS" = "" ; then
- if test `/usr/bin/arch` = "m68k" ; then
- TARGET_ARCHS="m68k i486"
- else
- TARGET_ARCHS="m68k `/usr/bin/arch`"
- fi
+
+ if test "$host_os" = "rhapsody" ; then
+ echo -n "Rhapsody: "
+ if test "$TARGET_ARCHS" = "" ; then
+ TARGET_ARCHS="ppc i486"
+ fi
+ else
+ echo -n "NeXTSTEP/OPENSTEP: "
+ if test "$TARGET_ARCHS" = "" ; then
+ if test `/usr/bin/arch` = "m68k" ; then
+ TARGET_ARCHS="m68k i486"
+ else # Black and Native one
+ TARGET_ARCHS="m68k `/usr/bin/arch`"
+ fi
+ fi
fi
- fi
+ ;;
+ esac
# /usr/lib/arch_tool -archify_list $TARGET_ARCHS
for archs in $TARGET_ARCHS
do
@@ -163,7 +175,7 @@ AC_REPLACE_FUNCS(dup2 setenv memmove mkdir strcasecmp strerror strftime\
AC_CHECK_FUNCS(fmod killpg drand48 random wait4 waitpid syscall getcwd\
truncate chsize times utimes fcntl lockf setitimer\
setruid seteuid setreuid setrgid setegid setregid\
- setpgrp2 getpgid getgroups getpriority\
+ setpgrp2 getpgid setpgid getgroups getpriority\
dlopen sigprocmask sigaction _setjmp setpgrp setsid)
if test "$ac_cv_func_strftime" = no; then
AC_STRUCT_TIMEZONE
diff --git a/dln.c b/dln.c
index 0c06a03..418bb6b 100644
--- a/dln.c
+++ b/dln.c
@@ -1129,15 +1129,22 @@ dln_strerror()
#ifdef _WIN32
static char message[1024];
+ int error = GetLastError();
+ char *p = message;
+ p += sprintf(message, "%d: ", error);
FormatMessage(
FORMAT_MESSAGE_FROM_SYSTEM,
NULL,
- GetLastError(),
- MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US),
- message,
- sizeof message,
+ error,
+ MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
+ p,
+ sizeof message - strlen(message),
NULL);
+ for (p = message; *p; p++) {
+ if (*p == '\n' || *p == '\r')
+ *p = ' ';
+ }
return message;
#endif
}
@@ -1213,7 +1220,7 @@ dln_load(file)
/* Load file */
if ((handle =
LoadLibraryExA(winfile, NULL, LOAD_WITH_ALTERED_SEARCH_PATH)) == NULL) {
- printf("LoadLibraryExA\n");
+ printf("LoadLibraryExA: %s\n", winfile);
goto failed;
}
diff --git a/enum.c b/enum.c
index 61d4761..7dd1842 100644
--- a/enum.c
+++ b/enum.c
@@ -343,7 +343,11 @@ each_with_index_i(val, indexp)
VALUE val;
int *indexp;
{
+#if 0
rb_yield(rb_assoc_new(val, INT2FIX(*indexp)));
+#else
+ rb_yield(rb_ary_concat(val, INT2FIX(*indexp)));
+#endif
(*indexp)++;
return Qnil;
}
diff --git a/error.c b/error.c
index bec8feb..44ca067 100644
--- a/error.c
+++ b/error.c
@@ -274,10 +274,7 @@ exc_initialize(argc, argv, exc)
{
VALUE mesg;
- if (rb_scan_args(argc, argv, "01", &mesg) == 0) {
- mesg = rb_str_new(0, 0);
- }
- else {
+ if (rb_scan_args(argc, argv, "01", &mesg) == 1) {
STR2CSTR(mesg); /* ensure mesg can be converted to String */
}
rb_iv_set(exc, "mesg", mesg);
@@ -308,7 +305,10 @@ static VALUE
exc_to_s(exc)
VALUE exc;
{
- return rb_iv_get(exc, "mesg");
+ VALUE mesg = rb_iv_get(exc, "mesg");
+
+ if (NIL_P(mesg)) return rb_class_path(CLASS_OF(exc));
+ return mesg;
}
static VALUE
diff --git a/eval.c b/eval.c
index 79ce7ab..9679eeb 100644
--- a/eval.c
+++ b/eval.c
@@ -97,41 +97,6 @@ rb_clear_cache()
}
}
-static int cache_conflict;
-static int eval_called;
-
-static int
-count_cent()
-{
- struct cache_entry *ent, *end;
- int n = 0, n2 = 0;
- int p = 0;
-
- fprintf(stderr, "\n|");
- ent = cache; end = ent + CACHE_SIZE;
- while (ent < end) {
- fprintf(stderr, (ent->klass != 0)?"*":" ");
- p++;
- if (p % 80 == 0) {
- break;
- }
- ent++;
- }
- fprintf(stderr, "|\n|");
- p = 0; ent = cache;
- while (ent < end) {
- if (ent->klass != 0) {n++; n2++;}
- p++;
- if (p % 24 == 0) {
- fprintf(stderr, "%c", n2?(n2+'0'):' ');
- n2 = 0;
- }
- ent++;
- }
- fprintf(stderr, "|\n");
- return n;
-}
-
static void
rb_clear_cache_by_id(id)
ID id;
@@ -433,7 +398,10 @@ static struct SCOPE *top_scope;
_frame.argc = 0; \
ruby_frame = &_frame; \
-#define POP_FRAME() ruby_frame = _frame.prev; }
+#define POP_FRAME() \
+ ruby_sourcefile = _frame.file; \
+ ruby_sourceline = _frame.line; \
+ ruby_frame = _frame.prev; }
struct BLOCK {
NODE *var;
@@ -873,7 +841,9 @@ error_print()
ep = RARRAY(errat);
for (i=1; i<ep->len; i++) {
- fprintf(stderr, "\tfrom %s\n", RSTRING(ep->ptr[i])->ptr);
+ if (TYPE(ep->ptr[i]) == T_STRING) {
+ fprintf(stderr, "\tfrom %s\n", RSTRING(ep->ptr[i])->ptr);
+ }
if (i == TRACE_HEAD && ep->len > TRACE_MAX) {
fprintf(stderr, "\t ... %d levels...\n",
ep->len - TRACE_HEAD - TRACE_TAIL);
@@ -1016,11 +986,6 @@ ruby_run()
#endif
exec_end_proc();
rb_gc_call_finalizer_at_exit();
-#if 1
- fprintf(stderr, "%d/%d(%d)\n", count_cent(), CACHE_SIZE, cache_conflict);
-#else
- fprintf(stderr, "rb_eval() called %d times\n", eval_called);
-#endif
}
else {
ex = state;
@@ -1666,8 +1631,6 @@ rb_eval(self, node)
#define RETURN(v) { result = (v); goto finish; }
- eval_called++;
-
again:
if (!node) RETURN(Qnil);
@@ -3030,12 +2993,12 @@ rb_f_raise(argc, argv)
}
if (!NIL_P(mesg)) {
- if (n >= 2) {
- mesg = rb_funcall(etype, rb_intern("new"), 1, mesg);
- }
- else if (TYPE(mesg) == T_STRING) {
+ if (n == 1 && TYPE(mesg) == T_STRING) {
mesg = rb_exc_new3(rb_eRuntimeError, mesg);
}
+ else if (n == 1 || n == 2) {
+ mesg = rb_funcall(etype, rb_intern("new"), n-1, mesg);
+ }
if (!rb_obj_is_kind_of(mesg, rb_eException)) {
rb_raise(rb_eTypeError, "exception object expected");
}
@@ -3835,22 +3798,13 @@ rb_call(klass, recv, mid, argc, argv, scope)
noex = ent->noex;
body = ent->method;
}
- else {
- if (ent->mid) {
- fprintf(stderr, "%s#%s -> %s#%s (%d)\n", rb_class2name(ent->klass),
- rb_id2name(ent->mid),
- rb_class2name(klass),
- rb_id2name(id), ent-cache);
- cache_conflict++;
- }
- if ((body = rb_get_method_body(&klass, &id, &noex)) == 0) {
+ else if ((body = rb_get_method_body(&klass, &id, &noex)) == 0) {
if (scope == 3) {
rb_raise(rb_eNameError, "super: no superclass method `%s'",
rb_id2name(mid));
}
return rb_undefined(recv, mid, argc, argv, scope==2?CSTAT_VCALL:0);
}
- }
/* receiver specified form for private method */
if ((noex & NOEX_PRIVATE) && scope == 0)
@@ -4537,7 +4491,7 @@ rb_f_require(obj, fname)
VALUE obj, fname;
{
char *ext, *file, *feature, *buf; /* OK */
- VALUE load;
+ volatile VALUE load;
rb_secure(4);
Check_SafeStr(fname);
@@ -5510,7 +5464,7 @@ method_call(argc, argv, method)
Data_Get_Struct(method, struct METHOD, data);
PUSH_ITER(rb_iterator_p()?ITER_PRE:ITER_NOT);
PUSH_TAG(PROT_NONE);
- if (FL_TEST(data->recv, FL_TAINT)) {
+ if (FL_TEST(data->recv, FL_TAINT) || FL_TEST(method, FL_TAINT)) {
FL_SET(method, FL_TAINT);
if (safe_level < 4) safe_level = 4;
}
@@ -6543,6 +6497,34 @@ static VALUE rb_thread_raise _((int, VALUE*, VALUE));
#define SCOPE_SHARED FL_USER1
+#if defined(HAVE_SETITIMER) && !defined(__BOW__)
+static int thread_init = 0;
+
+void
+thread_start_timer()
+{
+ struct itimerval tval;
+
+ if (!thread_init) return;
+ tval.it_interval.tv_sec = 0;
+ tval.it_interval.tv_usec = 100000;
+ tval.it_value = tval.it_interval;
+ setitimer(ITIMER_VIRTUAL, &tval, NULL);
+}
+
+void
+thread_stop_timer()
+{
+ struct itimerval tval;
+
+ if (!thread_init) return;
+ tval.it_interval.tv_sec = 0;
+ tval.it_interval.tv_usec = 0;
+ tval.it_value = tval.it_interval;
+ setitimer(ITIMER_VIRTUAL, &tval, NULL);
+}
+#endif
+
static VALUE
rb_thread_create_0(fn, arg, klass)
VALUE (*fn)();
@@ -6554,11 +6536,7 @@ rb_thread_create_0(fn, arg, klass)
int state;
#if defined(HAVE_SETITIMER) && !defined(__BOW__)
- static init = 0;
-
- if (!init) {
- struct itimerval tval;
-
+ if (!thread_init) {
#ifdef POSIX_SIGNAL
posix_signal(SIGVTALRM, catch_timer);
posix_signal(SIGALRM, catch_timer);
@@ -6567,11 +6545,8 @@ rb_thread_create_0(fn, arg, klass)
signal(SIGALRM, catch_timer);
#endif
- tval.it_interval.tv_sec = 0;
- tval.it_interval.tv_usec = 100000;
- tval.it_value = tval.it_interval;
- setitimer(ITIMER_VIRTUAL, &tval, NULL);
- init = 1;
+ thread_init = 1;
+ thread_start_timer();
}
#endif
diff --git a/ext/extmk.rb.in b/ext/extmk.rb.in
index b609515..e162352 100644
--- a/ext/extmk.rb.in
+++ b/ext/extmk.rb.in
@@ -313,11 +313,11 @@ archdir = $(pkglibdir)/@arch@
mfile.printf $objs.join(" ")
mfile.printf "\n"
- mfile.printf "\
-TARGET = %s.%s
+ mfile.printf << EOS
+TARGET = #{target}.#{$static ? "a" : "@DLEXT@"}
-INSTALL = %s@INSTALL@
-INSTALL_DATA = %s@INSTALL_DATA@
+INSTALL = #{$dots}@INSTALL@
+INSTALL_DATA = @INSTALL_DATA@
binsuffix = @binsuffix@
@@ -328,16 +328,15 @@ clean:; @rm -f *.o *.a *.so *.sl
@rm -f core ruby$(binsuffix) *~
realclean: clean
-", target,
- if $static then "a" else "@DLEXT@" end, $dots, $dots
+EOS
- mfile.printf "\
+ mfile.printf <<EOS
install:
@test -d $(DESTDIR)$(libdir) || mkdir $(DESTDIR)$(libdir)
@test -d $(DESTDIR)$(pkglibdir) || mkdir $(DESTDIR)$(pkglibdir)
@test -d $(DESTDIR)$(archdir) || mkdir $(DESTDIR)$(archdir)
-"
+EOS
if !$static
mfile.printf "\
$(INSTALL) $(TARGET) $(DESTDIR)$(archdir)/$(TARGET)
diff --git a/ext/gtk/gtk.c b/ext/gtk/gtk.c
index fb7c591..1afe083 100644
--- a/ext/gtk/gtk.c
+++ b/ext/gtk/gtk.c
@@ -6647,11 +6647,11 @@ idle()
return Qtrue;
}
-static void
+static VALUE
exec_interval(proc)
VALUE proc;
{
- rb_funcall(proc, id_call, 0);
+ return rb_funcall(proc, id_call, 0);
}
static VALUE
@@ -6660,8 +6660,8 @@ timeout_add(self, interval)
{
int id;
- id = gtk_timeout_add_interp(NUM2INT(interval), exec_interval,
- (gpointer)rb_f_lambda(), 0);
+ id = gtk_timeout_add(NUM2INT(interval), (GtkFunction)exec_interval,
+ (gpointer)rb_f_lambda());
return INT2FIX(id);
}
@@ -6679,7 +6679,7 @@ idle_add(self)
{
int id;
- id = gtk_idle_add_interp(exec_interval, (gpointer)rb_f_lambda(), 0);
+ id = gtk_idle_add((GtkFunction)exec_interval, (gpointer)rb_f_lambda());
return INT2FIX(id);
}
diff --git a/gc.c b/gc.c
index 82b677c..dde9826 100644
--- a/gc.c
+++ b/gc.c
@@ -392,6 +392,10 @@ rb_gc_mark(ptr)
obj->as.basic.flags |= FL_MARK;
+ if (FL_TEST(obj, FL_EXIVAR)) {
+ return rb_mark_generic_ivar((VALUE)obj);
+ }
+
switch (obj->as.basic.flags & T_MASK) {
case T_NIL:
case T_FIXNUM:
@@ -616,7 +620,7 @@ rb_gc_mark(ptr)
#define MIN_FREE_OBJ 512
-static void obj_free();
+static void obj_free _((VALUE));
static void
gc_sweep()
@@ -693,6 +697,10 @@ obj_free(obj)
if (need_call_final && FL_TEST(obj, FL_FINALIZE)) {
run_final(obj);
}
+ if (FL_TEST(obj, FL_EXIVAR)) {
+ rb_free_generic_ivar((VALUE)obj);
+ }
+
switch (RANY(obj)->as.basic.flags & T_MASK) {
case T_OBJECT:
if (RANY(obj)->as.object.iv_tbl) {
@@ -871,11 +879,14 @@ rb_gc()
for (list = Global_List; list; list = list->next) {
rb_gc_mark(*list->varptr);
}
-
rb_gc_mark_global_tbl();
+
mark_tbl(rb_class_tbl);
rb_gc_mark_trap_list();
+ /* mark generic instance variables for special constants */
+ rb_mark_generic_ivar_tbl();
+
gc_sweep();
dont_gc--;
}
@@ -1070,6 +1081,7 @@ id2ref(obj, id)
{
unsigned long ptr = NUM2UINT(id);
+ rb_secure(4);
if (FIXNUM_P(ptr)) return (VALUE)ptr;
if (ptr == Qtrue) return Qtrue;
if (ptr == Qfalse) return Qfalse;
diff --git a/hash.c b/hash.c
index d7d6f4d..6ce5313 100644
--- a/hash.c
+++ b/hash.c
@@ -1027,7 +1027,7 @@ static VALUE
env_each(hash)
VALUE hash;
{
- VALUE ary = env_keys();
+ volatile VALUE ary = env_keys();
VALUE *ptr = RARRAY(ary)->ptr;
int len = RARRAY(ary)->len;
@@ -1044,7 +1044,7 @@ env_each(hash)
static VALUE
env_delete_if()
{
- VALUE ary;
+ volatile VALUE ary;
VALUE *ptr;
int len;
@@ -1124,7 +1124,7 @@ env_has_value(dmy, value)
VALUE dmy, value;
{
char **env;
- VALUE ary;
+ volatile VALUE ary;
if (TYPE(value) != T_STRING) return Qfalse;
ary = rb_ary_new();
@@ -1168,7 +1168,7 @@ env_to_hash(obj)
VALUE obj;
{
VALUE hash = rb_hash_new();
- VALUE ary = env_keys();
+ volatile VALUE ary = env_keys();
VALUE *ptr = RARRAY(ary)->ptr;
int len = RARRAY(ary)->len;
diff --git a/intern.h b/intern.h
index 86a74b8..364e97e 100644
--- a/intern.h
+++ b/intern.h
@@ -67,6 +67,7 @@ VALUE rb_define_module_id _((ID));
VALUE rb_mod_included_modules _((VALUE));
VALUE rb_mod_ancestors _((VALUE));
VALUE rb_class_instance_methods _((int, VALUE*, VALUE));
+VALUE rb_class_protected_instance_methods _((int, VALUE*, VALUE));
VALUE rb_class_private_instance_methods _((int, VALUE*, VALUE));
VALUE rb_obj_singleton_methods _((VALUE));
void rb_define_method_id _((VALUE, ID, VALUE (*)(), int));
@@ -100,9 +101,6 @@ VALUE rb_dvar_defined _((ID));
VALUE rb_dvar_ref _((ID));
void rb_dvar_asgn _((ID, VALUE));
void rb_dvar_push _((ID, VALUE));
-void ruby_init _((void));
-void ruby_options _((int, char**));
-void ruby_run _((void));
VALUE rb_eval_cmd _((VALUE, VALUE));
VALUE rb_trap_eval _((VALUE, int));
int rb_respond_to _((VALUE, ID));
@@ -119,6 +117,8 @@ VALUE rb_class_new_instance _((int, VALUE*, VALUE));
VALUE rb_f_lambda _((void));
void rb_set_end_proc _((void (*)(),VALUE));
void rb_gc_mark_threads _((void));
+void thread_start_timer _((void));
+void thread_stop_timer _((void));
void rb_thread_schedule _((void));
void rb_thread_wait_fd _((int));
void rb_thread_fd_writable _((int));
@@ -175,9 +175,7 @@ VALUE rb_num2fix _((VALUE));
VALUE rb_fix2str _((VALUE, int));
VALUE rb_fix_upto _((VALUE, VALUE));
/* object.c */
-VALUE rb_equal _((VALUE, VALUE));
int rb_eql _((VALUE, VALUE));
-VALUE rb_obj_equal _((VALUE, VALUE));
VALUE rb_any_to_s _((VALUE));
VALUE rb_inspect _((VALUE));
VALUE rb_obj_is_instance_of _((VALUE, VALUE));
@@ -191,7 +189,6 @@ VALUE rb_Integer _((VALUE));
VALUE rb_Float _((VALUE));
VALUE rb_String _((VALUE));
VALUE rb_Array _((VALUE));
-double rb_num2dbl _((VALUE));
/* parse.y */
extern int ruby_sourceline;
extern char *ruby_sourcefile;
@@ -291,6 +288,9 @@ VALUE rb_f_untrace_var _((int, VALUE*));
VALUE rb_gvar_set2 _((char*, VALUE));
VALUE rb_f_global_variables _((void));
void rb_alias_variable _((ID, ID));
+void rb_mark_generic_ivar _((VALUE));
+void rb_mark_generic_ivar_tbl _((void));
+void rb_free_generic_ivar _((VALUE));
VALUE rb_ivar_get _((VALUE, ID));
VALUE rb_ivar_set _((VALUE, ID, VALUE));
VALUE rb_ivar_defined _((VALUE, ID));
diff --git a/io.c b/io.c
index 1da75b6..7144f59 100644
--- a/io.c
+++ b/io.c
@@ -2544,7 +2544,7 @@ arg_read(argc, argv)
next_p = 1;
goto retry;
}
- if (NIL_P(tmp)) return str;
+ if (NIL_P(tmp) || RSTRING(tmp)->len == 0) return str;
else if (NIL_P(str)) str = tmp;
else rb_str_cat(str, RSTRING(tmp)->ptr, RSTRING(tmp)->len);
if (argc == 0) {
diff --git a/lib/debug.rb b/lib/debug.rb
index 497d163..90270a3 100644
--- a/lib/debug.rb
+++ b/lib/debug.rb
@@ -267,6 +267,6 @@ class DEBUGGER__
CONTEXT = new
end
-set_trace_func proc{|event, file, line, id, binding, klass|
- DEBUGGER__::CONTEXT.trace_func event, file, line, id, binding, klass
+set_trace_func proc{|event, file, line, id, binding|
+ DEBUGGER__::CONTEXT.trace_func event, file, line, id, binding
}
diff --git a/lib/delegate.rb b/lib/delegate.rb
index d784586..594c500 100644
--- a/lib/delegate.rb
+++ b/lib/delegate.rb
@@ -20,24 +20,32 @@ class Delegator
def initialize(obj)
preserved = ::Kernel.instance_methods
+ preserved -= ["to_s","to_a","inspect","==","=~","==="]
for t in self.type.ancestors
preserved |= t.instance_methods
+ preserved |= t.private_instance_methods
+ preserved |= t.protected_instance_methods
break if t == Delegator
end
- preserved -= ["to_s","to_a","inspect","==","=~","==="]
for method in obj.methods
next if preserved.include? method
- eval <<EOS
-def self.#{method}(*args, &block)
- begin
- __getobj__.__send__(:#{method}, *args, &block)
- rescue Exception
- n = if /:in `__getobj__'$/ =~ $@[0] then 1 else 2 end #`
- $@[1,n] = nil
- raise
- end
-end
-EOS
+ eval <<-EOS
+ def self.#{method}(*args, &block)
+ begin
+ __getobj__.__send__(:#{method}, *args, &block)
+ rescue Exception
+ c = -caller(0).size
+ if /:in `__getobj__'$/ =~ $@[c-1] #`
+ n = 1
+ else
+ c -= 1
+ n = 2
+ end
+ $@[c,n] = nil
+ raise
+ end
+ end
+ EOS
end
end
@@ -72,14 +80,14 @@ def DelegateClass(superclass)
klass = Class.new
methods = superclass.instance_methods
methods -= ::Kernel.instance_methods
- methods |= ["to_s","to_a","inspect","hash","eql?","==","=~","==="]
- klass.module_eval <<EOS
+ methods |= ["to_s","to_a","inspect","==","=~","==="]
+ klass.module_eval <<-EOS
def initialize(obj)
@obj = obj
end
-EOS
+ EOS
for method in methods
- klass.module_eval <<EOS
+ klass.module_eval <<-EOS
def #{method}(*args, &block)
begin
@obj.__send__(:#{method}, *args, &block)
@@ -88,7 +96,7 @@ EOS
raise
end
end
-EOS
+ EOS
end
return klass;
end
@@ -107,10 +115,12 @@ if __FILE__ == $0
foo = Object.new
def foo.test
+ 25
+ end
+ def foo.error
raise 'this is OK'
end
foo2 = SimpleDelegator.new(foo)
- p foo.hash == foo2.hash # => true
- foo.test # raise error!
-
+ p foo.test == foo2.test # => true
+ foo2.error # raise error!
end
diff --git a/lib/mailread.rb b/lib/mailread.rb
index 8ec951e..5e46606 100644
--- a/lib/mailread.rb
+++ b/lib/mailread.rb
@@ -1,7 +1,7 @@
class Mail
def initialize(f)
- unless f.kind_of?(IO)
+ unless defined? f.gets
f = open(f, "r")
opened = true
end
diff --git a/lib/mkmf.rb b/lib/mkmf.rb
index 0aa9d98..218b3b1 100644
--- a/lib/mkmf.rb
+++ b/lib/mkmf.rb
@@ -289,7 +289,8 @@ LDSHARED = #{CONFIG["LDSHARED"]}
prefix = #{CONFIG["prefix"]}
exec_prefix = #{CONFIG["exec_prefix"]}
-libdir = #{$archdir}
+libdir = #{$libdir}
+archdir = #{$archdir}
#### End of system configuration section. ####
@@ -312,11 +313,12 @@ clean:; @rm -f *.o *.so *.sl
realclean: clean
-install: $(libdir)/$(TARGET)
+install: $(archdir)/$(TARGET)
-$(libdir)/$(TARGET): $(TARGET)
+$(archdir)/$(TARGET): $(TARGET)
@test -d $(libdir) || mkdir $(libdir)
- $(INSTALL) $(TARGET) $(libdir)/$(TARGET)
+ @test -d $(archdir) || mkdir $(archdir)
+ $(INSTALL) $(TARGET) $(archdir)/$(TARGET)
EOMF
install_rb(mfile)
mfile.printf "\n"
diff --git a/lib/pstore.rb b/lib/pstore.rb
index f075dbc..2aa9864 100644
--- a/lib/pstore.rb
+++ b/lib/pstore.rb
@@ -110,6 +110,7 @@ class PStore
@abort = false
end
ensure
+ @table = nil
@transaction = false
end
value
diff --git a/misc/README b/misc/README
new file mode 100644
index 0000000..adc119d
--- /dev/null
+++ b/misc/README
@@ -0,0 +1,5 @@
+README this file
+inf-ruby.el program to run ruby under emacs
+ruby-mode.el ruby mode for emacs
+rubydb2x.el ruby debugger support for emacs 19.2x or before
+rubydb3x.el ruby debugger support for emacs 19.3x or later
diff --git a/sample/inf-ruby.el b/misc/inf-ruby.el
index 504aff2..8668f1d 100644
--- a/sample/inf-ruby.el
+++ b/misc/inf-ruby.el
@@ -1,8 +1,8 @@
(J;;;(B (J-*-Emacs-Lisp-*-(B
;;;
-;;; $Id: inf-ruby.el,v 1.4 1998/05/20 02:45:58 senda Exp $
-;;; $Author: senda $
-;;; $Date: 1998/05/20 02:45:58 $
+;;; $Id$
+;;; $Author$
+;;; $Date$
;;;
;;; Inferior Ruby Mode - ruby process in a buffer.
;;; adapted from cmuscheme.el
@@ -34,7 +34,10 @@
;;;
;;; HISTORY
;;; senda - 8 Apr 1998: Created.
-;;; $Log: inf-ruby.el,v $
+;;; $Log$
+;;; Revision 1.1.2.1 1998/12/16 07:30:36 matz
+;;; first public release of 1.1d (pre1.2) series
+;;;
;;; Revision 1.4 1998/05/20 02:45:58 senda
;;; default program to irb
;;;
diff --git a/sample/ruby-mode.el b/misc/ruby-mode.el
index 8bf843c..d202561 100644
--- a/sample/ruby-mode.el
+++ b/misc/ruby-mode.el
@@ -2,11 +2,19 @@
;;; ruby-mode.el -
;;;
;;; $Author$
+<<<<<<< ruby-mode.el
;;; $Date$
+=======
+;;; $Date$
+>>>>>>> 1.1.1.2.2.23
;;; created at: Fri Feb 4 14:49:13 JST 1994
;;;
+<<<<<<< ruby-mode.el
+(defconst ruby-mode-revision "$Revision$")
+=======
(defconst ruby-mode-revision "$Revision$")
+>>>>>>> 1.1.1.2.2.23
(defconst ruby-mode-version
(progn
diff --git a/sample/rubydb2x.el b/misc/rubydb2x.el
index a74265f..a74265f 100644
--- a/sample/rubydb2x.el
+++ b/misc/rubydb2x.el
diff --git a/sample/rubydb3x.el b/misc/rubydb3x.el
index 9d4e31f..9d4e31f 100644
--- a/sample/rubydb3x.el
+++ b/misc/rubydb3x.el
diff --git a/missing/nt.c b/missing/nt.c
index a78d82e..3f25c81 100644
--- a/missing/nt.c
+++ b/missing/nt.c
@@ -251,6 +251,9 @@ int SafeFree(char **vec, int vecc)
static char *szInternalCmds[] = {
+ "append",
+ "break",
+ "call",
"cd",
"chdir",
"cls",
@@ -264,6 +267,7 @@ static char *szInternalCmds[] = {
"md",
"mkdir",
"path",
+ "pause",
"rd",
"rem",
"ren",
@@ -280,13 +284,18 @@ static char *szInternalCmds[] = {
int
isInternalCmd(char *cmd)
{
- int fRet;
+ int i, fRet;
char **vec;
- int vecc = NtMakeCmdVector(cmd, &vec, FALSE);
-
+ for( i = 0; szInternalCmds[i] ; i++){
+ if(!strcmp(szInternalCmds[i], vec[0])){
+ fRet = 1;
+ break;
+ }
+ }
+
SafeFree (vec, vecc);
- return 0;
+ return fRet;
}
diff --git a/numeric.c b/numeric.c
index d1921f3..74350d5 100644
--- a/numeric.c
+++ b/numeric.c
@@ -1044,7 +1044,7 @@ static VALUE
fix_rev(num)
VALUE num;
{
- unsigned long val = FIX2UINT(num);
+ unsigned long val = FIX2ULONG(num);
val = ~val;
return rb_int2inum(val);
diff --git a/object.c b/object.c
index 033539f..5abf4db 100644
--- a/object.c
+++ b/object.c
@@ -49,7 +49,7 @@ rb_eql(obj1, obj2)
return rb_funcall(obj1, eql, 1, obj2);
}
-VALUE
+static VALUE
rb_obj_equal(obj1, obj2)
VALUE obj1, obj2;
{
@@ -598,13 +598,6 @@ rb_class_s_inherited()
rb_raise(rb_eTypeError, "can't make subclass of Class");
}
-VALUE rb_mod_name();
-VALUE rb_mod_included_modules();
-VALUE rb_mod_ancestors();
-VALUE rb_class_instance_methods();
-VALUE rb_class_protected_instance_methods();
-VALUE rb_class_private_instance_methods();
-
static VALUE
rb_class_superclass(klass)
VALUE klass;
@@ -624,11 +617,16 @@ ID
rb_to_id(name)
VALUE name;
{
+ ID id;
+
if (TYPE(name) == T_STRING) {
return rb_intern(RSTRING(name)->ptr);
}
- Check_Type(name, T_FIXNUM);
- return FIX2UINT(name);
+ id = NUM2UINT(name);
+ if (!rb_id2name(id)) {
+ rb_raise(rb_eArgError, "%d is not a symbol", id);
+ }
+ return id;
}
static VALUE
@@ -686,8 +684,6 @@ rb_mod_attr_accessor(argc, argv, klass)
return Qnil;
}
-VALUE rb_mod_constants();
-
static VALUE
rb_mod_const_get(mod, name)
VALUE mod, name;
@@ -935,6 +931,7 @@ Init_Object()
rb_mKernel = rb_define_module("Kernel");
rb_include_module(rb_cObject, rb_mKernel);
+ rb_define_private_method(rb_cObject, "initialize", rb_obj_dummy, -1);
rb_define_private_method(rb_cClass, "inherited", rb_obj_dummy, 1);
/*
@@ -1022,7 +1019,6 @@ Init_Object()
rb_define_method(rb_cNilClass, "+", nil_plus, 1);
#endif
- rb_define_global_function("initialize", rb_obj_dummy, -1);
rb_define_global_function("singleton_method_added", rb_obj_dummy, 1);
rb_define_method(rb_cModule, "===", rb_mod_eqq, 1);
diff --git a/pack.c b/pack.c
index cfe4b8b..6b29857 100644
--- a/pack.c
+++ b/pack.c
@@ -77,6 +77,7 @@ endian()
static char *toofew = "too few arguments";
static void encodes _((VALUE,char*,int,int));
+static void qpencode _((VALUE,VALUE,int));
static void
pack_add_ptr(str, add)
@@ -104,7 +105,7 @@ pack_pack(ary, fmt)
int plen;
- p = str2cstr(fmt, &plen);
+ p = rb_str2cstr(fmt, &plen);
pend = p + plen;
res = rb_str_new(0, 0);
@@ -469,6 +470,13 @@ pack_pack(ary, fmt)
}
break;
+ case 'M':
+ from = rb_obj_as_string(NEXTFROM);
+ if (len <= 1)
+ len = 72;
+ qpencode(res, from, len);
+ break;
+
case 'P':
len = 1;
/* FALL THROUGH */
@@ -505,38 +513,121 @@ encodes(str, s, len, type)
int len;
int type;
{
- char hunk[4];
+ char *buff = ALLOCA_N(char, len * 4 / 3 + 6);
+ int i = 0;
char *p, *pend;
char *trans = type == 'u' ? uu_table : b64_table;
int padding;
if (type == 'u') {
- *hunk = len + ' ';
- rb_str_cat(str, hunk, 1);
+ buff[i++] = len + ' ';
padding = '`';
}
else {
padding = '=';
}
- while (len > 0) {
- hunk[0] = trans[077 & (*s >> 2)];
- hunk[1] = trans[077 & (((*s << 4) & 060) | ((s[1] >> 4) & 017))];
- hunk[2] = trans[077 & (((s[1] << 2) & 074) | ((s[2] >> 6) & 03))];
- hunk[3] = trans[077 & s[2]];
- rb_str_cat(str, hunk, 4);
+ while (len >= 3) {
+ buff[i++] = trans[077 & (*s >> 2)];
+ buff[i++] = trans[077 & (((*s << 4) & 060) | ((s[1] >> 4) & 017))];
+ buff[i++] = trans[077 & (((s[1] << 2) & 074) | ((s[2] >> 6) & 03))];
+ buff[i++] = trans[077 & s[2]];
s += 3;
len -= 3;
}
- p = RSTRING(str)->ptr;
- pend = RSTRING(str)->ptr + RSTRING(str)->len;
- if (len == -1) {
- pend[-1] = padding;
+ if (len == 2) {
+ buff[i++] = trans[077 & (*s >> 2)];
+ buff[i++] = trans[077 & (((*s << 4) & 060) | ((s[1] >> 4) & 017))];
+ buff[i++] = trans[077 & (((s[1] << 2) & 074) | (('\0' >> 6) & 03))];
+ buff[i++] = padding;
}
- else if (len == -2) {
- pend[-2] = padding;
- pend[-1] = padding;
+ else if (len == 1) {
+ buff[i++] = trans[077 & (*s >> 2)];
+ buff[i++] = trans[077 & (((*s << 4) & 060) | (('\0' >> 4) & 017))];
+ buff[i++] = padding;
+ buff[i++] = padding;
+ }
+ buff[i++] = '\n';
+ rb_str_cat(str, buff, i);
+}
+
+static char hex_table[] = "0123456789ABCDEF";
+
+static void
+qpencode(str, from, len)
+ VALUE str, from;
+ int len;
+{
+ char buff[1024];
+ int i = 0, n = 0, prev = EOF;
+ unsigned char *s = RSTRING(from)->ptr;
+ unsigned char *send = s + RSTRING(from)->len;
+
+ while (s < send) {
+ if ((*s > 126) ||
+ (*s < 32 && *s != '\n' && *s != '\t') ||
+ (*s == '=')) {
+ buff[i++] = '=';
+ buff[i++] = hex_table[*s >> 4];
+ buff[i++] = hex_table[*s & 0x0f];
+ n += 3;
+ prev = EOF;
+ }
+ else if (*s == '\n') {
+ if (prev == ' ' || prev == '\t') {
+ buff[i++] = '=';
+ buff[i++] = *s;
+ }
+ buff[i++] = *s;
+ n = 0;
+ prev = *s;
+ }
+ else {
+ buff[i++] = *s;
+ n++;
+ prev = *s;
+ }
+ if (n > len) {
+ buff[i++] = '=';
+ buff[i++] = '\n';
+ n = 0;
+ prev = '\n';
+ }
+ if (i > 1024 - 5) {
+ rb_str_cat(str, buff, i);
+ i = 0;
+ }
+ s++;
+ }
+ if (n > 0) {
+ buff[i++] = '=';
+ buff[i++] = '\n';
+ }
+ if (i > 0) {
+ rb_str_cat(str, buff, i);
+ }
+}
+
+#if defined(__GNUC__) && __GNUC__ >= 2 && !defined(RUBY_NO_INLINE)
+static __inline__ int
+#else
+static int
+#endif
+hex2num(c)
+ char c;
+{
+ switch (c) {
+ case '0': case '1': case '2': case '3': case '4':
+ case '5': case '6': case '7': case '8': case '9':
+ return c - '0';
+ case 'a': case 'b': case 'c':
+ case 'd': case 'e': case 'f':
+ return c - 'a' + 10;
+ case 'A': case 'B': case 'C':
+ case 'D': case 'E': case 'F':
+ return c - 'A' + 10;
+ default:
+ return -1;
}
- rb_str_cat(str, "\n", 1);
}
static VALUE
@@ -550,9 +641,9 @@ pack_unpack(str, fmt)
char type;
int len;
- s = str2cstr(str, &len);
+ s = rb_str2cstr(str, &len);
send = s + len;
- p = str2cstr(fmt, &len);
+ p = rb_str2cstr(fmt, &len);
pend = p + len;
ary = rb_ary_new();
@@ -929,6 +1020,32 @@ pack_unpack(str, fmt)
}
break;
+ case 'M':
+ {
+ VALUE str = rb_str_new(0, send - s);
+ char *ptr = RSTRING(str)->ptr;
+ int c1, c2;
+
+ while (s < send) {
+ if (*s == '=') {
+ if (++s == send) break;
+ if (*s != '\n' && s < send - 1) {
+ if ((c1 = hex2num(*s)) == -1) break;
+ if (++s == send) break;
+ if ((c2 = hex2num(*s)) == -1) break;
+ *ptr++ = c1 << 4 | c2;
+ }
+ }
+ else {
+ *ptr++ = *s;
+ }
+ s++;
+ }
+ RSTRING(str)->len = ptr - RSTRING(str)->ptr;
+ rb_ary_push(ary, str);
+ }
+ break;
+
case '@':
s = RSTRING(str)->ptr + len;
break;
diff --git a/parse.y b/parse.y
index 9e8cfad..2fc4de4 100644
--- a/parse.y
+++ b/parse.y
@@ -1150,7 +1150,7 @@ primary : literal
local_pop();
cur_mid = 0;
}
- | kDEF singleton '.' {lex_state = EXPR_FNAME;} fname
+ | kDEF singleton dot_or_colon {lex_state = EXPR_FNAME;} fname
{
value_expr($2);
in_single++;
@@ -1284,6 +1284,7 @@ method_call : operation '(' opt_call_args ')'
{
value_expr($1);
$$ = new_call($1, $3, 0);
+ fixpos($$, $1);
}
| primary tCOLON2 operation '(' opt_call_args ')'
{
@@ -1557,6 +1558,9 @@ operation : tIDENTIFIER
| tCONSTANT
| tFID
+dot_or_colon : '.'
+ | tCOLON2
+
opt_terms : /* none */
| terms
@@ -1723,6 +1727,20 @@ rb_compile_file(f, file, start)
return yycompile(strdup(f));
}
+
+static void
+normalize_newline(line)
+ VALUE line;
+{
+ if (RSTRING(line)->len >= 2 &&
+ RSTRING(line)->ptr[RSTRING(line)->len-1] == '\n' &&
+ RSTRING(line)->ptr[RSTRING(line)->len-2] == '\r')
+ {
+ RSTRING(line)->ptr[RSTRING(line)->len-2] = '\n';
+ RSTRING(line)->len--;
+ }
+}
+
static int
nextc()
{
@@ -1737,19 +1755,20 @@ nextc()
ruby_sourceline = heredoc_end+1;
heredoc_end = 0;
}
+ normalize_newline(v);
while (RSTRING(v)->len >= 2 &&
RSTRING(v)->ptr[RSTRING(v)->len-1] == '\n' &&
RSTRING(v)->ptr[RSTRING(v)->len-2] == '\\') {
VALUE v2 = (*lex_gets)(lex_input);
if (!NIL_P(v2)) {
+ normalize_newline(v2);
rb_str_cat(v, RSTRING(v2)->ptr, RSTRING(v2)->len);
}
}
lex_pbeg = lex_p = RSTRING(v)->ptr;
lex_pend = lex_p + RSTRING(v)->len;
- if (RSTRING(v)->len == 8 &&
- strncmp(lex_pbeg, "__END__", 7) == 0) {
+ if (strncmp(lex_pbeg, "__END__", 7) == 0 && lex_pbeg[7] == '\n') {
lex_lastline = 0;
return -1;
}
@@ -2220,11 +2239,12 @@ parse_quotedword(term, paren)
char *strdup();
static int
-here_document(term)
+here_document(term, indent)
char term;
+ int indent;
{
int c;
- char *eos;
+ char *eos, *p;
int len;
VALUE str, line;
char *save_beg, *save_end, *save_lexp;
@@ -2273,10 +2293,15 @@ here_document(term)
free(eos);
return 0;
}
+ normalize_newline(line);
ruby_sourceline++;
- if (strncmp(eos, RSTRING(line)->ptr, len) == 0 &&
- (RSTRING(line)->ptr[len] == '\n' ||
- RSTRING(line)->ptr[len] == '\r')) {
+ p = RSTRING(line)->ptr;
+ if (indent) {
+ while (*p && (*p == ' ' || *p == '\t')) {
+ p++;
+ }
+ }
+ if (strncmp(eos, p, len) == 0 && p[len] == '\n') {
break;
}
@@ -2486,8 +2511,13 @@ retry:
lex_state != EXPR_END && lex_state != EXPR_CLASS &&
(lex_state != EXPR_ARG || space_seen)) {
int c2 = nextc();
+ int indent = 0;
+ if (c2 == '-') {
+ indent = 1;
+ c2 = nextc();
+ }
if (!ISSPACE(c2) && (strchr("\"'`", c2) || is_identchar(c2))) {
- return here_document(c2);
+ return here_document(c2, indent);
}
pushback(c2);
}
diff --git a/process.c b/process.c
index e4d0d0a..79d30c8 100644
--- a/process.c
+++ b/process.c
@@ -212,28 +212,9 @@ rb_f_waitpid(obj, vpid, vflags)
char *strtok();
-#if defined(USE_THREAD) && defined(HAVE_SETITIMER)
-static void
-before_exec()
-{
- struct itimerval tval;
-
- tval.it_interval.tv_sec = 0;
- tval.it_interval.tv_usec = 0;
- tval.it_value = tval.it_interval;
- setitimer(ITIMER_VIRTUAL, &tval, NULL);
-}
-
-static void
-after_exec()
-{
- struct itimerval tval;
-
- tval.it_interval.tv_sec = 0;
- tval.it_interval.tv_usec = 100000;
- tval.it_value = tval.it_interval;
- setitimer(ITIMER_VIRTUAL, &tval, NULL);
-}
+#if defined(THREAD) && defined(HAVE_SETITIMER)
+#define before_exec() thread_stop_timer()
+#define after_exec() thread_start_timer()
#else
#define before_exec()
#define after_exec()
@@ -503,6 +484,9 @@ rb_f_exec(argc, argv)
VALUE prog = 0;
int i;
+ if (argc == 0) {
+ rb_raise(rb_eArgError, "wrong # of arguments");
+ }
if (TYPE(argv[0]) == T_ARRAY) {
if (RARRAY(argv[0])->len != 2) {
rb_raise(rb_eArgError, "wrong first argument");
@@ -835,6 +819,20 @@ proc_setpgrp(argc, argv)
}
static VALUE
+proc_getpgid(obj, pid)
+ VALUE obj, pid;
+{
+#ifdef HAVE_GETPGID
+ int i;
+
+ i = getpgid(NUM2INT(pid));
+ return INT2NUM(i);
+#else
+ rb_notimplement();
+#endif
+}
+
+static VALUE
proc_setpgid(obj, pid, pgrp)
VALUE obj, pid, pgrp;
{
@@ -1085,7 +1083,7 @@ Init_process()
rb_define_module_function(rb_mProcess, "getpriority", proc_getpriority, 2);
rb_define_module_function(rb_mProcess, "setpriority", proc_setpriority, 3);
-#ifdef PRIO_PROCESS
+#ifdef HAVE_GETPRIORITY
rb_define_const(rb_mProcess, "PRIO_PROCESS", INT2FIX(PRIO_PROCESS));
rb_define_const(rb_mProcess, "PRIO_PGRP", INT2FIX(PRIO_PGRP));
rb_define_const(rb_mProcess, "PRIO_USER", INT2FIX(PRIO_USER));
diff --git a/re.h b/re.h
index 8aeb4e3..3bbbd91 100644
--- a/re.h
+++ b/re.h
@@ -3,7 +3,6 @@
re.h -
$Author$
- $Revision$
$Date$
created at: Thu Sep 30 14:18:32 JST 1993
diff --git a/regex.c b/regex.c
index b3cbb77..c5a903e 100644
--- a/regex.c
+++ b/regex.c
@@ -2812,6 +2812,7 @@ re_search(bufp, string, size, startpos, range, regs)
}
}
+ if (startpos > size) return -1;
if (fastmap && startpos == size && range >= 0
&& (bufp->can_be_null == 0 ||
(bufp->can_be_null && size > 0
diff --git a/ruby.c b/ruby.c
index 289798a..fb78235 100644
--- a/ruby.c
+++ b/ruby.c
@@ -20,6 +20,10 @@
#include <fcntl.h>
#include <ctype.h>
+#ifdef __hpux
+#include <sys/pstat.h>
+#endif
+
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
@@ -607,6 +611,7 @@ set_arg0(val, id)
static int len;
if (origargv == 0) rb_raise(rb_eRuntimeError, "$0 not initialized");
+#ifndef __hpux
if (len == 0) {
s = origargv[0];
s += strlen(s);
@@ -617,7 +622,9 @@ set_arg0(val, id)
}
len = s - origargv[0];
}
+#endif
s = str2cstr(val, &i);
+#ifndef __hpux
if (i > len) {
memcpy(origargv[0], s, len);
origargv[0][len] = '\0';
@@ -630,6 +637,21 @@ set_arg0(val, id)
*s++ = ' ';
}
rb_progname = rb_tainted_str_new2(origargv[0]);
+#else
+ if (i >= PST_CLEN) {
+ union pstun j;
+ j.pst_command = s;
+ i = PST_CLEN;
+ RSTRING(val)->len = i;
+ *(s + i) = '\0';
+ pstat(PSTAT_SETCMD, j, PST_CLEN, 0, 0);
+ } else {
+ union pstun j;
+ j.pst_command = s;
+ pstat(PSTAT_SETCMD, j, i, 0, 0);
+ }
+ rb_progname = str_taint(str_new(s, i));
+#endif
}
void
diff --git a/ruby.h b/ruby.h
index 174cfd6..f0978ba 100644
--- a/ruby.h
+++ b/ruby.h
@@ -163,11 +163,11 @@ VALUE rb_int2inum _((long));
#define T_DATA 0x22
#define T_MATCH 0x23
-#define T_VARMAP 0xfd
-#define T_SCOPE 0xfe
-#define T_NODE 0xff
+#define T_VARMAP 0x7d
+#define T_SCOPE 0x7e
+#define T_NODE 0x7f
-#define T_MASK 0xff
+#define T_MASK 0x7f
#define BUILTIN_TYPE(x) (((struct RBasic*)(x))->flags & T_MASK)
@@ -271,6 +271,7 @@ struct RHash {
struct RFile {
struct RBasic basic;
+ struct st_table *iv_tbl;
struct OpenFile *fptr;
};
@@ -329,9 +330,10 @@ struct RBignum {
#define RFILE(obj) (R_CAST(RFile)(obj))
#define FL_SINGLETON FL_USER0
-#define FL_MARK (1<<8)
-#define FL_FINALIZE (1<<9)
-#define FL_TAINT (1<<10)
+#define FL_MARK (1<<7)
+#define FL_FINALIZE (1<<8)
+#define FL_TAINT (1<<9)
+#define FL_EXIVAR (1<<10)
#define FL_USHIFT 11
diff --git a/rubyio.h b/rubyio.h
index 9fc4ec8..5b8baf0 100644
--- a/rubyio.h
+++ b/rubyio.h
@@ -45,6 +45,7 @@ typedef struct OpenFile {
fp->finalize = 0;\
} while (0)
+#define GetReadFile(fptr) ((fptr)->f)
#define GetWriteFile(fptr) (((fptr)->f2) ? (fptr)->f2 : (fptr)->f)
FILE *rb_fopen _((char *, char *));
diff --git a/sample/cal.rb b/sample/cal.rb
index b0f5d88..a5f4b4d 100644
--- a/sample/cal.rb
+++ b/sample/cal.rb
@@ -1,7 +1,7 @@
#! /usr/local/bin/ruby
# cal.rb (bsd compatible version): Written by Tadayoshi Funaba 1998
-# $Id: bsdcal.rb,v 1.1 1998/06/01 12:53:01 tadf Exp $
+# $Id: bsdcal.rb,v 1.2 1998/12/01 13:47:40 tadf Exp $
require 'date2'
@@ -59,7 +59,7 @@ def zip(xs)
until xs.empty?
ln = (if $jd then l, r, *xs = xs; [l, r]
else l, c, r, *xs = xs; [l, c, r] end).
- collect{|x| x.split(/\n/no)}
+ collect{|x| x.split(/\n/no, -1)}
8.times do
yr << ln.collect{|x|
x.shift.ljust((($w + 1) * 7) - 1)}.join(' ') << "\n"
diff --git a/st.c b/st.c
index a48d11e..a4bee22 100644
--- a/st.c
+++ b/st.c
@@ -66,10 +66,9 @@ static void rehash();
#define MINSIZE 8
/*
-Table of irreducible polynomials to efficiently cycle through
-GF(2^n)-{0}, 2<=n<=30.
+Table of prime numbers 2^n+a, 2<=n<=30.
*/
-static long polys[] = {
+static long primes[] = {
8 + 3,
16 + 3,
32 + 5,
@@ -108,10 +107,10 @@ new_size(size)
int i, newsize;
for (i = 0, newsize = MINSIZE;
- i < sizeof(polys)/sizeof(polys[0]);
+ i < sizeof(primes)/sizeof(primes[0]);
i++, newsize <<= 1)
{
- if (newsize > size) return polys[i];
+ if (newsize > size) return primes[i];
}
/* Ran out of polynomials */
return -1; /* should raise exception */
diff --git a/string.c b/string.c
index 710de1a..a97319e 100644
--- a/string.c
+++ b/string.c
@@ -1345,7 +1345,7 @@ rb_str_inspect(str)
CHECK(1);
*b++ = c;
}
- else if (c == '"' || c == '\''|| c == '\\') {
+ else if (c == '"'|| c == '\\') {
CHECK(2);
*b++ = '\\';
*b++ = c;
@@ -1414,7 +1414,7 @@ rb_str_dump(str)
while (p < pend) {
char c = *p++;
switch (c) {
- case '"': case '\'': case '\\':
+ case '"': case '\\':
case '\n': case '\r':
case '\t': case '\f':
case '\013': case '\007': case '\033':
@@ -1440,7 +1440,7 @@ rb_str_dump(str)
while (p < pend) {
char c = *p++;
- if (c == '"' || c == '\'' || c == '\\') {
+ if (c == '"' || c == '\\') {
*q++ = '\\';
*q++ = c;
}
diff --git a/top.sed b/top.sed
index bb9a96c..a9ec12f 100644
--- a/top.sed
+++ b/top.sed
@@ -33,7 +33,7 @@ s%@AR@%ar%g
s%@INSTALL_PROGRAM@%${INSTALL}%g
s%@INSTALL_DATA@%${INSTALL} -m 644%g
s%@SET_MAKE@%%g
-s%@LIBOBJS@% crypt.o flock.o snprintf.o%g
+s%@LIBOBJS@% crypt.o flock.o vsnprintf.o%g
s%@ALLOCA@%%g
s%@DLDFLAGS@%%g
s%@STATIC@%%g
diff --git a/variable.c b/variable.c
index 85d6eaf..a050231 100644
--- a/variable.c
+++ b/variable.c
@@ -129,7 +129,7 @@ classname(klass)
path = rb_ivar_get(klass, classid);
if (!NIL_P(path)) {
path = rb_str_new2(rb_id2name(FIX2INT(path)));
- rb_ivar_set(klass, classid, path);
+ rb_ivar_set(klass, rb_intern("__classpath__"), path);
st_delete(RCLASS(klass)->iv_tbl, &classid, 0);
}
}
@@ -205,12 +205,7 @@ rb_name_class(klass, id)
VALUE klass;
ID id;
{
- if (rb_cString) {
- rb_iv_set(klass, "__classpath__", rb_str_new2(rb_id2name(id)));
- }
- else {
- rb_iv_set(klass, "__classid__", INT2FIX(id));
- }
+ rb_iv_set(klass, "__classid__", INT2FIX(id));
}
static st_table *autoload_tbl = 0;
@@ -690,6 +685,133 @@ rb_alias_variable(name1, name2)
entry1->marker = entry2->marker;
}
+static int special_generic_ivar = 0;
+static st_table *generic_iv_tbl;
+
+static VALUE
+generic_ivar_get(obj, id)
+ VALUE obj;
+ ID id;
+{
+ st_table *tbl;
+ VALUE val;
+
+ if (!generic_iv_tbl) return Qnil;
+ if (!st_lookup(generic_iv_tbl, obj, &tbl)) return Qnil;
+ if (st_lookup(tbl, id, &val)) {
+ return val;
+ }
+ return Qnil;
+}
+
+static void
+generic_ivar_set(obj, id, val)
+ VALUE obj;
+ ID id;
+ VALUE val;
+{
+ st_table *tbl;
+
+ if (rb_special_const_p(obj)) {
+ special_generic_ivar = 1;
+ }
+ if (!generic_iv_tbl) {
+ generic_iv_tbl = st_init_numtable();
+ }
+
+ if (!st_lookup(generic_iv_tbl, obj, &tbl)) {
+ FL_SET(obj, FL_EXIVAR);
+ tbl = st_init_numtable();
+ st_add_direct(generic_iv_tbl, obj, tbl);
+ st_add_direct(tbl, id, val);
+ return;
+ }
+ st_insert(tbl, id, val);
+}
+
+static VALUE
+generic_ivar_defined(obj, id)
+ VALUE obj;
+ ID id;
+{
+ st_table *tbl;
+ VALUE val;
+
+ if (!generic_iv_tbl) return Qfalse;
+ if (!st_lookup(generic_iv_tbl, obj, &tbl)) return Qfalse;
+ if (st_lookup(tbl, id, &val)) {
+ return Qtrue;
+ }
+ return Qfalse;
+}
+
+static VALUE
+generic_ivar_remove(obj, id)
+ VALUE obj;
+ ID id;
+{
+ st_table *tbl;
+ VALUE val;
+
+ if (!generic_iv_tbl) return Qnil;
+ if (!st_lookup(generic_iv_tbl, obj, &tbl)) return Qnil;
+ st_delete(tbl, &id, &val);
+ if (tbl->num_entries == 0) {
+ st_delete(generic_iv_tbl, &obj, &tbl);
+ st_free_table(tbl);
+ }
+ return val;
+}
+
+static int
+givar_mark_i(key, value)
+ ID key;
+ VALUE value;
+{
+ rb_gc_mark(value);
+ return ST_CONTINUE;
+}
+
+void
+rb_mark_generic_ivar(obj)
+ VALUE obj;
+{
+ st_table *tbl;
+
+ if (st_lookup(generic_iv_tbl, obj, &tbl)) {
+ st_foreach(tbl, givar_mark_i, 0);
+ }
+}
+
+static int
+givar_i(obj, tbl)
+ VALUE obj;
+ st_table *tbl;
+{
+ if (rb_special_const_p(obj)) {
+ st_foreach(tbl, givar_mark_i, 0);
+ }
+ return ST_CONTINUE;
+}
+
+void
+rb_mark_generic_ivar_tbl()
+{
+ if (special_generic_ivar == 0) return;
+ if (!generic_iv_tbl) return;
+ st_foreach(generic_iv_tbl, givar_i, 0);
+}
+
+void
+rb_free_generic_ivar(obj)
+ VALUE obj;
+{
+ st_table *tbl;
+
+ if (st_delete(generic_iv_tbl, &obj, &tbl))
+ st_free_table(tbl);
+}
+
VALUE
rb_ivar_get(obj, id)
VALUE obj;
@@ -701,12 +823,13 @@ rb_ivar_get(obj, id)
case T_OBJECT:
case T_CLASS:
case T_MODULE:
+ case T_FILE:
if (ROBJECT(obj)->iv_tbl && st_lookup(ROBJECT(obj)->iv_tbl, id, &val))
return val;
- return Qnil;
+ break;
default:
- rb_raise(rb_eTypeError, "class %s can not have instance variables",
- rb_class2name(CLASS_OF(obj)));
+ if (FL_TEST(obj, FL_EXIVAR) || rb_special_const_p(obj))
+ return generic_ivar_get(obj, id);
break;
}
if (rb_verbose) {
@@ -725,14 +848,14 @@ rb_ivar_set(obj, id, val)
case T_OBJECT:
case T_CLASS:
case T_MODULE:
+ case T_FILE:
if (rb_safe_level() >= 4 && !FL_TEST(obj, FL_TAINT))
rb_raise(rb_eSecurityError, "Insecure: can't modify instance variable");
if (!ROBJECT(obj)->iv_tbl) ROBJECT(obj)->iv_tbl = st_init_numtable();
st_insert(ROBJECT(obj)->iv_tbl, id, val);
break;
default:
- rb_raise(rb_eTypeError, "class %s can not have instance variables",
- rb_class2name(CLASS_OF(obj)));
+ generic_ivar_set(obj, id, val);
break;
}
return val;
@@ -749,9 +872,14 @@ rb_ivar_defined(obj, id)
case T_OBJECT:
case T_CLASS:
case T_MODULE:
+ case T_FILE:
if (ROBJECT(obj)->iv_tbl && st_lookup(ROBJECT(obj)->iv_tbl, id, 0))
return Qtrue;
break;
+ default:
+ if (FL_TEST(obj, FL_EXIVAR) || rb_special_const_p(obj))
+ return generic_ivar_defined(obj, id);
+ break;
}
return Qfalse;
}
@@ -778,11 +906,22 @@ rb_obj_instance_variables(obj)
case T_OBJECT:
case T_CLASS:
case T_MODULE:
+ case T_FILE:
ary = rb_ary_new();
if (ROBJECT(obj)->iv_tbl) {
st_foreach(ROBJECT(obj)->iv_tbl, ivar_i, ary);
}
return ary;
+ default:
+ if (FL_TEST(obj, FL_EXIVAR) || rb_special_const_p(obj)) {
+ st_table *tbl;
+
+ if (st_lookup(generic_iv_tbl, obj, &tbl)) {
+ ary = rb_ary_new();
+ st_foreach(tbl, ivar_i, ary);
+ return ary;
+ }
+ }
}
return Qnil;
}
@@ -803,13 +942,14 @@ rb_obj_remove_instance_variable(obj, name)
case T_OBJECT:
case T_CLASS:
case T_MODULE:
+ case T_FILE:
if (ROBJECT(obj)->iv_tbl) {
st_delete(ROBJECT(obj)->iv_tbl, &id, &val);
}
break;
default:
- rb_raise(rb_eTypeError, "object %s can not have instance variables",
- rb_class2name(CLASS_OF(obj)));
+ if (FL_TEST(obj, FL_EXIVAR) || rb_special_const_p(obj))
+ return generic_ivar_remove(obj, id);
break;
}
return val;
diff --git a/version.h b/version.h
index 8f49f67..18f352c 100644
--- a/version.h
+++ b/version.h
@@ -1,2 +1,2 @@
#define RUBY_VERSION "1.1d0"
-#define VERSION_DATE "98/09/08"
+#define VERSION_DATE "98/12/16"