OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [branches/] [oc/] [gdb-5.0/] [readline/] [search.c] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
/* search.c - code for non-incremental searching in emacs and vi modes. */
2
 
3
/* Copyright (C) 1992 Free Software Foundation, Inc.
4
 
5
   This file is part of the Readline Library (the Library), a set of
6
   routines for providing Emacs style line input to programs that ask
7
   for it.
8
 
9
   The Library is free software; you can redistribute it and/or modify
10
   it under the terms of the GNU General Public License as published by
11
   the Free Software Foundation; either version 1, or (at your option)
12
   any later version.
13
 
14
   The Library is distributed in the hope that it will be useful, but
15
   WITHOUT ANY WARRANTY; without even the implied warranty of
16
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17
   General Public License for more details.
18
 
19
   The GNU General Public License is often shipped with GNU software, and
20
   is generally kept in a file called COPYING or LICENSE.  If you do not
21
   have a copy of the license, write to the Free Software Foundation,
22
   675 Mass Ave, Cambridge, MA 02139, USA. */
23
#define READLINE_LIBRARY
24
 
25
#if defined (HAVE_CONFIG_H)
26
#  include <config.h>
27
#endif
28
 
29
#include <sys/types.h>
30
#include <stdio.h>
31
 
32
#if defined (HAVE_UNISTD_H)
33
#  include <unistd.h>
34
#endif
35
 
36
#if defined (HAVE_STDLIB_H)
37
#  include <stdlib.h>
38
#else
39
#  include "ansi_stdlib.h"
40
#endif
41
 
42
#include "rldefs.h"
43
#include "readline.h"
44
#include "history.h"
45
 
46
#ifdef abs
47
#  undef abs
48
#endif
49
#define abs(x)          (((x) >= 0) ? (x) : -(x))
50
 
51
extern char *xmalloc (), *xrealloc ();
52
 
53
/* Variables imported from readline.c */
54
extern int rl_point, rl_end, rl_line_buffer_len;
55
extern int rl_editing_mode;
56
extern char *rl_prompt;
57
extern char *rl_line_buffer;
58
extern HIST_ENTRY *saved_line_for_history;
59
extern Function *rl_last_func;
60
 
61
/* Functions imported from the rest of the library. */
62
extern int _rl_free_history_entry ();
63
extern char *_rl_make_prompt_for_search ();
64
extern void rl_extend_line_buffer ();
65
 
66
static char *noninc_search_string = (char *) NULL;
67
static int noninc_history_pos;
68
static char *prev_line_found = (char *) NULL;
69
 
70
/* Search the history list for STRING starting at absolute history position
71
   POS.  If STRING begins with `^', the search must match STRING at the
72
   beginning of a history line, otherwise a full substring match is performed
73
   for STRING.  DIR < 0 means to search backwards through the history list,
74
   DIR >= 0 means to search forward. */
75
static int
76
noninc_search_from_pos (string, pos, dir)
77
     char *string;
78
     int pos, dir;
79
{
80
  int ret, old;
81
 
82
  old = where_history ();
83
  history_set_pos (pos);
84
 
85
  if (*string == '^')
86
    ret = history_search_prefix (string + 1, dir);
87
  else
88
    ret = history_search (string, dir);
89
 
90
  if (ret != -1)
91
    ret = where_history ();
92
 
93
  history_set_pos (old);
94
  return (ret);
95
}
96
 
97
/* Search for a line in the history containing STRING.  If DIR is < 0, the
98
   search is backwards through previous entries, else through subsequent
99
   entries. */
100
static void
101
noninc_dosearch (string, dir)
102
     char *string;
103
     int dir;
