File: | src/lib/libedit/readline.c |
Warning: | line 980, column 4 Potential leak of memory pointed to by 'result' |
Press '?' to see keyboard shortcuts
Keyboard shortcuts:
1 | /* $OpenBSD: readline.c,v 1.29 2019/08/14 08:31:00 asou Exp $ */ | |||
2 | /* $NetBSD: readline.c,v 1.91 2010/08/28 15:44:59 christos Exp $ */ | |||
3 | ||||
4 | /*- | |||
5 | * Copyright (c) 1997 The NetBSD Foundation, Inc. | |||
6 | * All rights reserved. | |||
7 | * | |||
8 | * This code is derived from software contributed to The NetBSD Foundation | |||
9 | * by Jaromir Dolecek. | |||
10 | * | |||
11 | * Redistribution and use in source and binary forms, with or without | |||
12 | * modification, are permitted provided that the following conditions | |||
13 | * are met: | |||
14 | * 1. Redistributions of source code must retain the above copyright | |||
15 | * notice, this list of conditions and the following disclaimer. | |||
16 | * 2. Redistributions in binary form must reproduce the above copyright | |||
17 | * notice, this list of conditions and the following disclaimer in the | |||
18 | * documentation and/or other materials provided with the distribution. | |||
19 | * | |||
20 | * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS | |||
21 | * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED | |||
22 | * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | |||
23 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS | |||
24 | * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR | |||
25 | * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF | |||
26 | * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS | |||
27 | * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN | |||
28 | * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | |||
29 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE | |||
30 | * POSSIBILITY OF SUCH DAMAGE. | |||
31 | */ | |||
32 | ||||
33 | #include "config.h" | |||
34 | ||||
35 | #include <sys/types.h> | |||
36 | #include <sys/stat.h> | |||
37 | #include <ctype.h> | |||
38 | #include <dirent.h> | |||
39 | #include <errno(*__errno()).h> | |||
40 | #include <fcntl.h> | |||
41 | #include <limits.h> | |||
42 | #include <pwd.h> | |||
43 | #include <setjmp.h> | |||
44 | #include <stdint.h> | |||
45 | #include <stdio.h> | |||
46 | #include <stdlib.h> | |||
47 | #include <string.h> | |||
48 | #include <unistd.h> | |||
49 | #ifdef HAVE_VIS_H1 | |||
50 | #include <vis.h> | |||
51 | #else | |||
52 | #include "np/vis.h" | |||
53 | #endif | |||
54 | #include "readline/readline.h" | |||
55 | #include "el.h" | |||
56 | #include "fcns.h" | |||
57 | #include "filecomplete.h" | |||
58 | ||||
59 | void rl_prep_terminal(int); | |||
60 | void rl_deprep_terminal(void); | |||
61 | ||||
62 | /* for rl_complete() */ | |||
63 | #define TAB'\r' '\r' | |||
64 | ||||
65 | /* see comment at the #ifdef for sense of this */ | |||
66 | /* #define GDB_411_HACK */ | |||
67 | ||||
68 | /* readline compatibility stuff - look at readline sources/documentation */ | |||
69 | /* to see what these variables mean */ | |||
70 | const char *rl_library_version = "EditLine wrapper"; | |||
71 | int rl_readline_version = RL_READLINE_VERSION0x0402; | |||
72 | static char empty[] = { '\0' }; | |||
73 | static char expand_chars[] = { ' ', '\t', '\n', '=', '(', '\0' }; | |||
74 | static char break_chars[] = { ' ', '\t', '\n', '"', '\\', '\'', '`', '@', '$', | |||
75 | '>', '<', '=', ';', '|', '&', '{', '(', '\0' }; | |||
76 | char *rl_readline_name = empty; | |||
77 | FILE *rl_instream = NULL((void *)0); | |||
78 | FILE *rl_outstream = NULL((void *)0); | |||
79 | int rl_point = 0; | |||
80 | int rl_end = 0; | |||
81 | char *rl_line_buffer = NULL((void *)0); | |||
82 | VCPFunction *rl_linefunc = NULL((void *)0); | |||
83 | int rl_done = 0; | |||
84 | VFunction *rl_event_hook = NULL((void *)0); | |||
85 | KEYMAP_ENTRY_ARRAY emacs_standard_keymap, | |||
86 | emacs_meta_keymap, | |||
87 | emacs_ctlx_keymap; | |||
88 | ||||
89 | int history_base = 1; /* probably never subject to change */ | |||
90 | int history_length = 0; | |||
91 | int max_input_history = 0; | |||
92 | char history_expansion_char = '!'; | |||
93 | char history_subst_char = '^'; | |||
94 | char *history_no_expand_chars = expand_chars; | |||
95 | Function *history_inhibit_expansion_function = NULL((void *)0); | |||
96 | char *history_arg_extract(int start, int end, const char *str); | |||
97 | ||||
98 | int rl_inhibit_completion = 0; | |||
99 | int rl_attempted_completion_over = 0; | |||
100 | char *rl_basic_word_break_characters = break_chars; | |||
101 | char *rl_completer_word_break_characters = NULL((void *)0); | |||
102 | char *rl_completer_quote_characters = NULL((void *)0); | |||
103 | Function *rl_completion_entry_function = NULL((void *)0); | |||
104 | CPPFunction *rl_attempted_completion_function = NULL((void *)0); | |||
105 | Function *rl_pre_input_hook = NULL((void *)0); | |||
106 | Function *rl_startup1_hook = NULL((void *)0); | |||
107 | int (*rl_getc_function)(FILE *) = NULL((void *)0); | |||
108 | char *rl_terminal_name = NULL((void *)0); | |||
109 | int rl_already_prompted = 0; | |||
110 | int rl_filename_completion_desired = 0; | |||
111 | int rl_ignore_completion_duplicates = 0; | |||
112 | int rl_catch_signals = 1; | |||
113 | int readline_echoing_p = 1; | |||
114 | int _rl_print_completions_horizontally = 0; | |||
115 | VFunction *rl_redisplay_function = NULL((void *)0); | |||
116 | Function *rl_startup_hook = NULL((void *)0); | |||
117 | VFunction *rl_completion_display_matches_hook = NULL((void *)0); | |||
118 | VFunction *rl_prep_term_function = (VFunction *)rl_prep_terminal; | |||
119 | VFunction *rl_deprep_term_function = (VFunction *)rl_deprep_terminal; | |||
120 | KEYMAP_ENTRY_ARRAY emacs_meta_keymap; | |||
121 | ||||
122 | /* | |||
123 | * The current prompt string. | |||
124 | */ | |||
125 | char *rl_prompt = NULL((void *)0); | |||
126 | /* | |||
127 | * This is set to character indicating type of completion being done by | |||
128 | * rl_complete_internal(); this is available for application completion | |||
129 | * functions. | |||
130 | */ | |||
131 | int rl_completion_type = 0; | |||
132 | ||||
133 | /* | |||
134 | * If more than this number of items results from query for possible | |||
135 | * completions, we ask user if they are sure to really display the list. | |||
136 | */ | |||
137 | int rl_completion_query_items = 100; | |||
138 | ||||
139 | /* | |||
140 | * List of characters which are word break characters, but should be left | |||
141 | * in the parsed text when it is passed to the completion function. | |||
142 | * Shell uses this to help determine what kind of completing to do. | |||
143 | */ | |||
144 | char *rl_special_prefixes = NULL((void *)0); | |||
145 | ||||
146 | /* | |||
147 | * This is the character appended to the completed words if at the end of | |||
148 | * the line. Default is ' ' (a space). | |||
149 | */ | |||
150 | int rl_completion_append_character = ' '; | |||
151 | ||||
152 | /* | |||
153 | * When the history cursor is on the newest element and next_history() | |||
154 | * is called, GNU readline moves the cursor beyond the newest element. | |||
155 | * The editline library does not provide data structures to express | |||
156 | * that state, so we need a local flag. | |||
157 | */ | |||
158 | static int current_history_valid = 1; | |||
159 | ||||
160 | /* stuff below is used internally by libedit for readline emulation */ | |||
161 | ||||
162 | static History *h = NULL((void *)0); | |||
163 | static EditLine *e = NULL((void *)0); | |||
164 | static Function *map[256]; | |||
165 | static jmp_buf topbuf; | |||
166 | ||||
167 | /* internal functions */ | |||
168 | static unsigned char _el_rl_complete(EditLine *, int); | |||
169 | static unsigned char _el_rl_tstp(EditLine *, int); | |||
170 | static char *_get_prompt(EditLine *); | |||
171 | static int _getc_function(EditLine *, wchar_t *); | |||
172 | static HIST_ENTRY *_move_history(int); | |||
173 | static int _history_expand_command(const char *, size_t, size_t, | |||
174 | char **); | |||
175 | static char *_rl_compat_sub(const char *, const char *, | |||
176 | const char *, int); | |||
177 | static int _rl_event_read_char(EditLine *, wchar_t *); | |||
178 | static void _rl_update_pos(void); | |||
179 | ||||
180 | ||||
181 | /* ARGSUSED */ | |||
182 | static char * | |||
183 | _get_prompt(EditLine *el __attribute__((__unused__))) | |||
184 | { | |||
185 | rl_already_prompted = 1; | |||
186 | return rl_prompt; | |||
187 | } | |||
188 | ||||
189 | ||||
190 | /* | |||
191 | * generic function for moving around history | |||
192 | */ | |||
193 | static HIST_ENTRY * | |||
194 | _move_history(int op) | |||
195 | { | |||
196 | HistEvent ev; | |||
197 | static HIST_ENTRY rl_he; | |||
198 | ||||
199 | if (history(h, &ev, op) != 0) | |||
200 | return NULL((void *)0); | |||
201 | ||||
202 | rl_he.line = ev.str; | |||
203 | rl_he.data = NULL((void *)0); | |||
204 | ||||
205 | return &rl_he; | |||
206 | } | |||
207 | ||||
208 | ||||
209 | /* | |||
210 | * read one key from user defined input function | |||
211 | */ | |||
212 | static int | |||
213 | /*ARGSUSED*/ | |||
214 | _getc_function(EditLine *el __attribute__((__unused__)), wchar_t *c) | |||
215 | { | |||
216 | int i; | |||
217 | ||||
218 | i = (*rl_getc_function)(NULL((void *)0)); | |||
219 | if (i == -1) | |||
220 | return 0; | |||
221 | *c = (wchar_t)i; | |||
222 | return 1; | |||
223 | } | |||
224 | ||||
225 | static void | |||
226 | _resize_fun(EditLine *el, void *a) | |||
227 | { | |||
228 | const LineInfo *li; | |||
229 | char **ap = a; | |||
230 | ||||
231 | li = el_line(el); | |||
232 | /* a cheesy way to get rid of const cast. */ | |||
233 | *ap = memchr(li->buffer, *li->buffer, 1); | |||
234 | } | |||
235 | ||||
236 | static const char _dothistory[] = "/.history"; | |||
237 | ||||
238 | static const char * | |||
239 | _default_history_file(void) | |||
240 | { | |||
241 | struct passwd *p; | |||
242 | static char path[PATH_MAX1024]; | |||
243 | ||||
244 | if (*path) | |||
245 | return path; | |||
246 | if ((p = getpwuid(getuid())) == NULL((void *)0)) | |||
247 | return NULL((void *)0); | |||
248 | strlcpy(path, p->pw_dir, PATH_MAX1024); | |||
249 | strlcat(path, _dothistory, PATH_MAX1024); | |||
250 | return path; | |||
251 | } | |||
252 | ||||
253 | /* | |||
254 | * READLINE compatibility stuff | |||
255 | */ | |||
256 | ||||
257 | /* | |||
258 | * Set the prompt | |||
259 | */ | |||
260 | int | |||
261 | rl_set_prompt(const char *prompt) | |||
262 | { | |||
263 | char *p; | |||
264 | ||||
265 | if (!prompt) | |||
266 | prompt = ""; | |||
267 | if (rl_prompt != NULL((void *)0) && strcmp(rl_prompt, prompt) == 0) | |||
268 | return 0; | |||
269 | if (rl_prompt) | |||
270 | free(rl_prompt); | |||
271 | rl_prompt = strdup(prompt); | |||
272 | if (rl_prompt == NULL((void *)0)) | |||
273 | return -1; | |||
274 | ||||
275 | while ((p = strchr(rl_prompt, RL_PROMPT_END_IGNORE'\2')) != NULL((void *)0)) | |||
276 | *p = RL_PROMPT_START_IGNORE'\1'; | |||
277 | ||||
278 | return 0; | |||
279 | } | |||
280 | ||||
281 | /* | |||
282 | * initialize rl compat stuff | |||
283 | */ | |||
284 | int | |||
285 | rl_initialize(void) | |||
286 | { | |||
287 | HistEvent ev; | |||
288 | int editmode = 1; | |||
289 | struct termios t; | |||
290 | ||||
291 | current_history_valid = 1; | |||
292 | ||||
293 | if (e != NULL((void *)0)) | |||
294 | el_end(e); | |||
295 | if (h != NULL((void *)0)) | |||
296 | history_end(h); | |||
297 | ||||
298 | if (!rl_instream) | |||
299 | rl_instream = stdin(&__sF[0]); | |||
300 | if (!rl_outstream) | |||
301 | rl_outstream = stdout(&__sF[1]); | |||
302 | ||||
303 | /* | |||
304 | * See if we don't really want to run the editor | |||
305 | */ | |||
306 | if (tcgetattr(fileno(rl_instream)(!__isthreaded ? ((rl_instream)->_file) : (fileno)(rl_instream )), &t) != -1 && (t.c_lflag & ECHO0x00000008) == 0) | |||
307 | editmode = 0; | |||
308 | ||||
309 | e = el_init(rl_readline_name, rl_instream, rl_outstream, stderr(&__sF[2])); | |||
310 | ||||
311 | if (!editmode) | |||
312 | el_set(e, EL_EDITMODE11, 0); | |||
313 | ||||
314 | h = history_init(); | |||
315 | if (!e || !h) | |||
316 | return -1; | |||
317 | ||||
318 | history(h, &ev, H_SETSIZE1, INT_MAX2147483647); /* unlimited */ | |||
319 | history_length = 0; | |||
320 | max_input_history = INT_MAX2147483647; | |||
321 | el_set(e, EL_HIST10, history, h); | |||
322 | ||||
323 | /* Setup resize function */ | |||
324 | el_set(e, EL_RESIZE23, _resize_fun, &rl_line_buffer); | |||
325 | ||||
326 | /* setup getc function if valid */ | |||
327 | if (rl_getc_function) | |||
328 | el_set(e, EL_GETCFN13, _getc_function); | |||
329 | ||||
330 | /* for proper prompt printing in readline() */ | |||
331 | if (rl_set_prompt("") == -1) { | |||
332 | history_end(h); | |||
333 | el_end(e); | |||
334 | return -1; | |||
335 | } | |||
336 | el_set(e, EL_PROMPT0, _get_prompt, RL_PROMPT_START_IGNORE'\1'); | |||
337 | el_set(e, EL_SIGNAL3, rl_catch_signals); | |||
338 | ||||
339 | /* set default mode to "emacs"-style and read setting afterwards */ | |||
340 | /* so this can be overriden */ | |||
341 | el_set(e, EL_EDITOR2, "emacs"); | |||
342 | if (rl_terminal_name != NULL((void *)0)) | |||
343 | el_set(e, EL_TERMINAL1, rl_terminal_name); | |||
344 | else | |||
345 | el_get(e, EL_TERMINAL1, &rl_terminal_name); | |||
346 | ||||
347 | /* | |||
348 | * Word completion - this has to go AFTER rebinding keys | |||
349 | * to emacs-style. | |||
350 | */ | |||
351 | el_set(e, EL_ADDFN9, "rl_complete", | |||
352 | "ReadLine compatible completion function", | |||
353 | _el_rl_complete); | |||
354 | el_set(e, EL_BIND4, "^I", "rl_complete", NULL((void *)0)); | |||
355 | ||||
356 | /* | |||
357 | * Send TSTP when ^Z is pressed. | |||
358 | */ | |||
359 | el_set(e, EL_ADDFN9, "rl_tstp", | |||
360 | "ReadLine compatible suspend function", | |||
361 | _el_rl_tstp); | |||
362 | el_set(e, EL_BIND4, "^Z", "rl_tstp", NULL((void *)0)); | |||
363 | ||||
364 | /* read settings from configuration file */ | |||
365 | el_source(e, NULL((void *)0)); | |||
366 | ||||
367 | /* | |||
368 | * Unfortunately, some applications really do use rl_point | |||
369 | * and rl_line_buffer directly. | |||
370 | */ | |||
371 | _resize_fun(e, &rl_line_buffer); | |||
372 | _rl_update_pos(); | |||
373 | ||||
374 | if (rl_startup_hook) | |||
375 | (*rl_startup_hook)(NULL((void *)0), 0); | |||
376 | ||||
377 | return 0; | |||
378 | } | |||
379 | ||||
380 | ||||
381 | /* | |||
382 | * read one line from input stream and return it, chomping | |||
383 | * trailing newline (if there is any) | |||
384 | */ | |||
385 | char * | |||
386 | readline(const char *p) | |||
387 | { | |||
388 | HistEvent ev; | |||
389 | const char * volatile prompt = p; | |||
390 | int count; | |||
391 | const char *ret; | |||
392 | char *buf; | |||
393 | static int used_event_hook; | |||
394 | ||||
395 | if (e == NULL((void *)0) || h == NULL((void *)0)) | |||
396 | rl_initialize(); | |||
397 | ||||
398 | rl_done = 0; | |||
399 | ||||
400 | (void)setjmp(topbuf); | |||
401 | ||||
402 | /* update prompt accordingly to what has been passed */ | |||
403 | if (rl_set_prompt(prompt) == -1) | |||
404 | return NULL((void *)0); | |||
405 | ||||
406 | if (rl_pre_input_hook) | |||
407 | (*rl_pre_input_hook)(NULL((void *)0), 0); | |||
408 | ||||
409 | if (rl_event_hook && !(e->el_flags&NO_TTY0x02)) { | |||
410 | el_set(e, EL_GETCFN13, _rl_event_read_char); | |||
411 | used_event_hook = 1; | |||
412 | } | |||
413 | ||||
414 | if (!rl_event_hook && used_event_hook) { | |||
415 | el_set(e, EL_GETCFN13, EL_BUILTIN_GETCFN(((void *)0))); | |||
416 | used_event_hook = 0; | |||
417 | } | |||
418 | ||||
419 | rl_already_prompted = 0; | |||
420 | ||||
421 | /* get one line from input stream */ | |||
422 | ret = el_gets(e, &count); | |||
423 | ||||
424 | if (ret && count > 0) { | |||
425 | int lastidx; | |||
426 | ||||
427 | buf = strdup(ret); | |||
428 | if (buf == NULL((void *)0)) | |||
429 | return NULL((void *)0); | |||
430 | lastidx = count - 1; | |||
431 | if (buf[lastidx] == '\n') | |||
432 | buf[lastidx] = '\0'; | |||
433 | } else | |||
434 | buf = NULL((void *)0); | |||
435 | ||||
436 | history(h, &ev, H_GETSIZE2); | |||
437 | history_length = ev.num; | |||
438 | ||||
439 | return buf; | |||
440 | } | |||
441 | ||||
442 | /* | |||
443 | * history functions | |||
444 | */ | |||
445 | ||||
446 | /* | |||
447 | * is normally called before application starts to use | |||
448 | * history expansion functions | |||
449 | */ | |||
450 | void | |||
451 | using_history(void) | |||
452 | { | |||
453 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
454 | rl_initialize(); | |||
455 | } | |||
456 | ||||
457 | ||||
458 | /* | |||
459 | * substitute ``what'' with ``with'', returning resulting string; if | |||
460 | * globally == 1, substitutes all occurrences of what, otherwise only the | |||
461 | * first one | |||
462 | */ | |||
463 | static char * | |||
464 | _rl_compat_sub(const char *str, const char *what, const char *with, | |||
465 | int globally) | |||
466 | { | |||
467 | const char *s; | |||
468 | char *r, *result; | |||
469 | size_t len, with_len, what_len; | |||
470 | ||||
471 | len = strlen(str); | |||
472 | with_len = strlen(with); | |||
473 | what_len = strlen(what); | |||
474 | ||||
475 | /* calculate length we need for result */ | |||
476 | s = str; | |||
477 | while (*s) { | |||
478 | if (*s == *what && !strncmp(s, what, what_len)) { | |||
479 | len += with_len - what_len; | |||
480 | if (!globally) | |||
481 | break; | |||
482 | s += what_len; | |||
483 | } else | |||
484 | s++; | |||
485 | } | |||
486 | r = result = malloc(len + 1); | |||
487 | if (result == NULL((void *)0)) | |||
488 | return NULL((void *)0); | |||
489 | s = str; | |||
490 | while (*s) { | |||
491 | if (*s == *what && !strncmp(s, what, what_len)) { | |||
492 | (void)strncpy(r, with, with_len); | |||
493 | r += with_len; | |||
494 | s += what_len; | |||
495 | if (!globally) { | |||
496 | (void)strlcpy(r, s, len); | |||
497 | return result; | |||
498 | } | |||
499 | } else | |||
500 | *r++ = *s++; | |||
501 | } | |||
502 | *r = '\0'; | |||
503 | return result; | |||
504 | } | |||
505 | ||||
506 | static char *last_search_pat; /* last !?pat[?] search pattern */ | |||
507 | static char *last_search_match; /* last !?pat[?] that matched */ | |||
508 | ||||
509 | const char * | |||
510 | get_history_event(const char *cmd, int *cindex, int qchar) | |||
511 | { | |||
512 | int idx, sign, sub, num, begin, ret; | |||
513 | size_t len; | |||
514 | char *pat; | |||
515 | const char *rptr; | |||
516 | HistEvent ev; | |||
517 | ||||
518 | idx = *cindex; | |||
519 | if (cmd[idx++] != history_expansion_char) | |||
520 | return NULL((void *)0); | |||
521 | ||||
522 | /* find out which event to take */ | |||
523 | if (cmd[idx] == history_expansion_char || cmd[idx] == '\0') { | |||
524 | if (history(h, &ev, H_FIRST3) != 0) | |||
525 | return NULL((void *)0); | |||
526 | *cindex = cmd[idx]? (idx + 1):idx; | |||
527 | return ev.str; | |||
528 | } | |||
529 | sign = 0; | |||
530 | if (cmd[idx] == '-') { | |||
531 | sign = 1; | |||
532 | idx++; | |||
533 | } | |||
534 | ||||
535 | if ('0' <= cmd[idx] && cmd[idx] <= '9') { | |||
536 | HIST_ENTRY *rl_he; | |||
537 | ||||
538 | num = 0; | |||
539 | while (cmd[idx] && '0' <= cmd[idx] && cmd[idx] <= '9') { | |||
540 | num = num * 10 + cmd[idx] - '0'; | |||
541 | idx++; | |||
542 | } | |||
543 | if (sign) | |||
544 | num = history_length - num + 1; | |||
545 | ||||
546 | if (!(rl_he = history_get(num))) | |||
547 | return NULL((void *)0); | |||
548 | ||||
549 | *cindex = idx; | |||
550 | return rl_he->line; | |||
551 | } | |||
552 | sub = 0; | |||
553 | if (cmd[idx] == '?') { | |||
554 | sub = 1; | |||
555 | idx++; | |||
556 | } | |||
557 | begin = idx; | |||
558 | while (cmd[idx]) { | |||
559 | if (cmd[idx] == '\n') | |||
560 | break; | |||
561 | if (sub && cmd[idx] == '?') | |||
562 | break; | |||
563 | if (!sub && (cmd[idx] == ':' || cmd[idx] == ' ' | |||
564 | || cmd[idx] == '\t' || cmd[idx] == qchar)) | |||
565 | break; | |||
566 | idx++; | |||
567 | } | |||
568 | len = idx - begin; | |||
569 | if (sub && cmd[idx] == '?') | |||
570 | idx++; | |||
571 | if (sub && len == 0 && last_search_pat && *last_search_pat) | |||
572 | pat = last_search_pat; | |||
573 | else if (len == 0) | |||
574 | return NULL((void *)0); | |||
575 | else { | |||
576 | if ((pat = malloc(len + 1)) == NULL((void *)0)) | |||
577 | return NULL((void *)0); | |||
578 | (void)strncpy(pat, cmd + begin, len); | |||
579 | pat[len] = '\0'; | |||
580 | } | |||
581 | ||||
582 | if (history(h, &ev, H_CURR8) != 0) { | |||
583 | if (pat != last_search_pat) | |||
584 | free(pat); | |||
585 | return NULL((void *)0); | |||
586 | } | |||
587 | num = ev.num; | |||
588 | ||||
589 | if (sub) { | |||
590 | if (pat != last_search_pat) { | |||
591 | if (last_search_pat) | |||
592 | free(last_search_pat); | |||
593 | last_search_pat = pat; | |||
594 | } | |||
595 | ret = history_search(pat, -1); | |||
596 | } else | |||
597 | ret = history_search_prefix(pat, -1); | |||
598 | ||||
599 | if (ret == -1) { | |||
600 | /* restore to end of list on failed search */ | |||
601 | history(h, &ev, H_FIRST3); | |||
602 | (void)fprintf(rl_outstream, "%s: Event not found\n", pat); | |||
603 | if (pat != last_search_pat) | |||
604 | free(pat); | |||
605 | return NULL((void *)0); | |||
606 | } | |||
607 | ||||
608 | if (sub && len) { | |||
609 | if (last_search_match && last_search_match != pat) | |||
610 | free(last_search_match); | |||
611 | last_search_match = pat; | |||
612 | } | |||
613 | ||||
614 | if (pat != last_search_pat) | |||
615 | free(pat); | |||
616 | ||||
617 | if (history(h, &ev, H_CURR8) != 0) | |||
618 | return NULL((void *)0); | |||
619 | *cindex = idx; | |||
620 | rptr = ev.str; | |||
621 | ||||
622 | /* roll back to original position */ | |||
623 | (void)history(h, &ev, H_SET7, num); | |||
624 | ||||
625 | return rptr; | |||
626 | } | |||
627 | ||||
628 | /* | |||
629 | * the real function doing history expansion - takes as argument command | |||
630 | * to do and data upon which the command should be executed | |||
631 | * does expansion the way I've understood readline documentation | |||
632 | * | |||
633 | * returns 0 if data was not modified, 1 if it was and 2 if the string | |||
634 | * should be only printed and not executed; in case of error, | |||
635 | * returns -1 and *result points to NULL | |||
636 | * it's the caller's responsibility to free() the string returned in *result | |||
637 | */ | |||
638 | static int | |||
639 | _history_expand_command(const char *command, size_t offs, size_t cmdlen, | |||
640 | char **result) | |||
641 | { | |||
642 | char *tmp, *search = NULL((void *)0), *aptr; | |||
643 | const char *ptr, *cmd; | |||
644 | static char *from = NULL((void *)0), *to = NULL((void *)0); | |||
645 | int start, end, idx, has_mods = 0; | |||
646 | int p_on = 0, g_on = 0; | |||
647 | ||||
648 | *result = NULL((void *)0); | |||
649 | aptr = NULL((void *)0); | |||
650 | ptr = NULL((void *)0); | |||
651 | ||||
652 | /* First get event specifier */ | |||
653 | idx = 0; | |||
654 | ||||
655 | if (strchr(":^*$", command[offs + 1])) { | |||
656 | char str[4]; | |||
657 | /* | |||
658 | * "!:" is shorthand for "!!:". | |||
659 | * "!^", "!*" and "!$" are shorthand for | |||
660 | * "!!:^", "!!:*" and "!!:$" respectively. | |||
661 | */ | |||
662 | str[0] = str[1] = '!'; | |||
663 | str[2] = '0'; | |||
664 | ptr = get_history_event(str, &idx, 0); | |||
665 | idx = (command[offs + 1] == ':')? 1:0; | |||
666 | has_mods = 1; | |||
667 | } else { | |||
668 | if (command[offs + 1] == '#') { | |||
669 | /* use command so far */ | |||
670 | if ((aptr = malloc(offs + 1)) == NULL((void *)0)) | |||
671 | return -1; | |||
672 | (void)strncpy(aptr, command, offs); | |||
673 | aptr[offs] = '\0'; | |||
674 | idx = 1; | |||
675 | } else { | |||
676 | int qchar; | |||
677 | ||||
678 | qchar = (offs > 0 && command[offs - 1] == '"')? '"':0; | |||
679 | ptr = get_history_event(command + offs, &idx, qchar); | |||
680 | } | |||
681 | has_mods = command[offs + idx] == ':'; | |||
682 | } | |||
683 | ||||
684 | if (ptr == NULL((void *)0) && aptr == NULL((void *)0)) | |||
685 | return -1; | |||
686 | ||||
687 | if (!has_mods) { | |||
688 | *result = strdup(aptr ? aptr : ptr); | |||
689 | if (aptr) | |||
690 | free(aptr); | |||
691 | if (*result == NULL((void *)0)) | |||
692 | return -1; | |||
693 | return 1; | |||
694 | } | |||
695 | ||||
696 | cmd = command + offs + idx + 1; | |||
697 | ||||
698 | /* Now parse any word designators */ | |||
699 | ||||
700 | if (*cmd == '%') /* last word matched by ?pat? */ | |||
701 | tmp = strdup(last_search_match? last_search_match:""); | |||
702 | else if (strchr("^*$-0123456789", *cmd)) { | |||
703 | start = end = -1; | |||
704 | if (*cmd == '^') | |||
705 | start = end = 1, cmd++; | |||
706 | else if (*cmd == '$') | |||
707 | start = -1, cmd++; | |||
708 | else if (*cmd == '*') | |||
709 | start = 1, cmd++; | |||
710 | else if (*cmd == '-' || isdigit((unsigned char) *cmd)) { | |||
711 | start = 0; | |||
712 | while (*cmd && '0' <= *cmd && *cmd <= '9') | |||
713 | start = start * 10 + *cmd++ - '0'; | |||
714 | ||||
715 | if (*cmd == '-') { | |||
716 | if (isdigit((unsigned char) cmd[1])) { | |||
717 | cmd++; | |||
718 | end = 0; | |||
719 | while (*cmd && '0' <= *cmd && *cmd <= '9') | |||
720 | end = end * 10 + *cmd++ - '0'; | |||
721 | } else if (cmd[1] == '$') { | |||
722 | cmd += 2; | |||
723 | end = -1; | |||
724 | } else { | |||
725 | cmd++; | |||
726 | end = -2; | |||
727 | } | |||
728 | } else if (*cmd == '*') | |||
729 | end = -1, cmd++; | |||
730 | else | |||
731 | end = start; | |||
732 | } | |||
733 | tmp = history_arg_extract(start, end, aptr? aptr:ptr); | |||
734 | if (tmp == NULL((void *)0)) { | |||
735 | (void)fprintf(rl_outstream, "%s: Bad word specifier", | |||
736 | command + offs + idx); | |||
737 | if (aptr) | |||
738 | free(aptr); | |||
739 | return -1; | |||
740 | } | |||
741 | } else | |||
742 | tmp = strdup(aptr? aptr:ptr); | |||
743 | ||||
744 | if (aptr) | |||
745 | free(aptr); | |||
746 | ||||
747 | if (*cmd == '\0' || ((size_t)(cmd - (command + offs)) >= cmdlen)) { | |||
748 | *result = tmp; | |||
749 | return 1; | |||
750 | } | |||
751 | ||||
752 | for (; *cmd; cmd++) { | |||
753 | if (*cmd == ':') | |||
754 | continue; | |||
755 | else if (*cmd == 'h') { /* remove trailing path */ | |||
756 | if ((aptr = strrchr(tmp, '/')) != NULL((void *)0)) | |||
757 | *aptr = '\0'; | |||
758 | } else if (*cmd == 't') { /* remove leading path */ | |||
759 | if ((aptr = strrchr(tmp, '/')) != NULL((void *)0)) { | |||
760 | aptr = strdup(aptr + 1); | |||
761 | free(tmp); | |||
762 | tmp = aptr; | |||
763 | } | |||
764 | } else if (*cmd == 'r') { /* remove trailing suffix */ | |||
765 | if ((aptr = strrchr(tmp, '.')) != NULL((void *)0)) | |||
766 | *aptr = '\0'; | |||
767 | } else if (*cmd == 'e') { /* remove all but suffix */ | |||
768 | if ((aptr = strrchr(tmp, '.')) != NULL((void *)0)) { | |||
769 | aptr = strdup(aptr); | |||
770 | free(tmp); | |||
771 | tmp = aptr; | |||
772 | } | |||
773 | } else if (*cmd == 'p') /* print only */ | |||
774 | p_on = 1; | |||
775 | else if (*cmd == 'g') | |||
776 | g_on = 2; | |||
777 | else if (*cmd == 's' || *cmd == '&') { | |||
778 | char *what, *with, delim; | |||
779 | size_t len, from_len; | |||
780 | size_t size; | |||
781 | ||||
782 | if (*cmd == '&' && (from == NULL((void *)0) || to == NULL((void *)0))) | |||
783 | continue; | |||
784 | else if (*cmd == 's') { | |||
785 | delim = *(++cmd), cmd++; | |||
786 | size = 16; | |||
787 | what = realloc(from, size); | |||
788 | if (what == NULL((void *)0)) { | |||
789 | free(from); | |||
790 | free(tmp); | |||
791 | return 0; | |||
792 | } | |||
793 | len = 0; | |||
794 | for (; *cmd && *cmd != delim; cmd++) { | |||
795 | if (*cmd == '\\' && cmd[1] == delim) | |||
796 | cmd++; | |||
797 | if (len >= size) { | |||
798 | char *nwhat; | |||
799 | nwhat = reallocarray(what, | |||
800 | size, 2); | |||
801 | if (nwhat == NULL((void *)0)) { | |||
802 | free(what); | |||
803 | free(tmp); | |||
804 | return 0; | |||
805 | } | |||
806 | size *= 2; | |||
807 | what = nwhat; | |||
808 | } | |||
809 | what[len++] = *cmd; | |||
810 | } | |||
811 | what[len] = '\0'; | |||
812 | from = what; | |||
813 | if (*what == '\0') { | |||
814 | free(what); | |||
815 | if (search) { | |||
816 | from = strdup(search); | |||
817 | if (from == NULL((void *)0)) { | |||
818 | free(tmp); | |||
819 | return 0; | |||
820 | } | |||
821 | } else { | |||
822 | from = NULL((void *)0); | |||
823 | free(tmp); | |||
824 | return -1; | |||
825 | } | |||
826 | } | |||
827 | cmd++; /* shift after delim */ | |||
828 | if (!*cmd) | |||
829 | continue; | |||
830 | ||||
831 | size = 16; | |||
832 | with = realloc(to, size); | |||
833 | if (with == NULL((void *)0)) { | |||
834 | free(to); | |||
835 | free(tmp); | |||
836 | return -1; | |||
837 | } | |||
838 | len = 0; | |||
839 | from_len = strlen(from); | |||
840 | for (; *cmd && *cmd != delim; cmd++) { | |||
841 | if (len + from_len + 1 >= size) { | |||
842 | char *nwith; | |||
843 | size += from_len + 1; | |||
844 | nwith = realloc(with, size); | |||
845 | if (nwith == NULL((void *)0)) { | |||
846 | free(with); | |||
847 | free(tmp); | |||
848 | return -1; | |||
849 | } | |||
850 | with = nwith; | |||
851 | } | |||
852 | if (*cmd == '&') { | |||
853 | /* safe */ | |||
854 | (void)strlcpy(&with[len], from, | |||
855 | size - len); | |||
856 | len += from_len; | |||
857 | continue; | |||
858 | } | |||
859 | if (*cmd == '\\' | |||
860 | && (*(cmd + 1) == delim | |||
861 | || *(cmd + 1) == '&')) | |||
862 | cmd++; | |||
863 | with[len++] = *cmd; | |||
864 | } | |||
865 | with[len] = '\0'; | |||
866 | to = with; | |||
867 | } | |||
868 | ||||
869 | aptr = _rl_compat_sub(tmp, from, to, g_on); | |||
870 | if (aptr) { | |||
871 | free(tmp); | |||
872 | tmp = aptr; | |||
873 | } | |||
874 | g_on = 0; | |||
875 | } | |||
876 | } | |||
877 | *result = tmp; | |||
878 | return p_on? 2:1; | |||
879 | } | |||
880 | ||||
881 | ||||
882 | /* | |||
883 | * csh-style history expansion | |||
884 | */ | |||
885 | int | |||
886 | history_expand(char *str, char **output) | |||
887 | { | |||
888 | int ret = 0; | |||
889 | size_t idx, i, size; | |||
890 | char *tmp, *result; | |||
891 | ||||
892 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
| ||||
893 | rl_initialize(); | |||
894 | ||||
895 | if (history_expansion_char == 0) { | |||
896 | *output = strdup(str); | |||
897 | return 0; | |||
898 | } | |||
899 | ||||
900 | *output = NULL((void *)0); | |||
901 | if (str[0] == history_subst_char) { | |||
902 | /* ^foo^foo2^ is equivalent to !!:s^foo^foo2^ */ | |||
903 | size_t sz = 4 + strlen(str) + 1; | |||
904 | *output = malloc(sz); | |||
905 | if (*output == NULL((void *)0)) | |||
906 | return 0; | |||
907 | (*output)[0] = (*output)[1] = history_expansion_char; | |||
908 | (*output)[2] = ':'; | |||
909 | (*output)[3] = 's'; | |||
910 | (void)strlcpy((*output) + 4, str, sz - 4); | |||
911 | str = *output; | |||
912 | } else { | |||
913 | *output = strdup(str); | |||
914 | if (*output == NULL((void *)0)) | |||
915 | return 0; | |||
916 | } | |||
917 | ||||
918 | #define ADD_STRING(what, len, fr){ if (idx + len + 1 > size) { char *nresult = realloc(result , (size += len + 1)); if (nresult == ((void *)0)) { free(*output ); if ( fr) free(tmp); return 0; } result = nresult; } (void) strncpy(&result[idx], what, len); idx += len; result[idx] = '\0'; } \ | |||
919 | { \ | |||
920 | if (idx + len + 1 > size) { \ | |||
921 | char *nresult = realloc(result, (size += len + 1));\ | |||
922 | if (nresult == NULL((void *)0)) { \ | |||
923 | free(*output); \ | |||
924 | if (/*CONSTCOND*/fr) \ | |||
925 | free(tmp); \ | |||
926 | return 0; \ | |||
927 | } \ | |||
928 | result = nresult; \ | |||
929 | } \ | |||
930 | (void)strncpy(&result[idx], what, len); \ | |||
931 | idx += len; \ | |||
932 | result[idx] = '\0'; \ | |||
933 | } | |||
934 | ||||
935 | result = NULL((void *)0); | |||
936 | size = idx = 0; | |||
937 | tmp = NULL((void *)0); | |||
938 | for (i = 0; str[i];) { | |||
939 | int qchar, loop_again; | |||
940 | size_t len, start, j; | |||
941 | ||||
942 | qchar = 0; | |||
943 | loop_again = 1; | |||
944 | start = j = i; | |||
945 | loop: | |||
946 | for (; str[j]; j++) { | |||
947 | if (str[j] == '\\' && | |||
948 | str[j + 1] == history_expansion_char) { | |||
949 | size_t sz = strlen(&str[j]) + 1; | |||
950 | (void)strlcpy(&str[j], &str[j + 1], sz); | |||
951 | continue; | |||
952 | } | |||
953 | if (!loop_again
| |||
954 | if (isspace((unsigned char) str[j]) | |||
955 | || str[j] == qchar) | |||
956 | break; | |||
957 | } | |||
958 | if (str[j] == history_expansion_char | |||
959 | && !strchr(history_no_expand_chars, str[j + 1]) | |||
960 | && (!history_inhibit_expansion_function || | |||
961 | (*history_inhibit_expansion_function)(str, | |||
962 | (int)j) == 0)) | |||
963 | break; | |||
964 | } | |||
965 | ||||
966 | if (str[j] && loop_again) { | |||
967 | i = j; | |||
968 | qchar = (j > 0 && str[j - 1] == '"' )? '"':0; | |||
969 | j++; | |||
970 | if (str[j] == history_expansion_char) | |||
971 | j++; | |||
972 | loop_again = 0; | |||
973 | goto loop; | |||
974 | } | |||
975 | len = i - start; | |||
976 | ADD_STRING(&str[start], len, 0){ if (idx + len + 1 > size) { char *nresult = realloc(result , (size += len + 1)); if (nresult == ((void *)0)) { free(*output ); if ( 0) free(tmp); return 0; } result = nresult; } (void)strncpy (&result[idx], &str[start], len); idx += len; result[ idx] = '\0'; }; | |||
977 | ||||
978 | if (str[i] == '\0' || str[i] != history_expansion_char) { | |||
979 | len = j - i; | |||
980 | ADD_STRING(&str[i], len, 0){ if (idx + len + 1 > size) { char *nresult = realloc(result , (size += len + 1)); if (nresult == ((void *)0)) { free(*output ); if ( 0) free(tmp); return 0; } result = nresult; } (void)strncpy (&result[idx], &str[i], len); idx += len; result[idx] = '\0'; }; | |||
| ||||
981 | if (start == 0) | |||
982 | ret = 0; | |||
983 | else | |||
984 | ret = 1; | |||
985 | break; | |||
986 | } | |||
987 | ret = _history_expand_command (str, i, (j - i), &tmp); | |||
988 | if (ret > 0 && tmp) { | |||
989 | len = strlen(tmp); | |||
990 | ADD_STRING(tmp, len, 1){ if (idx + len + 1 > size) { char *nresult = realloc(result , (size += len + 1)); if (nresult == ((void *)0)) { free(*output ); if ( 1) free(tmp); return 0; } result = nresult; } (void)strncpy (&result[idx], tmp, len); idx += len; result[idx] = '\0'; }; | |||
991 | } | |||
992 | if (tmp) { | |||
993 | free(tmp); | |||
994 | tmp = NULL((void *)0); | |||
995 | } | |||
996 | i = j; | |||
997 | } | |||
998 | ||||
999 | /* ret is 2 for "print only" option */ | |||
1000 | if (ret == 2) { | |||
1001 | add_history(result); | |||
1002 | #ifdef GDB_411_HACK | |||
1003 | /* gdb 4.11 has been shipped with readline, where */ | |||
1004 | /* history_expand() returned -1 when the line */ | |||
1005 | /* should not be executed; in readline 2.1+ */ | |||
1006 | /* it should return 2 in such a case */ | |||
1007 | ret = -1; | |||
1008 | #endif | |||
1009 | } | |||
1010 | free(*output); | |||
1011 | *output = result; | |||
1012 | ||||
1013 | return ret; | |||
1014 | } | |||
1015 | ||||
1016 | /* | |||
1017 | * Return a string consisting of arguments of "str" from "start" to "end". | |||
1018 | */ | |||
1019 | char * | |||
1020 | history_arg_extract(int start, int end, const char *str) | |||
1021 | { | |||
1022 | size_t i, len, max; | |||
1023 | char **arr, *result = NULL((void *)0); | |||
1024 | ||||
1025 | arr = history_tokenize(str); | |||
1026 | if (!arr) | |||
1027 | return NULL((void *)0); | |||
1028 | if (arr && *arr == NULL((void *)0)) | |||
1029 | goto out; | |||
1030 | ||||
1031 | for (max = 0; arr[max]; max++) | |||
1032 | continue; | |||
1033 | max--; | |||
1034 | ||||
1035 | if (start == '$') | |||
1036 | start = (int)max; | |||
1037 | if (end == '$') | |||
1038 | end = (int)max; | |||
1039 | if (end < 0) | |||
1040 | end = (int)max + end + 1; | |||
1041 | if (start < 0) | |||
1042 | start = end; | |||
1043 | ||||
1044 | if (start < 0 || end < 0 || (size_t)start > max || | |||
1045 | (size_t)end > max || start > end) | |||
1046 | goto out; | |||
1047 | ||||
1048 | for (i = start, len = 0; i <= (size_t)end; i++) | |||
1049 | len += strlen(arr[i]) + 1; | |||
1050 | len++; | |||
1051 | max = len; | |||
1052 | result = malloc(len); | |||
1053 | if (result == NULL((void *)0)) | |||
1054 | goto out; | |||
1055 | ||||
1056 | for (i = start, len = 0; i <= (size_t)end; i++) { | |||
1057 | (void)strlcpy(result + len, arr[i], max - len); | |||
1058 | len += strlen(arr[i]); | |||
1059 | if (i < (size_t)end) | |||
1060 | result[len++] = ' '; | |||
1061 | } | |||
1062 | result[len] = '\0'; | |||
1063 | ||||
1064 | out: | |||
1065 | for (i = 0; arr[i]; i++) | |||
1066 | free(arr[i]); | |||
1067 | free(arr); | |||
1068 | ||||
1069 | return result; | |||
1070 | } | |||
1071 | ||||
1072 | /* | |||
1073 | * Parse the string into individual tokens, | |||
1074 | * similar to how shell would do it. | |||
1075 | */ | |||
1076 | char ** | |||
1077 | history_tokenize(const char *str) | |||
1078 | { | |||
1079 | int size = 1, idx = 0, i, start; | |||
1080 | size_t len; | |||
1081 | char **result = NULL((void *)0), *temp, delim = '\0'; | |||
1082 | ||||
1083 | for (i = 0; str[i];) { | |||
1084 | while (isspace((unsigned char) str[i])) | |||
1085 | i++; | |||
1086 | start = i; | |||
1087 | for (; str[i];) { | |||
1088 | if (str[i] == '\\') { | |||
1089 | if (str[i+1] != '\0') | |||
1090 | i++; | |||
1091 | } else if (str[i] == delim) | |||
1092 | delim = '\0'; | |||
1093 | else if (!delim && | |||
1094 | (isspace((unsigned char) str[i]) || | |||
1095 | strchr("()<>;&|$", str[i]))) | |||
1096 | break; | |||
1097 | else if (!delim && strchr("'`\"", str[i])) | |||
1098 | delim = str[i]; | |||
1099 | if (str[i]) | |||
1100 | i++; | |||
1101 | } | |||
1102 | ||||
1103 | if (idx + 2 >= size) { | |||
1104 | char **nresult; | |||
1105 | nresult = reallocarray(result, size, | |||
1106 | 2 * sizeof(char *)); | |||
1107 | if (nresult == NULL((void *)0)) { | |||
1108 | free(result); | |||
1109 | return NULL((void *)0); | |||
1110 | } | |||
1111 | size *= 2; | |||
1112 | result = nresult; | |||
1113 | } | |||
1114 | len = i - start; | |||
1115 | temp = malloc(len + 1); | |||
1116 | if (temp == NULL((void *)0)) { | |||
1117 | for (i = 0; i < idx; i++) | |||
1118 | free(result[i]); | |||
1119 | free(result); | |||
1120 | return NULL((void *)0); | |||
1121 | } | |||
1122 | (void)strncpy(temp, &str[start], len); | |||
1123 | temp[len] = '\0'; | |||
1124 | result[idx++] = temp; | |||
1125 | result[idx] = NULL((void *)0); | |||
1126 | if (str[i]) | |||
1127 | i++; | |||
1128 | } | |||
1129 | return result; | |||
1130 | } | |||
1131 | ||||
1132 | ||||
1133 | /* | |||
1134 | * limit size of history record to ``max'' events | |||
1135 | */ | |||
1136 | void | |||
1137 | stifle_history(int max) | |||
1138 | { | |||
1139 | HistEvent ev; | |||
1140 | HIST_ENTRY *he; | |||
1141 | int i, len; | |||
1142 | ||||
1143 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1144 | rl_initialize(); | |||
1145 | ||||
1146 | len = history_length; | |||
1147 | if (history(h, &ev, H_SETSIZE1, max) == 0) { | |||
1148 | max_input_history = max; | |||
1149 | if (max < len) | |||
1150 | history_base += len - max; | |||
1151 | for (i = 0; i < len - max; i++) { | |||
1152 | he = remove_history(0); | |||
1153 | free(he->data); | |||
1154 | free((void *)he->line); | |||
1155 | free(he); | |||
1156 | } | |||
1157 | } | |||
1158 | } | |||
1159 | ||||
1160 | ||||
1161 | /* | |||
1162 | * "unlimit" size of history - set the limit to maximum allowed int value | |||
1163 | */ | |||
1164 | int | |||
1165 | unstifle_history(void) | |||
1166 | { | |||
1167 | HistEvent ev; | |||
1168 | int omax; | |||
1169 | ||||
1170 | history(h, &ev, H_SETSIZE1, INT_MAX2147483647); | |||
1171 | omax = max_input_history; | |||
1172 | max_input_history = INT_MAX2147483647; | |||
1173 | return omax; /* some value _must_ be returned */ | |||
1174 | } | |||
1175 | ||||
1176 | ||||
1177 | int | |||
1178 | history_is_stifled(void) | |||
1179 | { | |||
1180 | ||||
1181 | /* cannot return true answer */ | |||
1182 | return max_input_history != INT_MAX2147483647; | |||
1183 | } | |||
1184 | ||||
1185 | static const char _history_tmp_template[] = "/tmp/.historyXXXXXX"; | |||
1186 | ||||
1187 | int | |||
1188 | history_truncate_file (const char *filename, int nlines) | |||
1189 | { | |||
1190 | int ret = 0; | |||
1191 | FILE *fp, *tp; | |||
1192 | char template[sizeof(_history_tmp_template)]; | |||
1193 | char buf[4096]; | |||
1194 | int fd; | |||
1195 | char *cp; | |||
1196 | off_t off; | |||
1197 | int count = 0; | |||
1198 | ssize_t left = 0; | |||
1199 | ||||
1200 | if (filename == NULL((void *)0) && (filename = _default_history_file()) == NULL((void *)0)) | |||
1201 | return errno(*__errno()); | |||
1202 | if ((fp = fopen(filename, "r+")) == NULL((void *)0)) | |||
1203 | return errno(*__errno()); | |||
1204 | strlcpy(template, _history_tmp_template, sizeof(template)); | |||
1205 | if ((fd = mkstemp(template)) == -1) { | |||
1206 | ret = errno(*__errno()); | |||
1207 | goto out1; | |||
1208 | } | |||
1209 | ||||
1210 | if ((tp = fdopen(fd, "r+")) == NULL((void *)0)) { | |||
1211 | close(fd); | |||
1212 | ret = errno(*__errno()); | |||
1213 | goto out2; | |||
1214 | } | |||
1215 | ||||
1216 | for(;;) { | |||
1217 | if (fread(buf, sizeof(buf), 1, fp) != 1) { | |||
1218 | if (ferror(fp)(!__isthreaded ? (((fp)->_flags & 0x0040) != 0) : (ferror )(fp))) { | |||
1219 | ret = errno(*__errno()); | |||
1220 | break; | |||
1221 | } | |||
1222 | if (fseeko(fp, (off_t)sizeof(buf) * count, SEEK_SET0) == | |||
1223 | (off_t)-1) { | |||
1224 | ret = errno(*__errno()); | |||
1225 | break; | |||
1226 | } | |||
1227 | left = fread(buf, 1, sizeof(buf), fp); | |||
1228 | if (ferror(fp)(!__isthreaded ? (((fp)->_flags & 0x0040) != 0) : (ferror )(fp))) { | |||
1229 | ret = errno(*__errno()); | |||
1230 | break; | |||
1231 | } | |||
1232 | if (left == 0) { | |||
1233 | count--; | |||
1234 | left = sizeof(buf); | |||
1235 | } else if (fwrite(buf, (size_t)left, 1, tp) != 1) { | |||
1236 | ret = errno(*__errno()); | |||
1237 | break; | |||
1238 | } | |||
1239 | fflush(tp); | |||
1240 | break; | |||
1241 | } | |||
1242 | if (fwrite(buf, sizeof(buf), 1, tp) != 1) { | |||
1243 | ret = errno(*__errno()); | |||
1244 | break; | |||
1245 | } | |||
1246 | count++; | |||
1247 | } | |||
1248 | if (ret) | |||
1249 | goto out3; | |||
1250 | cp = buf + left - 1; | |||
1251 | if(*cp != '\n') | |||
1252 | cp++; | |||
1253 | for(;;) { | |||
1254 | while (--cp >= buf) { | |||
1255 | if (*cp == '\n') { | |||
1256 | if (--nlines == 0) { | |||
1257 | if (++cp >= buf + sizeof(buf)) { | |||
1258 | count++; | |||
1259 | cp = buf; | |||
1260 | } | |||
1261 | break; | |||
1262 | } | |||
1263 | } | |||
1264 | } | |||
1265 | if (nlines <= 0 || count == 0) | |||
1266 | break; | |||
1267 | count--; | |||
1268 | if (fseeko(tp, (off_t)sizeof(buf) * count, SEEK_SET0) == -1) { | |||
1269 | ret = errno(*__errno()); | |||
1270 | break; | |||
1271 | } | |||
1272 | if (fread(buf, sizeof(buf), 1, tp) != 1) { | |||
1273 | if (ferror(tp)(!__isthreaded ? (((tp)->_flags & 0x0040) != 0) : (ferror )(tp))) { | |||
1274 | ret = errno(*__errno()); | |||
1275 | break; | |||
1276 | } | |||
1277 | ret = EAGAIN35; | |||
1278 | break; | |||
1279 | } | |||
1280 | cp = buf + sizeof(buf); | |||
1281 | } | |||
1282 | ||||
1283 | if (ret || nlines > 0) | |||
1284 | goto out3; | |||
1285 | ||||
1286 | if (fseeko(fp, 0, SEEK_SET0) == (off_t)-1) { | |||
1287 | ret = errno(*__errno()); | |||
1288 | goto out3; | |||
1289 | } | |||
1290 | ||||
1291 | if (fseeko(tp, (off_t)sizeof(buf) * count + (cp - buf), SEEK_SET0) == | |||
1292 | (off_t)-1) { | |||
1293 | ret = errno(*__errno()); | |||
1294 | goto out3; | |||
1295 | } | |||
1296 | ||||
1297 | for(;;) { | |||
1298 | if ((left = fread(buf, 1, sizeof(buf), tp)) == 0) { | |||
1299 | if (ferror(fp)(!__isthreaded ? (((fp)->_flags & 0x0040) != 0) : (ferror )(fp))) | |||
1300 | ret = errno(*__errno()); | |||
1301 | break; | |||
1302 | } | |||
1303 | if (fwrite(buf, (size_t)left, 1, fp) != 1) { | |||
1304 | ret = errno(*__errno()); | |||
1305 | break; | |||
1306 | } | |||
1307 | } | |||
1308 | fflush(fp); | |||
1309 | if((off = ftello(fp)) > 0) | |||
1310 | (void)ftruncate(fileno(fp)(!__isthreaded ? ((fp)->_file) : (fileno)(fp)), off); | |||
1311 | out3: | |||
1312 | fclose(tp); | |||
1313 | out2: | |||
1314 | unlink(template); | |||
1315 | out1: | |||
1316 | fclose(fp); | |||
1317 | ||||
1318 | return ret; | |||
1319 | } | |||
1320 | ||||
1321 | ||||
1322 | /* | |||
1323 | * read history from a file given | |||
1324 | */ | |||
1325 | int | |||
1326 | read_history(const char *filename) | |||
1327 | { | |||
1328 | HistEvent ev; | |||
1329 | ||||
1330 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1331 | rl_initialize(); | |||
1332 | if (filename == NULL((void *)0) && (filename = _default_history_file()) == NULL((void *)0)) | |||
1333 | return errno(*__errno()); | |||
1334 | return history(h, &ev, H_LOAD17, filename) == -1 ? | |||
1335 | (errno(*__errno()) ? errno(*__errno()) : EINVAL22) : 0; | |||
1336 | } | |||
1337 | ||||
1338 | ||||
1339 | /* | |||
1340 | * write history to a file given | |||
1341 | */ | |||
1342 | int | |||
1343 | write_history(const char *filename) | |||
1344 | { | |||
1345 | HistEvent ev; | |||
1346 | ||||
1347 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1348 | rl_initialize(); | |||
1349 | if (filename == NULL((void *)0) && (filename = _default_history_file()) == NULL((void *)0)) | |||
1350 | return errno(*__errno()); | |||
1351 | return history(h, &ev, H_SAVE18, filename) == -1 ? | |||
1352 | (errno(*__errno()) ? errno(*__errno()) : EINVAL22) : 0; | |||
1353 | } | |||
1354 | ||||
1355 | ||||
1356 | /* | |||
1357 | * returns history ``num''th event | |||
1358 | * | |||
1359 | * returned pointer points to static variable | |||
1360 | */ | |||
1361 | HIST_ENTRY * | |||
1362 | history_get(int num) | |||
1363 | { | |||
1364 | static HIST_ENTRY she; | |||
1365 | HistEvent ev; | |||
1366 | int curr_num; | |||
1367 | ||||
1368 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1369 | rl_initialize(); | |||
1370 | ||||
1371 | if (num < history_base) | |||
1372 | return NULL((void *)0); | |||
1373 | ||||
1374 | /* save current position */ | |||
1375 | if (history(h, &ev, H_CURR8) != 0) | |||
1376 | return NULL((void *)0); | |||
1377 | curr_num = ev.num; | |||
1378 | ||||
1379 | /* | |||
1380 | * use H_DELDATA to set to nth history (without delete) by passing | |||
1381 | * (void **)-1 -- as in history_set_pos | |||
1382 | */ | |||
1383 | if (history(h, &ev, H_DELDATA24, num - history_base, (void **)-1) != 0) | |||
1384 | goto out; | |||
1385 | ||||
1386 | /* get current entry */ | |||
1387 | if (history(h, &ev, H_CURR8) != 0) | |||
1388 | goto out; | |||
1389 | if (history(h, &ev, H_NEXT_EVDATA23, ev.num, &she.data) != 0) | |||
1390 | goto out; | |||
1391 | she.line = ev.str; | |||
1392 | ||||
1393 | /* restore pointer to where it was */ | |||
1394 | (void)history(h, &ev, H_SET7, curr_num); | |||
1395 | ||||
1396 | return &she; | |||
1397 | ||||
1398 | out: | |||
1399 | /* restore pointer to where it was */ | |||
1400 | (void)history(h, &ev, H_SET7, curr_num); | |||
1401 | return NULL((void *)0); | |||
1402 | } | |||
1403 | ||||
1404 | ||||
1405 | /* | |||
1406 | * add the line to history table | |||
1407 | */ | |||
1408 | int | |||
1409 | add_history(const char *line) | |||
1410 | { | |||
1411 | HistEvent ev; | |||
1412 | ||||
1413 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1414 | rl_initialize(); | |||
1415 | ||||
1416 | (void)history(h, &ev, H_ENTER10, line); | |||
1417 | if (history(h, &ev, H_GETSIZE2) == 0) | |||
1418 | history_length = ev.num; | |||
1419 | current_history_valid = 1; | |||
1420 | ||||
1421 | return !(history_length > 0); /* return 0 if all is okay */ | |||
1422 | } | |||
1423 | ||||
1424 | ||||
1425 | /* | |||
1426 | * remove the specified entry from the history list and return it. | |||
1427 | */ | |||
1428 | HIST_ENTRY * | |||
1429 | remove_history(int num) | |||
1430 | { | |||
1431 | HIST_ENTRY *he; | |||
1432 | HistEvent ev; | |||
1433 | ||||
1434 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1435 | rl_initialize(); | |||
1436 | ||||
1437 | if ((he = malloc(sizeof(*he))) == NULL((void *)0)) | |||
1438 | return NULL((void *)0); | |||
1439 | ||||
1440 | if (history(h, &ev, H_DELDATA24, num, &he->data) != 0) { | |||
1441 | free(he); | |||
1442 | return NULL((void *)0); | |||
1443 | } | |||
1444 | ||||
1445 | he->line = ev.str; | |||
1446 | if (history(h, &ev, H_GETSIZE2) == 0) | |||
1447 | history_length = ev.num; | |||
1448 | ||||
1449 | return he; | |||
1450 | } | |||
1451 | ||||
1452 | ||||
1453 | /* | |||
1454 | * replace the line and data of the num-th entry | |||
1455 | */ | |||
1456 | HIST_ENTRY * | |||
1457 | replace_history_entry(int num, const char *line, histdata_t data) | |||
1458 | { | |||
1459 | HIST_ENTRY *he; | |||
1460 | HistEvent ev; | |||
1461 | int curr_num; | |||
1462 | ||||
1463 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1464 | rl_initialize(); | |||
1465 | ||||
1466 | /* save current position */ | |||
1467 | if (history(h, &ev, H_CURR8) != 0) | |||
1468 | return NULL((void *)0); | |||
1469 | curr_num = ev.num; | |||
1470 | ||||
1471 | /* start from the oldest */ | |||
1472 | if (history(h, &ev, H_LAST4) != 0) | |||
1473 | return NULL((void *)0); /* error */ | |||
1474 | ||||
1475 | if ((he = malloc(sizeof(*he))) == NULL((void *)0)) | |||
1476 | return NULL((void *)0); | |||
1477 | ||||
1478 | /* look forwards for event matching specified offset */ | |||
1479 | if (history(h, &ev, H_NEXT_EVDATA23, num, &he->data)) | |||
1480 | goto out; | |||
1481 | ||||
1482 | he->line = strdup(ev.str); | |||
1483 | if (he->line == NULL((void *)0)) | |||
1484 | goto out; | |||
1485 | ||||
1486 | if (history(h, &ev, H_REPLACE25, line, data)) | |||
1487 | goto out; | |||
1488 | ||||
1489 | /* restore pointer to where it was */ | |||
1490 | if (history(h, &ev, H_SET7, curr_num)) | |||
1491 | goto out; | |||
1492 | ||||
1493 | return he; | |||
1494 | out: | |||
1495 | free(he); | |||
1496 | return NULL((void *)0); | |||
1497 | } | |||
1498 | ||||
1499 | /* | |||
1500 | * clear the history list - delete all entries | |||
1501 | */ | |||
1502 | void | |||
1503 | clear_history(void) | |||
1504 | { | |||
1505 | HistEvent ev; | |||
1506 | ||||
1507 | (void)history(h, &ev, H_CLEAR19); | |||
1508 | history_length = 0; | |||
1509 | current_history_valid = 1; | |||
1510 | } | |||
1511 | ||||
1512 | ||||
1513 | /* | |||
1514 | * returns offset of the current history event | |||
1515 | */ | |||
1516 | int | |||
1517 | where_history(void) | |||
1518 | { | |||
1519 | HistEvent ev; | |||
1520 | int curr_num, off; | |||
1521 | ||||
1522 | if (history(h, &ev, H_CURR8) != 0) | |||
1523 | return 0; | |||
1524 | curr_num = ev.num; | |||
1525 | ||||
1526 | /* start from the oldest */ | |||
1527 | (void)history(h, &ev, H_LAST4); | |||
1528 | ||||
1529 | /* position is zero-based */ | |||
1530 | off = 0; | |||
1531 | while (ev.num != curr_num && history(h, &ev, H_PREV5) == 0) | |||
1532 | off++; | |||
1533 | ||||
1534 | return off; | |||
1535 | } | |||
1536 | ||||
1537 | ||||
1538 | /* | |||
1539 | * returns current history event or NULL if there is no such event | |||
1540 | */ | |||
1541 | HIST_ENTRY * | |||
1542 | current_history(void) | |||
1543 | { | |||
1544 | ||||
1545 | return current_history_valid ? _move_history(H_CURR8) : NULL((void *)0); | |||
1546 | } | |||
1547 | ||||
1548 | ||||
1549 | /* | |||
1550 | * returns total number of bytes history events' data are using | |||
1551 | */ | |||
1552 | int | |||
1553 | history_total_bytes(void) | |||
1554 | { | |||
1555 | HistEvent ev; | |||
1556 | int curr_num; | |||
1557 | size_t size; | |||
1558 | ||||
1559 | if (history(h, &ev, H_CURR8) != 0) | |||
1560 | return -1; | |||
1561 | curr_num = ev.num; | |||
1562 | ||||
1563 | (void)history(h, &ev, H_FIRST3); | |||
1564 | size = 0; | |||
1565 | do | |||
1566 | size += strlen(ev.str) * sizeof(*ev.str); | |||
1567 | while (history(h, &ev, H_NEXT6) == 0); | |||
1568 | ||||
1569 | /* get to the same position as before */ | |||
1570 | history(h, &ev, H_PREV_EVENT16, curr_num); | |||
1571 | ||||
1572 | return (int)size; | |||
1573 | } | |||
1574 | ||||
1575 | ||||
1576 | /* | |||
1577 | * sets the position in the history list to ``pos'' | |||
1578 | */ | |||
1579 | int | |||
1580 | history_set_pos(int pos) | |||
1581 | { | |||
1582 | HistEvent ev; | |||
1583 | int curr_num; | |||
1584 | ||||
1585 | if (pos >= history_length || pos < 0) | |||
1586 | return 0; | |||
1587 | ||||
1588 | (void)history(h, &ev, H_CURR8); | |||
1589 | curr_num = ev.num; | |||
1590 | current_history_valid = 1; | |||
1591 | ||||
1592 | /* | |||
1593 | * use H_DELDATA to set to nth history (without delete) by passing | |||
1594 | * (void **)-1 | |||
1595 | */ | |||
1596 | if (history(h, &ev, H_DELDATA24, pos, (void **)-1)) { | |||
1597 | (void)history(h, &ev, H_SET7, curr_num); | |||
1598 | return 0; | |||
1599 | } | |||
1600 | return 1; | |||
1601 | } | |||
1602 | ||||
1603 | ||||
1604 | /* | |||
1605 | * returns previous event in history and shifts pointer accordingly | |||
1606 | * Note that readline and editline define directions in opposite ways. | |||
1607 | */ | |||
1608 | HIST_ENTRY * | |||
1609 | previous_history(void) | |||
1610 | { | |||
1611 | ||||
1612 | if (current_history_valid == 0) { | |||
1613 | current_history_valid = 1; | |||
1614 | return _move_history(H_CURR8); | |||
1615 | } | |||
1616 | return _move_history(H_NEXT6); | |||
1617 | } | |||
1618 | ||||
1619 | ||||
1620 | /* | |||
1621 | * returns next event in history and shifts pointer accordingly | |||
1622 | */ | |||
1623 | HIST_ENTRY * | |||
1624 | next_history(void) | |||
1625 | { | |||
1626 | HIST_ENTRY *he; | |||
1627 | ||||
1628 | he = _move_history(H_PREV5); | |||
1629 | if (he == NULL((void *)0)) | |||
1630 | current_history_valid = 0; | |||
1631 | return he; | |||
1632 | } | |||
1633 | ||||
1634 | ||||
1635 | /* | |||
1636 | * searches for first history event containing the str | |||
1637 | */ | |||
1638 | int | |||
1639 | history_search(const char *str, int direction) | |||
1640 | { | |||
1641 | HistEvent ev; | |||
1642 | const char *strp; | |||
1643 | int curr_num; | |||
1644 | ||||
1645 | if (history(h, &ev, H_CURR8) != 0) | |||
1646 | return -1; | |||
1647 | curr_num = ev.num; | |||
1648 | ||||
1649 | for (;;) { | |||
1650 | if ((strp = strstr(ev.str, str)) != NULL((void *)0)) | |||
1651 | return (int)(strp - ev.str); | |||
1652 | if (history(h, &ev, direction < 0 ? H_NEXT6:H_PREV5) != 0) | |||
1653 | break; | |||
1654 | } | |||
1655 | (void)history(h, &ev, H_SET7, curr_num); | |||
1656 | return -1; | |||
1657 | } | |||
1658 | ||||
1659 | ||||
1660 | /* | |||
1661 | * searches for first history event beginning with str | |||
1662 | */ | |||
1663 | int | |||
1664 | history_search_prefix(const char *str, int direction) | |||
1665 | { | |||
1666 | HistEvent ev; | |||
1667 | ||||
1668 | return (history(h, &ev, direction < 0 ? | |||
1669 | H_PREV_STR14 : H_NEXT_STR13, str)); | |||
1670 | } | |||
1671 | ||||
1672 | ||||
1673 | /* | |||
1674 | * search for event in history containing str, starting at offset | |||
1675 | * abs(pos); continue backward, if pos<0, forward otherwise | |||
1676 | */ | |||
1677 | /* ARGSUSED */ | |||
1678 | int | |||
1679 | history_search_pos(const char *str, | |||
1680 | int direction __attribute__((__unused__)), int pos) | |||
1681 | { | |||
1682 | HistEvent ev; | |||
1683 | int curr_num, off; | |||
1684 | ||||
1685 | off = (pos > 0) ? pos : -pos; | |||
1686 | pos = (pos > 0) ? 1 : -1; | |||
1687 | ||||
1688 | if (history(h, &ev, H_CURR8) != 0) | |||
1689 | return -1; | |||
1690 | curr_num = ev.num; | |||
1691 | ||||
1692 | if (!history_set_pos(off) || history(h, &ev, H_CURR8) != 0) | |||
1693 | return -1; | |||
1694 | ||||
1695 | for (;;) { | |||
1696 | if (strstr(ev.str, str)) | |||
1697 | return off; | |||
1698 | if (history(h, &ev, (pos < 0) ? H_PREV5 : H_NEXT6) != 0) | |||
1699 | break; | |||
1700 | } | |||
1701 | ||||
1702 | /* set "current" pointer back to previous state */ | |||
1703 | (void)history(h, &ev, | |||
1704 | pos < 0 ? H_NEXT_EVENT15 : H_PREV_EVENT16, curr_num); | |||
1705 | ||||
1706 | return -1; | |||
1707 | } | |||
1708 | ||||
1709 | ||||
1710 | /********************************/ | |||
1711 | /* completion functions */ | |||
1712 | ||||
1713 | char * | |||
1714 | tilde_expand(char *name) | |||
1715 | { | |||
1716 | return fn_tilde_expand(name); | |||
1717 | } | |||
1718 | ||||
1719 | char * | |||
1720 | filename_completion_function(const char *name, int state) | |||
1721 | { | |||
1722 | return fn_filename_completion_function(name, state); | |||
1723 | } | |||
1724 | ||||
1725 | /* | |||
1726 | * a completion generator for usernames; returns _first_ username | |||
1727 | * which starts with supplied text | |||
1728 | * text contains a partial username preceded by random character | |||
1729 | * (usually '~'); state is ignored | |||
1730 | * it's the caller's responsibility to free the returned value | |||
1731 | */ | |||
1732 | char * | |||
1733 | username_completion_function(const char *text, int state) | |||
1734 | { | |||
1735 | struct passwd *pwd; | |||
1736 | ||||
1737 | if (text[0] == '\0') | |||
1738 | return NULL((void *)0); | |||
1739 | ||||
1740 | if (*text == '~') | |||
1741 | text++; | |||
1742 | ||||
1743 | if (state == 0) | |||
1744 | setpwent(); | |||
1745 | ||||
1746 | while ((pwd = getpwent()) != NULL((void *)0) && text[0] == pwd->pw_name[0] | |||
1747 | && strcmp(text, pwd->pw_name) == 0); | |||
1748 | ||||
1749 | if (pwd == NULL((void *)0)) { | |||
1750 | endpwent(); | |||
1751 | return NULL((void *)0); | |||
1752 | } | |||
1753 | return strdup(pwd->pw_name); | |||
1754 | } | |||
1755 | ||||
1756 | ||||
1757 | /* | |||
1758 | * el-compatible wrapper to send TSTP on ^Z | |||
1759 | */ | |||
1760 | /* ARGSUSED */ | |||
1761 | static unsigned char | |||
1762 | _el_rl_tstp(EditLine *el __attribute__((__unused__)), int ch __attribute__((__unused__))) | |||
1763 | { | |||
1764 | (void)kill(0, SIGTSTP18); | |||
1765 | return CC_NORM0; | |||
1766 | } | |||
1767 | ||||
1768 | /* | |||
1769 | * Display list of strings in columnar format on readline's output stream. | |||
1770 | * 'matches' is list of strings, 'len' is number of strings in 'matches', | |||
1771 | * 'max' is maximum length of string in 'matches'. | |||
1772 | */ | |||
1773 | void | |||
1774 | rl_display_match_list(char **matches, int len, int max) | |||
1775 | { | |||
1776 | ||||
1777 | fn_display_match_list(e, matches, (size_t)len, (size_t)max); | |||
1778 | } | |||
1779 | ||||
1780 | static const char * | |||
1781 | /*ARGSUSED*/ | |||
1782 | _rl_completion_append_character_function(const char *dummy | |||
1783 | __attribute__((__unused__))) | |||
1784 | { | |||
1785 | static char buf[2]; | |||
1786 | buf[0] = rl_completion_append_character; | |||
1787 | buf[1] = '\0'; | |||
1788 | return buf; | |||
1789 | } | |||
1790 | ||||
1791 | ||||
1792 | /* | |||
1793 | * complete word at current point | |||
1794 | */ | |||
1795 | /* ARGSUSED */ | |||
1796 | int | |||
1797 | rl_complete(int ignore __attribute__((__unused__)), int invoking_key) | |||
1798 | { | |||
1799 | static ct_buffer_t wbreak_conv, sprefix_conv; | |||
1800 | ||||
1801 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1802 | rl_initialize(); | |||
1803 | ||||
1804 | if (rl_inhibit_completion) { | |||
1805 | char arr[2]; | |||
1806 | arr[0] = (char)invoking_key; | |||
1807 | arr[1] = '\0'; | |||
1808 | el_insertstr(e, arr); | |||
1809 | return CC_REFRESH4; | |||
1810 | } | |||
1811 | ||||
1812 | /* Just look at how many global variables modify this operation! */ | |||
1813 | return fn_complete(e, | |||
1814 | (CPFunction *)rl_completion_entry_function, | |||
1815 | rl_attempted_completion_function, | |||
1816 | ct_decode_string(rl_basic_word_break_characters, &wbreak_conv), | |||
1817 | ct_decode_string(rl_special_prefixes, &sprefix_conv), | |||
1818 | _rl_completion_append_character_function, | |||
1819 | (size_t)rl_completion_query_items, | |||
1820 | &rl_completion_type, &rl_attempted_completion_over, | |||
1821 | &rl_point, &rl_end); | |||
1822 | ||||
1823 | ||||
1824 | } | |||
1825 | ||||
1826 | ||||
1827 | /* ARGSUSED */ | |||
1828 | static unsigned char | |||
1829 | _el_rl_complete(EditLine *el __attribute__((__unused__)), int ch) | |||
1830 | { | |||
1831 | return (unsigned char)rl_complete(0, ch); | |||
1832 | } | |||
1833 | ||||
1834 | /* | |||
1835 | * misc other functions | |||
1836 | */ | |||
1837 | ||||
1838 | /* | |||
1839 | * bind key c to readline-type function func | |||
1840 | */ | |||
1841 | int | |||
1842 | rl_bind_key(int c, rl_command_func_t *func) | |||
1843 | { | |||
1844 | int retval = -1; | |||
1845 | ||||
1846 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1847 | rl_initialize(); | |||
1848 | ||||
1849 | if (func == rl_insert) { | |||
1850 | /* XXX notice there is no range checking of ``c'' */ | |||
1851 | e->el_map.key[c] = ED_INSERT9; | |||
1852 | retval = 0; | |||
1853 | } | |||
1854 | return retval; | |||
1855 | } | |||
1856 | ||||
1857 | ||||
1858 | /* | |||
1859 | * read one key from input - handles chars pushed back | |||
1860 | * to input stream also | |||
1861 | */ | |||
1862 | int | |||
1863 | rl_read_key(void) | |||
1864 | { | |||
1865 | char fooarr[2 * sizeof(int)]; | |||
1866 | ||||
1867 | if (e == NULL((void *)0) || h == NULL((void *)0)) | |||
1868 | rl_initialize(); | |||
1869 | ||||
1870 | return el_getc(e, fooarr); | |||
1871 | } | |||
1872 | ||||
1873 | ||||
1874 | /* | |||
1875 | * reset the terminal | |||
1876 | */ | |||
1877 | /* ARGSUSED */ | |||
1878 | void | |||
1879 | rl_reset_terminal(const char *p __attribute__((__unused__))) | |||
1880 | { | |||
1881 | ||||
1882 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1883 | rl_initialize(); | |||
1884 | el_reset(e); | |||
1885 | } | |||
1886 | ||||
1887 | ||||
1888 | /* | |||
1889 | * insert character ``c'' back into input stream, ``count'' times | |||
1890 | */ | |||
1891 | int | |||
1892 | rl_insert(int count, int c) | |||
1893 | { | |||
1894 | char arr[2]; | |||
1895 | ||||
1896 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1897 | rl_initialize(); | |||
1898 | ||||
1899 | /* XXX - int -> char conversion can lose on multichars */ | |||
1900 | arr[0] = c; | |||
1901 | arr[1] = '\0'; | |||
1902 | ||||
1903 | for (; count > 0; count--) | |||
1904 | el_push(e, arr); | |||
1905 | ||||
1906 | return 0; | |||
1907 | } | |||
1908 | ||||
1909 | int | |||
1910 | rl_insert_text(const char *text) | |||
1911 | { | |||
1912 | if (!text || *text == 0) | |||
1913 | return 0; | |||
1914 | ||||
1915 | if (h == NULL((void *)0) || e == NULL((void *)0)) | |||
1916 | rl_initialize(); | |||
1917 | ||||
1918 | if (el_insertstr(e, text) < 0) | |||
1919 | return 0; | |||
1920 | return (int)strlen(text); | |||
1921 | } | |||
1922 | ||||
1923 | /*ARGSUSED*/ | |||
1924 | int | |||
1925 | rl_newline(int count, int c) | |||
1926 | { | |||
1927 | /* | |||
1928 | * Readline-4.0 appears to ignore the args. | |||
1929 | */ | |||
1930 | return rl_insert(1, '\n'); | |||
1931 | } | |||
1932 | ||||
1933 | /*ARGSUSED*/ | |||
1934 | static unsigned char | |||
1935 | rl_bind_wrapper(EditLine *el, unsigned char c) | |||
1936 | { | |||
1937 | if (map[c] == NULL((void *)0)) | |||
1938 | return CC_ERROR6; | |||
1939 | ||||
1940 | _rl_update_pos(); | |||
1941 | ||||
1942 | (*map[c])(NULL((void *)0), c); | |||
1943 | ||||
1944 | /* If rl_done was set by the above call, deal with it here */ | |||
1945 | if (rl_done) | |||
1946 | return CC_EOF2; | |||
1947 | ||||
1948 | return CC_NORM0; | |||
1949 | } | |||
1950 | ||||
1951 | int | |||
1952 | rl_add_defun(const char *name, Function *fun, int c) | |||
1953 | { | |||
1954 | char dest[8]; | |||
1955 | if ((size_t)c >= sizeof(map) / sizeof(map[0]) || c < 0) | |||
1956 | return -1; | |||
1957 | map[(unsigned char)c] = fun; | |||
1958 | el_set(e, EL_ADDFN9, name, name, rl_bind_wrapper); | |||
1959 | vis(dest, c, VIS_WHITE(0x04 | 0x08 | 0x10)|VIS_NOSLASH0x40, 0); | |||
1960 | el_set(e, EL_BIND4, dest, name, NULL((void *)0)); | |||
1961 | return 0; | |||
1962 | } | |||
1963 | ||||
1964 | void | |||
1965 | rl_callback_read_char() | |||
1966 | { | |||
1967 | int count = 0, done = 0; | |||
1968 | const char *buf = el_gets(e, &count); | |||
1969 | char *wbuf; | |||
1970 | ||||
1971 | if (buf == NULL((void *)0) || count-- <= 0) | |||
1972 | return; | |||
1973 | if (count == 0 && buf[0] == e->el_tty.t_c[TS_IO2][C_EOF4]) | |||
1974 | done = 1; | |||
1975 | if (buf[count] == '\n' || buf[count] == '\r') | |||
1976 | done = 2; | |||
1977 | ||||
1978 | if (done && rl_linefunc != NULL((void *)0)) { | |||
1979 | el_set(e, EL_UNBUFFERED15, 0); | |||
1980 | if (done == 2) { | |||
1981 | if ((wbuf = strdup(buf)) != NULL((void *)0)) | |||
1982 | wbuf[count] = '\0'; | |||
1983 | } else | |||
1984 | wbuf = NULL((void *)0); | |||
1985 | (*(void (*)(const char *))rl_linefunc)(wbuf); | |||
1986 | //el_set(e, EL_UNBUFFERED, 1); | |||
1987 | } | |||
1988 | } | |||
1989 | ||||
1990 | void | |||
1991 | rl_callback_handler_install(const char *prompt, VCPFunction *linefunc) | |||
1992 | { | |||
1993 | if (e == NULL((void *)0)) { | |||
1994 | rl_initialize(); | |||
1995 | } | |||
1996 | (void)rl_set_prompt(prompt); | |||
1997 | rl_linefunc = linefunc; | |||
1998 | el_set(e, EL_UNBUFFERED15, 1); | |||
1999 | } | |||
2000 | ||||
2001 | void | |||
2002 | rl_callback_handler_remove(void) | |||
2003 | { | |||
2004 | el_set(e, EL_UNBUFFERED15, 0); | |||
2005 | rl_linefunc = NULL((void *)0); | |||
2006 | } | |||
2007 | ||||
2008 | void | |||
2009 | rl_redisplay(void) | |||
2010 | { | |||
2011 | char a[2]; | |||
2012 | a[0] = e->el_tty.t_c[TS_IO2][C_REPRINT15]; | |||
2013 | a[1] = '\0'; | |||
2014 | el_push(e, a); | |||
2015 | } | |||
2016 | ||||
2017 | int | |||
2018 | rl_get_previous_history(int count, int key) | |||
2019 | { | |||
2020 | char a[2]; | |||
2021 | a[0] = key; | |||
2022 | a[1] = '\0'; | |||
2023 | while (count--) | |||
2024 | el_push(e, a); | |||
2025 | return 0; | |||
2026 | } | |||
2027 | ||||
2028 | void | |||
2029 | /*ARGSUSED*/ | |||
2030 | rl_prep_terminal(int meta_flag) | |||
2031 | { | |||
2032 | el_set(e, EL_PREP_TERM16, 1); | |||
2033 | } | |||
2034 | ||||
2035 | void | |||
2036 | rl_deprep_terminal(void) | |||
2037 | { | |||
2038 | el_set(e, EL_PREP_TERM16, 0); | |||
2039 | } | |||
2040 | ||||
2041 | int | |||
2042 | rl_read_init_file(const char *s) | |||
2043 | { | |||
2044 | return el_source(e, s); | |||
2045 | } | |||
2046 | ||||
2047 | int | |||
2048 | rl_parse_and_bind(const char *line) | |||
2049 | { | |||
2050 | const char **argv; | |||
2051 | int argc; | |||
2052 | Tokenizer *tok; | |||
2053 | ||||
2054 | tok = tok_init(NULL((void *)0)); | |||
2055 | tok_str(tok, line, &argc, &argv); | |||
2056 | argc = el_parse(e, argc, argv); | |||
2057 | tok_end(tok); | |||
2058 | return argc ? 1 : 0; | |||
2059 | } | |||
2060 | ||||
2061 | int | |||
2062 | rl_variable_bind(const char *var, const char *value) | |||
2063 | { | |||
2064 | /* | |||
2065 | * The proper return value is undocument, but this is what the | |||
2066 | * readline source seems to do. | |||
2067 | */ | |||
2068 | return el_set(e, EL_BIND4, "", var, value, NULL((void *)0)) == -1 ? 1 : 0; | |||
2069 | } | |||
2070 | ||||
2071 | void | |||
2072 | rl_stuff_char(int c) | |||
2073 | { | |||
2074 | char buf[2]; | |||
2075 | ||||
2076 | buf[0] = c; | |||
2077 | buf[1] = '\0'; | |||
2078 | el_insertstr(e, buf); | |||
2079 | } | |||
2080 | ||||
2081 | static int | |||
2082 | _rl_event_read_char(EditLine *el, wchar_t *wc) | |||
2083 | { | |||
2084 | char ch; | |||
2085 | int n; | |||
2086 | ssize_t num_read = 0; | |||
2087 | ||||
2088 | ch = '\0'; | |||
2089 | *wc = L'\0'; | |||
2090 | while (rl_event_hook) { | |||
2091 | ||||
2092 | (*rl_event_hook)(); | |||
2093 | ||||
2094 | #if defined(FIONREAD((unsigned long)0x40000000 | ((sizeof(int) & 0x1fff) << 16) | ((('f')) << 8) | ((127)))) | |||
2095 | if (ioctl(el->el_infd, FIONREAD((unsigned long)0x40000000 | ((sizeof(int) & 0x1fff) << 16) | ((('f')) << 8) | ((127))), &n) == -1) | |||
2096 | return -1; | |||
2097 | if (n) | |||
2098 | num_read = read(el->el_infd, &ch, 1); | |||
2099 | else | |||
2100 | num_read = 0; | |||
2101 | #elif defined(F_SETFL4) && defined(O_NDELAY0x0004) | |||
2102 | if ((n = fcntl(el->el_infd, F_GETFL3)) == -1) | |||
2103 | return -1; | |||
2104 | if (fcntl(el->el_infd, F_SETFL4, n|O_NDELAY0x0004) == -1) | |||
2105 | return -1; | |||
2106 | num_read = read(el->el_infd, &ch, 1); | |||
2107 | if (fcntl(el->el_infd, F_SETFL4, n)) | |||
2108 | return -1; | |||
2109 | #else | |||
2110 | /* not non-blocking, but what you gonna do? */ | |||
2111 | num_read = read(el->el_infd, &ch, 1); | |||
2112 | return -1; | |||
2113 | #endif | |||
2114 | ||||
2115 | if (num_read == -1 && errno(*__errno()) == EAGAIN35) | |||
2116 | continue; | |||
2117 | if (num_read == 0) | |||
2118 | continue; | |||
2119 | break; | |||
2120 | } | |||
2121 | if (!rl_event_hook) | |||
2122 | el_set(el, EL_GETCFN13, EL_BUILTIN_GETCFN(((void *)0))); | |||
2123 | *wc = (wchar_t)ch; | |||
2124 | return (int)num_read; | |||
2125 | } | |||
2126 | ||||
2127 | static void | |||
2128 | _rl_update_pos(void) | |||
2129 | { | |||
2130 | const LineInfo *li = el_line(e); | |||
2131 | ||||
2132 | rl_point = (int)(li->cursor - li->buffer); | |||
2133 | rl_end = (int)(li->lastchar - li->buffer); | |||
2134 | } | |||
2135 | ||||
2136 | void | |||
2137 | rl_get_screen_size(int *rows, int *cols) | |||
2138 | { | |||
2139 | if (rows) | |||
2140 | el_get(e, EL_GETTC17, "li", rows); | |||
2141 | if (cols) | |||
2142 | el_get(e, EL_GETTC17, "co", cols); | |||
2143 | } | |||
2144 | ||||
2145 | void | |||
2146 | rl_set_screen_size(int rows, int cols) | |||
2147 | { | |||
2148 | char buf[64]; | |||
2149 | (void)snprintf(buf, sizeof(buf), "%d", rows); | |||
2150 | el_set(e, EL_SETTC6, "li", buf, NULL((void *)0)); | |||
2151 | (void)snprintf(buf, sizeof(buf), "%d", cols); | |||
2152 | el_set(e, EL_SETTC6, "co", buf, NULL((void *)0)); | |||
2153 | } | |||
2154 | ||||
2155 | char ** | |||
2156 | rl_completion_matches(const char *str, rl_compentry_func_t *fun) | |||
2157 | { | |||
2158 | size_t len, max, i, j, min; | |||
2159 | char **list, *match, *a, *b; | |||
2160 | ||||
2161 | len = 1; | |||
2162 | max = 10; | |||
2163 | if ((list = reallocarray(NULL((void *)0), max, sizeof(*list))) == NULL((void *)0)) | |||
2164 | return NULL((void *)0); | |||
2165 | ||||
2166 | while ((match = (*fun)(str, (int)(len - 1))) != NULL((void *)0)) { | |||
2167 | list[len++] = match; | |||
2168 | if (len == max) { | |||
2169 | char **nl; | |||
2170 | max += 10; | |||
2171 | if ((nl = reallocarray(list, max, sizeof(*nl))) == NULL((void *)0)) | |||
2172 | goto out; | |||
2173 | list = nl; | |||
2174 | } | |||
2175 | } | |||
2176 | if (len == 1) | |||
2177 | goto out; | |||
2178 | list[len] = NULL((void *)0); | |||
2179 | if (len == 2) { | |||
2180 | if ((list[0] = strdup(list[1])) == NULL((void *)0)) | |||
2181 | goto out; | |||
2182 | return list; | |||
2183 | } | |||
2184 | qsort(&list[1], len - 1, sizeof(*list), | |||
2185 | (int (*)(const void *, const void *)) strcmp); | |||
2186 | min = SIZE_MAX0xffffffffffffffffUL; | |||
2187 | for (i = 1, a = list[i]; i < len - 1; i++, a = b) { | |||
2188 | b = list[i + 1]; | |||
2189 | for (j = 0; a[j] && a[j] == b[j]; j++) | |||
2190 | continue; | |||
2191 | if (min > j) | |||
2192 | min = j; | |||
2193 | } | |||
2194 | if (min == 0 && *str) { | |||
2195 | if ((list[0] = strdup(str)) == NULL((void *)0)) | |||
2196 | goto out; | |||
2197 | } else { | |||
2198 | if ((list[0] = malloc(min + 1)) == NULL((void *)0)) | |||
2199 | goto out; | |||
2200 | (void)memcpy(list[0], list[1], min); | |||
2201 | list[0][min] = '\0'; | |||
2202 | } | |||
2203 | return list; | |||
2204 | ||||
2205 | out: | |||
2206 | free(list); | |||
2207 | return NULL((void *)0); | |||
2208 | } | |||
2209 | ||||
2210 | char * | |||
2211 | rl_filename_completion_function (const char *text, int state) | |||
2212 | { | |||
2213 | return fn_filename_completion_function(text, state); | |||
2214 | } | |||
2215 | ||||
2216 | void | |||
2217 | rl_forced_update_display(void) | |||
2218 | { | |||
2219 | el_set(e, EL_REFRESH20); | |||
2220 | } | |||
2221 | ||||
2222 | int | |||
2223 | _rl_abort_internal(void) | |||
2224 | { | |||
2225 | el_beep(e); | |||
2226 | longjmp(topbuf, 1); | |||
2227 | /*NOTREACHED*/ | |||
2228 | } | |||
2229 | ||||
2230 | int | |||
2231 | _rl_qsort_string_compare(char **s1, char **s2) | |||
2232 | { | |||
2233 | return strcoll(*s1, *s2); | |||
2234 | } | |||
2235 | ||||
2236 | HISTORY_STATE * | |||
2237 | history_get_history_state(void) | |||
2238 | { | |||
2239 | HISTORY_STATE *hs; | |||
2240 | ||||
2241 | if ((hs = malloc(sizeof(HISTORY_STATE))) == NULL((void *)0)) | |||
2242 | return NULL((void *)0); | |||
2243 | hs->length = history_length; | |||
2244 | return hs; | |||
2245 | } | |||
2246 | ||||
2247 | int | |||
2248 | /*ARGSUSED*/ | |||
2249 | rl_kill_text(int from, int to) | |||
2250 | { | |||
2251 | return 0; | |||
2252 | } | |||
2253 | ||||
2254 | Keymap | |||
2255 | rl_make_bare_keymap(void) | |||
2256 | { | |||
2257 | return NULL((void *)0); | |||
2258 | } | |||
2259 | ||||
2260 | Keymap | |||
2261 | rl_get_keymap(void) | |||
2262 | { | |||
2263 | return NULL((void *)0); | |||
2264 | } | |||
2265 | ||||
2266 | void | |||
2267 | /*ARGSUSED*/ | |||
2268 | rl_set_keymap(Keymap k) | |||
2269 | { | |||
2270 | } | |||
2271 | ||||
2272 | int | |||
2273 | /*ARGSUSED*/ | |||
2274 | rl_generic_bind(int type, const char * keyseq, const char * data, Keymap k) | |||
2275 | { | |||
2276 | return 0; | |||
2277 | } | |||
2278 | ||||
2279 | int | |||
2280 | /*ARGSUSED*/ | |||
2281 | rl_bind_key_in_map(int key, rl_command_func_t *fun, Keymap k) | |||
2282 | { | |||
2283 | return 0; | |||
2284 | } | |||
2285 | ||||
2286 | /* unsupported, but needed by python */ | |||
2287 | void | |||
2288 | rl_cleanup_after_signal(void) | |||
2289 | { | |||
2290 | } | |||
2291 | ||||
2292 | int | |||
2293 | rl_on_new_line(void) | |||
2294 | { | |||
2295 | return 0; | |||
2296 | } | |||
2297 | ||||
2298 | int | |||
2299 | /*ARGSUSED*/ | |||
2300 | rl_set_keyboard_input_timeout(int u __attribute__((__unused__))) | |||
2301 | { | |||
2302 | return 0; | |||
2303 | } |