[ruby-dev:35514] Re: リリース前ToDoリスト

高尾宏治です。

On 2008/07/13, at 21:33, Takao Kouji wrote:
> On 2008/07/05, at 0:38, Yukihiro Matsumoto wrote:
>> |> [ruby-core:17479] [Ruby 1.8 - Bug #212] Issues with Readline in Mac OS X
>> |
>> |これはMac OS Xのreadlineというかlibeditがいろいろとおかしいだけ
>> |ではないでしょうか。
>>
>> そうだとは思うのですが、OSXを知る人からの情報がないので断定
>> できません。まあ、libreadlineで動いてるんだから、libeditは知
>> らんというのも一つの態度でしょうが。
>
> 上記について、できる範囲で調査してみました。
>
> GNU Readline の history_base と libedit の history_base の扱いが異なるようです。
> GNU Readline の history_base は、 libedit の history_base - 1 のようです。

Readlineモジュールのメンテナである前田さんに
私が作成したパッチについて確認したところ、
* 確認する環境がないということ
* 適用するならまずはtrunkで
ということを聞きました。

これらを解決するため、rubyのtrunkでパッチを作成しなおし、
Mac OSX 10.5.3の環境で動作を確認しました。
パッチは本メールの下部に記述します。

システムのバージョン： Mac OS X 10.5.3 (9D34)
カーネルのバージョン： Darwin 9.3.0

$ ruby --version
ruby 1.9.0 (2008-07-15 revision 18071) [i686-darwin9.3.0]

修正前
$ ruby -rreadline -e 'puts Readline::VERSION; Readline::HISTORY.push("1", "2", "3"); Readline::HISTORY.each { |s| puts s }'
EditLine wrapper
2
3

修正後
$ ruby -rreadline -e 'puts Readline::VERSION; Readline::HISTORY.push("1", "2", "3"); Readline::HISTORY.each { |s| puts s }'
EditLine wrapper
1
2
3

なお、本パッチはconfigureのオプションに--enable-libeditを付けないと、
期待通りに動作しません。つまり、修正前のように動作します。

--enable-libeditオプションを不要にするため、
HAVE_EDITLINE_READLINE_Hが定義されているかどうかではなく、
history_baseの扱いをextconf.rbで判定するようにできれば、
より良いと思うのですが、その方法は分かりません。

以上です。
よろしくお願いします。

----- ここから -----
Index: ext/readline/readline.c
===================================================================
--- ext/readline/readline.c	(revision 18071)
+++ ext/readline/readline.c	(working copy)
@@ -43,6 +43,12 @@
 # define rl_completion_matches completion_matches
 #endif
 
+#ifdef HAVE_EDITLINE_READLINE_H
+#define HISTORY_BASE (history_base - 1)
+#else
+#define HISTORY_BASE (history_base)
+#endif
+
 static char **readline_attempted_completion_function(const char *text,
                                                      int start, int end);
 
@@ -516,7 +522,7 @@
     if (i < 0) {
         i += history_length;
     }
-    entry = history_get(history_base + i);
+    entry = history_get(HISTORY_BASE + i);
     if (entry == NULL) {
 	rb_raise(rb_eIndexError, "invalid index");
     }
@@ -624,7 +630,7 @@
 
     rb_secure(4);
     for (i = 0; i < history_length; i++) {
-        entry = history_get(history_base + i);
+        entry = history_get(HISTORY_BASE + i);
         if (entry == NULL)
             break;
 	rb_yield(rb_tainted_str_new2(entry->line));