104
{
105
  int oldpos, pos, line_len;
106
  HIST_ENTRY *entry;
107
 
108
  if (string == 0 || *string == '\0' || noninc_history_pos < 0)
109
    {
110
      ding ();
111
      return;
112
    }
113
 
114
  pos = noninc_search_from_pos (string, noninc_history_pos + dir, dir);
115
  if (pos == -1)
116
    {
117
      /* Search failed, current history position unchanged. */
118
      maybe_unsave_line ();
119
      rl_clear_message ();
120
      rl_point = 0;
121
      ding ();
122
      return;
123
    }
124
 
125
  noninc_history_pos = pos;
126
 
127
  oldpos = where_history ();
128
  history_set_pos (noninc_history_pos);
129
  entry = current_history ();
130
#if defined (VI_MODE)
131
  if (rl_editing_mode != vi_mode)
132
#endif
133
  history_set_pos (oldpos);
134
 
135
  line_len = strlen (entry->line);
136
  if (line_len >= rl_line_buffer_len)
137
    rl_extend_line_buffer (line_len);
138
  strcpy (rl_line_buffer, entry->line);
139
 
140
  rl_undo_list = (UNDO_LIST *)entry->data;
141
  rl_end = strlen (rl_line_buffer);
142
  rl_point = 0;
143
  rl_clear_message ();
144
 
145
  if (saved_line_for_history)
146
    _rl_free_history_entry (saved_line_for_history);
147
  saved_line_for_history = (HIST_ENTRY *)NULL;
148
}
149
 
150
/* Search non-interactively through the history list.  DIR < 0 means to
151
   search backwards through the history of previous commands; otherwise
152
   the search is for commands subsequent to the current position in the
153
   history list.  PCHAR is the character to use for prompting when reading
154
   the search string; if not specified (0), it defaults to `:'. */
155
static void
156
noninc_search (dir, pchar)
157
     int dir;
158
     int pchar;
159
{
160
  int saved_point, c;
161
  char *p;
162
 
163
  maybe_save_line ();
164
  saved_point = rl_point;
165
 
166
  /* Use the line buffer to read the search string. */
167
  rl_line_buffer[0] = 0;
168
  rl_end = rl_point = 0;
169
 
170
  p = _rl_make_prompt_for_search (pchar ? pchar : ':');
171
  rl_message (p, 0, 0);
172
  free (p);
173
 
174
#define SEARCH_RETURN rl_restore_prompt (); return
175
 
176
  /* Read the search string. */
177
  while (c = rl_read_key ())
178
    {
179
      switch (c)
180
        {
181
        case CTRL('H'):
182
        case RUBOUT:
183
          if (rl_point == 0)
184
            {
185
              maybe_unsave_line ();
186
              rl_clear_message ();
187
              rl_point = saved_point;
188
              SEARCH_RETURN;
189
            }
190
          rl_rubout (1, c);
191
          break;
192
 
193
        case CTRL('W'):
194
          rl_unix_word_rubout (1, c);
195
          break;
196
 
197
        case CTRL('U'):
198
          rl_unix_line_discard (1, c);
199
          break;
200
 
201
        case RETURN:
202
        case NEWLINE:
203
          goto dosearch;
204
          /* NOTREACHED */
205
          break;
206
 
207
        case CTRL('C'):
208
        case CTRL('G'):
209
          maybe_unsave_line ();
210
          rl_clear_message ();
211
          rl_point = saved_point;
212
          ding ();
213
          SEARCH_RETURN;
214
 
215
        default:
216
          rl_insert (1, c);
217
          break;
218
        }
219
      (*rl_redisplay_function) ();
220
    }
221
 
222
 dosearch:
223
  /* If rl_point == 0, we want to re-use the previous search string and
224
     start from the saved history position.  If there's no previous search
225
     string, punt. */
226
  if (rl_point == 0)
227
    {
228
      if (!noninc_search_string)
229
        {
230
          ding ();
231
          SEARCH_RETURN;
232
        }
233
    }
234
  else
235
    {
236
      /* We want to start the search from the current history position. */
237
      noninc_history_pos = where_history ();
238
      if (noninc_search_string)
239
        free (noninc_search_string);
240
      noninc_search_string = savestring (rl_line_buffer);
241
    }
242
 
243
  rl_restore_prompt ();
244
  noninc_dosearch (noninc_search_string, dir);
245
}
246
 
