From fca49a8a69a0f6bb4feae74c6cd0e93d7fac8b36 Mon Sep 17 00:00:00 2001 From: Yukihiro Matsumoto Date: Thu, 21 Dec 1995 00:56:57 +0900 Subject: version 0.95 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.95.tar.gz Thu Dec 21 00:56:57 1995 Yukihiro Matsumoto * version 0.95 - fj.sourcesに * eval.c (rb_eval): rescueのロジックをrb_rescue()に一元化． Wed Dec 20 19:30:58 1995 Yukihiro Matsumoto * Makefile.in: 不要なコンパイルの回避(より完全に)． * class.c (singleton_class_new): `single'->`singleton' Tue Dec 19 07:14:33 1995 Yukihiro Matsumoto * io.c (closed?): IOがcloseされているかどうかを知る述語． * parse.y (primary): 特異メソッドの引数のlex_stateが不適切． * lib/tk.rb: tcl->rubyの変換関数の用意． * ext/extmk.rb.in (install): installの2重コンパイルの回避． * array.c (range_beg_len): range指定の不適切なエラーを訂正． * string.c (str_aref): range指定のバグを削除． * lib/tk.rb (tk_split_list): Tclのリストに対応． Mon Dec 18 09:58:12 1995 Yukihiro Matsumoto * version 0.94 * dln.c (dln_load): HP対応(未確認) * eval.c (Init_Proc): BlockをProcに改名． Sat Dec 16 13:46:14 1995 Yukihiro Matsumoto * eval.c (rb_eval): retryでイテレータの再実行ができるように． Fri Dec 15 17:14:30 1995 Yukihiro Matsumoto * eval.c: proc:lambdaの親しみやすい別名 Thu Dec 14 17:21:55 1995 Yukihiro Matsumoto * eval.c (dyna_var_asgn): イテレータブロック内で最初に初期化された ローカル変数の有効範囲をそのブロック内に限定．これでlambdaと呼べ ないことはない． Wed Dec 13 02:30:58 1995 Yukihiro Matsumoto * gc.c: autoloadのマークミス． * lib/tk.rb: wishからの複数行の戻り値に対応 * lib/tkcomposite.rb: 複合widget * variable.c (rb_class2path): ICLASSに対応してなかった． * eval.c (ruby_run): exit(0)のバグ Sat Dec 9 01:21:24 1995 Yukihiro Matsumoto * ext/marshal/marshal.c (dumps|load): 文字列に対する入出力を可能に した(ただし実はファイル経由なのだ)． Fri Dec 8 18:29:11 1995 Yukihiro Matsumoto * ext/marshal/marshal.c: シンボルを一度だけ初期化する． Thu Dec 7 07:58:50 1995 Yukihiro Matsumoto * parse.y (yylex): 第1引数の正規表現の認識にエラーがあった．同時に 状態数を減らした． * string.c (str_sub): 置換でスキップ幅が大きすぎた． Wed Dec 6 15:14:23 1995 Yukihiro Matsumoto * string.c (str_sub_method): sub/gsub(!なし)は置換が行なわれなかっ た時，置換前の文字列を返す． Tue Dec 5 00:55:15 1995 Yukihiro Matsumoto * parse.y (yylex): 括弧を省略した時の引数展開の`*'に対応． * eval.c (ruby_run): EXITハンドラ内での例外に対応． * bignum.c (big_cmp): BignumとFixnumの比較で落ちる． Mon Dec 4 14:21:18 1995 Yukihiro Matsumoto * parse.y (call_op): コンパイル時の定数式の展開をやめた．労多くし て益少ないと判断したので． Thu Nov 30 01:35:15 1995 Yukihiro Matsumoto * lib/tk.rb: {Radio,Check}Buttonのvariableの実装． * eval.c (rb_yield_0): Block.callがネストした時のバグ． * io.c (f_select): 常に配列3つをふくむ配列を返すように * lib/tk.rb: fileeventをruby側で実装． Wed Nov 29 17:53:23 1995 Yukihiro Matsumoto * variable.c (rb_ivar_get): selfを常に指定するように． Tue Nov 14 00:07:29 1995 Yukihiro Matsumoto * lib/tk.rb: Tk4.0対応 Mon Nov 13 16:23:32 1995 Yukihiro Matsumoto * version 0.93 Thu Nov 9 23:26:01 1995 Yukihiro Matsumoto * gc.c (gc_mark): モジュールのMixinのマーク忘れ． * parse.y (f_arglist): メソッド定義の引数を括弧で括らなくても良い ようにした． Wed Nov 8 00:17:51 1995 Yukihiro Matsumoto * eval.c (rb_yield_0): 未初期化のローカル変数があった． * eval.c (rb_eval): pendig signalのチェックをeval実行後に行うよう にした．でないとシグナルの発生と検出が遠く離れてしまう事がある． * parse.y: class文のsuperclass部を定数から式に拡張した． * lib/tk.rb: Tkのほぼ全ウィンドウクラスに対応．キャンバスとテキス ト上のオブジェクトが残っている． Tue Nov 7 08:18:37 1995 Yukihiro Matsumoto * signal.c (trap): ブロックを指定できるように． Mon Nov 6 16:44:00 1995 Yukihiro Matsumoto * eval.c (f_caller): 呼出元の情報を得る． * ext/tkutil/tkutil.c: wishのstderr出力を監視することで，エラー処 理を行う． * ext/tkutil/tkutil.c: wishとの通信部をCで記述． Sat Nov 4 01:12:59 1995 Yukihiro Matsumoto * sample/ruby-mode.el (ruby-calculate-indent): インデントの計算を もう少しスマートにした(正規表現のチェック，継続行のチェック)． * eval.c (rb_call): 無限再帰を避けるため，関数のネストレベルの制限 を行なう． * lib/tk.rb: Tkインターフェース．まだ不完全だが． * eval.c (rb_yield_0): 空のBlockのバグ． * sample/ruby-mode.el (ruby-calculate-indent): 行末の演算子による 行継続に対応． Fri Nov 3 12:56:21 1995 Yukihiro Matsumoto * eval.c (rb_call): 本体が空の関数の実行にバグ． * parse.y (var_extend): 文字列の末尾の変数展開のバグ． * variable.c (rb_gvar_set): traceの評価時にに変数値を与えるように． * eval.c (f_require): ruby scriptのrequireにbug． * variable.c (rb_const_get): モジュールのinclude対策． Thu Oct 19 13:56:06 1995 Yukihiro Matsumoto * dln.c (dln_load): HP対応でのtypo. Wed Oct 18 17:39:39 1995 Yukihiro Matsumoto * version 0.92 * object.c (krn_type): オブジェクトの動的な型を返すメソッド． Tue Oct 17 00:48:18 1995 Yukihiro Matsumoto * ruby.c (proc_options): -X オプション．chdirだけを行う． * re.c (reg_search): 漢字コードを途中で変更できるように．コンパイ ル時のコードが変更された時にはマッチの直前に正規表現の再コンパイ ルを行う．定数KCODEから変数$KCODEへ． * parse.y: ()のなかにcompexprを許す． * re.c (reg_search): メモリリークを直した． Fri Oct 13 13:19:19 1995 Yukihiro Matsumoto * string.c (str_sub): 文字列置換にバグ． * string.c (str_strip_bang): 文字列の後ろの長さの調整が行われてい なかった． * re.c (reg_search): $&, $1...のはローカルに束縛するようになった． 呼び出したメソッドでのマッチは現スコープの$&などの値に影響しない． マッチの情報をスコープ外で得たいときには$~を使って束縛情報を持ち 出す必要がある． Thu Oct 12 00:33:33 1995 Yukihiro Matsumoto * re.c (reg_search): String:split, String:indexでは$&, $1...が変化 しないようにした． * io.c (rb_str_setter): setterの仕様が変更になっていた． * variable.c (f_trace_var): 第2引数を省略してイテレータとして呼べ るように． Wed Oct 11 11:50:59 1995 Yukihiro Matsumoto * version 0.91 * variable.c (var_setter): 引数が間違っていた．致命的バグ． * io.c (pipe_open): $stderrの値が変更されている時にはそちらを 子プロセスのstderrに設定する． Mon Oct 9 13:06:33 1995 Yukihiro Matsumoto * object.c (mod_to_s): モジュール内のモジュールは`::'を使った表現 で表示されるように． * variable.c (rb_gvar_set): 代入によるループが発生しないように， trace内での代入ではtraceを評価しない． * struct.c (struct_equal): structのequal判定にクラスの一致を含めた． Sat Oct 7 00:18:32 1995 Yukihiro Matsumoto * eval.c (rb_eval): defined?の機能を拡張(yieldのチェック，superの 存在など)． Fri Oct 6 12:06:47 1995 Yukihiro Matsumoto * version 0.90 * st.c (st_foreach): 要素を削除した時に要素数が変化していなかった． * hash.c (hash_values): バグ修正．keysを返していた…． * parse.y (call_op): defined? の引数では定数の畳み込みを行わない (チェックする前にコンパイルエラーになっては困る)． * スコープ生成の一部見直し． Thu Oct 5 00:29:43 1995 Yukihiro Matsumoto * 関数とクラスの命名規則を変更した．関数名，変数名の全面書き換え． * gc.c (looks_pointerp): ヒープチェックの高速化． * struct.c (Fstruct_aset): 構造体に対する`[]='． (struct_set): 構造体メンバに対する代入． Wed Oct 4 09:54:07 1995 Yukihiro Matsumoto * version 0.89 * eval.c (Frequire): ダイナミックロードのエラーチェックを厳しく． * struct.c: structの構造を完全に書き換えた．以前は順序付きの id->valueの連想配列であったが，今度は構造体毎に新しいクラスを生 成するようにした． * parse.y: `::'の意味をAssocの生成からクラス(モジュール)内の定数ア クセスへ変更． * assoc.c: なくす． Tue Oct 3 13:31:08 1995 Yukihiro Matsumoto * variable.c (Ftrace_var): trace_var, 大域変数への書き込みhookを設 定する． * variable.c: global_entryの構成を書き換えた．これでtrace_varを実 装できる． * file.c (Ffile_stat): "&"で直前のfstatの結果も参照できるように． Fri Sep 29 14:15:13 1995 Yukihiro Matsumoto * version 0.88 * dln.c (dln_load): AIXとHPに対応したコードを入れた(動作は未確認)． * ext/extmk.rb.in: 必要に応じて，定数EXTLIBを定義するように． * dln.c (dln_load): dln独立に書き換える．将来の拡張用． (load_1): dln_a_outにおいてソースコードでライブラリを明示的にロー ドする必要がないように変更した． Thu Sep 28 13:31:37 1995 Yukihiro Matsumoto * sample/ruby-mode.el: もっとましなhilit19対応(正規表現)． Wed Sep 27 04:12:44 1995 Takahasi Mamoru * sample/test.rb: echoで-nを使わないように(SysV対策)． * ext/extmk.rb.in: sub -> sub! Tue Sep 26 19:12:42 1995 Yasuo OHBA * dln.c (dln_find_1): `.', `..'から始まるパスに対応した. Mon Sep 25 12:33:03 1995 Yukihiro Matsumoto * version 0.87 Sat Sep 23 10:00:18 1995 Yukihiro Matsumoto * eval.c (Fmod_modfunc): メソッドをprivateにし，同時に特異メソッド も定義するメソッド．パッケージ的使い方のモジュール用． Fri Sep 22 11:02:44 1995 Yukihiro Matsumoto * lib/find.rb: findを提供するライブラリ * variable.c (rb_define_variable): hookの設定を分離． (add_hook): 1変数に対して複数のhookを設定できるように． Thu Sep 21 00:22:11 1995 Yukihiro Matsumoto * string.c (Fstr_frozen): 文字列が更新不可かどうかをチェックする述 語メソッド． * hash.c (Fhash_aset): keyが文字列の時，キーの内容が変化しないよう に，dupしてfreezeする． Wed Sep 20 16:12:44 1995 Yukihiro Matsumoto * version 0.86 * ext/extmk.rb.in (have_header): キャッシュにバグ． * ext/extmk.rb.in (have_library): 引数の順序が変わった． Thu Sep 14 18:00:59 1995 Yukihiro Matsumoto * object.c (obj_is_instance_of): is_member_ofから名称変更． Wed Sep 13 15:44:35 1995 Yukihiro Matsumoto * string.c (Fstr_tr_bang): 範囲外の文字に対する変換バグ． Tue Sep 12 14:27:58 1995 Yukihiro Matsumoto * file.c (Sfile_expand_path): expand_file_name -> expand_pathに名 称変更． * enum.c (Fenum_member): includes? -> member? に名称変更． * string.c (Fstr_each_byte): StringはByteArrayであるという基本に戻っ て，eachの定義をeach_byteに変更した．今までのeachはeach_lineでア クセスできる． Mon Sep 11 18:31:17 1995 Yukihiro Matsumoto * file.c (cache_stat): ファイル名として"&"を指定すると直前の stat(2)の結果を再利用するように． Fri Sep 8 14:18:51 1995 Yukihiro Matsumoto * ruby.texi: `!', `?'に対応してアップデート． * parse.y: defined -> defined? * file.c: FileOpの一文字メソッドをなくす．一文字テストはtestメソッ ドにまかせる． * parse.y (yylex): 変数名の後ろに`?'も許す．述語メソッドの後ろに `?'を追加する． Thu Sep 7 20:01:33 1995 Yukihiro Matsumoto * string.c: 文字列の中身を更新するメソッドの名前の終りに`!'を付加． `!'の無いバージョンも用意した． * parse.y: 変数名の後ろに`!'を許す． Wed Sep 6 14:12:19 1995 Yukihiro Matsumoto * version 0.85 * string.c (Fstr_dup): 文字列の複製を作る (Fstr_freeze): 文字列の更新不可属性を設定できるように． (Fsub/Fgsub): $_の内容をdupしてから置換を行うように． * ruby.h (CLONESETUP): flagsの状態もコピー Tue Sep 5 01:27:50 1995 Yukihiro Matsumoto * sample/test.rb: 失敗の検出を厳しく． Fri Aug 25 14:31:02 1995 Yukihiro Matsumoto * process.c (Ffork): イテレータとしても動作するように． * version 0.84 * signal.c (sig_beg): ハンドラが設定されている時には再設定しない． * ext/extmk.rb.in (create_makefile): shared objectのリンクの際に `-l'オプションを指定するように． * signal.c (trap): `EXIT'で終了処理を行う設定が出来る． Wed Aug 16 00:13:22 1995 Yukihiro Matsumoto * signal.c (sig_beg): デフォルトではbegin節の中でだけSIGINTを捕捉 するように変更． * io.c (io_ctl): fcntlを持たないシステムにも対応． * 各ディレクトリに分散していたMANIFESTをまとめた．拡張モジュール毎 には必要． * string.c (Sstr_new,str_sub,Fstr_crypt): 引数を自動的に文字列に変 換するように． Sat Aug 12 00:44:02 1995 Yukihiro Matsumoto * string.c (Fstr_crypt): PD cryptを用意した． Fri Aug 11 14:37:03 1995 Yukihiro Matsumoto * assoc.c (Fassoc_clone): assocもcloneできるように． * io.c: マクロREAD_DATA_PENDINGの定義を変更(Linux対応) * io.c (io_fptr_finalize): ftprの開放時の処理を指定できるように． Wed Aug 9 16:52:41 1995 Yukihiro Matsumoto * eval.c (rb_provided): 複数のfeatureをロードすると無限ループに落 ちるという単純な(しかし凶悪な)ミス． * ext/extmk.rb.in (install): dlopen対応を行った．今までdlnにしか十 分に対応していなかった． Tue Aug 8 14:17:06 1995 Yukihiro Matsumoto * version 0.83 Mon Aug 7 12:47:41 1995 Yukihiro Matsumoto * parse.y: resque -> rescue．恥ずかしいがtypoを残しておくわけには いかないよなあ．なんで今まで気がつかなかったのか…． Thu Aug 3 18:18:05 1995 Yukihiro Matsumoto * missing/nt.c: NT移植用の関数群をまとめた． * variable.c (rb_const_get): また例外を発生するようにした．defined がある以上例外を発生させない理由がないので(例外が発生した方がタ イプミスの検出などの点で有利)． * variable.c (Fautoload): autoloadを実装．今度は使えるか． Mon Jul 31 15:44:21 1995 Yukihiro Matsumoto * parse.y (arg_ambiguous): 第1引数のあいまいさを警告(-vオプション で有効)． * eval.c (rb_eval): `-v'オプションをつけて`def'が呼ばれると不必要 なエラーメッセージが出た． * parse.y (yylex): メソッドの第1引数の判定をもうちょっと賢くした． Fri Jul 28 19:04:43 1995 Yukihiro Matsumoto * parse.y (yylex): `+/-/['の直前に空白が来るかどうかで動作を変更し た(混乱のもとか?) Wed Jul 26 09:21:23 1995 Yukihiro Matsumoto * version 0.82a * sprintf.c (Fsprintf): `%s'で'\0'を含む文字列に対応． * pack.c (Fpck_pack): packの要素確保のバグ． * eval.c (Floop): 無限ループのイテレータ． * io.c (next_argv): 存在しないファイル名が指定された時のエラー処理 が行われていなかった． Mon Jul 24 17:37:34 1995 Yukihiro Matsumoto * version 0.82 * ext/extmk.rb.in (install): 拡張モジュールをstatic linkする場合は そのモジュールが既にrequireされたのと同じようにfeatureを設定する． これで拡張モジュールの機能が必要な時には(static linkされているか どうかにかかわらず)requireすればよくなる． * eval.c (Frequire): `$"'に格納する文字列をフルパスでなくフィーチャ 名とする．rubyスクリプトをロードした時には`.rb'，オブジェクトを ロードした時には`.o'をフィーチャ名に付加する．lispのrequireと provideの働きに(少し)近い． Thu Jul 20 12:50:05 1995 Yukihiro Matsumoto * Makefile.in (test): make testができるように． * struct.c (struct_new): typo. * eval.c (rb_eval): `defined'を追加．メソッド/変数/定数の定義状態 を知る事が出来る． Wed Jul 19 18:04:01 1995 Yukihiro Matsumoto * version 0.81 Mon Jul 17 14:53:51 1995 Yukihiro Matsumoto * variable.c (rb_const_get): 未初期化のCONSTANTの値をnilにした．し かし，今後また例外に戻す可能性はある．要はoptionalなクラス/モジュー ルが存在するかチェックしたいだけなんだな． * st.c (int): grow_factorを固定にした(大嶋さんのマシンに対応)． Fri Jul 14 00:48:40 1995 Yukihiro Matsumoto * ext/extmk.rb.in: キャッシュのバグを修正． * parse.y (var_extend): #{$数字}に対応した． * dln.c (dln_load_1): `Init_FILENAME'だけを有効に．`init_*'は今後 実行しない． * ext/etc/etc.c : Etcモジュールを拡張モジュールとして分離．実はNT 対応への布石だったりするかもしれない． Tue Jul 11 17:12:48 1995 Yukihiro Matsumoto * gcc -Wallで出たwarningを元にソースを変更． * signal.c (trap): typo. Fri Jul 7 10:08:51 1995 Yukihiro Matsumoto * version 0.80 * ruby.texi: texinfo documentを提供．specとruby.1は無くなった． * signal.c (Ftrap): 割込み禁止中の例外発生に対応． * eval.c (Flambda): Blockオブジェクトを返す．Block.newと同義． Thu Jul 6 00:35:03 1995 Yukihiro Matsumoto * signal.c (Ftrap): SIG_DFLの処理を変更．SIGINTへのデフォルトハン ドラを用意(例外を発生する)． * file.c (Sfile_expand_fname): パス名を絶対パスに展開するメソッド． (Sfile_basename): basenameを得るメソッド．拡張子も外せる． (Sfile_dirname): basenameの反対． * eval.c (rb_call): argument評価中の例外発生に対応． * file.c (Ftest): `M', `A', `C'を追加. Tue Jul 4 12:36:33 1995 Yukihiro Matsumoto * file.c (Ftest): ファイルテスト用メソッド． * ruby.c (proc_options): `-r'オプションを追加． * parse.y (f_args): デフォルト引数を追加． * eval.c (rb_call): 該当する引数が無い時，rest引数の値をnilに． * numeric.c (num_equal): 数値以外との比較で例外が発生していた． FALSEを返すように． * eval.c (masign): 多重代入のrest部の動作がおかしかった． Sat Jun 17 01:03:16 1995 Yukihiro Matsumoto * parse.y (gettable): 未初期化のローカル変数の参照(独立した識別子) は正式にメソッド呼び出しとした． * parse.y (read_escape): tokenbufを使わないように修正．それにとも ない，`\C-x',`\M-x'などのエスケープ表現を復活．これでドキュメン トと実際の処理系が一致した． Thu Jun 15 15:42:00 1995 Yukihiro Matsumoto * re.c (re_regcomp): cacheのチェックを改善． Mon Jun 12 18:50:51 1995 Yukihiro Matsumoto * version 0.79 Sat Jun 10 00:25:01 1995 Yukihiro Matsumoto * re.c (re_regcomp): cache判定に`$='の値も反映させた． * sample/test.rb: test suite作成． Fri Jun 9 15:58:34 1995 Yukihiro Matsumoto * re.c (re_regcomp): cacheの判定が間違っていた． Fri Jun 9 00:01:35 1995 Yukihiro Matsumoto (matz@dyna) * eval.c (rb_yield): block構造体に初期化していないメンバ(iter)があっ たのでイテレータのネストが正しく動作しなかった． Thu Jun 8 00:59:03 1995 Yukihiro Matsumoto (matz@dyna) * re.c (=~): String以外との比較がFALSEを返すように(例外を発生して いた)． * extmk.rb.in: 判定した値をファイルにキャッシュするようにした． * assoc.c (to_a): to_aメソッドが再定義されていなかった． * eval.c (rb_eval): 初期化されていないローカル変数へのアクセスを引 数の無いメソッド呼び出しと解釈する．ただし，(現状では)メソッドが 定義されていない場合，エラーにせず変数未初期化のwaringを出して nilを返している．「ruby -pe print」などが実行できるという意味で はありがたいこの仕様は，しかし今後の検討が必要である．-- メソッ ド呼び出しとするのを止めるか(以前の仕様)，いつもメソッド呼び出し とする(未定義ならばエラー)か，今の仕様で行くか． * eval.c (rb_eval): 初期化されていないローカル変数へのアクセスで (evalなどで)初期化された事が分かった時には以後初期化されたローカ ル変数とみなす． Wed Jun 7 11:58:12 1995 Yukihiro Matsumoto * eval.c (rb_fail): 例外処理後も`$!'をクリアしないように． (rb_fail): `$!'変数に最後に改行を追加しない． * io.c (Fprint): privateメソッドに変更．引数を取らない時の動作を変 更(`$_'を出力する)． (Fio_print): 出力先指定のprintメソッド． (Fio_printf): 出力先指定のprintfメソッド． * parse.y: not演算子の追加．優先順位の低い`!'演算子． Mon Jun 5 19:00:55 1995 Yukihiro Matsumoto * version 0.78 Fri Jun 2 17:52:03 1995 Yukihiro Matsumoto * ruby.c (proc_options): -Iオプションで`$:'への追加される順番を修 正した． Fri Jun 2 00:36:34 1995 Yukihiro Matsumoto (matz@dyna) * parse.y: while修飾子の動作を通常のwhileと同じにした．ただし， begin式へのwhile修飾子だけはdo..while型のループとなる． Wed May 31 18:36:30 1995 Yukihiro Matsumoto * version 0.77 Mon May 29 18:39:37 1995 Yukihiro Matsumoto * ext/extmk.rb.in (install): 拡張モジュールもインストールできるよ うに． Fri May 26 14:43:01 1995 Yukihiro Matsumoto * process.c (Fsystem): 戻り値をサブプロセスの失敗/成功を表す真偽値 にした．終了ステータスは`$?'で得る． Tue May 23 10:58:11 1995 Yukihiro Matsumoto * string.c (Fstr_upto): 無限ループに陥らないように． * parse.y (cond): `||'などの右辺に制御式が書けるように，条件式がか ならずしも値を持たなくても良いようにした． * ext/marshal/marshal.c: オブジェクトの読み書きをメソッドの再定義 でコントロールできるように．インスタンスが`_dump_to'というメソッ ドを定義している時はそちらを使うように． * ext/extmk.rb.in: static linkも設定できるような仕様にした． ext/Setupというファイルにディレクトリ名を記述するとそのディレク トリに存在するモジュールはstatic linkされる(はず)． * eval.c (rb_eval): `..'を文法に組み込み，`..'と`...'の動作をperl に合わせた． Sat May 20 01:22:48 1995 Yukihiro Matsumoto (matz@dyna) * io.c (select): timeout時と割込み時の動作の明確化． Co-authored-by: Takahasi Mamoru Co-authored-by: Yasuo OHBA --- string.c | 708 ++++++++++++++++++++++++++++++++++++++++----------------------- 1 file changed, 446 insertions(+), 262 deletions(-) (limited to 'string.c') diff --git a/string.c b/string.c index 80935255d2..15c24738b8 100644 --- a/string.c +++ b/string.c @@ -13,10 +13,13 @@ #include "ruby.h" #include "re.h" +#define BEG(no) regs.beg[no] +#define END(no) regs.end[no] + #include #include -VALUE C_String; +VALUE cString; #define STRLEN(s) RSTRING(s)->len @@ -26,7 +29,7 @@ str_new(ptr, len) UINT len; { NEWOBJ(str, struct RString); - OBJSETUP(str, C_String, T_STRING); + OBJSETUP(str, cString, T_STRING); str->len = len; str->orig = Qnil; @@ -50,7 +53,7 @@ str_new3(str) struct RString *str; { NEWOBJ(str2, struct RString); - OBJSETUP(str2, C_String, T_STRING); + OBJSETUP(str2, cString, T_STRING); str2->len = str->len; str2->ptr = str->ptr; @@ -74,11 +77,11 @@ obj_as_string(obj) } str = rb_funcall(obj, pr_str, 0); if (TYPE(str) != T_STRING) - return Fkrn_to_s(obj); + return krn_to_s(obj); return str; } -VALUE +static VALUE str_clone(str) struct RString *str; { @@ -92,36 +95,41 @@ str_clone(str) return obj; } +VALUE +str_dup(str) + struct RString *str; +{ + return str_new(str->ptr, str->len); +} + static VALUE -Sstr_new(class, str) +str_s_new(class, str) VALUE class; struct RString *str; { - Check_Type(str, T_STRING); - { - NEWOBJ(str2, struct RString); - OBJSETUP(str2, class, T_STRING); + NEWOBJ(str2, struct RString); + OBJSETUP(str2, class, T_STRING); - str2->len = str->len; - str2->ptr = ALLOC_N(char, str->len+1); - if (str2->ptr) { - memcpy(str2->ptr, str->ptr, str->len); - } - str2->ptr[str->len] = '\0'; - str2->orig = Qnil; - return (VALUE)str2; + str = as_str(str); + str2->len = str->len; + str2->ptr = ALLOC_N(char, str->len+1); + if (str2->ptr) { + memcpy(str2->ptr, str->ptr, str->len); } + str2->ptr[str->len] = '\0'; + str2->orig = Qnil; + return (VALUE)str2; } static VALUE -Fstr_length(str) +str_length(str) struct RString *str; { return INT2FIX(str->len); } VALUE -Fstr_plus(str1, str2) +str_plus(str1, str2) struct RString *str1, *str2; { struct RString *str3; @@ -136,7 +144,7 @@ Fstr_plus(str1, str2) } VALUE -Fstr_times(str, times) +str_times(str, times) struct RString *str; VALUE times; { @@ -154,20 +162,6 @@ Fstr_times(str, times) return (VALUE)str2; } -extern VALUE C_Range; - -static VALUE -Fstr_dot2(left, right) - VALUE left, right; -{ - extern VALUE C_Range; - VALUE str; - - Check_Type(right, T_STRING); - str = range_new(left, right); - return str; -} - VALUE str_substr(str, start, len) struct RString *str; @@ -206,13 +200,6 @@ str_subseq(str, beg, end) if (end < 0) end = 0; } - if (beg > end) { - int tmp; - - Warning("start %d is bigger than end %d", beg, end); - tmp = beg; beg = end; end = tmp; - } - if (beg >= str->len) { return str_new(0, 0); } @@ -222,7 +209,7 @@ str_subseq(str, beg, end) len = end - beg + 1; if (len < 0) { - Fail("end %d too small(size %d)", end, str->len); + len = 0; } return str_substr(str, beg, len); @@ -230,10 +217,13 @@ str_subseq(str, beg, end) extern VALUE ignorecase; +#define STR_FREEZE FL_USER1 + void str_modify(str) struct RString *str; { + if (FL_TEST(str, STR_FREEZE)) Fail("can't modify frozen string"); if (str->orig == Qnil) return; str->ptr = ALLOC_N(char, str->len+1); if (str->ptr) { @@ -242,6 +232,32 @@ str_modify(str) str->orig = Qnil; } +static VALUE +str_freeze(str) + VALUE str; +{ + FL_SET(str, STR_FREEZE); + return str; +} + +static VALUE +str_frozen(str) + VALUE str; +{ + if (FL_TEST(str, STR_FREEZE)) + return TRUE; + return FALSE; +} + +VALUE +str_dup_freezed(str) + VALUE str; +{ + str = str_dup(str); + str_freeze(str); + return str; +} + VALUE str_grow(str, len) struct RString *str; @@ -275,7 +291,7 @@ str_cat(str, ptr, len) } static VALUE -Fstr_concat(str1, str2) +str_concat(str1, str2) struct RString *str1, *str2; { str2 = as_str(str2); @@ -283,7 +299,7 @@ Fstr_concat(str1, str2) return (VALUE)str1; } -static +static int str_hash(str) struct RString *str; { @@ -305,7 +321,7 @@ str_hash(str) } static VALUE -Fstr_hash(str) +str_hash_method(str) VALUE str; { int key = str_hash(str); @@ -321,7 +337,7 @@ str_cmp(str1, str2) UINT len; int retval; - if (ignorecase != Qnil) { + if (ignorecase != FALSE) { return str_cicmp(str1, str2); } @@ -334,7 +350,7 @@ str_cmp(str1, str2) } static VALUE -Fstr_equal(str1, str2) +str_equal(str1, str2) struct RString *str1, *str2; { if (TYPE(str2) != T_STRING) @@ -348,12 +364,12 @@ Fstr_equal(str1, str2) } static VALUE -Fstr_cmp(str1, str2) +str_cmp_method(str1, str2) VALUE str1, str2; { int result; - Check_Type(str2, T_STRING); + str2 = obj_as_string(str2); result = str_cmp(str1, str2); return INT2FIX(result); } @@ -361,7 +377,7 @@ Fstr_cmp(str1, str2) VALUE Freg_match(); static VALUE -Fstr_match(x, y) +str_match(x, y) struct RString *x, *y; { VALUE reg; @@ -369,11 +385,11 @@ Fstr_match(x, y) switch (TYPE(y)) { case T_REGEXP: - return Freg_match(y, x); + return reg_match(y, x); case T_STRING: - reg = re_regcomp(y); - start = research(reg, x, 0); + reg = reg_regcomp(y); + start = reg_search(reg, x, 0, 0); if (start == -1) { return FALSE; } @@ -386,7 +402,7 @@ Fstr_match(x, y) } static VALUE -Fstr_match2(str) +str_match2(str) struct RString *str; { extern VALUE rb_lastline; @@ -396,8 +412,8 @@ Fstr_match2(str) if (TYPE(rb_lastline) != T_STRING) Fail("$_ is not a string"); - reg = re_regcomp(str); - start = research(reg, rb_lastline, 0); + reg = reg_regcomp(str); + start = reg_search(reg, rb_lastline, 0, 0); if (start == -1) { return Qnil; } @@ -427,7 +443,7 @@ str_index(str, sub, offset) } static VALUE -Fstr_index(argc, argv, str) +str_index_method(argc, argv, str) int argc; VALUE *argv; struct RString *str; @@ -445,7 +461,7 @@ Fstr_index(argc, argv, str) switch (TYPE(sub)) { case T_REGEXP: - pos = research(sub, str, pos); + pos = reg_search(sub, str, pos, (struct re_registers *)-1); break; case T_STRING: @@ -461,7 +477,7 @@ Fstr_index(argc, argv, str) } static VALUE -Fstr_rindex(argc, argv, str) +str_rindex(argc, argv, str) int argc; VALUE *argv; struct RString *str; @@ -519,7 +535,7 @@ str_next(s) } static VALUE -Fstr_next(orig) +str_next_method(orig) struct RString *orig; { struct RString *str, *str2; @@ -545,7 +561,7 @@ Fstr_next(orig) } VALUE -Fstr_upto(beg, end) +str_upto(beg, end) VALUE beg, end; { VALUE current; @@ -553,8 +569,10 @@ Fstr_upto(beg, end) current = beg; for (;;) { rb_yield(current); - if (Fstr_equal(current, end)) break; - current = Fstr_next(current); + if (str_equal(current, end)) break; + current = str_next_method(current); + if (RSTRING(current)->len > RSTRING(end)->len) + break; } return Qnil; @@ -580,8 +598,8 @@ str_aref(str, indx) return (VALUE)INT2FIX(str->ptr[idx] & 0xff); case T_REGEXP: - if (Fstr_index(str, indx)) - return re_last_match(0); + if (str_index(str, indx)) + return reg_last_match(0); return Qnil; case T_STRING: @@ -590,26 +608,18 @@ str_aref(str, indx) default: /* check if indx is Range */ - if (obj_is_kind_of(indx, C_Range)) { + { int beg, end; - - beg = rb_iv_get(indx, "start"); beg = NUM2INT(beg); - end = rb_iv_get(indx, "end"); end = NUM2INT(end); - if (beg > end) { - int tmp; - - Warning("start %d is bigger than end %d", beg, end); - tmp = beg; beg = end; end = tmp; + if (range_beg_end(indx, &beg, &end)) { + return str_subseq(str, beg, end); } - - return str_subseq(str, beg, end); } Fail("Invalid index for string"); } } static VALUE -Fstr_aref(argc, argv, str) +str_aref_method(argc, argv, str) int argc; VALUE *argv; struct RString *str; @@ -674,9 +684,10 @@ str_sub(str, pat, val, once) VALUE val; int once; { - int beg, end, offset, n; + int beg, offset, n; + struct re_registers regs; - Check_Type(val, T_STRING); + val = obj_as_string(val); str_modify(str); switch (TYPE(pat)) { @@ -684,19 +695,19 @@ str_sub(str, pat, val, once) break; case T_STRING: - return str_sub(str, re_regcomp(pat), val, once); + pat = (struct RRegexp*)reg_regcomp(pat); + break; default: /* type failed */ Check_Type(pat, T_REGEXP); } + regs.allocated = 0; for (offset=0, n=0; - (beg=research(pat, str, offset)) >= 0; - offset=BEG(0)+STRLEN(val)) { - end = END(0)-1; - val = re_regsub(val); - str_replace2(str, beg, END(0)-1, val); + (beg=reg_search(pat, str, offset, ®s)) >= 0; + offset=END(0)+1) { + str_replace2(str, beg, END(0)-1, reg_regsub(val, str, ®s)); n++; if (once) break; } @@ -739,27 +750,19 @@ str_aset(str, indx, val) default: /* check if indx is Range */ - if (obj_is_kind_of(indx, C_Range)) { - Check_Type(val, T_STRING); - - beg = rb_iv_get(indx, "start"); beg = NUM2INT(beg); - end = rb_iv_get(indx, "end"); end = NUM2INT(end); - if (beg > end) { - int tmp; - - Warning("start %d is bigger than end %d", beg, end); - tmp = beg; beg = end; end = tmp; + { + int beg, end; + if (range_beg_end(indx, &beg, &end)) { + str_replace2(str, beg, end, val); + return val; } - - str_replace2(str, beg, end, val); - return val; } Fail("Invalid index for string"); } } static VALUE -Fstr_aset(argc, argv, str) +str_aset_method(argc, argv, str) int argc; VALUE *argv; struct RString *str; @@ -792,9 +795,11 @@ Fstr_aset(argc, argv, str) static VALUE str_sub_iter(str, pat, once) VALUE str, pat; + int once; { VALUE val; - int beg, end, offset, n; + int beg, offset; + struct re_registers regs; if (!iterator_p()) { Fail("Wrong # of arguments(1 for 2)"); @@ -806,7 +811,7 @@ str_sub_iter(str, pat, once) break; case T_STRING: - pat = re_regcomp(pat); + pat = reg_regcomp(pat); break; default: @@ -815,18 +820,20 @@ str_sub_iter(str, pat, once) } offset=0; - while ((beg=research(pat, str, offset)) >= 0) { - val = rb_yield(re_nth_match(0)); + regs.allocated = 0; + while ((beg=reg_search(pat, str, offset, ®s)) >= 0) { + val = rb_yield(reg_nth_match(0, backref_get())); val = obj_as_string(val); str_replace2(str, beg, END(0)-1, val); offset=BEG(0)+STRLEN(val); if (once) break; } + re_free_registers(®s); return (VALUE)str; } static VALUE -Fstr_sub(argc, argv, str) +str_sub_bang(argc, argv, str) int argc; VALUE *argv; VALUE str; @@ -840,7 +847,16 @@ Fstr_sub(argc, argv, str) } static VALUE -Fstr_gsub(argc, argv, str) +str_sub_method(argc, argv, str) + int argc; + VALUE *argv; + VALUE str; +{ + return str_sub_bang(argc, argv, str_dup(str)); +} + +static VALUE +str_gsub_bang(argc, argv, str) int argc; VALUE *argv; VALUE str; @@ -853,10 +869,21 @@ Fstr_gsub(argc, argv, str) return str_sub(str, pat, val, 0); } +static VALUE +str_gsub(argc, argv, str) + int argc; + VALUE *argv; + VALUE str; +{ + VALUE v = str_gsub_bang(argc, argv, str_dup(str)); + if (v) return v; + return str; +} + extern VALUE rb_lastline; static VALUE -Fsub(argc, argv) +f_sub_bang(argc, argv) int argc; VALUE *argv; { @@ -870,7 +897,23 @@ Fsub(argc, argv) } static VALUE -Fgsub(argc, argv) +f_sub(argc, argv) + int argc; + VALUE *argv; +{ + VALUE v; + + Check_Type(rb_lastline, T_STRING); + v = f_sub_bang(argc, argv, str_dup(rb_lastline)); + if (v) { + rb_lastline = v; + return v; + } + return rb_lastline; +} + +static VALUE +f_gsub_bang(argc, argv) int argc; VALUE *argv; { @@ -884,7 +927,41 @@ Fgsub(argc, argv) } static VALUE -Fstr_reverse(str) +f_gsub(argc, argv) + int argc; + VALUE *argv; +{ + VALUE v; + + Check_Type(rb_lastline, T_STRING); + v = f_gsub_bang(argc, argv, str_dup(rb_lastline)); + if (v) { + rb_lastline = v; + return v; + } + return rb_lastline; +} + +static VALUE +str_reverse_bang(str) + struct RString *str; +{ + char *s, *e, *p; + + s = str->ptr; + e = s + str->len - 1; + p = ALLOCA_N(char, str->len); + + while (e >= s) { + *p++ = *e--; + } + MEMCPY(str->ptr, p, char, str->len); + + return (VALUE)str; +} + +static VALUE +str_reverse(str) struct RString *str; { VALUE obj = str_new(0, str->len); @@ -901,14 +978,14 @@ Fstr_reverse(str) } static VALUE -Fstr_to_i(str) +str_to_i(str) struct RString *str; { return str2inum(str->ptr, 10); } static VALUE -Fstr_to_f(str) +str_to_f(str) struct RString *str; { double atof(); @@ -918,35 +995,50 @@ Fstr_to_f(str) } static VALUE -Fstr_to_s(str) +str_to_s(str) VALUE str; { return str; } static VALUE -Fstr_inspect(str) +str_inspect(str) struct RString *str; { - char buf[160]; + struct RString *str0; char *p, *pend; - char *b, *bend; + char *b; + int offset; -#define CHECK(n) if (b+n > bend) break; + str0 = (struct RString*)str_new2("\""); + offset = 1; +#define CHECK(n) do {\ + str_cat(str0, 0, n);\ + b = str0->ptr + offset;\ + offset += n;\ +} while (0) p = str->ptr; pend = p + str->len; - b = buf; bend = b + sizeof buf - (str->len>150?4:2); - *b++ = '"'; while (p < pend) { char c = *p++; - if (isprint(c)) { - CHECK(1); + if (ismbchar(c) && p+1 < pend) { + CHECK(2); *b++ = c; + *b++ = *p++; + } + else if (c == '"') { + CHECK(2); + *b++ = '\\'; + *b++ = '"'; } - else if (ismbchar(c)) { + else if (c == '\\') { CHECK(2); + *b++ = '\\'; + *b++ = '\\'; + } + else if (isprint(c)) { + CHECK(1); *b++ = c; - *b++ = *p++; } else if (c == '\n') { CHECK(2); @@ -973,7 +1065,7 @@ Fstr_inspect(str) *b++ = '\\'; *b++ = 'v'; } - else if (c == '\1') { + else if (c == '\007') { CHECK(2); *b++ = '\\'; *b++ = 'a'; @@ -983,28 +1075,19 @@ Fstr_inspect(str) *b++ = '\\'; *b++ = 'e'; } - else if (iscntrl(c)) { - CHECK(2); - *b++ = '^'; - *b++ = c; - } else { - CHECK(1); - *b++ = c; - } - } - *b++ = '"'; - if (p < pend) { - bend = buf + sizeof buf; - while (b < bend) { - *b++ = '.'; + CHECK(4); + *b++ = '\\'; + sprintf(b, "%03o", c); + b += 3; } } - return str_new(buf, b - buf); + str_cat(str0, "\"", 1); + return (VALUE)str0; } static VALUE -Fstr_upcase(str) +str_upcase_bang(str) struct RString *str; { char *s, *send; @@ -1022,7 +1105,14 @@ Fstr_upcase(str) } static VALUE -Fstr_downcase(str) +str_upcase(str) + struct RString *str; +{ + return str_upcase_bang(str_dup(str)); +} + +static VALUE +str_downcase_bang(str) struct RString *str; { char *s, *send; @@ -1040,7 +1130,14 @@ Fstr_downcase(str) } static VALUE -Fstr_capitalize(str) +str_downcase(str) + struct RString *str; +{ + return str_downcase_bang(str_dup(str)); +} + +static VALUE +str_capitalize_bang(str) struct RString *str; { char *s, *send; @@ -1058,7 +1155,14 @@ Fstr_capitalize(str) } static VALUE -Fstr_swapcase(str) +str_capitalize(str) + struct RString *str; +{ + return str_capitalize_bang(str_dup(str)); +} + +static VALUE +str_swapcase_bang(str) struct RString *str; { char *s, *send; @@ -1079,25 +1183,20 @@ Fstr_swapcase(str) } static VALUE -Fstr_toupper(str) +str_swapcase(str) struct RString *str; { - return Fstr_upcase(str_new(str->ptr, str->len)); + return str_swapcase_bang(str_dup(str)); } -static VALUE -Fstr_tolower(str) - struct RString *str; -{ - return Fstr_downcase(str_new(str->ptr, str->len)); -} +typedef unsigned char *USTR; struct tr { - unsigned char gen, now, max; + int gen, now, max; char *p, *pend; } trsrc, trrepl; -static char +static int trnext(t) struct tr *t; { @@ -1108,12 +1207,12 @@ trnext(t) if (t->p < t->pend && *t->p == '-') { t->p++; if (t->p < t->pend) { - if (t->now > *t->p) { + if (t->now > *(USTR)t->p) { t->p++; continue; } t->gen = 1; - t->max = *t->p++; + t->max = *(USTR)t->p++; } } return t->now; @@ -1129,13 +1228,13 @@ trnext(t) } static VALUE -Fstr_tr(str, src, repl) +str_tr_bang(str, src, repl) struct RString *str, *src, *repl; { struct tr trsrc, trrepl; int cflag = 0; char trans[256]; - int i, c, save; + int i, c; char *s, *send, *t; Check_Type(src, T_STRING); @@ -1176,7 +1275,7 @@ Fstr_tr(str, src, repl) char r; for (i=0; i<256; i++) { - trans[i] = 0; + trans[i] = i; } while ((c = trnext(&trsrc)) >= 0) { r = trnext(&trrepl); @@ -1197,6 +1296,13 @@ Fstr_tr(str, src, repl) return (VALUE)str; } +static VALUE +str_tr(str, src, repl) + struct RString *str, *src, *repl; +{ + return str_tr_bang(str_dup(str), src, repl); +} + static void tr_setup_table(str, table) struct RString *str; @@ -1222,7 +1328,7 @@ tr_setup_table(str, table) } static VALUE -Fstr_delete(str1, str2) +str_delete_bang(str1, str2) struct RString *str1, *str2; { char *s, *send, *t; @@ -1247,6 +1353,13 @@ Fstr_delete(str1, str2) return (VALUE)str1; } +static VALUE +str_delete(str1, str2) + struct RString *str1, *str2; +{ + return str_delete_bang(str_dup(str1), str2); +} + static VALUE tr_squeeze(str1, str2) struct RString *str1, *str2; @@ -1284,7 +1397,7 @@ tr_squeeze(str1, str2) } static VALUE -Fstr_squeeze(argc, argv, str1) +str_squeeze_bang(argc, argv, str1) int argc; VALUE *argv; VALUE str1; @@ -1299,18 +1412,34 @@ Fstr_squeeze(argc, argv, str1) } static VALUE -Fstr_tr_s(str, src, repl) +str_squeeze(argc, argv, str) + int argc; + VALUE *argv; + VALUE str; +{ + return str_squeeze_bang(argc, argv, str_dup(str)); +} + +static VALUE +str_tr_s_bang(str, src, repl) VALUE str, src, repl; { Check_Type(src, T_STRING); Check_Type(repl, T_STRING); - Fstr_tr(str, src, repl); + str_tr(str, src, repl); tr_squeeze(str, repl); return str; } static VALUE -Fstr_split(argc, argv, str) +str_tr_s(str, src, repl) + VALUE str, src, repl; +{ + return str_tr_s_bang(str_dup(str), src, repl); +} + +static VALUE +str_split_method(argc, argv, str) int argc; VALUE *argv; struct RString *str; @@ -1343,7 +1472,7 @@ Fstr_split(argc, argv, str) char_sep = RSTRING(spat)->ptr[0]; } else { - spat = (struct RRegexp*)re_regcomp(spat); + spat = (struct RRegexp*)reg_regcomp(spat); } break; case T_REGEXP: @@ -1401,9 +1530,11 @@ Fstr_split(argc, argv, str) int start = beg; int last_null = 0; int idx; + struct re_registers regs; - while ((end = research(spat, str, start)) >= 0) { - if (start == end && BEG(0) == END(0)) { + regs.allocated = 0; + while ((end = reg_search(spat, str, start, ®s)) >= 0) { + if (start == end && regs.beg[0] == regs.end[0]) { if (last_null == 1) { if (ismbchar(str->ptr[beg])) ary_push(result, str_substr(str, beg, 2)); @@ -1420,22 +1551,23 @@ Fstr_split(argc, argv, str) } else { ary_push(result, str_substr(str, beg, end-beg)); - beg = start = END(0); + beg = start = regs.end[0]; if (limit && lim <= ++i) break; } last_null = 0; for (idx=1; idx < 10; idx++) { - if (BEG(idx) == -1) break; - if (BEG(idx) == END(idx)) + if (regs.beg[idx] == -1) break; + if (regs.beg[idx] == regs.end[idx]) tmp = str_new(0, 0); else - tmp = str_subseq(str, BEG(idx), END(idx)-1); + tmp = str_subseq(str, regs.beg[idx], regs.end[idx]-1); ary_push(result, tmp); if (limit && lim <= ++i) break; } } + re_free_registers(®s); } if (str->len > beg) { ary_push(result, str_subseq(str, beg, -1)); @@ -1444,8 +1576,19 @@ Fstr_split(argc, argv, str) return result; } +VALUE +str_split(str, sep0) + struct RString* str; + char *sep0; +{ + VALUE sep; + + sep = str_new2(sep0); + return str_split_method(1, &sep, str); +} + static VALUE -Fstr_each(str) +str_each_line(str) struct RString* str; { extern VALUE RS; @@ -1453,6 +1596,7 @@ Fstr_each(str) int rslen; char *p = str->ptr, *pend = p + str->len, *s; char *ptr = p; + int len = str->len; if (RS == Qnil) { rb_yield(str); @@ -1478,7 +1622,8 @@ Fstr_each(str) memcmp(RSTRING(RS)->ptr, p-rslen+1, rslen) == 0)) { rb_lastline = str_new(s, p - s + 1); rb_yield(rb_lastline); - if (str->ptr != ptr) Fail("string modified"); + if (str->ptr != ptr || str->len != len) + Fail("string modified"); s = p + 1; } } @@ -1492,7 +1637,7 @@ Fstr_each(str) } static VALUE -Fstr_each_byte(str) +str_each_byte(str) struct RString* str; { int i; @@ -1504,7 +1649,7 @@ Fstr_each_byte(str) } static VALUE -Fstr_chop(str) +str_chop_bang(str) struct RString *str; { str_modify(str); @@ -1516,11 +1661,20 @@ Fstr_chop(str) } static VALUE -Fstr_strip(str) +str_chop(str) + struct RString *str; +{ + return str_chop_bang(str_dup(str)); +} + +static VALUE +str_strip_bang(str) struct RString *str; { char *s, *t, *e; + str_modify(str); + s = str->ptr; e = t = s + str->len; /* remove spaces at head */ @@ -1531,49 +1685,55 @@ Fstr_strip(str) while (s <= t && isspace(*t)) t--; t++; - if (s > str->ptr || t < e) { + str->len = t-s; + if (s > str->ptr) { char *p = str->ptr; - int len = t-s; - str->ptr = ALLOC_N(char, len+1); - memcpy(str->ptr, p, len); - str->ptr[len] = '\0'; - if (str->orig) { - str->orig = Qnil; - } - else { - free(p); - } + str->ptr = ALLOC_N(char, str->len+1); + memcpy(str->ptr, s, str->len); + str->ptr[str->len] = '\0'; + free(p); + } + else if (t < e) { + str->ptr[str->len] = '\0'; } + return (VALUE)str; } static VALUE -Fstr_hex(str) +str_strip(str) + struct RString *str; +{ + return str_strip_bang(str_dup(str)); +} + +static VALUE +str_hex(str) struct RString *str; { return str2inum(str->ptr, 16); } static VALUE -Fstr_oct(str) +str_oct(str) struct RString *str; { return str2inum(str->ptr, 8); } static VALUE -Fstr_crypt(str, salt) +str_crypt(str, salt) struct RString *str, *salt; { - Check_Type(salt, T_STRING); + salt = as_str(salt); if (salt->len < 2) - Fail("salt too short(need 2 byte)"); + Fail("salt too short(need >2 bytes)"); return str_new2(crypt(str->ptr, salt->ptr)); } static VALUE -Fstr_intern(str) +str_intern(str) struct RString *str; { if (strlen(str->ptr) != str->len) @@ -1583,7 +1743,7 @@ Fstr_intern(str) } static VALUE -Fstr_sum(argc, argv, str) +str_sum(argc, argv, str) int argc; VALUE *argv; struct RString *str; @@ -1624,7 +1784,8 @@ Fstr_sum(argc, argv, str) } } -Fstr_ljust(str, w) +VALUE +str_ljust(str, w) struct RString *str; VALUE w; { @@ -1642,7 +1803,8 @@ Fstr_ljust(str, w) return (VALUE)res; } -Fstr_rjust(str, w) +VALUE +str_rjust(str, w) struct RString *str; VALUE w; { @@ -1660,7 +1822,8 @@ Fstr_rjust(str, w) return (VALUE)res; } -Fstr_center(str, w) +VALUE +str_center(str, w) struct RString *str; VALUE w; { @@ -1684,76 +1847,97 @@ Fstr_center(str, w) return (VALUE)res; } -extern VALUE C_Kernel; -extern VALUE M_Comparable; -extern VALUE M_Enumerable; +extern VALUE cKernel; +extern VALUE mComparable; +extern VALUE mEnumerable; +void Init_String() { - C_String = rb_define_class("String", C_Object); - rb_include_module(C_String, M_Comparable); - rb_include_module(C_String, M_Enumerable); - rb_define_single_method(C_String, "new", Sstr_new, 1); - rb_define_method(C_String, "clone", str_clone, 0); - rb_define_method(C_String, "<=>", Fstr_cmp, 1); - rb_define_method(C_String, "==", Fstr_equal, 1); - rb_define_method(C_String, "hash", Fstr_hash, 0); - rb_define_method(C_String, "+", Fstr_plus, 1); - rb_define_method(C_String, "*", Fstr_times, 1); - rb_define_method(C_String, "..", Fstr_dot2, 1); - rb_define_method(C_String, "[]", Fstr_aref, -1); - rb_define_method(C_String, "[]=", Fstr_aset, -1); - rb_define_method(C_String, "length", Fstr_length, 0); - rb_define_alias(C_String, "size", "length"); - rb_define_method(C_String, "=~", Fstr_match, 1); - rb_define_method(C_String, "~", Fstr_match2, 0); - rb_define_method(C_String, "next", Fstr_next, 0); - rb_define_method(C_String, "upto", Fstr_next, 1); - rb_define_method(C_String, "index", Fstr_index, -1); - rb_define_method(C_String, "rindex", Fstr_rindex, -1); - - rb_define_method(C_String, "to_i", Fstr_to_i, 0); - rb_define_method(C_String, "to_f", Fstr_to_f, 0); - rb_define_method(C_String, "to_s", Fstr_to_s, 0); - rb_define_method(C_String, "_inspect", Fstr_inspect, 0); - - rb_define_method(C_String, "toupper", Fstr_toupper, 0); - rb_define_method(C_String, "tolower", Fstr_tolower, 0); - - rb_define_method(C_String, "upcase", Fstr_upcase, 0); - rb_define_method(C_String, "downcase", Fstr_downcase, 0); - rb_define_method(C_String, "capitalize", Fstr_capitalize, 0); - rb_define_method(C_String, "swapcase", Fstr_swapcase, 0); - - rb_define_method(C_String, "hex", Fstr_hex, 0); - rb_define_method(C_String, "oct", Fstr_oct, 0); - rb_define_method(C_String, "split", Fstr_split, -1); - rb_define_method(C_String, "reverse", Fstr_reverse, 0); - rb_define_method(C_String, "concat", Fstr_concat, 1); - rb_define_method(C_String, "crypt", Fstr_crypt, 1); - rb_define_method(C_String, "intern", Fstr_intern, 0); - - rb_define_method(C_String, "ljust", Fstr_ljust, 1); - rb_define_method(C_String, "rjust", Fstr_rjust, 1); - rb_define_method(C_String, "center", Fstr_center, 1); - - rb_define_method(C_String, "sub", Fstr_sub, -1); - rb_define_method(C_String, "gsub", Fstr_gsub, -1); - rb_define_method(C_String, "chop", Fstr_chop, 0); - rb_define_method(C_String, "strip", Fstr_strip, 0); - - rb_define_method(C_String, "tr", Fstr_tr, 2); - rb_define_method(C_String, "tr_s", Fstr_tr_s, 2); - rb_define_method(C_String, "delete", Fstr_delete, 1); - rb_define_method(C_String, "squeeze", Fstr_squeeze, -1); - - rb_define_method(C_String, "each", Fstr_each, 0); - rb_define_method(C_String, "each_byte", Fstr_each_byte, 0); - - rb_define_method(C_String, "sum", Fstr_sum, -1); - - rb_define_private_method(C_Kernel, "sub", Fsub, -1); - rb_define_private_method(C_Kernel, "gsub", Fgsub, -1); + cString = rb_define_class("String", cObject); + rb_include_module(cString, mComparable); + rb_include_module(cString, mEnumerable); + rb_define_singleton_method(cString, "new", str_s_new, 1); + rb_define_method(cString, "clone", str_clone, 0); + rb_define_method(cString, "dup", str_dup, 0); + rb_define_method(cString, "<=>", str_cmp_method, 1); + rb_define_method(cString, "==", str_equal, 1); + rb_define_method(cString, "hash", str_hash_method, 0); + rb_define_method(cString, "+", str_plus, 1); + rb_define_method(cString, "*", str_times, 1); + rb_define_method(cString, "[]", str_aref_method, -1); + rb_define_method(cString, "[]=", str_aset_method, -1); + rb_define_method(cString, "length", str_length, 0); + rb_define_alias(cString, "size", "length"); + rb_define_method(cString, "=~", str_match, 1); + rb_define_method(cString, "~", str_match2, 0); + rb_define_method(cString, "next", str_next_method, 0); + rb_define_method(cString, "upto", str_next, 1); + rb_define_method(cString, "index", str_index_method, -1); + rb_define_method(cString, "rindex", str_rindex, -1); + + rb_define_method(cString, "freeze", str_freeze, 0); + rb_define_method(cString, "frozen?", str_frozen, 0); + + rb_define_method(cString, "to_i", str_to_i, 0); + rb_define_method(cString, "to_f", str_to_f, 0); + rb_define_method(cString, "to_s", str_to_s, 0); + rb_define_method(cString, "inspect", str_inspect, 0); + + rb_define_method(cString, "upcase", str_upcase, 0); + rb_define_method(cString, "downcase", str_downcase, 0); + rb_define_method(cString, "capitalize", str_capitalize, 0); + rb_define_method(cString, "swapcase", str_swapcase, 0); + + rb_define_method(cString, "upcase!", str_upcase_bang, 0); + rb_define_method(cString, "downcase!", str_downcase_bang, 0); + rb_define_method(cString, "capitalize!", str_capitalize_bang, 0); + rb_define_method(cString, "swapcase!", str_swapcase_bang, 0); + + rb_define_method(cString, "hex", str_hex, 0); + rb_define_method(cString, "oct", str_oct, 0); + rb_define_method(cString, "split", str_split_method, -1); + rb_define_method(cString, "reverse", str_reverse, 0); + rb_define_method(cString, "reverse!", str_reverse_bang, 0); + rb_define_method(cString, "concat", str_concat, 1); + rb_define_method(cString, "crypt", str_crypt, 1); + rb_define_method(cString, "intern", str_intern, 0); + + rb_define_method(cString, "ljust", str_ljust, 1); + rb_define_method(cString, "rjust", str_rjust, 1); + rb_define_method(cString, "center", str_center, 1); + + rb_define_method(cString, "sub", str_sub_method, -1); + rb_define_method(cString, "gsub", str_gsub, -1); + rb_define_method(cString, "chop", str_chop, 0); + rb_define_method(cString, "strip", str_strip, 0); + + rb_define_method(cString, "sub!", str_sub_bang, -1); + rb_define_method(cString, "gsub!", str_gsub_bang, -1); + rb_define_method(cString, "strip!", str_strip_bang, 0); + rb_define_method(cString, "chop!", str_chop_bang, 0); + + rb_define_method(cString, "tr", str_tr, 2); + rb_define_method(cString, "tr_s", str_tr_s, 2); + rb_define_method(cString, "delete", str_delete, 1); + rb_define_method(cString, "squeeze", str_squeeze, -1); + + rb_define_method(cString, "tr!", str_tr_bang, 2); + rb_define_method(cString, "tr_s!", str_tr_s_bang, 2); + rb_define_method(cString, "delete!", str_delete_bang, 1); + rb_define_method(cString, "squeeze!", str_squeeze_bang, -1); + + rb_define_method(cString, "each_line", str_each_line, 0); + rb_define_method(cString, "each_byte", str_each_byte, 0); + rb_define_method(cString, "each", str_each_byte, 0); + + rb_define_method(cString, "sum", str_sum, -1); + + rb_define_private_method(cKernel, "sub", f_sub, -1); + rb_define_private_method(cKernel, "gsub", f_gsub, -1); + + rb_define_private_method(cKernel, "sub!", f_sub_bang, -1); + rb_define_private_method(cKernel, "gsub!", f_gsub_bang, -1); pr_str = rb_intern("to_s"); } -- cgit v1.2.3