|
2996
|
1 /* funmap.c -- attach names to functions. */ |
|
|
2 |
|
|
3 /* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc. |
|
|
4 |
|
|
5 This file is part of the GNU Readline Library, a library for |
|
|
6 reading lines of text with interactive input and history editing. |
|
|
7 |
|
|
8 The GNU Readline Library is free software; you can redistribute it |
|
|
9 and/or modify it under the terms of the GNU General Public License |
|
|
10 as published by the Free Software Foundation; either version 1, or |
|
|
11 (at your option) any later version. |
|
|
12 |
|
|
13 The GNU Readline Library is distributed in the hope that it will be |
|
|
14 useful, but WITHOUT ANY WARRANTY; without even the implied warranty |
|
|
15 of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
16 GNU General Public License for more details. |
|
|
17 |
|
|
18 The GNU General Public License is often shipped with GNU software, and |
|
|
19 is generally kept in a file called COPYING or LICENSE. If you do not |
|
|
20 have a copy of the license, write to the Free Software Foundation, |
|
|
21 675 Mass Ave, Cambridge, MA 02139, USA. */ |
|
|
22 #define READLINE_LIBRARY |
|
|
23 |
|
|
24 #if defined (HAVE_CONFIG_H) |
|
|
25 # include <config.h> |
|
|
26 #endif |
|
|
27 |
|
|
28 extern char *xmalloc (), *xrealloc (); |
|
|
29 |
|
|
30 #if !defined (BUFSIZ) |
|
|
31 #include <stdio.h> |
|
|
32 #endif /* BUFSIZ */ |
|
|
33 |
|
|
34 #if defined (HAVE_STDLIB_H) |
|
|
35 # include <stdlib.h> |
|
|
36 #else |
|
|
37 # include "ansi_stdlib.h" |
|
|
38 #endif /* HAVE_STDLIB_H */ |
|
|
39 |
|
|
40 #include "rlconf.h" |
|
|
41 #include "readline.h" |
|
|
42 |
|
|
43 extern int _rl_qsort_string_compare (); |
|
|
44 |
|
|
45 FUNMAP **funmap; |
|
|
46 static int funmap_size; |
|
|
47 static int funmap_entry; |
|
|
48 |
|
|
49 /* After initializing the function map, this is the index of the first |
|
|
50 program specific function. */ |
|
|
51 int funmap_program_specific_entry_start; |
|
|
52 |
|
|
53 static FUNMAP default_funmap[] = { |
|
|
54 { "abort", rl_abort }, |
|
|
55 { "accept-line", rl_newline }, |
|
|
56 { "arrow-key-prefix", rl_arrow_keys }, |
|
|
57 { "backward-char", rl_backward }, |
|
|
58 { "backward-delete-char", rl_rubout }, |
|
|
59 { "backward-kill-line", rl_backward_kill_line }, |
|
|
60 { "backward-kill-word", rl_backward_kill_word }, |
|
|
61 { "backward-word", rl_backward_word }, |
|
|
62 { "beginning-of-history", rl_beginning_of_history }, |
|
|
63 { "beginning-of-line", rl_beg_of_line }, |
|
|
64 { "call-last-kbd-macro", rl_call_last_kbd_macro }, |
|
|
65 { "capitalize-word", rl_capitalize_word }, |
|
|
66 { "character-search", rl_char_search }, |
|
|
67 { "character-search-backward", rl_backward_char_search }, |
|
|
68 { "clear-screen", rl_clear_screen }, |
|
|
69 { "complete", rl_complete }, |
|
|
70 { "copy-backward-word", rl_copy_backward_word }, |
|
|
71 { "copy-forward-word", rl_copy_forward_word }, |
|
|
72 { "copy-region-as-kill", rl_copy_region_to_kill }, |
|
|
73 { "delete-char", rl_delete }, |
|
|
74 { "delete-horizontal-space", rl_delete_horizontal_space }, |
|
|
75 { "digit-argument", rl_digit_argument }, |
|
|
76 { "do-lowercase-version", rl_do_lowercase_version }, |
|
|
77 { "downcase-word", rl_downcase_word }, |
|
|
78 { "dump-functions", rl_dump_functions }, |
|
|
79 { "dump-macros", rl_dump_macros }, |
|
|
80 { "dump-variables", rl_dump_variables }, |
|
|
81 { "emacs-editing-mode", rl_emacs_editing_mode }, |
|
|
82 { "end-kbd-macro", rl_end_kbd_macro }, |
|
|
83 { "end-of-history", rl_end_of_history }, |
|
|
84 { "end-of-line", rl_end_of_line }, |
|
|
85 { "exchange-point-and-mark", rl_exchange_point_and_mark }, |
|
|
86 { "forward-char", rl_forward }, |
|
|
87 { "forward-search-history", rl_forward_search_history }, |
|
|
88 { "forward-word", rl_forward_word }, |
|
|
89 { "history-search-backward", rl_history_search_backward }, |
|
|
90 { "history-search-forward", rl_history_search_forward }, |
|
|
91 { "insert-comment", rl_insert_comment }, |
|
|
92 { "insert-completions", rl_insert_completions }, |
|
|
93 { "kill-whole-line", rl_kill_full_line }, |
|
|
94 { "kill-line", rl_kill_line }, |
|
|
95 { "kill-region", rl_kill_region }, |
|
|
96 { "kill-word", rl_kill_word }, |
|
|
97 { "next-history", rl_get_next_history }, |
|
|
98 { "non-incremental-forward-search-history", rl_noninc_forward_search }, |
|
|
99 { "non-incremental-reverse-search-history", rl_noninc_reverse_search }, |
|
|
100 { "non-incremental-forward-search-history-again", rl_noninc_forward_search_again }, |
|
|
101 { "non-incremental-reverse-search-history-again", rl_noninc_reverse_search_again }, |
|
|
102 { "possible-completions", rl_possible_completions }, |
|
|
103 { "previous-history", rl_get_previous_history }, |
|
|
104 { "quoted-insert", rl_quoted_insert }, |
|
|
105 { "re-read-init-file", rl_re_read_init_file }, |
|
|
106 { "redraw-current-line", rl_refresh_line}, |
|
|
107 { "reverse-search-history", rl_reverse_search_history }, |
|
|
108 { "revert-line", rl_revert_line }, |
|
|
109 { "self-insert", rl_insert }, |
|
|
110 { "set-mark", rl_set_mark }, |
|
|
111 { "start-kbd-macro", rl_start_kbd_macro }, |
|
|
112 { "tab-insert", rl_tab_insert }, |
|
|
113 { "tilde-expand", rl_tilde_expand }, |
|
|
114 { "transpose-chars", rl_transpose_chars }, |
|
|
115 { "transpose-words", rl_transpose_words }, |
|
|
116 { "tty-status", rl_tty_status }, |
|
|
117 { "undo", rl_undo_command }, |
|
|
118 { "universal-argument", rl_universal_argument }, |
|
|
119 { "unix-line-discard", rl_unix_line_discard }, |
|
|
120 { "unix-word-rubout", rl_unix_word_rubout }, |
|
|
121 { "upcase-word", rl_upcase_word }, |
|
|
122 { "yank", rl_yank }, |
|
|
123 { "yank-last-arg", rl_yank_last_arg }, |
|
|
124 { "yank-nth-arg", rl_yank_nth_arg }, |
|
|
125 { "yank-pop", rl_yank_pop }, |
|
|
126 |
|
|
127 #if defined (VI_MODE) |
|
|
128 { "vi-append-eol", rl_vi_append_eol }, |
|
|
129 { "vi-append-mode", rl_vi_append_mode }, |
|
|
130 { "vi-arg-digit", rl_vi_arg_digit }, |
|
|
131 { "vi-back-to-indent", rl_vi_back_to_indent }, |
|
|
132 { "vi-bWord", rl_vi_bWord }, |
|
|
133 { "vi-bracktype", rl_vi_bracktype }, |
|
|
134 { "vi-bword", rl_vi_bword }, |
|
|
135 { "vi-change-case", rl_vi_change_case }, |
|
|
136 { "vi-change-char", rl_vi_change_char }, |
|
|
137 { "vi-change-to", rl_vi_change_to }, |
|
|
138 { "vi-char-search", rl_vi_char_search }, |
|
|
139 { "vi-column", rl_vi_column }, |
|
|
140 { "vi-complete", rl_vi_complete }, |
|
|
141 { "vi-delete", rl_vi_delete }, |
|
|
142 { "vi-delete-to", rl_vi_delete_to }, |
|
|
143 { "vi-eWord", rl_vi_eWord }, |
|
|
144 { "vi-editing-mode", rl_vi_editing_mode }, |
|
|
145 { "vi-end-word", rl_vi_end_word }, |
|
|
146 { "vi-eof-maybe", rl_vi_eof_maybe }, |
|
|
147 { "vi-eword", rl_vi_eword }, |
|
|
148 { "vi-fWord", rl_vi_fWord }, |
|
|
149 { "vi-fetch-history", rl_vi_fetch_history }, |
|
|
150 { "vi-first-print", rl_vi_first_print }, |
|
|
151 { "vi-fword", rl_vi_fword }, |
|
|
152 { "vi-goto-mark", rl_vi_goto_mark }, |
|
|
153 { "vi-insert-beg", rl_vi_insert_beg }, |
|
|
154 { "vi-insertion-mode", rl_vi_insertion_mode }, |
|
|
155 { "vi-match", rl_vi_match }, |
|
|
156 { "vi-movement-mode", rl_vi_movement_mode }, |
|
|
157 { "vi-next-word", rl_vi_next_word }, |
|
|
158 { "vi-overstrike", rl_vi_overstrike }, |
|
|
159 { "vi-overstrike-delete", rl_vi_overstrike_delete }, |
|
|
160 { "vi-prev-word", rl_vi_prev_word }, |
|
|
161 { "vi-put", rl_vi_put }, |
|
|
162 { "vi-redo", rl_vi_redo }, |
|
|
163 { "vi-replace", rl_vi_replace }, |
|
|
164 { "vi-search", rl_vi_search }, |
|
|
165 { "vi-search-again", rl_vi_search_again }, |
|
|
166 { "vi-set-mark", rl_vi_set_mark }, |
|
|
167 { "vi-subst", rl_vi_subst }, |
|
|
168 { "vi-tilde-expand", rl_vi_tilde_expand }, |
|
|
169 { "vi-yank-arg", rl_vi_yank_arg }, |
|
|
170 { "vi-yank-to", rl_vi_yank_to }, |
|
|
171 #endif /* VI_MODE */ |
|
|
172 |
|
|
173 {(char *)NULL, (Function *)NULL } |
|
|
174 }; |
|
|
175 |
|
|
176 int |
|
|
177 rl_add_funmap_entry (name, function) |
|
|
178 char *name; |
|
|
179 Function *function; |
|
|
180 { |
|
|
181 if (funmap_entry + 2 >= funmap_size) |
|
|
182 { |
|
|
183 funmap_size += 64; |
|
|
184 funmap = (FUNMAP **)xrealloc (funmap, funmap_size * sizeof (FUNMAP *)); |
|
|
185 } |
|
|
186 |
|
|
187 funmap[funmap_entry] = (FUNMAP *)xmalloc (sizeof (FUNMAP)); |
|
|
188 funmap[funmap_entry]->name = name; |
|
|
189 funmap[funmap_entry]->function = function; |
|
|
190 |
|
|
191 funmap[++funmap_entry] = (FUNMAP *)NULL; |
|
|
192 return funmap_entry; |
|
|
193 } |
|
|
194 |
|
|
195 static int funmap_initialized; |
|
|
196 |
|
|
197 /* Make the funmap contain all of the default entries. */ |
|
|
198 void |
|
|
199 rl_initialize_funmap () |
|
|
200 { |
|
|
201 register int i; |
|
|
202 |
|
|
203 if (funmap_initialized) |
|
|
204 return; |
|
|
205 |
|
|
206 for (i = 0; default_funmap[i].name; i++) |
|
|
207 rl_add_funmap_entry (default_funmap[i].name, default_funmap[i].function); |
|
|
208 |
|
|
209 funmap_initialized = 1; |
|
|
210 funmap_program_specific_entry_start = i; |
|
|
211 } |
|
|
212 |
|
|
213 /* Produce a NULL terminated array of known function names. The array |
|
|
214 is sorted. The array itself is allocated, but not the strings inside. |
|
|
215 You should free () the array when you done, but not the pointrs. */ |
|
|
216 char ** |
|
|
217 rl_funmap_names () |
|
|
218 { |
|
|
219 char **result; |
|
|
220 int result_size, result_index; |
|
|
221 |
|
|
222 /* Make sure that the function map has been initialized. */ |
|
|
223 rl_initialize_funmap (); |
|
|
224 |
|
|
225 for (result_index = result_size = 0, result = (char **)NULL; funmap[result_index]; result_index++) |
|
|
226 { |
|
|
227 if (result_index + 2 > result_size) |
|
|
228 { |
|
|
229 result_size += 20; |
|
|
230 result = (char **)xrealloc (result, result_size * sizeof (char *)); |
|
|
231 } |
|
|
232 |
|
|
233 result[result_index] = funmap[result_index]->name; |
|
|
234 result[result_index + 1] = (char *)NULL; |
|
|
235 } |
|
|
236 |
|
|
237 qsort (result, result_index, sizeof (char *), _rl_qsort_string_compare); |
|
|
238 return (result); |
|
|
239 } |
|
|
240 |
|
|
241 /* Things that mean `Control'. */ |
|
|
242 char *possible_control_prefixes[] = { |
|
|
243 "Control-", "C-", "CTRL-", (char *)NULL |
|
|
244 }; |
|
|
245 |
|
|
246 char *possible_meta_prefixes[] = { |
|
|
247 "Meta", "M-", (char *)NULL |
|
|
248 }; |
