From 074f1c913346abbd6d47b3e1147719e2cf0e023f Mon Sep 17 00:00:00 2001 From: nobu Date: Sun, 2 Sep 2018 23:27:08 +0000 Subject: Readline: expose rl_completion_quote_character variable [Feature #13050] From: georgebrock (George Brocklehurst) git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@64618 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/readline/extconf.rb | 1 + ext/readline/readline.c | 31 +++++++++++++++++++++++++++++++ 2 files changed, 32 insertions(+) (limited to 'ext') diff --git a/ext/readline/extconf.rb b/ext/readline/extconf.rb index 5266e07439..fcc62921ae 100644 --- a/ext/readline/extconf.rb +++ b/ext/readline/extconf.rb @@ -71,6 +71,7 @@ readline.have_func("rl_completion_matches") readline.have_func("rl_refresh_line") readline.have_var("rl_deprep_term_function") readline.have_var("rl_completion_append_character") +readline.have_var("rl_completion_quote_character") readline.have_var("rl_basic_word_break_characters") readline.have_var("rl_completer_word_break_characters") readline.have_var("rl_basic_quote_characters") diff --git a/ext/readline/readline.c b/ext/readline/readline.c index 8f827387f0..402e215e8e 100644 --- a/ext/readline/readline.c +++ b/ext/readline/readline.c @@ -1303,6 +1303,35 @@ readline_s_get_completion_append_character(VALUE self) #define readline_s_get_completion_append_character rb_f_notimplement #endif +#ifdef HAVE_RL_COMPLETION_QUOTE_CHARACTER +/* + * call-seq: + * Readline.completion_quote_character -> char + * + * When called during a completion (e.g. from within your completion_proc), + * it will return a string containing the chracter used to quote the + * argument being completed, or nil if the argument is unquoted. + * + * When called at other times, it will always return nil. + * + * Note that ``Readline.completer_quote_characters`` must be set, + * or this method will always return nil. + */ +static VALUE +readline_s_get_completion_quote_character(VALUE self) +{ + char buf[1]; + + if (rl_completion_quote_character == '\0') + return Qnil; + + buf[0] = (char) rl_completion_quote_character; + return rb_locale_str_new(buf, 1); +} +#else +#define readline_s_get_completion_quote_character rb_f_notimplement +#endif + #ifdef HAVE_RL_BASIC_WORD_BREAK_CHARACTERS /* * call-seq: @@ -1958,6 +1987,8 @@ Init_readline(void) readline_s_set_completion_append_character, 1); rb_define_singleton_method(mReadline, "completion_append_character", readline_s_get_completion_append_character, 0); + rb_define_singleton_method(mReadline, "completion_quote_character", + readline_s_get_completion_quote_character, 0); 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", -- cgit v1.2.3