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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
/* util.c -- readline utility functions */
2
 
3
/* Copyright (C) 1987, 1989, 1992 Free Software Foundation, Inc.
4
 
5
   This file is part of the GNU Readline Library, a library for
6
   reading lines of text with interactive input and history editing.
7
 
8
   The GNU Readline Library is free software; you can redistribute it
9
   and/or modify it under the terms of the GNU General Public License
10
   as published by the Free Software Foundation; either version 1, or
11
   (at your option) any later version.
12
 
13
   The GNU Readline Library is distributed in the hope that it will be
14
   useful, but WITHOUT ANY WARRANTY; without even the implied warranty
15
   of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16
   GNU General Public License for more details.
17
 
18
   The GNU General Public License is often shipped with GNU software, and
19
   is generally kept in a file called COPYING or LICENSE.  If you do not
20
   have a copy of the license, write to the Free Software Foundation,
21
   675 Mass Ave, Cambridge, MA 02139, USA. */
22
#define READLINE_LIBRARY
23
 
24
#if defined (HAVE_CONFIG_H)
25
#  include <config.h>
26
#endif
27
 
28
#include <sys/types.h>
29
#include <fcntl.h>
30
#include "posixjmp.h"
31
 
32
#if defined (HAVE_UNISTD_H)
33
#  include <unistd.h>           /* for _POSIX_VERSION */
34
#endif /* HAVE_UNISTD_H */
35
 
36
#if defined (HAVE_STDLIB_H)
37
#  include <stdlib.h>
38
#else
39
#  include "ansi_stdlib.h"
40
#endif /* HAVE_STDLIB_H */
41
 
42
#include <stdio.h>
43
#include <ctype.h>
44
 
45
/* System-specific feature definitions and include files. */
46
#include "rldefs.h"
47
 
48
#if defined (TIOCSTAT_IN_SYS_IOCTL)
49
#  include <sys/ioctl.h>
50
#endif /* TIOCSTAT_IN_SYS_IOCTL */
51
 
52
/* Some standard library routines. */
53
#include "readline.h"
54
 
55
#define SWAP(s, e)  do { int t; t = s; s = e; e = t; } while (0)
56
 
57
/* Pseudo-globals imported from readline.c */
58
extern int readline_echoing_p;
59
extern procenv_t readline_top_level;
60
extern int rl_line_buffer_len;
61
extern Function *rl_last_func;
62
 
63
extern int _rl_defining_kbd_macro;
64
extern char *_rl_executing_macro;
65
 
66
/* Pseudo-global functions imported from other library files. */
67
extern void _rl_replace_text ();
68
extern void _rl_pop_executing_macro ();
69
extern void _rl_set_the_line ();
70
extern void _rl_init_argument ();
71
 
72
extern char *xmalloc (), *xrealloc ();
73
 
74
/* **************************************************************** */
75
/*                                                                  */
76
/*                      Utility Functions                           */
77
/*                                                                  */
78
/* **************************************************************** */
79
 
80
/* Return 0 if C is not a member of the class of characters that belong
81
   in words, or 1 if it is. */
82
 
83
int _rl_allow_pathname_alphabetic_chars = 0;
84
static char *pathname_alphabetic_chars = "/-_=~.#$";
85
 
86
int
87
alphabetic (c)
88
     int c;
89
{
90
  if (ALPHABETIC (c))
91
    return (1);
92
 
93
  return (_rl_allow_pathname_alphabetic_chars &&
94
            strchr (pathname_alphabetic_chars, c) != NULL);
95
}
96
 
97
/* How to abort things. */
98
int
99
_rl_abort_internal ()
100
{
101
  ding ();
102
  rl_clear_message ();
103
  _rl_init_argument ();
104
  rl_pending_input = 0;
105
 
106
  _rl_defining_kbd_macro = 0;
107
  while (_rl_executing_macro)
108
    _rl_pop_executing_macro ();
109
 
110
  rl_last_func = (Function *)NULL;
111
  longjmp (readline_top_level, 1);
112
  return (0);
113
}
114
 
115
int
116
rl_abort (count, key)
117
     int count, key;
118
{
119
  return (_rl_abort_internal ());
120
}
121
 
122
int
123
rl_tty_status (count, key)
124
     int count, key;
125
{
126
#if defined (TIOCSTAT)
127
  ioctl (1, TIOCSTAT, (char *)0);
128
  rl_refresh_line (count, key);
129
#else
130
  ding ();
131
#endif
132
  return 0;
133
}
134
 
135
/* Return a copy of the string between FROM and TO.
136
   FROM is inclusive, TO is not. */
137
char *
138
rl_copy_text (from, to)
139
     int from, to;
140
{
141
  register int length;
142
  char *copy;
143
 
144
  /* Fix it if the caller is confused. */
145
  if (from > to)
146
    SWAP (from, to);
147
 
148
  length = to - from;
149
  copy = xmalloc (1 + length);
150
  strncpy (copy, rl_line_buffer + from, length);
151
  copy[length] = '\0';
152
  return (copy);
153
}
154
 
155
/* Increase the size of RL_LINE_BUFFER until it has enough space to hold
156
   LEN characters. */
157
void
158
rl_extend_line_buffer (len)
159
     int len;
160
{
161
  while (len >= rl_line_buffer_len)
162
    {
163
      rl_line_buffer_len += DEFAULT_BUFFER_SIZE;
164
      rl_line_buffer = xrealloc (rl_line_buffer, rl_line_buffer_len);
165
    }
166
 
167
  _rl_set_the_line ();
168
}
169
 