247
/* Search forward through the history list for a string.  If the vi-mode
248
   code calls this, KEY will be `?'. */
249
int
250
rl_noninc_forward_search (count, key)
251
     int count, key;
252
{
253
  noninc_search (1, (key == '?') ? '?' : 0);
254
  return 0;
255
}
256
 
257
/* Reverse search the history list for a string.  If the vi-mode code
258
   calls this, KEY will be `/'. */
259
int
260
rl_noninc_reverse_search (count, key)
261
     int count, key;
262
{
263
  noninc_search (-1, (key == '/') ? '/' : 0);
264
  return 0;
265
}
266
 
267
/* Search forward through the history list for the last string searched
268
   for.  If there is no saved search string, abort. */
269
int
270
rl_noninc_forward_search_again (count, key)
271
     int count, key;
272
{
273
  if (!noninc_search_string)
274
    {
275
      ding ();
276
      return (-1);
277
    }
278
  noninc_dosearch (noninc_search_string, 1);
279
  return 0;
280
}
281
 
282
/* Reverse search in the history list for the last string searched
283
   for.  If there is no saved search string, abort. */
284
int
285
rl_noninc_reverse_search_again (count, key)
286
     int count, key;
287
{
288
  if (!noninc_search_string)
289
    {
290
      ding ();
291
      return (-1);
292
    }
293
  noninc_dosearch (noninc_search_string, -1);
294
  return 0;
295
}
296
 
297
static int
298
rl_history_search_internal (count, direction)
299
     int count, direction;
300
{
301
  HIST_ENTRY *temp, *old_temp;
302
  int line_len;
303
 
304
  maybe_save_line ();
305
 
306
  temp = old_temp = (HIST_ENTRY *)NULL;
307
  while (count)
308
    {
309
      temp = (direction < 0) ? previous_history () : next_history ();
310
      if (temp == 0)
311
        break;
312
      /* On an empty prefix, make this the same as previous-history. */
313
      if (rl_point == 0)
314
        {
315
          count--;
316
          continue;
317
        }
318
      if (STREQN (rl_line_buffer, temp->line, rl_point))
319
        {
320
          /* Don't find multiple instances of the same line. */
321
          if (prev_line_found && STREQ (prev_line_found, temp->line))
322
            continue;
323
          if (direction < 0)
324
            old_temp = temp;
325
          prev_line_found = temp->line;
326
          count--;
327
        }
328
    }
329
 
330
  if (temp == 0)
331
    {
332
      if (direction < 0 && old_temp)
333
        temp = old_temp;
334
      else
335
        {
336
          maybe_unsave_line ();
337
          ding ();
338
          return 1;
339
        }
340
    }
341
 
342
  line_len = strlen (temp->line);
343
  if (line_len >= rl_line_buffer_len)
344
    rl_extend_line_buffer (line_len);
345
  strcpy (rl_line_buffer, temp->line);
346
  rl_undo_list = (UNDO_LIST *)temp->data;
347
  rl_end = line_len;
348
  return 0;
349
}
350
 
351
/* Search forward in the history for the string of characters
352
   from the start of the line to rl_point.  This is a non-incremental
353
   search. */
354
int
355
rl_history_search_forward (count, ignore)
356
     int count, ignore;
357
{
358
  if (count == 0)
359
    return (0);
360
  if (rl_last_func != rl_history_search_forward)
361
    prev_line_found = (char *)NULL;
362
  return (rl_history_search_internal (abs (count), (count > 0) ? 1 : -1));
363
}
364
 
365
/* Search backward through the history for the string of characters
366
   from the start of the line to rl_point.  This is a non-incremental
367
   search. */
368
int
369
rl_history_search_backward (count, ignore)
370
     int count, ignore;
371
{
372
  if (count == 0)
373
    return (0);
374
  if (rl_last_func != rl_history_search_backward)
375
    prev_line_found = (char *)NULL;
376
  return (rl_history_search_internal (abs (count), (count > 0) ? -1 : 1));
377
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.