summaryrefslogtreecommitdiff
path: root/string.c
diff options
context:
space:
mode:
authorYukihiro Matsumoto <matz@ruby-lang.org>1995-12-21 00:56:57 +0900
committerTakashi Kokubun <takashikkbn@gmail.com>2019-08-17 22:09:32 +0900
commitfca49a8a69a0f6bb4feae74c6cd0e93d7fac8b36 (patch)
tree590a6d2ffcfa31212c1595e34a01d9cda56ba308 /string.c
parent8bf1c909dc31fd4bcdc1488cda9fe89a62bc2830 (diff)
version 0.95v0_95
https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.95.tar.gz Thu Dec 21 00:56:57 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * version 0.95 - fj.sourcesに * eval.c (rb_eval): rescueのロジックをrb_rescue()に一元化. Wed Dec 20 19:30:58 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * Makefile.in: 不要なコンパイルの回避(より完全に). * class.c (singleton_class_new): `single'->`singleton' Tue Dec 19 07:14:33 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * version 0.94 * dln.c (dln_load): HP対応(未確認) * eval.c (Init_Proc): BlockをProcに改名. Sat Dec 16 13:46:14 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * eval.c (rb_eval): retryでイテレータの再実行ができるように. Fri Dec 15 17:14:30 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * eval.c: proc:lambdaの親しみやすい別名 Thu Dec 14 17:21:55 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * eval.c (dyna_var_asgn): イテレータブロック内で最初に初期化された ローカル変数の有効範囲をそのブロック内に限定.これでlambdaと呼べ ないことはない. Wed Dec 13 02:30:58 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * ext/marshal/marshal.c (dumps|load): 文字列に対する入出力を可能に した(ただし実はファイル経由なのだ). Fri Dec 8 18:29:11 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * ext/marshal/marshal.c: シンボルを一度だけ初期化する. Thu Dec 7 07:58:50 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * parse.y (yylex): 第1引数の正規表現の認識にエラーがあった.同時に 状態数を減らした. * string.c (str_sub): 置換でスキップ幅が大きすぎた. Wed Dec 6 15:14:23 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * string.c (str_sub_method): sub/gsub(!なし)は置換が行なわれなかっ た時,置換前の文字列を返す. Tue Dec 5 00:55:15 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * parse.y (yylex): 括弧を省略した時の引数展開の`*'に対応. * eval.c (ruby_run): EXITハンドラ内での例外に対応. * bignum.c (big_cmp): BignumとFixnumの比較で落ちる. Mon Dec 4 14:21:18 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * parse.y (call_op): コンパイル時の定数式の展開をやめた.労多くし て益少ないと判断したので. Thu Nov 30 01:35:15 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * variable.c (rb_ivar_get): selfを常に指定するように. Tue Nov 14 00:07:29 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * lib/tk.rb: Tk4.0対応 Mon Nov 13 16:23:32 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * version 0.93 Thu Nov 9 23:26:01 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * gc.c (gc_mark): モジュールのMixinのマーク忘れ. * parse.y (f_arglist): メソッド定義の引数を括弧で括らなくても良い ようにした. Wed Nov 8 00:17:51 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * signal.c (trap): ブロックを指定できるように. Mon Nov 6 16:44:00 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * dln.c (dln_load): HP対応でのtypo. Wed Oct 18 17:39:39 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * version 0.92 * object.c (krn_type): オブジェクトの動的な型を返すメソッド. Tue Oct 17 00:48:18 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * string.c (str_sub): 文字列置換にバグ. * string.c (str_strip_bang): 文字列の後ろの長さの調整が行われてい なかった. * re.c (reg_search): $&, $1...のはローカルに束縛するようになった. 呼び出したメソッドでのマッチは現スコープの$&などの値に影響しない. マッチの情報をスコープ外で得たいときには$~を使って束縛情報を持ち 出す必要がある. Thu Oct 12 00:33:33 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * version 0.91 * variable.c (var_setter): 引数が間違っていた.致命的バグ. * io.c (pipe_open): $stderrの値が変更されている時にはそちらを 子プロセスのstderrに設定する. Mon Oct 9 13:06:33 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * eval.c (rb_eval): defined?の機能を拡張(yieldのチェック,superの 存在など). Fri Oct 6 12:06:47 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * 関数とクラスの命名規則を変更した.関数名,変数名の全面書き換え. * gc.c (looks_pointerp): ヒープチェックの高速化. * struct.c (Fstruct_aset): 構造体に対する`[]='. (struct_set): 構造体メンバに対する代入. Wed Oct 4 09:54:07 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * sample/ruby-mode.el: もっとましなhilit19対応(正規表現). Wed Sep 27 04:12:44 1995 Takahasi Mamoru <taka@soum.co.jp> * sample/test.rb: echoで-nを使わないように(SysV対策). * ext/extmk.rb.in: sub -> sub! Tue Sep 26 19:12:42 1995 Yasuo OHBA <jammy@csg.mes.co.jp> * dln.c (dln_find_1): `.', `..'から始まるパスに対応した. Mon Sep 25 12:33:03 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * version 0.87 Sat Sep 23 10:00:18 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * eval.c (Fmod_modfunc): メソッドをprivateにし,同時に特異メソッド も定義するメソッド.パッケージ的使い方のモジュール用. Fri Sep 22 11:02:44 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * lib/find.rb: findを提供するライブラリ * variable.c (rb_define_variable): hookの設定を分離. (add_hook): 1変数に対して複数のhookを設定できるように. Thu Sep 21 00:22:11 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * string.c (Fstr_frozen): 文字列が更新不可かどうかをチェックする述 語メソッド. * hash.c (Fhash_aset): keyが文字列の時,キーの内容が変化しないよう に,dupしてfreezeする. Wed Sep 20 16:12:44 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * version 0.86 * ext/extmk.rb.in (have_header): キャッシュにバグ. * ext/extmk.rb.in (have_library): 引数の順序が変わった. Thu Sep 14 18:00:59 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * object.c (obj_is_instance_of): is_member_ofから名称変更. Wed Sep 13 15:44:35 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * string.c (Fstr_tr_bang): 範囲外の文字に対する変換バグ. Tue Sep 12 14:27:58 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * file.c (cache_stat): ファイル名として"&"を指定すると直前の stat(2)の結果を再利用するように. Fri Sep 8 14:18:51 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * ruby.texi: `!', `?'に対応してアップデート. * parse.y: defined -> defined? * file.c: FileOpの一文字メソッドをなくす.一文字テストはtestメソッ ドにまかせる. * parse.y (yylex): 変数名の後ろに`?'も許す.述語メソッドの後ろに `?'を追加する. Thu Sep 7 20:01:33 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * string.c: 文字列の中身を更新するメソッドの名前の終りに`!'を付加. `!'の無いバージョンも用意した. * parse.y: 変数名の後ろに`!'を許す. Wed Sep 6 14:12:19 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * sample/test.rb: 失敗の検出を厳しく. Fri Aug 25 14:31:02 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * string.c (Fstr_crypt): PD cryptを用意した. Fri Aug 11 14:37:03 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * eval.c (rb_provided): 複数のfeatureをロードすると無限ループに落 ちるという単純な(しかし凶悪な)ミス. * ext/extmk.rb.in (install): dlopen対応を行った.今までdlnにしか十 分に対応していなかった. Tue Aug 8 14:17:06 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * version 0.83 Mon Aug 7 12:47:41 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * parse.y: resque -> rescue.恥ずかしいがtypoを残しておくわけには いかないよなあ.なんで今まで気がつかなかったのか…. Thu Aug 3 18:18:05 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * missing/nt.c: NT移植用の関数群をまとめた. * variable.c (rb_const_get): また例外を発生するようにした.defined がある以上例外を発生させない理由がないので(例外が発生した方がタ イプミスの検出などの点で有利). * variable.c (Fautoload): autoloadを実装.今度は使えるか. Mon Jul 31 15:44:21 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * parse.y (yylex): `+/-/['の直前に空白が来るかどうかで動作を変更し た(混乱のもとか?) Wed Jul 26 09:21:23 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * Makefile.in (test): make testができるように. * struct.c (struct_new): typo. * eval.c (rb_eval): `defined'を追加.メソッド/変数/定数の定義状態 を知る事が出来る. Wed Jul 19 18:04:01 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * version 0.81 Mon Jul 17 14:53:51 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * variable.c (rb_const_get): 未初期化のCONSTANTの値をnilにした.し かし,今後また例外に戻す可能性はある.要はoptionalなクラス/モジュー ルが存在するかチェックしたいだけなんだな. * st.c (int): grow_factorを固定にした(大嶋さんのマシンに対応). Fri Jul 14 00:48:40 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * gcc -Wallで出たwarningを元にソースを変更. * signal.c (trap): typo. Fri Jul 7 10:08:51 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * 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 <matz@caelum.co.jp> * parse.y (gettable): 未初期化のローカル変数の参照(独立した識別子) は正式にメソッド呼び出しとした. * parse.y (read_escape): tokenbufを使わないように修正.それにとも ない,`\C-x',`\M-x'などのエスケープ表現を復活.これでドキュメン トと実際の処理系が一致した. Thu Jun 15 15:42:00 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * re.c (re_regcomp): cacheのチェックを改善. Mon Jun 12 18:50:51 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * version 0.79 Sat Jun 10 00:25:01 1995 Yukihiro Matsumoto <matz@caelum.co.jp> * re.c (re_regcomp): cache判定に`$='の値も反映させた. * sample/test.rb: test suite作成. Fri Jun 9 15:58:34 1995 Yukihiro Matsumoto <matz@ix-02> * 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 <matz@ix-02> * 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 <matz@ix-02> * version 0.78 Fri Jun 2 17:52:03 1995 Yukihiro Matsumoto <matz@ix-02> * 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 <matz@ix-02> * version 0.77 Mon May 29 18:39:37 1995 Yukihiro Matsumoto <matz@ix-02> * ext/extmk.rb.in (install): 拡張モジュールもインストールできるよ うに. Fri May 26 14:43:01 1995 Yukihiro Matsumoto <matz@ix-02> * process.c (Fsystem): 戻り値をサブプロセスの失敗/成功を表す真偽値 にした.終了ステータスは`$?'で得る. Tue May 23 10:58:11 1995 Yukihiro Matsumoto <matz@ix-02> * 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 <taka@soum.co.jp> Co-authored-by: Yasuo OHBA <jammy@csg.mes.co.jp>
Diffstat (limited to 'string.c')
-rw-r--r--string.c708
1 files changed, 446 insertions, 262 deletions
diff --git a/string.c b/string.c
index 8093525..15c2473 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 <stdio.h>
#include <ctype.h>
-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, &regs)) >= 0;
+ offset=END(0)+1) {
+ str_replace2(str, beg, END(0)-1, reg_regsub(val, str, &regs));
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, &regs)) >= 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(&regs);
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;
@@ -1248,6 +1354,13 @@ Fstr_delete(str1, str2)
}
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, &regs)) >= 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(&regs);
}
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");
}