From 257c314fbb34230aea4528fbc1276304f6c7575c Mon Sep 17 00:00:00 2001
From: kouji <kouji@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 10 Jul 2009 13:03:40 +0000
Subject: * ext/readline/extconf.rb: checked rl_refresh_line in readline.

* ext/readline/readline.c (readline_s_refresh_line): add new
  method, a patch from Koichiro Ohba. see [ruby-list:45922].


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@24020 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/readline/extconf.rb |  1 +
 ext/readline/readline.c | 22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+)

(limited to 'ext')

diff --git a/ext/readline/extconf.rb b/ext/readline/extconf.rb
index d3ccca697a..512e28f627 100644
--- a/ext/readline/extconf.rb
+++ b/ext/readline/extconf.rb
@@ -50,6 +50,7 @@ have_readline_func("rl_getc_function")
 have_readline_func("rl_filename_completion_function")
 have_readline_func("rl_username_completion_function")
 have_readline_func("rl_completion_matches")
+have_readline_func("rl_refresh_line")
 have_readline_var("rl_deprep_term_function")
 have_readline_var("rl_completion_append_character")
 have_readline_var("rl_basic_word_break_characters")
diff --git a/ext/readline/readline.c b/ext/readline/readline.c
index d54a280fcd..7a7fb30dc7 100644
--- a/ext/readline/readline.c
+++ b/ext/readline/readline.c
@@ -1043,6 +1043,26 @@ readline_s_get_filename_quote_characters(VALUE self, VALUE str)
 #define readline_s_get_filename_quote_characters rb_f_notimplement
 #endif
 
+#ifdef HAVE_RL_REFRESH_LINE
+/*
+ * call-seq:
+ *   Readline.refresh_line -> nil
+ *
+ * Clear the current input line.
+ *
+ * Raises SecurityError exception if $SAFE is 4.
+ */
+static VALUE
+readline_s_refresh_line(self)
+{
+ rb_secure(4);
+ rl_refresh_line(0, 0);
+ return Qnil;
+}
+#else
+#define readline_s_refresh_line rb_f_notimplement
+#endif
+
 static VALUE
 hist_to_s(VALUE self)
 {
@@ -1350,6 +1370,8 @@ Init_readline()
 			       readline_s_set_filename_quote_characters, 1);
     rb_define_singleton_method(mReadline, "filename_quote_characters",
 			       readline_s_get_filename_quote_characters, 0);
+    rb_define_singleton_method(mReadline, "refresh_line",
+                               readline_s_refresh_line, 0);
 
     history = rb_obj_alloc(rb_cObject);
     rb_extend_object(history, rb_mEnumerable);
-- 
cgit v1.2.3