diff options
author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-01-20 04:59:32 +0000 |
---|---|---|
committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-01-20 04:59:32 +0000 |
commit | 9c5b1986a36c7a700b4c76817e35aa874ba7907c (patch) | |
tree | 5951a3d3d9a696af427384e6128c42ec2256e687 /ext/readline | |
parent | edf2e9b7c75d2fff380f03c9ae279e53fe05ab59 (diff) |
Initial revision
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@370 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/readline')
-rw-r--r-- | ext/readline/MANIFEST | 4 | ||||
-rw-r--r-- | ext/readline/README | 55 | ||||
-rw-r--r-- | ext/readline/extconf.rb | 8 | ||||
-rw-r--r-- | ext/readline/readline.c | 386 |
4 files changed, 453 insertions, 0 deletions
diff --git a/ext/readline/MANIFEST b/ext/readline/MANIFEST new file mode 100644 index 0000000000..f73a899abb --- /dev/null +++ b/ext/readline/MANIFEST @@ -0,0 +1,4 @@ +MANIFEST +README +extconf.rb +readline.c diff --git a/ext/readline/README b/ext/readline/README new file mode 100644 index 0000000000..8a5fe9120f --- /dev/null +++ b/ext/readline/README @@ -0,0 +1,55 @@ +GNU Readline Libraryを利用するための拡張モジュールです。 + +require "readline" +include Readline + +line = readline("Prompt> ", TRUE) + +のように使用してください。 + +[Readline] + +<モジュール関数> + +readline(prompt, add=nil) + + 一行入力を読み込みます。 + addがTRUEの場合、ヒストリに読み込んだ文字列を追加します。 + +<クラスメソッド> + +completion_proc = proc + + 補完時の動作を決定するProcオブジェクトを指定します。 + procは引数に入力文字列を取り、候補文字列の配列を返すように + してください。 + +completion_proc + + 補完時の動作を決定するProcオブジェクトを返します。 + +completion_case_fold = case_fold + + 補完時に大文字小文字を区別しない場合、TRUEを指定します。 + +completion_case_fold + + 補完時に大文字小文字を区別しない場合、TRUEを返します。 + +vi_editing_mode + + VIモードになります。 + +emacs_editing_mode + + Emacsモードになります。 + +<クラス定数> + +HISTORY + +ヒストリに対する操作はこの定数を通して行ってください。 +配列と同じように扱えるようになっています。 + + +
\ No newline at end of file diff --git a/ext/readline/extconf.rb b/ext/readline/extconf.rb new file mode 100644 index 0000000000..e55233eb20 --- /dev/null +++ b/ext/readline/extconf.rb @@ -0,0 +1,8 @@ +require "mkmf" + +have_library("termcap", "tgetnum") +if have_header("readline/readline.h") and + have_header("readline/history.h") and + have_library("readline", "readline") + create_makefile("readline") +end diff --git a/ext/readline/readline.c b/ext/readline/readline.c new file mode 100644 index 0000000000..9e471195e6 --- /dev/null +++ b/ext/readline/readline.c @@ -0,0 +1,386 @@ +/* readline.c -- GNU Readline module + Copyright (C) 1997-1998 Shugo Maeda */ + +#include <stdio.h> +#include <readline/readline.h> +#include <readline/history.h> + +#include "ruby.h" +#include "rubysig.h" + +static VALUE mReadline; + +#define TOLOWER(c) (isupper(c) ? tolower(c) : c) + +#define COMPLETION_PROC "completion_proc" +#define COMPLETION_CASE_FOLD "completion_case_fold" + +static int +readline_event() +{ + CHECK_INTS; +#ifdef USE_THREAD + rb_thread_schedule(); +#endif +} + +static VALUE +readline_readline(int argc, VALUE *argv, VALUE self) +{ + VALUE tmp, add_hist, result; + char *prompt = NULL; + char *buff; + + if (rb_scan_args(argc, argv, "02", &tmp, &add_hist) > 0) { + prompt = STR2CSTR(tmp); + } + buff = readline(prompt); + if (RTEST(add_hist) && buff) { + add_history(buff); + } + if (buff) + result = rb_str_new2(buff); + else + result = Qnil; + if (buff) free(buff); + return result; +} + +static VALUE +readline_s_set_completion_proc(VALUE self, VALUE proc) +{ + if (!rb_respond_to(proc, rb_intern("call"))) + rb_raise(rb_eArgError, "argument have to respond to `call'"); + return rb_iv_set(mReadline, COMPLETION_PROC, proc); +} + +static VALUE +readline_s_get_completion_proc(VALUE self) +{ + return rb_iv_get(mReadline, COMPLETION_PROC); +} + +static VALUE +readline_s_set_completion_case_fold(VALUE self, VALUE val) +{ + return rb_iv_set(mReadline, COMPLETION_CASE_FOLD, val); +} + +static VALUE +readline_s_get_completion_case_fold(VALUE self) +{ + return rb_iv_get(mReadline, COMPLETION_CASE_FOLD); +} + +static char ** +readline_attempted_completion_function(char *text, int start, int end) +{ + VALUE proc, ary, temp; + char **result; + int case_fold; + int i, matches; + + proc = rb_iv_get(mReadline, COMPLETION_PROC); + rl_attempted_completion_over = 1; + case_fold = RTEST(rb_iv_get(mReadline, COMPLETION_CASE_FOLD)); + ary = rb_funcall(proc, rb_intern("call"), 1, rb_str_new2(text)); + if (TYPE(ary) != T_ARRAY) + ary = rb_Array(ary); + matches = RARRAY(ary)->len; + if (matches == 0) + return NULL; + result = ALLOC_N(char *, matches + 2); + for (i = 0; i < matches; i++) { + temp = rb_obj_as_string(RARRAY(ary)->ptr[i]); + result[i + 1] = ALLOC_N(char, RSTRING(temp)->len + 1); + strcpy(result[i + 1], RSTRING(temp)->ptr); + } + result[matches + 1] = NULL; + + if (matches == 1) { + result[0] = result[1]; + result[1] = NULL; + } else { + register int i = 1; + int low = 100000; + + while (i < matches) { + register int c1, c2, si; + + if (case_fold) { + for (si = 0; + (c1 = TOLOWER(result[i][si])) && + (c2 = TOLOWER(result[i + 1][si])); + si++) + if (c1 != c2) break; + } else { + for (si = 0; + (c1 = result[i][si]) && + (c2 = result[i + 1][si]); + si++) + if (c1 != c2) break; + } + + if (low > si) low = si; + i++; + } + result[0] = ALLOC_N(char, low + 1); + strncpy(result[0], result[1], low); + result[0][low] = '\0'; + } + + return result; +} + +static VALUE +readline_s_vi_editing_mode(VALUE self) +{ + rl_vi_editing_mode(); + return Qnil; +} + +static VALUE +readline_s_emacs_editing_mode(VALUE self) +{ + rl_emacs_editing_mode(); + return Qnil; +} + +static VALUE +hist_to_s(VALUE self) +{ + return rb_str_new2("HISTORY"); +} + +static VALUE +hist_get(VALUE self, VALUE index) +{ + HISTORY_STATE *state; + int i; + + state = history_get_history_state(); + i = NUM2INT(index); + if (i < 0 || i > state->length - 1) { + rb_raise(rb_eIndexError, "Invalid index"); + } + return rb_str_new2(state->entries[i]->line); +} + +static VALUE +hist_set(VALUE self, VALUE index, VALUE str) +{ + HISTORY_STATE *state; + int i; + + state = history_get_history_state(); + i = NUM2INT(index); + if (i < 0 || i > state->length - 1) { + rb_raise(rb_eIndexError, "Invalid index"); + } + replace_history_entry(i, STR2CSTR(str), NULL); + return str; +} + +static VALUE +hist_push(VALUE self, VALUE str) +{ + add_history(STR2CSTR(str)); + return self; +} + +static VALUE +hist_push_method(int argc, VALUE *argv, + VALUE self) +{ + VALUE str; + + while (argc--) { + str = *argv++; + add_history(STR2CSTR(str)); + } + return self; +} + +static VALUE +hist_pop(VALUE self) +{ + HISTORY_STATE *state; + HIST_ENTRY *entry; + + state = history_get_history_state(); + if (state->length > 0) { + entry = remove_history(state->length - 1); + return rb_str_new2(entry->line); + } else { + return Qnil; + } +} + +static VALUE +hist_shift(VALUE self) +{ + HISTORY_STATE *state; + HIST_ENTRY *entry; + + state = history_get_history_state(); + if (state->length > 0) { + entry = remove_history(0); + return rb_str_new2(entry->line); + } else { + return Qnil; + } +} + +static VALUE +hist_each(VALUE self) +{ + HISTORY_STATE *state; + int i; + + state = history_get_history_state(); + for (i = 0; i < state->length; i++) { + rb_yield(rb_str_new2(state->entries[i]->line)); + } + return Qnil; +} + +static VALUE +hist_length(VALUE self) +{ + HISTORY_STATE *state; + + state = history_get_history_state(); + return INT2NUM(state->length); +} + +static VALUE +hist_empty_p(VALUE self) +{ + HISTORY_STATE *state; + + state = history_get_history_state(); + if (state->length == 0) + return Qtrue; + else + return Qfalse; +} + +static VALUE +hist_delete_at(VALUE self, VALUE index) +{ + HISTORY_STATE *state; + HIST_ENTRY *entry; + int i; + + state = history_get_history_state(); + i = NUM2INT(index); + if (i < 0 || i > state->length - 1) { + rb_raise(rb_eIndexError, "Invalid index"); + } + entry = remove_history(NUM2INT(index)); + return rb_str_new2(entry->line); +} + +static VALUE +filename_completion_proc_call(VALUE self, VALUE str) +{ + VALUE result; + char **matches; + int i; + + matches = completion_matches(STR2CSTR(str), + filename_completion_function); + if (matches) { + result = rb_ary_new(); + for (i = 0; matches[i]; i++) { + rb_ary_push(result, rb_str_new2(matches[i])); + free(matches[i]); + } + free(matches); + if (RARRAY(result)->len >= 2) + rb_ary_shift(result); + } + else { + result = Qnil; + } + return result; +} + +static VALUE +username_completion_proc_call(VALUE self, VALUE str) +{ + VALUE result; + char **matches; + int i; + + matches = completion_matches(STR2CSTR(str), + username_completion_function); + if (matches) { + result = rb_ary_new(); + for (i = 0; matches[i]; i++) { + rb_ary_push(result, rb_str_new2(matches[i])); + free(matches[i]); + } + free(matches); + if (RARRAY(result)->len >= 2) + rb_ary_shift(result); + } + else { + result = Qnil; + } + return result; +} + +void +Init_readline(void) +{ + VALUE histary, fcomp, ucomp; + + using_history(); + + mReadline = rb_define_module("Readline"); + rb_define_module_function(mReadline, "readline", + readline_readline, -1); + rb_define_singleton_method(mReadline, "completion_proc=", + readline_s_set_completion_proc, 1); + rb_define_singleton_method(mReadline, "completion_proc", + readline_s_get_completion_proc, 0); + rb_define_singleton_method(mReadline, "completion_case_fold=", + readline_s_set_completion_case_fold, 1); + rb_define_singleton_method(mReadline, "completion_case_fold", + readline_s_get_completion_case_fold, 0); + rb_define_singleton_method(mReadline, "vi_editing_mode", + readline_s_vi_editing_mode, 0); + rb_define_singleton_method(mReadline, "emacs_editing_mode", + readline_s_emacs_editing_mode, 0); + + histary = rb_obj_alloc(rb_cObject); + rb_extend_object(histary, rb_mEnumerable); + rb_define_singleton_method(histary,"to_s", hist_to_s, 0); + rb_define_singleton_method(histary,"[]", hist_get, 1); + rb_define_singleton_method(histary,"[]=", hist_set, 2); + rb_define_singleton_method(histary,"<<", hist_push, 1); + rb_define_singleton_method(histary,"push", hist_push_method, -1); + rb_define_singleton_method(histary,"pop", hist_pop, 0); + rb_define_singleton_method(histary,"shift", hist_shift, 0); + rb_define_singleton_method(histary,"each", hist_each, 0); + rb_define_singleton_method(histary,"length", hist_length, 0); + rb_define_singleton_method(histary,"empty?", hist_empty_p, 0); + rb_define_singleton_method(histary,"delete_at", hist_delete_at, 1); + rb_define_const(mReadline, "HISTORY", histary); + + fcomp = rb_obj_alloc(rb_cObject); + rb_define_singleton_method(fcomp, "call", + filename_completion_proc_call, 1); + rb_define_const(mReadline, "FILENAME_COMPLETION_PROC", fcomp); + + ucomp = rb_obj_alloc(rb_cObject); + rb_define_singleton_method(ucomp, "call", + username_completion_proc_call, 1); + rb_define_const(mReadline, "USERNAME_COMPLETION_PROC", ucomp); + + rl_attempted_completion_function + = (CPPFunction *) readline_attempted_completion_function; + rl_event_hook = readline_event; + rl_clear_signals(); +} |