170
 
171
/* A function for simple tilde expansion. */
172
int
173
rl_tilde_expand (ignore, key)
174
     int ignore, key;
175
{
176
  register int start, end;
177
  char *homedir, *temp;
178
  int len;
179
 
180
  end = rl_point;
181
  start = end - 1;
182
 
183
  if (rl_point == rl_end && rl_line_buffer[rl_point] == '~')
184
    {
185
      homedir = tilde_expand ("~");
186
      _rl_replace_text (homedir, start, end);
187
      return (0);
188
    }
189
  else if (rl_line_buffer[start] != '~')
190
    {
191
      for (; !whitespace (rl_line_buffer[start]) && start >= 0; start--)
192
        ;
193
      start++;
194
    }
195
 
196
  end = start;
197
  do
198
    end++;
199
  while (whitespace (rl_line_buffer[end]) == 0 && end < rl_end);
200
 
201
  if (whitespace (rl_line_buffer[end]) || end >= rl_end)
202
    end--;
203
 
204
  /* If the first character of the current word is a tilde, perform
205
     tilde expansion and insert the result.  If not a tilde, do
206
     nothing. */
207
  if (rl_line_buffer[start] == '~')
208
    {
209
      len = end - start + 1;
210
      temp = xmalloc (len + 1);
211
      strncpy (temp, rl_line_buffer + start, len);
212
      temp[len] = '\0';
213
      homedir = tilde_expand (temp);
214
      free (temp);
215
 
216
      _rl_replace_text (homedir, start, end);
217
    }
218
 
219
  return (0);
220
}
221
 
222
/* **************************************************************** */
223
/*                                                                  */
224
/*                      String Utility Functions                    */
225
/*                                                                  */
226
/* **************************************************************** */
227
 
228
/* Determine if s2 occurs in s1.  If so, return a pointer to the
229
   match in s1.  The compare is case insensitive. */
230
char *
231
_rl_strindex (s1, s2)
232
     register char *s1, *s2;
233
{
234
  register int i, l, len;
235
 
236
  for (i = 0, l = strlen (s2), len = strlen (s1); (len - i) >= l; i++)
237
    if (_rl_strnicmp (s1 + i, s2, l) == 0)
238
      return (s1 + i);
239
  return ((char *)NULL);
240
}
241
 
242
#if !defined (HAVE_STRCASECMP)
243
/* Compare at most COUNT characters from string1 to string2.  Case
244
   doesn't matter. */
245
int
246
_rl_strnicmp (string1, string2, count)
247
     char *string1, *string2;
248
     int count;
249
{
250
  register char ch1, ch2;
251
 
252
  while (count)
253
    {
254
      ch1 = *string1++;
255
      ch2 = *string2++;
256
      if (_rl_to_upper(ch1) == _rl_to_upper(ch2))
257
        count--;
258
      else
259
        break;
260
    }
261
  return (count);
262
}
263
 
264
/* strcmp (), but caseless. */
265
int
266
_rl_stricmp (string1, string2)
267
     char *string1, *string2;
268
{
269
  register char ch1, ch2;
270
 
271
  while (*string1 && *string2)
272
    {
273
      ch1 = *string1++;
274
      ch2 = *string2++;
275
      if (_rl_to_upper(ch1) != _rl_to_upper(ch2))
276
        return (1);
277
    }
278
  return (*string1 - *string2);
279
}
280
#endif /* !HAVE_STRCASECMP */
281
 
282
/* Stupid comparison routine for qsort () ing strings. */
283
int
284
_rl_qsort_string_compare (s1, s2)
285
  char **s1, **s2;
286
{
287
#if defined (HAVE_STRCOLL)
288
  return (strcoll (*s1, *s2));
289
#else
290
  int result;
291
 
292
  result = **s1 - **s2;
293
  if (result == 0)
294
    result = strcmp (*s1, *s2);
295
 
296
  return result;
297
#endif
298
}
299
 
300
/* Function equivalents for the macros defined in chartypes.h. */
301
#undef _rl_uppercase_p
302
int
303
_rl_uppercase_p (c)
304
     int c;
305
{
306
  return (isupper (c));
307
}
308
 
309
#undef _rl_lowercase_p
310
int
311
_rl_lowercase_p (c)
312
     int c;
313
{
314
  return (islower (c));
315
}
316
 
317
#undef _rl_pure_alphabetic
318
int
319
_rl_pure_alphabetic (c)
320
     int c;
321
{
322
  return (isupper (c) || islower (c));
323
}
324
 
325
#undef _rl_digit_p
326
int
327
_rl_digit_p (c)
328
     int c;
329
{
330
  return (isdigit (c));
331
}
332
 
333
#undef _rl_to_lower
334
int
335
_rl_to_lower (c)
336
     int c;
337
{
338
  return (isupper (c) ? tolower (c) : c);
339
}
340
 
341
#undef _rl_to_upper
342
int
343
_rl_to_upper (c)
344
     int c;
345
{
346
  return (islower (c) ? toupper (c) : c);
347
}
348
 
349
#undef _rl_digit_value
350
int
351
_rl_digit_value (c)
352
     int c;
353
{
354
  return (isdigit (c) ? c - '0' : c);
355
}
356
 
357
/* Backwards compatibility, now that savestring has been removed from
358
   all `public' readline header files. */
359
#undef _rl_savestring
360
char *
361
_rl_savestring (s)
362
     char *s;
363
{
364
  return ((char *)strcpy (xmalloc (1 + (int)strlen (s)), (s)));
365
}

powered by: WebSVN 2.1.0

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