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