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