Revert "Sync readline/ to version 7.0 alpha"
[deliverable/binutils-gdb.git] / readline / isearch.c
1 /* isearch.c - incremental searching */
2
3 /* **************************************************************** */
4 /* */
5 /* I-Search and Searching */
6 /* */
7 /* **************************************************************** */
8
9 /* Copyright (C) 1987-2009 Free Software Foundation, Inc.
10
11 This file is part of the GNU Readline Library (Readline), a library
12 for reading lines of text with interactive input and history editing.
13
14 Readline is free software: you can redistribute it and/or modify
15 it under the terms of the GNU General Public License as published by
16 the Free Software Foundation, either version 3 of the License, or
17 (at your option) any later version.
18
19 Readline is distributed in the hope that it will be useful,
20 but WITHOUT ANY WARRANTY; without even the implied warranty of
21 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 GNU General Public License for more details.
23
24 You should have received a copy of the GNU General Public License
25 along with Readline. If not, see <http://www.gnu.org/licenses/>.
26 */
27
28 #define READLINE_LIBRARY
29
30 #if defined (HAVE_CONFIG_H)
31 # include <config.h>
32 #endif
33
34 #include <sys/types.h>
35
36 #include <stdio.h>
37
38 #if defined (HAVE_UNISTD_H)
39 # include <unistd.h>
40 #endif
41
42 #if defined (HAVE_STDLIB_H)
43 # include <stdlib.h>
44 #else
45 # include "ansi_stdlib.h"
46 #endif
47
48 #include "rldefs.h"
49 #include "rlmbutil.h"
50
51 #include "readline.h"
52 #include "history.h"
53
54 #include "rlprivate.h"
55 #include "xmalloc.h"
56
57 /* Variables exported to other files in the readline library. */
58 char *_rl_isearch_terminators = (char *)NULL;
59
60 _rl_search_cxt *_rl_iscxt = 0;
61
62 /* Variables imported from other files in the readline library. */
63 extern HIST_ENTRY *_rl_saved_line_for_history;
64
65 static int rl_search_history PARAMS((int, int));
66
67 static _rl_search_cxt *_rl_isearch_init PARAMS((int));
68 static void _rl_isearch_fini PARAMS((_rl_search_cxt *));
69 static int _rl_isearch_cleanup PARAMS((_rl_search_cxt *, int));
70
71 /* Last line found by the current incremental search, so we don't `find'
72 identical lines many times in a row. Now part of isearch context. */
73 /* static char *prev_line_found; */
74
75 /* Last search string and its length. */
76 static char *last_isearch_string;
77 static int last_isearch_string_len;
78
79 static char * const default_isearch_terminators = "\033\012";
80
81 _rl_search_cxt *
82 _rl_scxt_alloc (type, flags)
83 int type, flags;
84 {
85 _rl_search_cxt *cxt;
86
87 cxt = (_rl_search_cxt *)xmalloc (sizeof (_rl_search_cxt));
88
89 cxt->type = type;
90 cxt->sflags = flags;
91
92 cxt->search_string = 0;
93 cxt->search_string_size = cxt->search_string_index = 0;
94
95 cxt->lines = 0;
96 cxt->allocated_line = 0;
97 cxt->hlen = cxt->hindex = 0;
98
99 cxt->save_point = rl_point;
100 cxt->save_mark = rl_mark;
101 cxt->save_line = where_history ();
102 cxt->last_found_line = cxt->save_line;
103 cxt->prev_line_found = 0;
104
105 cxt->save_undo_list = 0;
106
107 cxt->keymap = _rl_keymap;
108 cxt->okeymap = _rl_keymap;
109
110 cxt->history_pos = 0;
111 cxt->direction = 0;
112
113 cxt->lastc = 0;
114
115 cxt->sline = 0;
116 cxt->sline_len = cxt->sline_index = 0;
117
118 cxt->search_terminators = 0;
119
120 return cxt;
121 }
122
123 void
124 _rl_scxt_dispose (cxt, flags)
125 _rl_search_cxt *cxt;
126 int flags;
127 {
128 FREE (cxt->search_string);
129 FREE (cxt->allocated_line);
130 FREE (cxt->lines);
131
132 xfree (cxt);
133 }
134
135 /* Search backwards through the history looking for a string which is typed
136 interactively. Start with the current line. */
137 int
138 rl_reverse_search_history (sign, key)
139 int sign, key;
140 {
141 return (rl_search_history (-sign, key));
142 }
143
144 /* Search forwards through the history looking for a string which is typed
145 interactively. Start with the current line. */
146 int
147 rl_forward_search_history (sign, key)
148 int sign, key;
149 {
150 return (rl_search_history (sign, key));
151 }
152
153 /* Display the current state of the search in the echo-area.
154 SEARCH_STRING contains the string that is being searched for,
155 DIRECTION is zero for forward, or non-zero for reverse,
156 WHERE is the history list number of the current line. If it is
157 -1, then this line is the starting one. */
158 static void
159 rl_display_search (search_string, reverse_p, where)
160 char *search_string;
161 int reverse_p, where;
162 {
163 char *message;
164 int msglen, searchlen;
165
166 searchlen = (search_string && *search_string) ? strlen (search_string) : 0;
167
168 message = (char *)xmalloc (searchlen + 33);
169 msglen = 0;
170
171 #if defined (NOTDEF)
172 if (where != -1)
173 {
174 sprintf (message, "[%d]", where + history_base);
175 msglen = strlen (message);
176 }
177 #endif /* NOTDEF */
178
179 message[msglen++] = '(';
180
181 if (reverse_p)
182 {
183 strcpy (message + msglen, "reverse-");
184 msglen += 8;
185 }
186
187 strcpy (message + msglen, "i-search)`");
188 msglen += 10;
189
190 if (search_string)
191 {
192 strcpy (message + msglen, search_string);
193 msglen += searchlen;
194 }
195
196 strcpy (message + msglen, "': ");
197
198 rl_message ("%s", message);
199 xfree (message);
200 (*rl_redisplay_function) ();
201 }
202
203 static _rl_search_cxt *
204 _rl_isearch_init (direction)
205 int direction;
206 {
207 _rl_search_cxt *cxt;
208 register int i;
209 HIST_ENTRY **hlist;
210
211 cxt = _rl_scxt_alloc (RL_SEARCH_ISEARCH, 0);
212 if (direction < 0)
213 cxt->sflags |= SF_REVERSE;
214
215 cxt->search_terminators = _rl_isearch_terminators ? _rl_isearch_terminators
216 : default_isearch_terminators;
217
218 /* Create an arrary of pointers to the lines that we want to search. */
219 hlist = history_list ();
220 rl_maybe_replace_line ();
221 i = 0;
222 if (hlist)
223 for (i = 0; hlist[i]; i++);
224
225 /* Allocate space for this many lines, +1 for the current input line,
226 and remember those lines. */
227 cxt->lines = (char **)xmalloc ((1 + (cxt->hlen = i)) * sizeof (char *));
228 for (i = 0; i < cxt->hlen; i++)
229 cxt->lines[i] = hlist[i]->line;
230
231 if (_rl_saved_line_for_history)
232 cxt->lines[i] = _rl_saved_line_for_history->line;
233 else
234 {
235 /* Keep track of this so we can free it. */
236 cxt->allocated_line = (char *)xmalloc (1 + strlen (rl_line_buffer));
237 strcpy (cxt->allocated_line, &rl_line_buffer[0]);
238 cxt->lines[i] = cxt->allocated_line;
239 }
240
241 cxt->hlen++;
242
243 /* The line where we start the search. */
244 cxt->history_pos = cxt->save_line;
245
246 rl_save_prompt ();
247
248 /* Initialize search parameters. */
249 cxt->search_string = (char *)xmalloc (cxt->search_string_size = 128);
250 cxt->search_string[cxt->search_string_index = 0] = '\0';
251
252 /* Normalize DIRECTION into 1 or -1. */
253 cxt->direction = (direction >= 0) ? 1 : -1;
254
255 cxt->sline = rl_line_buffer;
256 cxt->sline_len = strlen (cxt->sline);
257 cxt->sline_index = rl_point;
258
259 _rl_iscxt = cxt; /* save globally */
260
261 return cxt;
262 }
263
264 static void
265 _rl_isearch_fini (cxt)
266 _rl_search_cxt *cxt;
267 {
268 /* First put back the original state. */
269 strcpy (rl_line_buffer, cxt->lines[cxt->save_line]);
270
271 rl_restore_prompt ();
272
273 /* Save the search string for possible later use. */
274 FREE (last_isearch_string);
275 last_isearch_string = cxt->search_string;
276 last_isearch_string_len = cxt->search_string_index;
277 cxt->search_string = 0;
278
279 if (cxt->last_found_line < cxt->save_line)
280 rl_get_previous_history (cxt->save_line - cxt->last_found_line, 0);
281 else
282 rl_get_next_history (cxt->last_found_line - cxt->save_line, 0);
283
284 /* If the string was not found, put point at the end of the last matching
285 line. If last_found_line == orig_line, we didn't find any matching
286 history lines at all, so put point back in its original position. */
287 if (cxt->sline_index < 0)
288 {
289 if (cxt->last_found_line == cxt->save_line)
290 cxt->sline_index = cxt->save_point;
291 else
292 cxt->sline_index = strlen (rl_line_buffer);
293 rl_mark = cxt->save_mark;
294 }
295
296 rl_point = cxt->sline_index;
297 /* Don't worry about where to put the mark here; rl_get_previous_history
298 and rl_get_next_history take care of it. */
299
300 rl_clear_message ();
301 }
302
303 int
304 _rl_search_getchar (cxt)
305 _rl_search_cxt *cxt;
306 {
307 int c;
308
309 /* Read a key and decide how to proceed. */
310 RL_SETSTATE(RL_STATE_MOREINPUT);
311 c = cxt->lastc = rl_read_key ();
312 RL_UNSETSTATE(RL_STATE_MOREINPUT);
313
314 #if defined (HANDLE_MULTIBYTE)
315 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
316 c = cxt->lastc = _rl_read_mbstring (cxt->lastc, cxt->mb, MB_LEN_MAX);
317 #endif
318
319 return c;
320 }
321
322 /* Process just-read character C according to isearch context CXT. Return
323 -1 if the caller should just free the context and return, 0 if we should
324 break out of the loop, and 1 if we should continue to read characters. */
325 int
326 _rl_isearch_dispatch (cxt, c)
327 _rl_search_cxt *cxt;
328 int c;
329 {
330 int n, wstart, wlen, limit, cval;
331 rl_command_func_t *f;
332
333 f = (rl_command_func_t *)NULL;
334
335 if (c < 0)
336 {
337 cxt->sflags |= SF_FAILED;
338 cxt->history_pos = cxt->last_found_line;
339 return -1;
340 }
341
342 /* If we are moving into a new keymap, modify cxt->keymap and go on.
343 This can be a problem if c == ESC and we want to terminate the
344 incremental search, so we check */
345 if (c >= 0 && cxt->keymap[c].type == ISKMAP && strchr (cxt->search_terminators, cxt->lastc) == 0)
346 {
347 cxt->keymap = FUNCTION_TO_KEYMAP (cxt->keymap, c);
348 cxt->sflags |= SF_CHGKMAP;
349 /* XXX - we should probably save this sequence, so we can do
350 something useful if this doesn't end up mapping to a command. */
351 return 1;
352 }
353
354 /* Translate the keys we do something with to opcodes. */
355 if (c >= 0 && cxt->keymap[c].type == ISFUNC)
356 {
357 f = cxt->keymap[c].function;
358
359 if (f == rl_reverse_search_history)
360 cxt->lastc = (cxt->sflags & SF_REVERSE) ? -1 : -2;
361 else if (f == rl_forward_search_history)
362 cxt->lastc = (cxt->sflags & SF_REVERSE) ? -2 : -1;
363 else if (f == rl_rubout)
364 cxt->lastc = -3;
365 else if (c == CTRL ('G') || f == rl_abort)
366 cxt->lastc = -4;
367 else if (c == CTRL ('W') || f == rl_unix_word_rubout) /* XXX */
368 cxt->lastc = -5;
369 else if (c == CTRL ('Y') || f == rl_yank) /* XXX */
370 cxt->lastc = -6;
371 }
372
373 /* If we changed the keymap earlier while translating a key sequence into
374 a command, restore it now that we've succeeded. */
375 if (cxt->sflags & SF_CHGKMAP)
376 {
377 cxt->keymap = cxt->okeymap;
378 cxt->sflags &= ~SF_CHGKMAP;
379 }
380
381 /* The characters in isearch_terminators (set from the user-settable
382 variable isearch-terminators) are used to terminate the search but
383 not subsequently execute the character as a command. The default
384 value is "\033\012" (ESC and C-J). */
385 if (cxt->lastc > 0 && strchr (cxt->search_terminators, cxt->lastc))
386 {
387 /* ESC still terminates the search, but if there is pending
388 input or if input arrives within 0.1 seconds (on systems
389 with select(2)) it is used as a prefix character
390 with rl_execute_next. WATCH OUT FOR THIS! This is intended
391 to allow the arrow keys to be used like ^F and ^B are used
392 to terminate the search and execute the movement command.
393 XXX - since _rl_input_available depends on the application-
394 settable keyboard timeout value, this could alternatively
395 use _rl_input_queued(100000) */
396 if (cxt->lastc == ESC && _rl_input_available ())
397 rl_execute_next (ESC);
398 return (0);
399 }
400
401 #define ENDSRCH_CHAR(c) \
402 ((CTRL_CHAR (c) || META_CHAR (c) || (c) == RUBOUT) && ((c) != CTRL ('G')))
403
404 #if defined (HANDLE_MULTIBYTE)
405 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
406 {
407 if (cxt->lastc >= 0 && (cxt->mb[0] && cxt->mb[1] == '\0') && ENDSRCH_CHAR (cxt->lastc))
408 {
409 /* This sets rl_pending_input to LASTC; it will be picked up the next
410 time rl_read_key is called. */
411 rl_execute_next (cxt->lastc);
412 return (0);
413 }
414 }
415 else
416 #endif
417 if (cxt->lastc >= 0 && ENDSRCH_CHAR (cxt->lastc))
418 {
419 /* This sets rl_pending_input to LASTC; it will be picked up the next
420 time rl_read_key is called. */
421 rl_execute_next (cxt->lastc);
422 return (0);
423 }
424
425 /* Now dispatch on the character. `Opcodes' affect the search string or
426 state. Other characters are added to the string. */
427 switch (cxt->lastc)
428 {
429 /* search again */
430 case -1:
431 if (cxt->search_string_index == 0)
432 {
433 if (last_isearch_string)
434 {
435 cxt->search_string_size = 64 + last_isearch_string_len;
436 cxt->search_string = (char *)xrealloc (cxt->search_string, cxt->search_string_size);
437 strcpy (cxt->search_string, last_isearch_string);
438 cxt->search_string_index = last_isearch_string_len;
439 rl_display_search (cxt->search_string, (cxt->sflags & SF_REVERSE), -1);
440 break;
441 }
442 return (1);
443 }
444 else if (cxt->sflags & SF_REVERSE)
445 cxt->sline_index--;
446 else if (cxt->sline_index != cxt->sline_len)
447 cxt->sline_index++;
448 else
449 rl_ding ();
450 break;
451
452 /* switch directions */
453 case -2:
454 cxt->direction = -cxt->direction;
455 if (cxt->direction < 0)
456 cxt->sflags |= SF_REVERSE;
457 else
458 cxt->sflags &= ~SF_REVERSE;
459 break;
460
461 /* delete character from search string. */
462 case -3: /* C-H, DEL */
463 /* This is tricky. To do this right, we need to keep a
464 stack of search positions for the current search, with
465 sentinels marking the beginning and end. But this will
466 do until we have a real isearch-undo. */
467 if (cxt->search_string_index == 0)
468 rl_ding ();
469 else
470 cxt->search_string[--cxt->search_string_index] = '\0';
471 break;
472
473 case -4: /* C-G, abort */
474 rl_replace_line (cxt->lines[cxt->save_line], 0);
475 rl_point = cxt->save_point;
476 rl_mark = cxt->save_mark;
477 rl_restore_prompt();
478 rl_clear_message ();
479
480 return -1;
481
482 case -5: /* C-W */
483 /* skip over portion of line we already matched and yank word */
484 wstart = rl_point + cxt->search_string_index;
485 if (wstart >= rl_end)
486 {
487 rl_ding ();
488 break;
489 }
490
491 /* if not in a word, move to one. */
492 cval = _rl_char_value (rl_line_buffer, wstart);
493 if (_rl_walphabetic (cval) == 0)
494 {
495 rl_ding ();
496 break;
497 }
498 n = MB_NEXTCHAR (rl_line_buffer, wstart, 1, MB_FIND_NONZERO);;
499 while (n < rl_end)
500 {
501 cval = _rl_char_value (rl_line_buffer, n);
502 if (_rl_walphabetic (cval) == 0)
503 break;
504 n = MB_NEXTCHAR (rl_line_buffer, n, 1, MB_FIND_NONZERO);;
505 }
506 wlen = n - wstart + 1;
507 if (cxt->search_string_index + wlen + 1 >= cxt->search_string_size)
508 {
509 cxt->search_string_size += wlen + 1;
510 cxt->search_string = (char *)xrealloc (cxt->search_string, cxt->search_string_size);
511 }
512 for (; wstart < n; wstart++)
513 cxt->search_string[cxt->search_string_index++] = rl_line_buffer[wstart];
514 cxt->search_string[cxt->search_string_index] = '\0';
515 break;
516
517 case -6: /* C-Y */
518 /* skip over portion of line we already matched and yank rest */
519 wstart = rl_point + cxt->search_string_index;
520 if (wstart >= rl_end)
521 {
522 rl_ding ();
523 break;
524 }
525 n = rl_end - wstart + 1;
526 if (cxt->search_string_index + n + 1 >= cxt->search_string_size)
527 {
528 cxt->search_string_size += n + 1;
529 cxt->search_string = (char *)xrealloc (cxt->search_string, cxt->search_string_size);
530 }
531 for (n = wstart; n < rl_end; n++)
532 cxt->search_string[cxt->search_string_index++] = rl_line_buffer[n];
533 cxt->search_string[cxt->search_string_index] = '\0';
534 break;
535
536 /* Add character to search string and continue search. */
537 default:
538 if (cxt->search_string_index + 2 >= cxt->search_string_size)
539 {
540 cxt->search_string_size += 128;
541 cxt->search_string = (char *)xrealloc (cxt->search_string, cxt->search_string_size);
542 }
543 #if defined (HANDLE_MULTIBYTE)
544 if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
545 {
546 int j, l;
547 for (j = 0, l = strlen (cxt->mb); j < l; )
548 cxt->search_string[cxt->search_string_index++] = cxt->mb[j++];
549 }
550 else
551 #endif
552 cxt->search_string[cxt->search_string_index++] = c;
553 cxt->search_string[cxt->search_string_index] = '\0';
554 break;
555 }
556
557 for (cxt->sflags &= ~(SF_FOUND|SF_FAILED);; )
558 {
559 limit = cxt->sline_len - cxt->search_string_index + 1;
560
561 /* Search the current line. */
562 while ((cxt->sflags & SF_REVERSE) ? (cxt->sline_index >= 0) : (cxt->sline_index < limit))
563 {
564 if (STREQN (cxt->search_string, cxt->sline + cxt->sline_index, cxt->search_string_index))
565 {
566 cxt->sflags |= SF_FOUND;
567 break;
568 }
569 else
570 cxt->sline_index += cxt->direction;
571 }
572 if (cxt->sflags & SF_FOUND)
573 break;
574
575 /* Move to the next line, but skip new copies of the line
576 we just found and lines shorter than the string we're
577 searching for. */
578 do
579 {
580 /* Move to the next line. */
581 cxt->history_pos += cxt->direction;
582
583 /* At limit for direction? */
584 if ((cxt->sflags & SF_REVERSE) ? (cxt->history_pos < 0) : (cxt->history_pos == cxt->hlen))
585 {
586 cxt->sflags |= SF_FAILED;
587 break;
588 }
589
590 /* We will need these later. */
591 cxt->sline = cxt->lines[cxt->history_pos];
592 cxt->sline_len = strlen (cxt->sline);
593 }
594 while ((cxt->prev_line_found && STREQ (cxt->prev_line_found, cxt->lines[cxt->history_pos])) ||
595 (cxt->search_string_index > cxt->sline_len));
596
597 if (cxt->sflags & SF_FAILED)
598 break;
599
600 /* Now set up the line for searching... */
601 cxt->sline_index = (cxt->sflags & SF_REVERSE) ? cxt->sline_len - cxt->search_string_index : 0;
602 }
603
604 if (cxt->sflags & SF_FAILED)
605 {
606 /* We cannot find the search string. Ding the bell. */
607 rl_ding ();
608 cxt->history_pos = cxt->last_found_line;
609 return 1;
610 }
611
612 /* We have found the search string. Just display it. But don't
613 actually move there in the history list until the user accepts
614 the location. */
615 if (cxt->sflags & SF_FOUND)
616 {
617 cxt->prev_line_found = cxt->lines[cxt->history_pos];
618 rl_replace_line (cxt->lines[cxt->history_pos], 0);
619 rl_point = cxt->sline_index;
620 cxt->last_found_line = cxt->history_pos;
621 rl_display_search (cxt->search_string, (cxt->sflags & SF_REVERSE), (cxt->history_pos == cxt->save_line) ? -1 : cxt->history_pos);
622 }
623
624 return 1;
625 }
626
627 static int
628 _rl_isearch_cleanup (cxt, r)
629 _rl_search_cxt *cxt;
630 int r;
631 {
632 if (r >= 0)
633 _rl_isearch_fini (cxt);
634 _rl_scxt_dispose (cxt, 0);
635 _rl_iscxt = 0;
636
637 RL_UNSETSTATE(RL_STATE_ISEARCH);
638
639 return (r != 0);
640 }
641
642 /* Search through the history looking for an interactively typed string.
643 This is analogous to i-search. We start the search in the current line.
644 DIRECTION is which direction to search; >= 0 means forward, < 0 means
645 backwards. */
646 static int
647 rl_search_history (direction, invoking_key)
648 int direction, invoking_key;
649 {
650 _rl_search_cxt *cxt; /* local for now, but saved globally */
651 int c, r;
652
653 RL_SETSTATE(RL_STATE_ISEARCH);
654 cxt = _rl_isearch_init (direction);
655
656 rl_display_search (cxt->search_string, (cxt->sflags & SF_REVERSE), -1);
657
658 /* If we are using the callback interface, all we do is set up here and
659 return. The key is that we leave RL_STATE_ISEARCH set. */
660 if (RL_ISSTATE (RL_STATE_CALLBACK))
661 return (0);
662
663 r = -1;
664 for (;;)
665 {
666 c = _rl_search_getchar (cxt);
667 /* We might want to handle EOF here (c == 0) */
668 r = _rl_isearch_dispatch (cxt, cxt->lastc);
669 if (r <= 0)
670 break;
671 }
672
673 /* The searching is over. The user may have found the string that she
674 was looking for, or else she may have exited a failing search. If
675 LINE_INDEX is -1, then that shows that the string searched for was
676 not found. We use this to determine where to place rl_point. */
677 return (_rl_isearch_cleanup (cxt, r));
678 }
679
680 #if defined (READLINE_CALLBACKS)
681 /* Called from the callback functions when we are ready to read a key. The
682 callback functions know to call this because RL_ISSTATE(RL_STATE_ISEARCH).
683 If _rl_isearch_dispatch finishes searching, this function is responsible
684 for turning off RL_STATE_ISEARCH, which it does using _rl_isearch_cleanup. */
685 int
686 _rl_isearch_callback (cxt)
687 _rl_search_cxt *cxt;
688 {
689 int c, r;
690
691 c = _rl_search_getchar (cxt);
692 /* We might want to handle EOF here */
693 r = _rl_isearch_dispatch (cxt, cxt->lastc);
694
695 return (r <= 0) ? _rl_isearch_cleanup (cxt, r) : 0;
696 }
697 #endif
This page took 0.047513 seconds and 4 git commands to generate.