* ext/readline/readline.c: check $SAFE. (backported from CVS HEAD)

* test/readline/test_readline.rb: added tests for readline.
  (backported from CVS HEAD)


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@7454 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 57 insertions, 17 deletions

diff --git a/ext/readline/readline.c b/ext/readline/readline.c
index 78a8b17fe5..e3a1dcbf02 100644
--- a/ext/readline/readline.c
+++ b/ext/readline/readline.c
@@ -45,8 +45,10 @@ readline_readline(argc, argv, self)
     char *buff;
     int status;
 
+    rb_secure(4);
     if (rb_scan_args(argc, argv, "02", &tmp, &add_hist) > 0) {
-	prompt = StringValuePtr(tmp);
+	SafeStringValue(tmp);
+	prompt = RSTRING(tmp)->ptr;
     }
 
     if (!isatty(0) && errno == EBADF) rb_raise(rb_eIOError, "stdin closed");
@@ -82,6 +84,7 @@ readline_s_set_completion_proc(self, proc)
     VALUE self;
     VALUE proc;
 {
+    rb_secure(4);
     if (!rb_respond_to(proc, rb_intern("call")))
 	rb_raise(rb_eArgError, "argument must respond to `call'");
     return rb_iv_set(mReadline, COMPLETION_PROC, proc);
@@ -91,6 +94,7 @@ static VALUE
 readline_s_get_completion_proc(self)
     VALUE self;
 {
+    rb_secure(4);
     return rb_iv_get(mReadline, COMPLETION_PROC);
 }
 
@@ -99,6 +103,7 @@ readline_s_set_completion_case_fold(self, val)
     VALUE self;
     VALUE val;
 {
+    rb_secure(4);
     return rb_iv_set(mReadline, COMPLETION_CASE_FOLD, val);
 }
 
@@ -106,6 +111,7 @@ static VALUE
 readline_s_get_completion_case_fold(self)
     VALUE self;
 {
+    rb_secure(4);
     return rb_iv_get(mReadline, COMPLETION_CASE_FOLD);
 }
 
@@ -178,6 +184,7 @@ static VALUE
 readline_s_vi_editing_mode(self)
     VALUE self;
 {
+    rb_secure(4);
     rl_vi_editing_mode(1,0);
     return Qnil;
 }
@@ -186,6 +193,7 @@ static VALUE
 readline_s_emacs_editing_mode(self)
     VALUE self;
 {
+    rb_secure(4);
     rl_emacs_editing_mode(1,0);
     return Qnil;
 }
@@ -195,10 +203,17 @@ readline_s_set_completion_append_character(self, str)
     VALUE self, str;
 {
 #ifdef READLINE_21_OR_LATER
-    if (NIL_P(str) || !StringValuePtr(str) || !RSTRING(str)->len) {
+    rb_secure(4);
+    if (NIL_P(str)) {
 	rl_completion_append_character = '\0';
-    } else {
-	rl_completion_append_character = RSTRING(str)->ptr[0];
+    }
+    else {
+	SafeStringValue(str);
+	if (RSTRING(str)->len == 0) {
+	    rl_completion_append_character = '\0';
+	} else {
+	    rl_completion_append_character = RSTRING(str)->ptr[0];
+	}
     }
 
     return self;
@@ -214,6 +229,7 @@ readline_s_get_completion_append_character(self)
 #ifdef READLINE_21_OR_LATER
     VALUE str;
 
+    rb_secure(4);
     if (rl_completion_append_character == '\0')
 	return Qnil;
 
@@ -233,7 +249,8 @@ readline_s_set_basic_word_break_characters(self, str)
 #ifdef READLINE_21_OR_LATER
     static char *basic_word_break_characters = NULL;
 
-    StringValue(str);
+    rb_secure(4);
+    SafeStringValue(str);
     if (basic_word_break_characters == NULL) {
 	basic_word_break_characters =
 	    ALLOC_N(char, RSTRING(str)->len + 1);
@@ -257,9 +274,10 @@ readline_s_get_basic_word_break_characters(self, str)
     VALUE self, str;
 {
 #ifdef READLINE_21_OR_LATER
+    rb_secure(4);
     if (rl_basic_word_break_characters == NULL)
 	return Qnil;
-    return rb_str_new2(rl_basic_word_break_characters);
+    return rb_tainted_str_new2(rl_basic_word_break_characters);
 #else
     rb_notimplement();
 #endif /* READLINE_21_OR_LATER */
@@ -272,7 +290,8 @@ readline_s_set_completer_word_break_characters(self, str)
 #ifdef READLINE_21_OR_LATER
     static char *completer_word_break_characters = NULL;
 
-    StringValue(str);
+    rb_secure(4);
+    SafeStringValue(str);
     if (completer_word_break_characters == NULL) {
 	completer_word_break_characters =
 	    ALLOC_N(char, RSTRING(str)->len + 1);
@@ -296,9 +315,10 @@ readline_s_get_completer_word_break_characters(self, str)
     VALUE self, str;
 {
 #ifdef READLINE_21_OR_LATER
+    rb_secure(4);
     if (rl_completer_word_break_characters == NULL)
 	return Qnil;
-    return rb_str_new2(rl_completer_word_break_characters);
+    return rb_tainted_str_new2(rl_completer_word_break_characters);
 #else
     rb_notimplement();
 #endif /* READLINE_21_OR_LATER */
@@ -311,7 +331,8 @@ readline_s_set_basic_quote_characters(self, str)
 #ifdef READLINE_21_OR_LATER
     static char *basic_quote_characters = NULL;
 
-    StringValue(str);
+    rb_secure(4);
+    SafeStringValue(str);
     if (basic_quote_characters == NULL) {
 	basic_quote_characters =
 	    ALLOC_N(char, RSTRING(str)->len + 1);
@@ -335,9 +356,10 @@ readline_s_get_basic_quote_characters(self, str)
     VALUE self, str;
 {
 #ifdef READLINE_21_OR_LATER
+    rb_secure(4);
     if (rl_basic_quote_characters == NULL)
 	return Qnil;
-    return rb_str_new2(rl_basic_quote_characters);
+    return rb_tainted_str_new2(rl_basic_quote_characters);
 #else
     rb_notimplement();
 #endif /* READLINE_21_OR_LATER */
@@ -350,7 +372,8 @@ readline_s_set_completer_quote_characters(self, str)
 #ifdef READLINE_21_OR_LATER
     static char *completer_quote_characters = NULL;
 
-    StringValue(str);
+    rb_secure(4);
+    SafeStringValue(str);
     if (completer_quote_characters == NULL) {
 	completer_quote_characters =
 	    ALLOC_N(char, RSTRING(str)->len + 1);
@@ -374,9 +397,10 @@ readline_s_get_completer_quote_characters(self, str)
     VALUE self, str;
 {
 #ifdef READLINE_21_OR_LATER
+    rb_secure(4);
     if (rl_completer_quote_characters == NULL)
 	return Qnil;
-    return rb_str_new2(rl_completer_quote_characters);
+    return rb_tainted_str_new2(rl_completer_quote_characters);
 #else
     rb_notimplement();
 #endif /* READLINE_21_OR_LATER */
@@ -389,7 +413,8 @@ readline_s_set_filename_quote_characters(self, str)
 #ifdef READLINE_21_OR_LATER
     static char *filename_quote_characters = NULL;
 
-    StringValue(str);
+    rb_secure(4);
+    SafeStringValue(str);
     if (filename_quote_characters == NULL) {
 	filename_quote_characters =
 	    ALLOC_N(char, RSTRING(str)->len + 1);
@@ -413,9 +438,10 @@ readline_s_get_filename_quote_characters(self, str)
     VALUE self, str;
 {
 #ifdef READLINE_21_OR_LATER
+    rb_secure(4);
     if (rl_filename_quote_characters == NULL)
 	return Qnil;
-    return rb_str_new2(rl_filename_quote_characters);
+    return rb_tainted_str_new2(rl_filename_quote_characters);
 #else
     rb_notimplement();
 #endif /* READLINE_21_OR_LATER */
@@ -428,6 +454,7 @@ rb_remove_history(index)
     HIST_ENTRY *entry;
     VALUE val;
 
+    rb_secure(4);
     entry = remove_history(index);
     if (entry) {
         val = rb_tainted_str_new2(entry->line);
@@ -453,6 +480,7 @@ hist_get(self, index)
     HISTORY_STATE *state;
     int i;
 
+    rb_secure(4);
     state = history_get_history_state();
     i = NUM2INT(index);
     if (i < 0) {
@@ -474,6 +502,7 @@ hist_set(self, index, str)
     VALUE s = str;
     int i;
 
+    rb_secure(4);
     state = history_get_history_state();
     i = NUM2INT(index);
     if (i < 0) {
@@ -482,7 +511,8 @@ hist_set(self, index, str)
     if (i < 0 || i > state->length - 1) {
 	rb_raise(rb_eIndexError, "Invalid index");
     }
-    replace_history_entry(i, StringValuePtr(s), NULL);
+    SafeStringValue(str);
+    replace_history_entry(i, RSTRING(str)->ptr, NULL);
     return str;
 }
 
@@ -491,7 +521,9 @@ hist_push(self, str)
     VALUE self;
     VALUE str;
 {
-    add_history(StringValuePtr(str));
+    rb_secure(4);
+    SafeStringValue(str);
+    add_history(RSTRING(str)->ptr);
     return self;
 }
 
@@ -503,9 +535,11 @@ hist_push_method(argc, argv, self)
 {
     VALUE str;
     
+    rb_secure(4);
     while (argc--) {
 	str = *argv++;
-	add_history(StringValuePtr(str));
+	SafeStringValue(str);
+	add_history(RSTRING(str)->ptr);
     }
     return self;
 }
@@ -516,6 +550,7 @@ hist_pop(self)
 {
     HISTORY_STATE *state;
 
+    rb_secure(4);
     state = history_get_history_state();
     if (state->length > 0) {
 	return rb_remove_history(state->length - 1);
@@ -530,6 +565,7 @@ hist_shift(self)
 {
     HISTORY_STATE *state;
 
+    rb_secure(4);
     state = history_get_history_state();
     if (state->length > 0) {
 	return rb_remove_history(0);
@@ -545,6 +581,7 @@ hist_each(self)
     HISTORY_STATE *state;
     int i;
 
+    rb_secure(4);
     state = history_get_history_state();
     for (i = 0; i < state->length; i++) {
 	rb_yield(rb_tainted_str_new2(state->entries[i]->line));
@@ -558,6 +595,7 @@ hist_length(self)
 {
     HISTORY_STATE *state;
 
+    rb_secure(4);
     state = history_get_history_state();
     return INT2NUM(state->length);
 }
@@ -568,6 +606,7 @@ hist_empty_p(self)
 {
     HISTORY_STATE *state;
 
+    rb_secure(4);
     state = history_get_history_state();
     if (state->length == 0)
 	return Qtrue;
@@ -583,6 +622,7 @@ hist_delete_at(self, index)
     HISTORY_STATE *state;
     int i;
 
+    rb_secure(4);
     state = history_get_history_state();
     i = NUM2INT(index);
     if (i < 0)