1999-01-19 23:59:32 -05:00
|
|
|
/* readline.c -- GNU Readline module
|
2001-05-06 11:06:00 -04:00
|
|
|
Copyright (C) 1997-2001 Shugo Maeda */
|
1999-01-19 23:59:32 -05:00
|
|
|
|
|
|
|
#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"
|
|
|
|
|
2001-05-06 11:06:00 -04:00
|
|
|
#ifndef READLINE_42_OR_LATER
|
|
|
|
# define rl_filename_completion_function filename_completion_function
|
|
|
|
# define rl_username_completion_function username_completion_function
|
2001-05-07 05:26:29 -04:00
|
|
|
# define rl_completion_matches completion_matches
|
2001-05-06 11:06:00 -04:00
|
|
|
#endif
|
|
|
|
|
1999-01-19 23:59:32 -05:00
|
|
|
static int
|
|
|
|
readline_event()
|
|
|
|
{
|
|
|
|
CHECK_INTS;
|
|
|
|
rb_thread_schedule();
|
2001-06-23 05:30:42 -04:00
|
|
|
return 0;
|
1999-01-19 23:59:32 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
readline_readline(argc, argv, self)
|
|
|
|
int argc;
|
|
|
|
VALUE *argv;
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
VALUE tmp, add_hist, result;
|
|
|
|
char *prompt = NULL;
|
|
|
|
char *buff;
|
2001-09-06 01:14:06 -04:00
|
|
|
int status;
|
1999-01-19 23:59:32 -05:00
|
|
|
|
|
|
|
if (rb_scan_args(argc, argv, "02", &tmp, &add_hist) > 0) {
|
2001-05-06 11:06:00 -04:00
|
|
|
prompt = StringValuePtr(tmp);
|
1999-01-19 23:59:32 -05:00
|
|
|
}
|
2001-09-06 01:14:06 -04:00
|
|
|
|
|
|
|
buff = (char*)rb_protect((VALUE(*)_((VALUE)))readline, (VALUE)prompt,
|
|
|
|
&status);
|
|
|
|
if (status) {
|
|
|
|
#if READLINE_40_OR_LATER
|
|
|
|
/* restore terminal mode and signal handler*/
|
|
|
|
rl_cleanup_after_signal();
|
|
|
|
#elif READLINE_21_OR_LATER
|
|
|
|
/* restore terminal mode */
|
|
|
|
(*rl_deprep_term_function)();
|
|
|
|
#else
|
|
|
|
rl_deprep_terminal();
|
|
|
|
#endif
|
|
|
|
rb_jump_tag(status);
|
|
|
|
}
|
|
|
|
|
1999-01-19 23:59:32 -05:00
|
|
|
if (RTEST(add_hist) && buff) {
|
|
|
|
add_history(buff);
|
|
|
|
}
|
|
|
|
if (buff)
|
2001-09-06 01:14:06 -04:00
|
|
|
result = rb_tainted_str_new2(buff);
|
1999-01-19 23:59:32 -05:00
|
|
|
else
|
|
|
|
result = Qnil;
|
|
|
|
if (buff) free(buff);
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
readline_s_set_completion_proc(self, proc)
|
|
|
|
VALUE self;
|
|
|
|
VALUE proc;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
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
|
1999-08-13 01:37:52 -04:00
|
|
|
readline_s_get_completion_proc(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
return rb_iv_get(mReadline, COMPLETION_PROC);
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
readline_s_set_completion_case_fold(self, val)
|
|
|
|
VALUE self;
|
|
|
|
VALUE val;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
return rb_iv_set(mReadline, COMPLETION_CASE_FOLD, val);
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
readline_s_get_completion_case_fold(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
return rb_iv_get(mReadline, COMPLETION_CASE_FOLD);
|
|
|
|
}
|
|
|
|
|
|
|
|
static char **
|
1999-08-13 01:37:52 -04:00
|
|
|
readline_attempted_completion_function(text, start, end)
|
|
|
|
char *text;
|
|
|
|
int start;
|
|
|
|
int end;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
VALUE proc, ary, temp;
|
|
|
|
char **result;
|
|
|
|
int case_fold;
|
|
|
|
int i, matches;
|
|
|
|
|
|
|
|
proc = rb_iv_get(mReadline, COMPLETION_PROC);
|
1999-08-13 01:37:52 -04:00
|
|
|
if (NIL_P(proc))
|
|
|
|
return NULL;
|
1999-01-19 23:59:32 -05:00
|
|
|
rl_attempted_completion_over = 1;
|
|
|
|
case_fold = RTEST(rb_iv_get(mReadline, COMPLETION_CASE_FOLD));
|
2001-09-06 01:14:06 -04:00
|
|
|
ary = rb_funcall(proc, rb_intern("call"), 1, rb_tainted_str_new2(text));
|
1999-01-19 23:59:32 -05:00
|
|
|
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
|
1999-08-13 01:37:52 -04:00
|
|
|
readline_s_vi_editing_mode(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
1999-08-13 01:37:52 -04:00
|
|
|
rl_vi_editing_mode(1,0);
|
1999-01-19 23:59:32 -05:00
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
readline_s_emacs_editing_mode(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
1999-08-13 01:37:52 -04:00
|
|
|
rl_emacs_editing_mode(1,0);
|
1999-01-19 23:59:32 -05:00
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
|
2001-06-19 05:21:38 -04:00
|
|
|
static VALUE
|
|
|
|
readline_s_set_completion_append_character(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
2001-09-06 01:14:06 -04:00
|
|
|
#ifdef READLINE_21_OR_LATER
|
2001-06-19 05:21:38 -04:00
|
|
|
if (NIL_P(str)) {
|
|
|
|
rl_completion_append_character = '\0';
|
|
|
|
} else {
|
|
|
|
StringValue(str);
|
|
|
|
|
|
|
|
rl_completion_append_character = RSTRING(str)->ptr[0];
|
|
|
|
}
|
|
|
|
|
|
|
|
return self;
|
2001-09-06 01:14:06 -04:00
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
2001-06-19 05:21:38 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_get_completion_append_character(self)
|
|
|
|
VALUE self;
|
|
|
|
{
|
2001-09-06 01:14:06 -04:00
|
|
|
#ifdef READLINE_21_OR_LATER
|
2001-06-19 05:21:38 -04:00
|
|
|
VALUE str;
|
|
|
|
|
|
|
|
if (rl_completion_append_character == '\0')
|
|
|
|
return Qnil;
|
|
|
|
|
|
|
|
str = rb_str_new("", 1);
|
|
|
|
RSTRING(str)->ptr[0] = rl_completion_append_character;
|
|
|
|
|
|
|
|
return str;
|
2001-09-06 01:14:06 -04:00
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
2001-12-19 03:02:55 -05:00
|
|
|
static VALUE
|
|
|
|
readline_s_set_basic_word_break_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
static char *basic_word_break_characters = NULL;
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
StringValue(str);
|
|
|
|
if (basic_word_break_characters == NULL) {
|
|
|
|
basic_word_break_characters =
|
|
|
|
ALLOC_N(char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
REALLOC_N(basic_word_break_characters, char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
strncpy(basic_word_break_characters,
|
|
|
|
RSTRING(str)->ptr, RSTRING(str)->len);
|
|
|
|
basic_word_break_characters[RSTRING(str)->len] = '\0';
|
|
|
|
rl_basic_word_break_characters = basic_word_break_characters;
|
|
|
|
|
|
|
|
return self;
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_get_basic_word_break_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
if (rl_basic_word_break_characters == NULL)
|
|
|
|
return Qnil;
|
|
|
|
return rb_str_new2(rl_basic_word_break_characters);
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_set_completer_word_break_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
static char *completer_word_break_characters = NULL;
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
StringValue(str);
|
|
|
|
if (completer_word_break_characters == NULL) {
|
|
|
|
completer_word_break_characters =
|
|
|
|
ALLOC_N(char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
REALLOC_N(completer_word_break_characters, char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
strncpy(completer_word_break_characters,
|
|
|
|
RSTRING(str)->ptr, RSTRING(str)->len);
|
|
|
|
completer_word_break_characters[RSTRING(str)->len] = '\0';
|
|
|
|
rl_completer_word_break_characters = completer_word_break_characters;
|
|
|
|
|
|
|
|
return self;
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_get_completer_word_break_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
if (rl_completer_word_break_characters == NULL)
|
|
|
|
return Qnil;
|
|
|
|
return rb_str_new2(rl_completer_word_break_characters);
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_set_basic_quote_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
static char *basic_quote_characters = NULL;
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
StringValue(str);
|
|
|
|
if (basic_quote_characters == NULL) {
|
|
|
|
basic_quote_characters =
|
|
|
|
ALLOC_N(char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
REALLOC_N(basic_quote_characters, char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
strncpy(basic_quote_characters,
|
|
|
|
RSTRING(str)->ptr, RSTRING(str)->len);
|
|
|
|
basic_quote_characters[RSTRING(str)->len] = '\0';
|
|
|
|
rl_basic_quote_characters = basic_quote_characters;
|
|
|
|
|
|
|
|
return self;
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_get_basic_quote_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
if (rl_basic_quote_characters == NULL)
|
|
|
|
return Qnil;
|
|
|
|
return rb_str_new2(rl_basic_quote_characters);
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_set_completer_quote_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
static char *completer_quote_characters = NULL;
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
StringValue(str);
|
|
|
|
if (completer_quote_characters == NULL) {
|
|
|
|
completer_quote_characters =
|
|
|
|
ALLOC_N(char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
REALLOC_N(completer_quote_characters, char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
strncpy(completer_quote_characters,
|
|
|
|
RSTRING(str)->ptr, RSTRING(str)->len);
|
|
|
|
completer_quote_characters[RSTRING(str)->len] = '\0';
|
|
|
|
rl_completer_quote_characters = completer_quote_characters;
|
|
|
|
|
|
|
|
return self;
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_get_completer_quote_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
if (rl_completer_quote_characters == NULL)
|
|
|
|
return Qnil;
|
|
|
|
return rb_str_new2(rl_completer_quote_characters);
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_set_filename_quote_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
static char *filename_quote_characters = NULL;
|
|
|
|
char *s;
|
|
|
|
|
|
|
|
StringValue(str);
|
|
|
|
if (filename_quote_characters == NULL) {
|
|
|
|
filename_quote_characters =
|
|
|
|
ALLOC_N(char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
REALLOC_N(filename_quote_characters, char, RSTRING(str)->len + 1);
|
|
|
|
}
|
|
|
|
strncpy(filename_quote_characters,
|
|
|
|
RSTRING(str)->ptr, RSTRING(str)->len);
|
|
|
|
filename_quote_characters[RSTRING(str)->len] = '\0';
|
|
|
|
rl_filename_quote_characters = filename_quote_characters;
|
|
|
|
|
|
|
|
return self;
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
readline_s_get_filename_quote_characters(self, str)
|
|
|
|
VALUE self, str;
|
|
|
|
{
|
|
|
|
#ifdef READLINE_21_OR_LATER
|
|
|
|
if (rl_filename_quote_characters == NULL)
|
|
|
|
return Qnil;
|
|
|
|
return rb_str_new2(rl_filename_quote_characters);
|
|
|
|
#else
|
|
|
|
rb_notimplement();
|
|
|
|
#endif /* READLINE_21_OR_LATER */
|
|
|
|
}
|
|
|
|
|
2001-09-06 01:14:06 -04:00
|
|
|
static VALUE
|
|
|
|
rb_remove_history(index)
|
|
|
|
int index;
|
|
|
|
{
|
|
|
|
HIST_ENTRY *entry;
|
|
|
|
VALUE val;
|
|
|
|
|
|
|
|
entry = remove_history(index);
|
|
|
|
if (entry) {
|
|
|
|
val = rb_tainted_str_new2(entry->line);
|
|
|
|
free(entry->line);
|
|
|
|
free(entry);
|
|
|
|
return val;
|
|
|
|
}
|
|
|
|
return Qnil;
|
2001-06-19 05:21:38 -04:00
|
|
|
}
|
|
|
|
|
1999-01-19 23:59:32 -05:00
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_to_s(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
return rb_str_new2("HISTORY");
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_get(self, index)
|
|
|
|
VALUE self;
|
|
|
|
VALUE index;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
HISTORY_STATE *state;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
state = history_get_history_state();
|
|
|
|
i = NUM2INT(index);
|
2001-09-06 01:14:06 -04:00
|
|
|
if (i < 0) {
|
|
|
|
i += state->length;
|
|
|
|
}
|
1999-01-19 23:59:32 -05:00
|
|
|
if (i < 0 || i > state->length - 1) {
|
|
|
|
rb_raise(rb_eIndexError, "Invalid index");
|
|
|
|
}
|
2001-09-06 01:14:06 -04:00
|
|
|
return rb_tainted_str_new2(state->entries[i]->line);
|
1999-01-19 23:59:32 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_set(self, index, str)
|
|
|
|
VALUE self;
|
|
|
|
VALUE index;
|
|
|
|
VALUE str;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
HISTORY_STATE *state;
|
2001-05-06 11:06:00 -04:00
|
|
|
VALUE s = str;
|
1999-01-19 23:59:32 -05:00
|
|
|
int i;
|
|
|
|
|
|
|
|
state = history_get_history_state();
|
|
|
|
i = NUM2INT(index);
|
2001-09-06 01:14:06 -04:00
|
|
|
if (i < 0) {
|
|
|
|
i += state->length;
|
|
|
|
}
|
1999-01-19 23:59:32 -05:00
|
|
|
if (i < 0 || i > state->length - 1) {
|
|
|
|
rb_raise(rb_eIndexError, "Invalid index");
|
|
|
|
}
|
2001-05-06 11:06:00 -04:00
|
|
|
replace_history_entry(i, StringValuePtr(s), NULL);
|
1999-01-19 23:59:32 -05:00
|
|
|
return str;
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_push(self, str)
|
|
|
|
VALUE self;
|
|
|
|
VALUE str;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
2001-05-06 11:06:00 -04:00
|
|
|
add_history(StringValuePtr(str));
|
1999-01-19 23:59:32 -05:00
|
|
|
return self;
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_push_method(argc, argv, self)
|
|
|
|
int argc;
|
|
|
|
VALUE *argv;
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
VALUE str;
|
|
|
|
|
|
|
|
while (argc--) {
|
|
|
|
str = *argv++;
|
2001-05-06 11:06:00 -04:00
|
|
|
add_history(StringValuePtr(str));
|
1999-01-19 23:59:32 -05:00
|
|
|
}
|
|
|
|
return self;
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_pop(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
HISTORY_STATE *state;
|
|
|
|
|
|
|
|
state = history_get_history_state();
|
|
|
|
if (state->length > 0) {
|
2001-09-06 01:14:06 -04:00
|
|
|
return rb_remove_history(state->length - 1);
|
1999-01-19 23:59:32 -05:00
|
|
|
} else {
|
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_shift(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
HISTORY_STATE *state;
|
|
|
|
|
|
|
|
state = history_get_history_state();
|
|
|
|
if (state->length > 0) {
|
2001-09-06 01:14:06 -04:00
|
|
|
return rb_remove_history(0);
|
1999-01-19 23:59:32 -05:00
|
|
|
} else {
|
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_each(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
HISTORY_STATE *state;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
state = history_get_history_state();
|
|
|
|
for (i = 0; i < state->length; i++) {
|
2001-09-06 01:14:06 -04:00
|
|
|
rb_yield(rb_tainted_str_new2(state->entries[i]->line));
|
1999-01-19 23:59:32 -05:00
|
|
|
}
|
1999-08-13 01:37:52 -04:00
|
|
|
return self;
|
1999-01-19 23:59:32 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_length(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
HISTORY_STATE *state;
|
|
|
|
|
|
|
|
state = history_get_history_state();
|
|
|
|
return INT2NUM(state->length);
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_empty_p(self)
|
|
|
|
VALUE self;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
HISTORY_STATE *state;
|
|
|
|
|
|
|
|
state = history_get_history_state();
|
|
|
|
if (state->length == 0)
|
|
|
|
return Qtrue;
|
|
|
|
else
|
|
|
|
return Qfalse;
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
hist_delete_at(self, index)
|
|
|
|
VALUE self;
|
|
|
|
VALUE index;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
HISTORY_STATE *state;
|
|
|
|
int i;
|
|
|
|
|
|
|
|
state = history_get_history_state();
|
|
|
|
i = NUM2INT(index);
|
2001-09-06 01:14:06 -04:00
|
|
|
if (i < 0)
|
|
|
|
i += state->length;
|
1999-01-19 23:59:32 -05:00
|
|
|
if (i < 0 || i > state->length - 1) {
|
|
|
|
rb_raise(rb_eIndexError, "Invalid index");
|
|
|
|
}
|
2001-09-06 01:14:06 -04:00
|
|
|
return rb_remove_history(i);
|
1999-01-19 23:59:32 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
filename_completion_proc_call(self, str)
|
|
|
|
VALUE self;
|
|
|
|
VALUE str;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
VALUE result;
|
|
|
|
char **matches;
|
|
|
|
int i;
|
|
|
|
|
2001-05-07 05:26:29 -04:00
|
|
|
matches = rl_completion_matches(StringValuePtr(str),
|
|
|
|
rl_filename_completion_function);
|
1999-01-19 23:59:32 -05:00
|
|
|
if (matches) {
|
|
|
|
result = rb_ary_new();
|
|
|
|
for (i = 0; matches[i]; i++) {
|
2001-09-06 01:14:06 -04:00
|
|
|
rb_ary_push(result, rb_tainted_str_new2(matches[i]));
|
1999-01-19 23:59:32 -05:00
|
|
|
free(matches[i]);
|
|
|
|
}
|
|
|
|
free(matches);
|
|
|
|
if (RARRAY(result)->len >= 2)
|
|
|
|
rb_ary_shift(result);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
result = Qnil;
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
1999-08-13 01:37:52 -04:00
|
|
|
username_completion_proc_call(self, str)
|
|
|
|
VALUE self;
|
|
|
|
VALUE str;
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
VALUE result;
|
|
|
|
char **matches;
|
|
|
|
int i;
|
|
|
|
|
2001-05-07 05:26:29 -04:00
|
|
|
matches = rl_completion_matches(StringValuePtr(str),
|
|
|
|
rl_username_completion_function);
|
1999-01-19 23:59:32 -05:00
|
|
|
if (matches) {
|
|
|
|
result = rb_ary_new();
|
|
|
|
for (i = 0; matches[i]; i++) {
|
2001-09-06 01:14:06 -04:00
|
|
|
rb_ary_push(result, rb_tainted_str_new2(matches[i]));
|
1999-01-19 23:59:32 -05:00
|
|
|
free(matches[i]);
|
|
|
|
}
|
|
|
|
free(matches);
|
|
|
|
if (RARRAY(result)->len >= 2)
|
|
|
|
rb_ary_shift(result);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
result = Qnil;
|
|
|
|
}
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
1999-08-13 01:37:52 -04:00
|
|
|
Init_readline()
|
1999-01-19 23:59:32 -05:00
|
|
|
{
|
|
|
|
VALUE histary, fcomp, ucomp;
|
|
|
|
|
2001-09-06 01:14:06 -04:00
|
|
|
/* Allow conditional parsing of the ~/.inputrc file. */
|
|
|
|
rl_readline_name = "Ruby";
|
|
|
|
|
1999-01-19 23:59:32 -05:00
|
|
|
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);
|
2001-06-19 05:21:38 -04:00
|
|
|
rb_define_singleton_method(mReadline, "completion_append_character=",
|
|
|
|
readline_s_set_completion_append_character, 1);
|
|
|
|
rb_define_singleton_method(mReadline, "completion_append_character",
|
|
|
|
readline_s_get_completion_append_character, 0);
|
2001-12-19 03:02:55 -05:00
|
|
|
rb_define_singleton_method(mReadline, "basic_word_break_characters=",
|
|
|
|
readline_s_set_basic_word_break_characters, 1);
|
|
|
|
rb_define_singleton_method(mReadline, "basic_word_break_characters",
|
|
|
|
readline_s_get_basic_word_break_characters, 0);
|
|
|
|
rb_define_singleton_method(mReadline, "completer_word_break_characters=",
|
|
|
|
readline_s_set_completer_word_break_characters, 1);
|
|
|
|
rb_define_singleton_method(mReadline, "completer_word_break_characters",
|
|
|
|
readline_s_get_completer_word_break_characters, 0);
|
|
|
|
rb_define_singleton_method(mReadline, "basic_quote_characters=",
|
|
|
|
readline_s_set_basic_quote_characters, 1);
|
|
|
|
rb_define_singleton_method(mReadline, "basic_quote_characters",
|
|
|
|
readline_s_get_basic_quote_characters, 0);
|
|
|
|
rb_define_singleton_method(mReadline, "completer_quote_characters=",
|
|
|
|
readline_s_set_completer_quote_characters, 1);
|
|
|
|
rb_define_singleton_method(mReadline, "completer_quote_characters",
|
|
|
|
readline_s_get_completer_quote_characters, 0);
|
|
|
|
rb_define_singleton_method(mReadline, "filename_quote_characters=",
|
|
|
|
readline_s_set_filename_quote_characters, 1);
|
|
|
|
rb_define_singleton_method(mReadline, "filename_quote_characters",
|
|
|
|
readline_s_get_filename_quote_characters, 0);
|
1999-01-19 23:59:32 -05:00
|
|
|
|
|
|
|
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);
|
2001-09-06 01:14:06 -04:00
|
|
|
rb_define_singleton_method(histary,"size", hist_length, 0);
|
|
|
|
|
1999-01-19 23:59:32 -05:00
|
|
|
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);
|
2001-09-06 01:14:06 -04:00
|
|
|
#if READLINE_21_OR_LATER
|
|
|
|
rb_define_const(mReadline, "VERSION", rb_str_new2(rl_library_version));
|
|
|
|
#else
|
|
|
|
rb_define_const(mReadline, "VERSION",
|
|
|
|
rb_str_new2("2.0 or before version"));
|
|
|
|
#endif
|
1999-01-19 23:59:32 -05:00
|
|
|
|
|
|
|
rl_attempted_completion_function
|
|
|
|
= (CPPFunction *) readline_attempted_completion_function;
|
|
|
|
rl_event_hook = readline_event;
|
|
|
|
rl_clear_signals();
|
|
|
|
}
|