Annotation of embedaddon/readline/complete.c, revision 1.1.1.1
1.1 misho 1: /* complete.c -- filename completion for readline. */
2:
3: /* Copyright (C) 1987-2012 Free Software Foundation, Inc.
4:
5: This file is part of the GNU Readline Library (Readline), a library
6: for reading lines of text with interactive input and history editing.
7:
8: Readline is free software: you can redistribute it and/or modify
9: it under the terms of the GNU General Public License as published by
10: the Free Software Foundation, either version 3 of the License, or
11: (at your option) any later version.
12:
13: Readline is distributed in the hope that it will be useful,
14: but WITHOUT ANY WARRANTY; without even the implied warranty of
15: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16: GNU General Public License for more details.
17:
18: You should have received a copy of the GNU General Public License
19: along with Readline. If not, see <http://www.gnu.org/licenses/>.
20: */
21:
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: #if defined (HAVE_SYS_FILE_H)
31: # include <sys/file.h>
32: #endif
33:
34: #include <signal.h>
35:
36: #if defined (HAVE_UNISTD_H)
37: # include <unistd.h>
38: #endif /* HAVE_UNISTD_H */
39:
40: #if defined (HAVE_STDLIB_H)
41: # include <stdlib.h>
42: #else
43: # include "ansi_stdlib.h"
44: #endif /* HAVE_STDLIB_H */
45:
46: #include <stdio.h>
47:
48: #include <errno.h>
49: #if !defined (errno)
50: extern int errno;
51: #endif /* !errno */
52:
53: #if defined (HAVE_PWD_H)
54: #include <pwd.h>
55: #endif
56:
57: #include "posixdir.h"
58: #include "posixstat.h"
59:
60: /* System-specific feature definitions and include files. */
61: #include "rldefs.h"
62: #include "rlmbutil.h"
63:
64: /* Some standard library routines. */
65: #include "readline.h"
66: #include "xmalloc.h"
67: #include "rlprivate.h"
68:
69: #if defined (COLOR_SUPPORT)
70: # include "colors.h"
71: #endif
72:
73: #ifdef __STDC__
74: typedef int QSFUNC (const void *, const void *);
75: #else
76: typedef int QSFUNC ();
77: #endif
78:
79: #ifdef HAVE_LSTAT
80: # define LSTAT lstat
81: #else
82: # define LSTAT stat
83: #endif
84:
85: /* Unix version of a hidden file. Could be different on other systems. */
86: #define HIDDEN_FILE(fname) ((fname)[0] == '.')
87:
88: /* Most systems don't declare getpwent in <pwd.h> if _POSIX_SOURCE is
89: defined. */
90: #if defined (HAVE_GETPWENT) && (!defined (HAVE_GETPW_DECLS) || defined (_POSIX_SOURCE))
91: extern struct passwd *getpwent PARAMS((void));
92: #endif /* HAVE_GETPWENT && (!HAVE_GETPW_DECLS || _POSIX_SOURCE) */
93:
94: /* If non-zero, then this is the address of a function to call when
95: completing a word would normally display the list of possible matches.
96: This function is called instead of actually doing the display.
97: It takes three arguments: (char **matches, int num_matches, int max_length)
98: where MATCHES is the array of strings that matched, NUM_MATCHES is the
99: number of strings in that array, and MAX_LENGTH is the length of the
100: longest string in that array. */
101: rl_compdisp_func_t *rl_completion_display_matches_hook = (rl_compdisp_func_t *)NULL;
102:
103: #if defined (VISIBLE_STATS) || defined (COLOR_SUPPORT)
104: # if !defined (X_OK)
105: # define X_OK 1
106: # endif
107: #endif
108:
109: #if defined (VISIBLE_STATS)
110: static int stat_char PARAMS((char *));
111: #endif
112:
113: #if defined (COLOR_SUPPORT)
114: static int colored_stat_start PARAMS((char *));
115: static void colored_stat_end PARAMS((void));
116: #endif
117:
118: static int path_isdir PARAMS((const char *));
119:
120: static char *rl_quote_filename PARAMS((char *, int, char *));
121:
122: static void _rl_complete_sigcleanup PARAMS((int, void *));
123:
124: static void set_completion_defaults PARAMS((int));
125: static int get_y_or_n PARAMS((int));
126: static int _rl_internal_pager PARAMS((int));
127: static char *printable_part PARAMS((char *));
128: static int fnwidth PARAMS((const char *));
129: static int fnprint PARAMS((const char *, int));
130: static int print_filename PARAMS((char *, char *, int));
131:
132: static char **gen_completion_matches PARAMS((char *, int, int, rl_compentry_func_t *, int, int));
133:
134: static char **remove_duplicate_matches PARAMS((char **));
135: static void insert_match PARAMS((char *, int, int, char *));
136: static int append_to_match PARAMS((char *, int, int, int));
137: static void insert_all_matches PARAMS((char **, int, char *));
138: static int complete_fncmp PARAMS((const char *, int, const char *, int));
139: static void display_matches PARAMS((char **));
140: static int compute_lcd_of_matches PARAMS((char **, int, const char *));
141: static int postprocess_matches PARAMS((char ***, int));
142: static int complete_get_screenwidth PARAMS((void));
143:
144: static char *make_quoted_replacement PARAMS((char *, int, char *));
145:
146: /* **************************************************************** */
147: /* */
148: /* Completion matching, from readline's point of view. */
149: /* */
150: /* **************************************************************** */
151:
152: /* Variables known only to the readline library. */
153:
154: /* If non-zero, non-unique completions always show the list of matches. */
155: int _rl_complete_show_all = 0;
156:
157: /* If non-zero, non-unique completions show the list of matches, unless it
158: is not possible to do partial completion and modify the line. */
159: int _rl_complete_show_unmodified = 0;
160:
161: /* If non-zero, completed directory names have a slash appended. */
162: int _rl_complete_mark_directories = 1;
163:
164: /* If non-zero, the symlinked directory completion behavior introduced in
165: readline-4.2a is disabled, and symlinks that point to directories have
166: a slash appended (subject to the value of _rl_complete_mark_directories).
167: This is user-settable via the mark-symlinked-directories variable. */
168: int _rl_complete_mark_symlink_dirs = 0;
169:
170: /* If non-zero, completions are printed horizontally in alphabetical order,
171: like `ls -x'. */
172: int _rl_print_completions_horizontally;
173:
174: /* Non-zero means that case is not significant in filename completion. */
175: #if defined (__MSDOS__) && !defined (__DJGPP__)
176: int _rl_completion_case_fold = 1;
177: #else
178: int _rl_completion_case_fold = 0;
179: #endif
180:
181: /* Non-zero means that `-' and `_' are equivalent when comparing filenames
182: for completion. */
183: int _rl_completion_case_map = 0;
184:
185: /* If zero, don't match hidden files (filenames beginning with a `.' on
186: Unix) when doing filename completion. */
187: int _rl_match_hidden_files = 1;
188:
189: /* Length in characters of a common prefix replaced with an ellipsis (`...')
190: when displaying completion matches. Matches whose printable portion has
191: more than this number of displaying characters in common will have the common
192: display prefix replaced with an ellipsis. */
193: int _rl_completion_prefix_display_length = 0;
194:
195: /* The readline-private number of screen columns to use when displaying
196: matches. If < 0 or > _rl_screenwidth, it is ignored. */
197: int _rl_completion_columns = -1;
198:
199: /* Global variables available to applications using readline. */
200:
201: #if defined (VISIBLE_STATS)
202: /* Non-zero means add an additional character to each filename displayed
203: during listing completion iff rl_filename_completion_desired which helps
204: to indicate the type of file being listed. */
205: int rl_visible_stats = 0;
206: #endif /* VISIBLE_STATS */
207:
208: #if defined (COLOR_SUPPORT)
209: /* Non-zero means to use colors to indicate file type when listing possible
210: completions. The colors used are taken from $LS_COLORS, if set. */
211: int _rl_colored_stats = 0;
212: #endif
213:
214: /* If non-zero, when completing in the middle of a word, don't insert
215: characters from the match that match characters following point in
216: the word. This means, for instance, completing when the cursor is
217: after the `e' in `Makefile' won't result in `Makefilefile'. */
218: int _rl_skip_completed_text = 0;
219:
220: /* If non-zero, menu completion displays the common prefix first in the
221: cycle of possible completions instead of the last. */
222: int _rl_menu_complete_prefix_first = 0;
223:
224: /* If non-zero, then this is the address of a function to call when
225: completing on a directory name. The function is called with
226: the address of a string (the current directory name) as an arg. */
227: rl_icppfunc_t *rl_directory_completion_hook = (rl_icppfunc_t *)NULL;
228:
229: rl_icppfunc_t *rl_directory_rewrite_hook = (rl_icppfunc_t *)NULL;
230:
231: rl_icppfunc_t *rl_filename_stat_hook = (rl_icppfunc_t *)NULL;
232:
233: /* If non-zero, this is the address of a function to call when reading
234: directory entries from the filesystem for completion and comparing
235: them to the partial word to be completed. The function should
236: either return its first argument (if no conversion takes place) or
237: newly-allocated memory. This can, for instance, convert filenames
238: between character sets for comparison against what's typed at the
239: keyboard. The returned value is what is added to the list of
240: matches. The second argument is the length of the filename to be
241: converted. */
242: rl_dequote_func_t *rl_filename_rewrite_hook = (rl_dequote_func_t *)NULL;
243:
244: /* Non-zero means readline completion functions perform tilde expansion. */
245: int rl_complete_with_tilde_expansion = 0;
246:
247: /* Pointer to the generator function for completion_matches ().
248: NULL means to use rl_filename_completion_function (), the default filename
249: completer. */
250: rl_compentry_func_t *rl_completion_entry_function = (rl_compentry_func_t *)NULL;
251:
252: /* Pointer to generator function for rl_menu_complete (). NULL means to use
253: *rl_completion_entry_function (see above). */
254: rl_compentry_func_t *rl_menu_completion_entry_function = (rl_compentry_func_t *)NULL;
255:
256: /* Pointer to alternative function to create matches.
257: Function is called with TEXT, START, and END.
258: START and END are indices in RL_LINE_BUFFER saying what the boundaries
259: of TEXT are.
260: If this function exists and returns NULL then call the value of
261: rl_completion_entry_function to try to match, otherwise use the
262: array of strings returned. */
263: rl_completion_func_t *rl_attempted_completion_function = (rl_completion_func_t *)NULL;
264:
265: /* Non-zero means to suppress normal filename completion after the
266: user-specified completion function has been called. */
267: int rl_attempted_completion_over = 0;
268:
269: /* Set to a character indicating the type of completion being performed
270: by rl_complete_internal, available for use by application completion
271: functions. */
272: int rl_completion_type = 0;
273:
274: /* Up to this many items will be displayed in response to a
275: possible-completions call. After that, we ask the user if
276: she is sure she wants to see them all. A negative value means
277: don't ask. */
278: int rl_completion_query_items = 100;
279:
280: int _rl_page_completions = 1;
281:
282: /* The basic list of characters that signal a break between words for the
283: completer routine. The contents of this variable is what breaks words
284: in the shell, i.e. " \t\n\"\\'`@$><=" */
285: const char *rl_basic_word_break_characters = " \t\n\"\\'`@$><=;|&{("; /* }) */
286:
287: /* List of basic quoting characters. */
288: const char *rl_basic_quote_characters = "\"'";
289:
290: /* The list of characters that signal a break between words for
291: rl_complete_internal. The default list is the contents of
292: rl_basic_word_break_characters. */
293: /*const*/ char *rl_completer_word_break_characters = (/*const*/ char *)NULL;
294:
295: /* Hook function to allow an application to set the completion word
296: break characters before readline breaks up the line. Allows
297: position-dependent word break characters. */
298: rl_cpvfunc_t *rl_completion_word_break_hook = (rl_cpvfunc_t *)NULL;
299:
300: /* List of characters which can be used to quote a substring of the line.
301: Completion occurs on the entire substring, and within the substring
302: rl_completer_word_break_characters are treated as any other character,
303: unless they also appear within this list. */
304: const char *rl_completer_quote_characters = (const char *)NULL;
305:
306: /* List of characters that should be quoted in filenames by the completer. */
307: const char *rl_filename_quote_characters = (const char *)NULL;
308:
309: /* List of characters that are word break characters, but should be left
310: in TEXT when it is passed to the completion function. The shell uses
311: this to help determine what kind of completing to do. */
312: const char *rl_special_prefixes = (const char *)NULL;
313:
314: /* If non-zero, then disallow duplicates in the matches. */
315: int rl_ignore_completion_duplicates = 1;
316:
317: /* Non-zero means that the results of the matches are to be treated
318: as filenames. This is ALWAYS zero on entry, and can only be changed
319: within a completion entry finder function. */
320: int rl_filename_completion_desired = 0;
321:
322: /* Non-zero means that the results of the matches are to be quoted using
323: double quotes (or an application-specific quoting mechanism) if the
324: filename contains any characters in rl_filename_quote_chars. This is
325: ALWAYS non-zero on entry, and can only be changed within a completion
326: entry finder function. */
327: int rl_filename_quoting_desired = 1;
328:
329: /* This function, if defined, is called by the completer when real
330: filename completion is done, after all the matching names have been
331: generated. It is passed a (char**) known as matches in the code below.
332: It consists of a NULL-terminated array of pointers to potential
333: matching strings. The 1st element (matches[0]) is the maximal
334: substring that is common to all matches. This function can re-arrange
335: the list of matches as required, but all elements of the array must be
336: free()'d if they are deleted. The main intent of this function is
337: to implement FIGNORE a la SunOS csh. */
338: rl_compignore_func_t *rl_ignore_some_completions_function = (rl_compignore_func_t *)NULL;
339:
340: /* Set to a function to quote a filename in an application-specific fashion.
341: Called with the text to quote, the type of match found (single or multiple)
342: and a pointer to the quoting character to be used, which the function can
343: reset if desired. */
344: rl_quote_func_t *rl_filename_quoting_function = rl_quote_filename;
345:
346: /* Function to call to remove quoting characters from a filename. Called
347: before completion is attempted, so the embedded quotes do not interfere
348: with matching names in the file system. Readline doesn't do anything
349: with this; it's set only by applications. */
350: rl_dequote_func_t *rl_filename_dequoting_function = (rl_dequote_func_t *)NULL;
351:
352: /* Function to call to decide whether or not a word break character is
353: quoted. If a character is quoted, it does not break words for the
354: completer. */
355: rl_linebuf_func_t *rl_char_is_quoted_p = (rl_linebuf_func_t *)NULL;
356:
357: /* If non-zero, the completion functions don't append anything except a
358: possible closing quote. This is set to 0 by rl_complete_internal and
359: may be changed by an application-specific completion function. */
360: int rl_completion_suppress_append = 0;
361:
362: /* Character appended to completed words when at the end of the line. The
363: default is a space. */
364: int rl_completion_append_character = ' ';
365:
366: /* If non-zero, the completion functions don't append any closing quote.
367: This is set to 0 by rl_complete_internal and may be changed by an
368: application-specific completion function. */
369: int rl_completion_suppress_quote = 0;
370:
371: /* Set to any quote character readline thinks it finds before any application
372: completion function is called. */
373: int rl_completion_quote_character;
374:
375: /* Set to a non-zero value if readline found quoting anywhere in the word to
376: be completed; set before any application completion function is called. */
377: int rl_completion_found_quote;
378:
379: /* If non-zero, a slash will be appended to completed filenames that are
380: symbolic links to directory names, subject to the value of the
381: mark-directories variable (which is user-settable). This exists so
382: that application completion functions can override the user's preference
383: (set via the mark-symlinked-directories variable) if appropriate.
384: It's set to the value of _rl_complete_mark_symlink_dirs in
385: rl_complete_internal before any application-specific completion
386: function is called, so without that function doing anything, the user's
387: preferences are honored. */
388: int rl_completion_mark_symlink_dirs;
389:
390: /* If non-zero, inhibit completion (temporarily). */
391: int rl_inhibit_completion;
392:
393: /* Set to the last key used to invoke one of the completion functions */
394: int rl_completion_invoking_key;
395:
396: /* If non-zero, sort the completion matches. On by default. */
397: int rl_sort_completion_matches = 1;
398:
399: /* Variables local to this file. */
400:
401: /* Local variable states what happened during the last completion attempt. */
402: static int completion_changed_buffer;
403:
404: /* The result of the query to the user about displaying completion matches */
405: static int completion_y_or_n;
406:
407: /*************************************/
408: /* */
409: /* Bindable completion functions */
410: /* */
411: /*************************************/
412:
413: /* Complete the word at or before point. You have supplied the function
414: that does the initial simple matching selection algorithm (see
415: rl_completion_matches ()). The default is to do filename completion. */
416: int
417: rl_complete (ignore, invoking_key)
418: int ignore, invoking_key;
419: {
420: rl_completion_invoking_key = invoking_key;
421:
422: if (rl_inhibit_completion)
423: return (_rl_insert_char (ignore, invoking_key));
424: else if (rl_last_func == rl_complete && !completion_changed_buffer)
425: return (rl_complete_internal ('?'));
426: else if (_rl_complete_show_all)
427: return (rl_complete_internal ('!'));
428: else if (_rl_complete_show_unmodified)
429: return (rl_complete_internal ('@'));
430: else
431: return (rl_complete_internal (TAB));
432: }
433:
434: /* List the possible completions. See description of rl_complete (). */
435: int
436: rl_possible_completions (ignore, invoking_key)
437: int ignore, invoking_key;
438: {
439: rl_completion_invoking_key = invoking_key;
440: return (rl_complete_internal ('?'));
441: }
442:
443: int
444: rl_insert_completions (ignore, invoking_key)
445: int ignore, invoking_key;
446: {
447: rl_completion_invoking_key = invoking_key;
448: return (rl_complete_internal ('*'));
449: }
450:
451: /* Return the correct value to pass to rl_complete_internal performing
452: the same tests as rl_complete. This allows consecutive calls to an
453: application's completion function to list possible completions and for
454: an application-specific completion function to honor the
455: show-all-if-ambiguous readline variable. */
456: int
457: rl_completion_mode (cfunc)
458: rl_command_func_t *cfunc;
459: {
460: if (rl_last_func == cfunc && !completion_changed_buffer)
461: return '?';
462: else if (_rl_complete_show_all)
463: return '!';
464: else if (_rl_complete_show_unmodified)
465: return '@';
466: else
467: return TAB;
468: }
469:
470: /************************************/
471: /* */
472: /* Completion utility functions */
473: /* */
474: /************************************/
475:
476: /* Reset readline state on a signal or other event. */
477: void
478: _rl_reset_completion_state ()
479: {
480: rl_completion_found_quote = 0;
481: rl_completion_quote_character = 0;
482: }
483:
484: static void
485: _rl_complete_sigcleanup (sig, ptr)
486: int sig;
487: void *ptr;
488: {
489: if (sig == SIGINT) /* XXX - for now */
490: _rl_free_match_list ((char **)ptr);
491: }
492:
493: /* Set default values for readline word completion. These are the variables
494: that application completion functions can change or inspect. */
495: static void
496: set_completion_defaults (what_to_do)
497: int what_to_do;
498: {
499: /* Only the completion entry function can change these. */
500: rl_filename_completion_desired = 0;
501: rl_filename_quoting_desired = 1;
502: rl_completion_type = what_to_do;
503: rl_completion_suppress_append = rl_completion_suppress_quote = 0;
504: rl_completion_append_character = ' ';
505:
506: /* The completion entry function may optionally change this. */
507: rl_completion_mark_symlink_dirs = _rl_complete_mark_symlink_dirs;
508: }
509:
510: /* The user must press "y" or "n". Non-zero return means "y" pressed. */
511: static int
512: get_y_or_n (for_pager)
513: int for_pager;
514: {
515: int c;
516:
517: /* For now, disable pager in callback mode, until we later convert to state
518: driven functions. Have to wait until next major version to add new
519: state definition, since it will change value of RL_STATE_DONE. */
520: #if defined (READLINE_CALLBACKS)
521: if (RL_ISSTATE (RL_STATE_CALLBACK))
522: return 1;
523: #endif
524:
525: for (;;)
526: {
527: RL_SETSTATE(RL_STATE_MOREINPUT);
528: c = rl_read_key ();
529: RL_UNSETSTATE(RL_STATE_MOREINPUT);
530:
531: if (c == 'y' || c == 'Y' || c == ' ')
532: return (1);
533: if (c == 'n' || c == 'N' || c == RUBOUT)
534: return (0);
535: if (c == ABORT_CHAR || c < 0)
536: _rl_abort_internal ();
537: if (for_pager && (c == NEWLINE || c == RETURN))
538: return (2);
539: if (for_pager && (c == 'q' || c == 'Q'))
540: return (0);
541: rl_ding ();
542: }
543: }
544:
545: static int
546: _rl_internal_pager (lines)
547: int lines;
548: {
549: int i;
550:
551: fprintf (rl_outstream, "--More--");
552: fflush (rl_outstream);
553: i = get_y_or_n (1);
554: _rl_erase_entire_line ();
555: if (i == 0)
556: return -1;
557: else if (i == 2)
558: return (lines - 1);
559: else
560: return 0;
561: }
562:
563: static int
564: path_isdir (filename)
565: const char *filename;
566: {
567: struct stat finfo;
568:
569: return (stat (filename, &finfo) == 0 && S_ISDIR (finfo.st_mode));
570: }
571:
572: #if defined (VISIBLE_STATS)
573: /* Return the character which best describes FILENAME.
574: `@' for symbolic links
575: `/' for directories
576: `*' for executables
577: `=' for sockets
578: `|' for FIFOs
579: `%' for character special devices
580: `#' for block special devices */
581: static int
582: stat_char (filename)
583: char *filename;
584: {
585: struct stat finfo;
586: int character, r;
587: char *f;
588: const char *fn;
589:
590: /* Short-circuit a //server on cygwin, since that will always behave as
591: a directory. */
592: #if __CYGWIN__
593: if (filename[0] == '/' && filename[1] == '/' && strchr (filename+2, '/') == 0)
594: return '/';
595: #endif
596:
597: f = 0;
598: if (rl_filename_stat_hook)
599: {
600: f = savestring (filename);
601: (*rl_filename_stat_hook) (&f);
602: fn = f;
603: }
604: else
605: fn = filename;
606:
607: #if defined (HAVE_LSTAT) && defined (S_ISLNK)
608: r = lstat (fn, &finfo);
609: #else
610: r = stat (fn, &finfo);
611: #endif
612:
613: if (r == -1)
614: return (0);
615:
616: character = 0;
617: if (S_ISDIR (finfo.st_mode))
618: character = '/';
619: #if defined (S_ISCHR)
620: else if (S_ISCHR (finfo.st_mode))
621: character = '%';
622: #endif /* S_ISCHR */
623: #if defined (S_ISBLK)
624: else if (S_ISBLK (finfo.st_mode))
625: character = '#';
626: #endif /* S_ISBLK */
627: #if defined (S_ISLNK)
628: else if (S_ISLNK (finfo.st_mode))
629: character = '@';
630: #endif /* S_ISLNK */
631: #if defined (S_ISSOCK)
632: else if (S_ISSOCK (finfo.st_mode))
633: character = '=';
634: #endif /* S_ISSOCK */
635: #if defined (S_ISFIFO)
636: else if (S_ISFIFO (finfo.st_mode))
637: character = '|';
638: #endif
639: else if (S_ISREG (finfo.st_mode))
640: {
641: if (access (filename, X_OK) == 0)
642: character = '*';
643: }
644:
645: free (f);
646: return (character);
647: }
648: #endif /* VISIBLE_STATS */
649:
650: #if defined (COLOR_SUPPORT)
651: static int
652: colored_stat_start (filename)
653: char *filename;
654: {
655: _rl_set_normal_color ();
656: return (_rl_print_color_indicator (filename));
657: }
658:
659: static void
660: colored_stat_end ()
661: {
662: _rl_prep_non_filename_text ();
663: _rl_put_indicator (&_rl_color_indicator[C_CLR_TO_EOL]);
664: }
665: #endif
666:
667: /* Return the portion of PATHNAME that should be output when listing
668: possible completions. If we are hacking filename completion, we
669: are only interested in the basename, the portion following the
670: final slash. Otherwise, we return what we were passed. Since
671: printing empty strings is not very informative, if we're doing
672: filename completion, and the basename is the empty string, we look
673: for the previous slash and return the portion following that. If
674: there's no previous slash, we just return what we were passed. */
675: static char *
676: printable_part (pathname)
677: char *pathname;
678: {
679: char *temp, *x;
680:
681: if (rl_filename_completion_desired == 0) /* don't need to do anything */
682: return (pathname);
683:
684: temp = strrchr (pathname, '/');
685: #if defined (__MSDOS__)
686: if (temp == 0 && ISALPHA ((unsigned char)pathname[0]) && pathname[1] == ':')
687: temp = pathname + 1;
688: #endif
689:
690: if (temp == 0 || *temp == '\0')
691: return (pathname);
692: /* If the basename is NULL, we might have a pathname like '/usr/src/'.
693: Look for a previous slash and, if one is found, return the portion
694: following that slash. If there's no previous slash, just return the
695: pathname we were passed. */
696: else if (temp[1] == '\0')
697: {
698: for (x = temp - 1; x > pathname; x--)
699: if (*x == '/')
700: break;
701: return ((*x == '/') ? x + 1 : pathname);
702: }
703: else
704: return ++temp;
705: }
706:
707: /* Compute width of STRING when displayed on screen by print_filename */
708: static int
709: fnwidth (string)
710: const char *string;
711: {
712: int width, pos;
713: #if defined (HANDLE_MULTIBYTE)
714: mbstate_t ps;
715: int left, w;
716: size_t clen;
717: wchar_t wc;
718:
719: left = strlen (string) + 1;
720: memset (&ps, 0, sizeof (mbstate_t));
721: #endif
722:
723: width = pos = 0;
724: while (string[pos])
725: {
726: if (CTRL_CHAR (string[pos]) || string[pos] == RUBOUT)
727: {
728: width += 2;
729: pos++;
730: }
731: else
732: {
733: #if defined (HANDLE_MULTIBYTE)
734: clen = mbrtowc (&wc, string + pos, left - pos, &ps);
735: if (MB_INVALIDCH (clen))
736: {
737: width++;
738: pos++;
739: memset (&ps, 0, sizeof (mbstate_t));
740: }
741: else if (MB_NULLWCH (clen))
742: break;
743: else
744: {
745: pos += clen;
746: w = WCWIDTH (wc);
747: width += (w >= 0) ? w : 1;
748: }
749: #else
750: width++;
751: pos++;
752: #endif
753: }
754: }
755:
756: return width;
757: }
758:
759: #define ELLIPSIS_LEN 3
760:
761: static int
762: fnprint (to_print, prefix_bytes)
763: const char *to_print;
764: int prefix_bytes;
765: {
766: int printed_len, w;
767: const char *s;
768: #if defined (HANDLE_MULTIBYTE)
769: mbstate_t ps;
770: const char *end;
771: size_t tlen;
772: int width;
773: wchar_t wc;
774:
775: end = to_print + strlen (to_print) + 1;
776: memset (&ps, 0, sizeof (mbstate_t));
777: #endif
778:
779: printed_len = 0;
780:
781: /* Don't print only the ellipsis if the common prefix is one of the
782: possible completions */
783: if (to_print[prefix_bytes] == '\0')
784: prefix_bytes = 0;
785:
786: if (prefix_bytes)
787: {
788: char ellipsis;
789:
790: ellipsis = (to_print[prefix_bytes] == '.') ? '_' : '.';
791: for (w = 0; w < ELLIPSIS_LEN; w++)
792: putc (ellipsis, rl_outstream);
793: printed_len = ELLIPSIS_LEN;
794: }
795:
796: s = to_print + prefix_bytes;
797: while (*s)
798: {
799: if (CTRL_CHAR (*s))
800: {
801: putc ('^', rl_outstream);
802: putc (UNCTRL (*s), rl_outstream);
803: printed_len += 2;
804: s++;
805: #if defined (HANDLE_MULTIBYTE)
806: memset (&ps, 0, sizeof (mbstate_t));
807: #endif
808: }
809: else if (*s == RUBOUT)
810: {
811: putc ('^', rl_outstream);
812: putc ('?', rl_outstream);
813: printed_len += 2;
814: s++;
815: #if defined (HANDLE_MULTIBYTE)
816: memset (&ps, 0, sizeof (mbstate_t));
817: #endif
818: }
819: else
820: {
821: #if defined (HANDLE_MULTIBYTE)
822: tlen = mbrtowc (&wc, s, end - s, &ps);
823: if (MB_INVALIDCH (tlen))
824: {
825: tlen = 1;
826: width = 1;
827: memset (&ps, 0, sizeof (mbstate_t));
828: }
829: else if (MB_NULLWCH (tlen))
830: break;
831: else
832: {
833: w = WCWIDTH (wc);
834: width = (w >= 0) ? w : 1;
835: }
836: fwrite (s, 1, tlen, rl_outstream);
837: s += tlen;
838: printed_len += width;
839: #else
840: putc (*s, rl_outstream);
841: s++;
842: printed_len++;
843: #endif
844: }
845: }
846:
847: return printed_len;
848: }
849:
850: /* Output TO_PRINT to rl_outstream. If VISIBLE_STATS is defined and we
851: are using it, check for and output a single character for `special'
852: filenames. Return the number of characters we output. */
853:
854: static int
855: print_filename (to_print, full_pathname, prefix_bytes)
856: char *to_print, *full_pathname;
857: int prefix_bytes;
858: {
859: int printed_len, extension_char, slen, tlen;
860: char *s, c, *new_full_pathname, *dn;
861:
862: extension_char = 0;
863: #if defined (COLOR_SUPPORT)
864: /* Defer printing if we want to prefix with a color indicator */
865: if (_rl_colored_stats == 0 || rl_filename_completion_desired == 0)
866: #endif
867: printed_len = fnprint (to_print, prefix_bytes);
868:
869: if (rl_filename_completion_desired && (
870: #if defined (VISIBLE_STATS)
871: rl_visible_stats ||
872: #endif
873: #if defined (COLOR_SUPPORT)
874: _rl_colored_stats ||
875: #endif
876: _rl_complete_mark_directories))
877: {
878: /* If to_print != full_pathname, to_print is the basename of the
879: path passed. In this case, we try to expand the directory
880: name before checking for the stat character. */
881: if (to_print != full_pathname)
882: {
883: /* Terminate the directory name. */
884: c = to_print[-1];
885: to_print[-1] = '\0';
886:
887: /* If setting the last slash in full_pathname to a NUL results in
888: full_pathname being the empty string, we are trying to complete
889: files in the root directory. If we pass a null string to the
890: bash directory completion hook, for example, it will expand it
891: to the current directory. We just want the `/'. */
892: if (full_pathname == 0 || *full_pathname == 0)
893: dn = "/";
894: else if (full_pathname[0] != '/')
895: dn = full_pathname;
896: else if (full_pathname[1] == 0)
897: dn = "//"; /* restore trailing slash to `//' */
898: else if (full_pathname[1] == '/' && full_pathname[2] == 0)
899: dn = "/"; /* don't turn /// into // */
900: else
901: dn = full_pathname;
902: s = tilde_expand (dn);
903: if (rl_directory_completion_hook)
904: (*rl_directory_completion_hook) (&s);
905:
906: slen = strlen (s);
907: tlen = strlen (to_print);
908: new_full_pathname = (char *)xmalloc (slen + tlen + 2);
909: strcpy (new_full_pathname, s);
910: if (s[slen - 1] == '/')
911: slen--;
912: else
913: new_full_pathname[slen] = '/';
914: new_full_pathname[slen] = '/';
915: strcpy (new_full_pathname + slen + 1, to_print);
916:
917: #if defined (VISIBLE_STATS)
918: if (rl_visible_stats)
919: extension_char = stat_char (new_full_pathname);
920: else
921: #endif
922: if (_rl_complete_mark_directories)
923: {
924: dn = 0;
925: if (rl_directory_completion_hook == 0 && rl_filename_stat_hook)
926: {
927: dn = savestring (new_full_pathname);
928: (*rl_filename_stat_hook) (&dn);
929: free (new_full_pathname);
930: new_full_pathname = dn;
931: }
932: if (path_isdir (new_full_pathname))
933: extension_char = '/';
934: }
935:
936: #if defined (COLOR_SUPPORT)
937: if (_rl_colored_stats)
938: {
939: colored_stat_start (new_full_pathname);
940: printed_len = fnprint (to_print, prefix_bytes);
941: colored_stat_end ();
942: }
943: #endif
944:
945: xfree (new_full_pathname);
946: to_print[-1] = c;
947: }
948: else
949: {
950: s = tilde_expand (full_pathname);
951: #if defined (VISIBLE_STATS)
952: if (rl_visible_stats)
953: extension_char = stat_char (s);
954: else
955: #endif
956: if (_rl_complete_mark_directories && path_isdir (s))
957: extension_char = '/';
958:
959: #if defined (COLOR_SUPPORT)
960: if (_rl_colored_stats)
961: {
962: colored_stat_start (s);
963: printed_len = fnprint (to_print, prefix_bytes);
964: colored_stat_end ();
965: }
966: #endif
967:
968: }
969:
970: xfree (s);
971: if (extension_char)
972: {
973: putc (extension_char, rl_outstream);
974: printed_len++;
975: }
976: }
977:
978: return printed_len;
979: }
980:
981: static char *
982: rl_quote_filename (s, rtype, qcp)
983: char *s;
984: int rtype;
985: char *qcp;
986: {
987: char *r;
988:
989: r = (char *)xmalloc (strlen (s) + 2);
990: *r = *rl_completer_quote_characters;
991: strcpy (r + 1, s);
992: if (qcp)
993: *qcp = *rl_completer_quote_characters;
994: return r;
995: }
996:
997: /* Find the bounds of the current word for completion purposes, and leave
998: rl_point set to the end of the word. This function skips quoted
999: substrings (characters between matched pairs of characters in
1000: rl_completer_quote_characters). First we try to find an unclosed
1001: quoted substring on which to do matching. If one is not found, we use
1002: the word break characters to find the boundaries of the current word.
1003: We call an application-specific function to decide whether or not a
1004: particular word break character is quoted; if that function returns a
1005: non-zero result, the character does not break a word. This function
1006: returns the opening quote character if we found an unclosed quoted
1007: substring, '\0' otherwise. FP, if non-null, is set to a value saying
1008: which (shell-like) quote characters we found (single quote, double
1009: quote, or backslash) anywhere in the string. DP, if non-null, is set to
1010: the value of the delimiter character that caused a word break. */
1011:
1012: char
1013: _rl_find_completion_word (fp, dp)
1014: int *fp, *dp;
1015: {
1016: int scan, end, found_quote, delimiter, pass_next, isbrk;
1017: char quote_char, *brkchars;
1018:
1019: end = rl_point;
1020: found_quote = delimiter = 0;
1021: quote_char = '\0';
1022:
1023: brkchars = 0;
1024: if (rl_completion_word_break_hook)
1025: brkchars = (*rl_completion_word_break_hook) ();
1026: if (brkchars == 0)
1027: brkchars = rl_completer_word_break_characters;
1028:
1029: if (rl_completer_quote_characters)
1030: {
1031: /* We have a list of characters which can be used in pairs to
1032: quote substrings for the completer. Try to find the start
1033: of an unclosed quoted substring. */
1034: /* FOUND_QUOTE is set so we know what kind of quotes we found. */
1035: for (scan = pass_next = 0; scan < end; scan = MB_NEXTCHAR (rl_line_buffer, scan, 1, MB_FIND_ANY))
1036: {
1037: if (pass_next)
1038: {
1039: pass_next = 0;
1040: continue;
1041: }
1042:
1043: /* Shell-like semantics for single quotes -- don't allow backslash
1044: to quote anything in single quotes, especially not the closing
1045: quote. If you don't like this, take out the check on the value
1046: of quote_char. */
1047: if (quote_char != '\'' && rl_line_buffer[scan] == '\\')
1048: {
1049: pass_next = 1;
1050: found_quote |= RL_QF_BACKSLASH;
1051: continue;
1052: }
1053:
1054: if (quote_char != '\0')
1055: {
1056: /* Ignore everything until the matching close quote char. */
1057: if (rl_line_buffer[scan] == quote_char)
1058: {
1059: /* Found matching close. Abandon this substring. */
1060: quote_char = '\0';
1061: rl_point = end;
1062: }
1063: }
1064: else if (strchr (rl_completer_quote_characters, rl_line_buffer[scan]))
1065: {
1066: /* Found start of a quoted substring. */
1067: quote_char = rl_line_buffer[scan];
1068: rl_point = scan + 1;
1069: /* Shell-like quoting conventions. */
1070: if (quote_char == '\'')
1071: found_quote |= RL_QF_SINGLE_QUOTE;
1072: else if (quote_char == '"')
1073: found_quote |= RL_QF_DOUBLE_QUOTE;
1074: else
1075: found_quote |= RL_QF_OTHER_QUOTE;
1076: }
1077: }
1078: }
1079:
1080: if (rl_point == end && quote_char == '\0')
1081: {
1082: /* We didn't find an unclosed quoted substring upon which to do
1083: completion, so use the word break characters to find the
1084: substring on which to complete. */
1085: while (rl_point = MB_PREVCHAR (rl_line_buffer, rl_point, MB_FIND_ANY))
1086: {
1087: scan = rl_line_buffer[rl_point];
1088:
1089: if (strchr (brkchars, scan) == 0)
1090: continue;
1091:
1092: /* Call the application-specific function to tell us whether
1093: this word break character is quoted and should be skipped. */
1094: if (rl_char_is_quoted_p && found_quote &&
1095: (*rl_char_is_quoted_p) (rl_line_buffer, rl_point))
1096: continue;
1097:
1098: /* Convoluted code, but it avoids an n^2 algorithm with calls
1099: to char_is_quoted. */
1100: break;
1101: }
1102: }
1103:
1104: /* If we are at an unquoted word break, then advance past it. */
1105: scan = rl_line_buffer[rl_point];
1106:
1107: /* If there is an application-specific function to say whether or not
1108: a character is quoted and we found a quote character, let that
1109: function decide whether or not a character is a word break, even
1110: if it is found in rl_completer_word_break_characters. Don't bother
1111: if we're at the end of the line, though. */
1112: if (scan)
1113: {
1114: if (rl_char_is_quoted_p)
1115: isbrk = (found_quote == 0 ||
1116: (*rl_char_is_quoted_p) (rl_line_buffer, rl_point) == 0) &&
1117: strchr (brkchars, scan) != 0;
1118: else
1119: isbrk = strchr (brkchars, scan) != 0;
1120:
1121: if (isbrk)
1122: {
1123: /* If the character that caused the word break was a quoting
1124: character, then remember it as the delimiter. */
1125: if (rl_basic_quote_characters &&
1126: strchr (rl_basic_quote_characters, scan) &&
1127: (end - rl_point) > 1)
1128: delimiter = scan;
1129:
1130: /* If the character isn't needed to determine something special
1131: about what kind of completion to perform, then advance past it. */
1132: if (rl_special_prefixes == 0 || strchr (rl_special_prefixes, scan) == 0)
1133: rl_point++;
1134: }
1135: }
1136:
1137: if (fp)
1138: *fp = found_quote;
1139: if (dp)
1140: *dp = delimiter;
1141:
1142: return (quote_char);
1143: }
1144:
1145: static char **
1146: gen_completion_matches (text, start, end, our_func, found_quote, quote_char)
1147: char *text;
1148: int start, end;
1149: rl_compentry_func_t *our_func;
1150: int found_quote, quote_char;
1151: {
1152: char **matches;
1153:
1154: rl_completion_found_quote = found_quote;
1155: rl_completion_quote_character = quote_char;
1156:
1157: /* If the user wants to TRY to complete, but then wants to give
1158: up and use the default completion function, they set the
1159: variable rl_attempted_completion_function. */
1160: if (rl_attempted_completion_function)
1161: {
1162: matches = (*rl_attempted_completion_function) (text, start, end);
1163: if (RL_SIG_RECEIVED())
1164: {
1165: _rl_free_match_list (matches);
1166: matches = 0;
1167: RL_CHECK_SIGNALS ();
1168: }
1169:
1170: if (matches || rl_attempted_completion_over)
1171: {
1172: rl_attempted_completion_over = 0;
1173: return (matches);
1174: }
1175: }
1176:
1177: /* XXX -- filename dequoting moved into rl_filename_completion_function */
1178:
1179: /* rl_completion_matches will check for signals as well to avoid a long
1180: delay while reading a directory. */
1181: matches = rl_completion_matches (text, our_func);
1182: if (RL_SIG_RECEIVED())
1183: {
1184: _rl_free_match_list (matches);
1185: matches = 0;
1186: RL_CHECK_SIGNALS ();
1187: }
1188: return matches;
1189: }
1190:
1191: /* Filter out duplicates in MATCHES. This frees up the strings in
1192: MATCHES. */
1193: static char **
1194: remove_duplicate_matches (matches)
1195: char **matches;
1196: {
1197: char *lowest_common;
1198: int i, j, newlen;
1199: char dead_slot;
1200: char **temp_array;
1201:
1202: /* Sort the items. */
1203: for (i = 0; matches[i]; i++)
1204: ;
1205:
1206: /* Sort the array without matches[0], since we need it to
1207: stay in place no matter what. */
1208: if (i && rl_sort_completion_matches)
1209: qsort (matches+1, i-1, sizeof (char *), (QSFUNC *)_rl_qsort_string_compare);
1210:
1211: /* Remember the lowest common denominator for it may be unique. */
1212: lowest_common = savestring (matches[0]);
1213:
1214: for (i = newlen = 0; matches[i + 1]; i++)
1215: {
1216: if (strcmp (matches[i], matches[i + 1]) == 0)
1217: {
1218: xfree (matches[i]);
1219: matches[i] = (char *)&dead_slot;
1220: }
1221: else
1222: newlen++;
1223: }
1224:
1225: /* We have marked all the dead slots with (char *)&dead_slot.
1226: Copy all the non-dead entries into a new array. */
1227: temp_array = (char **)xmalloc ((3 + newlen) * sizeof (char *));
1228: for (i = j = 1; matches[i]; i++)
1229: {
1230: if (matches[i] != (char *)&dead_slot)
1231: temp_array[j++] = matches[i];
1232: }
1233: temp_array[j] = (char *)NULL;
1234:
1235: if (matches[0] != (char *)&dead_slot)
1236: xfree (matches[0]);
1237:
1238: /* Place the lowest common denominator back in [0]. */
1239: temp_array[0] = lowest_common;
1240:
1241: /* If there is one string left, and it is identical to the
1242: lowest common denominator, then the LCD is the string to
1243: insert. */
1244: if (j == 2 && strcmp (temp_array[0], temp_array[1]) == 0)
1245: {
1246: xfree (temp_array[1]);
1247: temp_array[1] = (char *)NULL;
1248: }
1249: return (temp_array);
1250: }
1251:
1252: /* Find the common prefix of the list of matches, and put it into
1253: matches[0]. */
1254: static int
1255: compute_lcd_of_matches (match_list, matches, text)
1256: char **match_list;
1257: int matches;
1258: const char *text;
1259: {
1260: register int i, c1, c2, si;
1261: int low; /* Count of max-matched characters. */
1262: int lx;
1263: char *dtext; /* dequoted TEXT, if needed */
1264: #if defined (HANDLE_MULTIBYTE)
1265: int v;
1266: size_t v1, v2;
1267: mbstate_t ps1, ps2;
1268: wchar_t wc1, wc2;
1269: #endif
1270:
1271: /* If only one match, just use that. Otherwise, compare each
1272: member of the list with the next, finding out where they
1273: stop matching. */
1274: if (matches == 1)
1275: {
1276: match_list[0] = match_list[1];
1277: match_list[1] = (char *)NULL;
1278: return 1;
1279: }
1280:
1281: for (i = 1, low = 100000; i < matches; i++)
1282: {
1283: #if defined (HANDLE_MULTIBYTE)
1284: if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1285: {
1286: memset (&ps1, 0, sizeof (mbstate_t));
1287: memset (&ps2, 0, sizeof (mbstate_t));
1288: }
1289: #endif
1290: if (_rl_completion_case_fold)
1291: {
1292: for (si = 0;
1293: (c1 = _rl_to_lower(match_list[i][si])) &&
1294: (c2 = _rl_to_lower(match_list[i + 1][si]));
1295: si++)
1296: #if defined (HANDLE_MULTIBYTE)
1297: if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1298: {
1299: v1 = mbrtowc(&wc1, match_list[i]+si, strlen (match_list[i]+si), &ps1);
1300: v2 = mbrtowc (&wc2, match_list[i+1]+si, strlen (match_list[i+1]+si), &ps2);
1301: if (MB_INVALIDCH (v1) || MB_INVALIDCH (v2))
1302: {
1303: if (c1 != c2) /* do byte comparison */
1304: break;
1305: continue;
1306: }
1307: wc1 = towlower (wc1);
1308: wc2 = towlower (wc2);
1309: if (wc1 != wc2)
1310: break;
1311: else if (v1 > 1)
1312: si += v1 - 1;
1313: }
1314: else
1315: #endif
1316: if (c1 != c2)
1317: break;
1318: }
1319: else
1320: {
1321: for (si = 0;
1322: (c1 = match_list[i][si]) &&
1323: (c2 = match_list[i + 1][si]);
1324: si++)
1325: #if defined (HANDLE_MULTIBYTE)
1326: if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
1327: {
1328: mbstate_t ps_back;
1329: ps_back = ps1;
1330: if (!_rl_compare_chars (match_list[i], si, &ps1, match_list[i+1], si, &ps2))
1331: break;
1332: else if ((v = _rl_get_char_len (&match_list[i][si], &ps_back)) > 1)
1333: si += v - 1;
1334: }
1335: else
1336: #endif
1337: if (c1 != c2)
1338: break;
1339: }
1340:
1341: if (low > si)
1342: low = si;
1343: }
1344:
1345: /* If there were multiple matches, but none matched up to even the
1346: first character, and the user typed something, use that as the
1347: value of matches[0]. */
1348: if (low == 0 && text && *text)
1349: {
1350: match_list[0] = (char *)xmalloc (strlen (text) + 1);
1351: strcpy (match_list[0], text);
1352: }
1353: else
1354: {
1355: match_list[0] = (char *)xmalloc (low + 1);
1356:
1357: /* XXX - this might need changes in the presence of multibyte chars */
1358:
1359: /* If we are ignoring case, try to preserve the case of the string
1360: the user typed in the face of multiple matches differing in case. */
1361: if (_rl_completion_case_fold)
1362: {
1363: /* We're making an assumption here:
1364: IF we're completing filenames AND
1365: the application has defined a filename dequoting function AND
1366: we found a quote character AND
1367: the application has requested filename quoting
1368: THEN
1369: we assume that TEXT was dequoted before checking against
1370: the file system and needs to be dequoted here before we
1371: check against the list of matches
1372: FI */
1373: dtext = (char *)NULL;
1374: if (rl_filename_completion_desired &&
1375: rl_filename_dequoting_function &&
1376: rl_completion_found_quote &&
1377: rl_filename_quoting_desired)
1378: {
1379: dtext = (*rl_filename_dequoting_function) ((char *)text, rl_completion_quote_character);
1380: text = dtext;
1381: }
1382:
1383: /* sort the list to get consistent answers. */
1384: qsort (match_list+1, matches, sizeof(char *), (QSFUNC *)_rl_qsort_string_compare);
1385:
1386: si = strlen (text);
1387: lx = (si <= low) ? si : low; /* check shorter of text and matches */
1388: /* Try to preserve the case of what the user typed in the presence of
1389: multiple matches: check each match for something that matches
1390: what the user typed taking case into account; use it up to common
1391: length of matches if one is found. If not, just use first match. */
1392: for (i = 1; i <= matches; i++)
1393: if (strncmp (match_list[i], text, lx) == 0)
1394: {
1395: strncpy (match_list[0], match_list[i], low);
1396: break;
1397: }
1398: /* no casematch, use first entry */
1399: if (i > matches)
1400: strncpy (match_list[0], match_list[1], low);
1401:
1402: FREE (dtext);
1403: }
1404: else
1405: strncpy (match_list[0], match_list[1], low);
1406:
1407: match_list[0][low] = '\0';
1408: }
1409:
1410: return matches;
1411: }
1412:
1413: static int
1414: postprocess_matches (matchesp, matching_filenames)
1415: char ***matchesp;
1416: int matching_filenames;
1417: {
1418: char *t, **matches, **temp_matches;
1419: int nmatch, i;
1420:
1421: matches = *matchesp;
1422:
1423: if (matches == 0)
1424: return 0;
1425:
1426: /* It seems to me that in all the cases we handle we would like
1427: to ignore duplicate possibilities. Scan for the text to
1428: insert being identical to the other completions. */
1429: if (rl_ignore_completion_duplicates)
1430: {
1431: temp_matches = remove_duplicate_matches (matches);
1432: xfree (matches);
1433: matches = temp_matches;
1434: }
1435:
1436: /* If we are matching filenames, then here is our chance to
1437: do clever processing by re-examining the list. Call the
1438: ignore function with the array as a parameter. It can
1439: munge the array, deleting matches as it desires. */
1440: if (rl_ignore_some_completions_function && matching_filenames)
1441: {
1442: for (nmatch = 1; matches[nmatch]; nmatch++)
1443: ;
1444: (void)(*rl_ignore_some_completions_function) (matches);
1445: if (matches == 0 || matches[0] == 0)
1446: {
1447: FREE (matches);
1448: *matchesp = (char **)0;
1449: return 0;
1450: }
1451: else
1452: {
1453: /* If we removed some matches, recompute the common prefix. */
1454: for (i = 1; matches[i]; i++)
1455: ;
1456: if (i > 1 && i < nmatch)
1457: {
1458: t = matches[0];
1459: compute_lcd_of_matches (matches, i - 1, t);
1460: FREE (t);
1461: }
1462: }
1463: }
1464:
1465: *matchesp = matches;
1466: return (1);
1467: }
1468:
1469: static int
1470: complete_get_screenwidth ()
1471: {
1472: int cols;
1473: char *envcols;
1474:
1475: cols = _rl_completion_columns;
1476: if (cols >= 0 && cols <= _rl_screenwidth)
1477: return cols;
1478: envcols = getenv ("COLUMNS");
1479: if (envcols && *envcols)
1480: cols = atoi (envcols);
1481: if (cols >= 0 && cols <= _rl_screenwidth)
1482: return cols;
1483: return _rl_screenwidth;
1484: }
1485:
1486: /* A convenience function for displaying a list of strings in
1487: columnar format on readline's output stream. MATCHES is the list
1488: of strings, in argv format, LEN is the number of strings in MATCHES,
1489: and MAX is the length of the longest string in MATCHES. */
1490: void
1491: rl_display_match_list (matches, len, max)
1492: char **matches;
1493: int len, max;
1494: {
1495: int count, limit, printed_len, lines, cols;
1496: int i, j, k, l, common_length, sind;
1497: char *temp, *t;
1498:
1499: /* Find the length of the prefix common to all items: length as displayed
1500: characters (common_length) and as a byte index into the matches (sind) */
1501: common_length = sind = 0;
1502: if (_rl_completion_prefix_display_length > 0)
1503: {
1504: t = printable_part (matches[0]);
1505: temp = strrchr (t, '/');
1506: common_length = temp ? fnwidth (temp) : fnwidth (t);
1507: sind = temp ? strlen (temp) : strlen (t);
1508:
1509: if (common_length > _rl_completion_prefix_display_length && common_length > ELLIPSIS_LEN)
1510: max -= common_length - ELLIPSIS_LEN;
1511: else
1512: common_length = sind = 0;
1513: }
1514:
1515: /* How many items of MAX length can we fit in the screen window? */
1516: cols = complete_get_screenwidth ();
1517: max += 2;
1518: limit = cols / max;
1519: if (limit != 1 && (limit * max == cols))
1520: limit--;
1521:
1522: /* If cols == 0, limit will end up -1 */
1523: if (cols < _rl_screenwidth && limit < 0)
1524: limit = 1;
1525:
1526: /* Avoid a possible floating exception. If max > cols,
1527: limit will be 0 and a divide-by-zero fault will result. */
1528: if (limit == 0)
1529: limit = 1;
1530:
1531: /* How many iterations of the printing loop? */
1532: count = (len + (limit - 1)) / limit;
1533:
1534: /* Watch out for special case. If LEN is less than LIMIT, then
1535: just do the inner printing loop.
1536: 0 < len <= limit implies count = 1. */
1537:
1538: /* Sort the items if they are not already sorted. */
1539: if (rl_ignore_completion_duplicates == 0 && rl_sort_completion_matches)
1540: qsort (matches + 1, len, sizeof (char *), (QSFUNC *)_rl_qsort_string_compare);
1541:
1542: rl_crlf ();
1543:
1544: lines = 0;
1545: if (_rl_print_completions_horizontally == 0)
1546: {
1547: /* Print the sorted items, up-and-down alphabetically, like ls. */
1548: for (i = 1; i <= count; i++)
1549: {
1550: for (j = 0, l = i; j < limit; j++)
1551: {
1552: if (l > len || matches[l] == 0)
1553: break;
1554: else
1555: {
1556: temp = printable_part (matches[l]);
1557: printed_len = print_filename (temp, matches[l], sind);
1558:
1559: if (j + 1 < limit)
1560: for (k = 0; k < max - printed_len; k++)
1561: putc (' ', rl_outstream);
1562: }
1563: l += count;
1564: }
1565: rl_crlf ();
1566: lines++;
1567: if (_rl_page_completions && lines >= (_rl_screenheight - 1) && i < count)
1568: {
1569: lines = _rl_internal_pager (lines);
1570: if (lines < 0)
1571: return;
1572: }
1573: }
1574: }
1575: else
1576: {
1577: /* Print the sorted items, across alphabetically, like ls -x. */
1578: for (i = 1; matches[i]; i++)
1579: {
1580: temp = printable_part (matches[i]);
1581: printed_len = print_filename (temp, matches[i], sind);
1582: /* Have we reached the end of this line? */
1583: if (matches[i+1])
1584: {
1585: if (limit == 1 || (i && (limit > 1) && (i % limit) == 0))
1586: {
1587: rl_crlf ();
1588: lines++;
1589: if (_rl_page_completions && lines >= _rl_screenheight - 1)
1590: {
1591: lines = _rl_internal_pager (lines);
1592: if (lines < 0)
1593: return;
1594: }
1595: }
1596: else
1597: for (k = 0; k < max - printed_len; k++)
1598: putc (' ', rl_outstream);
1599: }
1600: }
1601: rl_crlf ();
1602: }
1603: }
1604:
1605: /* Display MATCHES, a list of matching filenames in argv format. This
1606: handles the simple case -- a single match -- first. If there is more
1607: than one match, we compute the number of strings in the list and the
1608: length of the longest string, which will be needed by the display
1609: function. If the application wants to handle displaying the list of
1610: matches itself, it sets RL_COMPLETION_DISPLAY_MATCHES_HOOK to the
1611: address of a function, and we just call it. If we're handling the
1612: display ourselves, we just call rl_display_match_list. We also check
1613: that the list of matches doesn't exceed the user-settable threshold,
1614: and ask the user if he wants to see the list if there are more matches
1615: than RL_COMPLETION_QUERY_ITEMS. */
1616: static void
1617: display_matches (matches)
1618: char **matches;
1619: {
1620: int len, max, i;
1621: char *temp;
1622:
1623: /* Move to the last visible line of a possibly-multiple-line command. */
1624: _rl_move_vert (_rl_vis_botlin);
1625:
1626: /* Handle simple case first. What if there is only one answer? */
1627: if (matches[1] == 0)
1628: {
1629: temp = printable_part (matches[0]);
1630: rl_crlf ();
1631: print_filename (temp, matches[0], 0);
1632: rl_crlf ();
1633:
1634: rl_forced_update_display ();
1635: rl_display_fixed = 1;
1636:
1637: return;
1638: }
1639:
1640: /* There is more than one answer. Find out how many there are,
1641: and find the maximum printed length of a single entry. */
1642: for (max = 0, i = 1; matches[i]; i++)
1643: {
1644: temp = printable_part (matches[i]);
1645: len = fnwidth (temp);
1646:
1647: if (len > max)
1648: max = len;
1649: }
1650:
1651: len = i - 1;
1652:
1653: /* If the caller has defined a display hook, then call that now. */
1654: if (rl_completion_display_matches_hook)
1655: {
1656: (*rl_completion_display_matches_hook) (matches, len, max);
1657: return;
1658: }
1659:
1660: /* If there are many items, then ask the user if she really wants to
1661: see them all. */
1662: if (rl_completion_query_items > 0 && len >= rl_completion_query_items)
1663: {
1664: rl_crlf ();
1665: fprintf (rl_outstream, "Display all %d possibilities? (y or n)", len);
1666: fflush (rl_outstream);
1667: if ((completion_y_or_n = get_y_or_n (0)) == 0)
1668: {
1669: rl_crlf ();
1670:
1671: rl_forced_update_display ();
1672: rl_display_fixed = 1;
1673:
1674: return;
1675: }
1676: }
1677:
1678: rl_display_match_list (matches, len, max);
1679:
1680: rl_forced_update_display ();
1681: rl_display_fixed = 1;
1682: }
1683:
1684: static char *
1685: make_quoted_replacement (match, mtype, qc)
1686: char *match;
1687: int mtype;
1688: char *qc; /* Pointer to quoting character, if any */
1689: {
1690: int should_quote, do_replace;
1691: char *replacement;
1692:
1693: /* If we are doing completion on quoted substrings, and any matches
1694: contain any of the completer_word_break_characters, then auto-
1695: matically prepend the substring with a quote character (just pick
1696: the first one from the list of such) if it does not already begin
1697: with a quote string. FIXME: Need to remove any such automatically
1698: inserted quote character when it no longer is necessary, such as
1699: if we change the string we are completing on and the new set of
1700: matches don't require a quoted substring. */
1701: replacement = match;
1702:
1703: should_quote = match && rl_completer_quote_characters &&
1704: rl_filename_completion_desired &&
1705: rl_filename_quoting_desired;
1706:
1707: if (should_quote)
1708: should_quote = should_quote && (!qc || !*qc ||
1709: (rl_completer_quote_characters && strchr (rl_completer_quote_characters, *qc)));
1710:
1711: if (should_quote)
1712: {
1713: /* If there is a single match, see if we need to quote it.
1714: This also checks whether the common prefix of several
1715: matches needs to be quoted. */
1716: should_quote = rl_filename_quote_characters
1717: ? (_rl_strpbrk (match, rl_filename_quote_characters) != 0)
1718: : 0;
1719:
1720: do_replace = should_quote ? mtype : NO_MATCH;
1721: /* Quote the replacement, since we found an embedded
1722: word break character in a potential match. */
1723: if (do_replace != NO_MATCH && rl_filename_quoting_function)
1724: replacement = (*rl_filename_quoting_function) (match, do_replace, qc);
1725: }
1726: return (replacement);
1727: }
1728:
1729: static void
1730: insert_match (match, start, mtype, qc)
1731: char *match;
1732: int start, mtype;
1733: char *qc;
1734: {
1735: char *replacement, *r;
1736: char oqc;
1737: int end, rlen;
1738:
1739: oqc = qc ? *qc : '\0';
1740: replacement = make_quoted_replacement (match, mtype, qc);
1741:
1742: /* Now insert the match. */
1743: if (replacement)
1744: {
1745: rlen = strlen (replacement);
1746: /* Don't double an opening quote character. */
1747: if (qc && *qc && start && rl_line_buffer[start - 1] == *qc &&
1748: replacement[0] == *qc)
1749: start--;
1750: /* If make_quoted_replacement changed the quoting character, remove
1751: the opening quote and insert the (fully-quoted) replacement. */
1752: else if (qc && (*qc != oqc) && start && rl_line_buffer[start - 1] == oqc &&
1753: replacement[0] != oqc)
1754: start--;
1755: end = rl_point - 1;
1756: /* Don't double a closing quote character */
1757: if (qc && *qc && end && rl_line_buffer[rl_point] == *qc && replacement[rlen - 1] == *qc)
1758: end++;
1759: if (_rl_skip_completed_text)
1760: {
1761: r = replacement;
1762: while (start < rl_end && *r && rl_line_buffer[start] == *r)
1763: {
1764: start++;
1765: r++;
1766: }
1767: if (start <= end || *r)
1768: _rl_replace_text (r, start, end);
1769: rl_point = start + strlen (r);
1770: }
1771: else
1772: _rl_replace_text (replacement, start, end);
1773: if (replacement != match)
1774: xfree (replacement);
1775: }
1776: }
1777:
1778: /* Append any necessary closing quote and a separator character to the
1779: just-inserted match. If the user has specified that directories
1780: should be marked by a trailing `/', append one of those instead. The
1781: default trailing character is a space. Returns the number of characters
1782: appended. If NONTRIVIAL_MATCH is set, we test for a symlink (if the OS
1783: has them) and don't add a suffix for a symlink to a directory. A
1784: nontrivial match is one that actually adds to the word being completed.
1785: The variable rl_completion_mark_symlink_dirs controls this behavior
1786: (it's initially set to the what the user has chosen, indicated by the
1787: value of _rl_complete_mark_symlink_dirs, but may be modified by an
1788: application's completion function). */
1789: static int
1790: append_to_match (text, delimiter, quote_char, nontrivial_match)
1791: char *text;
1792: int delimiter, quote_char, nontrivial_match;
1793: {
1794: char temp_string[4], *filename, *fn;
1795: int temp_string_index, s;
1796: struct stat finfo;
1797:
1798: temp_string_index = 0;
1799: if (quote_char && rl_point && rl_completion_suppress_quote == 0 &&
1800: rl_line_buffer[rl_point - 1] != quote_char)
1801: temp_string[temp_string_index++] = quote_char;
1802:
1803: if (delimiter)
1804: temp_string[temp_string_index++] = delimiter;
1805: else if (rl_completion_suppress_append == 0 && rl_completion_append_character)
1806: temp_string[temp_string_index++] = rl_completion_append_character;
1807:
1808: temp_string[temp_string_index++] = '\0';
1809:
1810: if (rl_filename_completion_desired)
1811: {
1812: filename = tilde_expand (text);
1813: if (rl_filename_stat_hook)
1814: {
1815: fn = savestring (filename);
1816: (*rl_filename_stat_hook) (&fn);
1817: xfree (filename);
1818: filename = fn;
1819: }
1820: s = (nontrivial_match && rl_completion_mark_symlink_dirs == 0)
1821: ? LSTAT (filename, &finfo)
1822: : stat (filename, &finfo);
1823: if (s == 0 && S_ISDIR (finfo.st_mode))
1824: {
1825: if (_rl_complete_mark_directories /* && rl_completion_suppress_append == 0 */)
1826: {
1827: /* This is clumsy. Avoid putting in a double slash if point
1828: is at the end of the line and the previous character is a
1829: slash. */
1830: if (rl_point && rl_line_buffer[rl_point] == '\0' && rl_line_buffer[rl_point - 1] == '/')
1831: ;
1832: else if (rl_line_buffer[rl_point] != '/')
1833: rl_insert_text ("/");
1834: }
1835: }
1836: #ifdef S_ISLNK
1837: /* Don't add anything if the filename is a symlink and resolves to a
1838: directory. */
1839: else if (s == 0 && S_ISLNK (finfo.st_mode) && path_isdir (filename))
1840: ;
1841: #endif
1842: else
1843: {
1844: if (rl_point == rl_end && temp_string_index)
1845: rl_insert_text (temp_string);
1846: }
1847: xfree (filename);
1848: }
1849: else
1850: {
1851: if (rl_point == rl_end && temp_string_index)
1852: rl_insert_text (temp_string);
1853: }
1854:
1855: return (temp_string_index);
1856: }
1857:
1858: static void
1859: insert_all_matches (matches, point, qc)
1860: char **matches;
1861: int point;
1862: char *qc;
1863: {
1864: int i;
1865: char *rp;
1866:
1867: rl_begin_undo_group ();
1868: /* remove any opening quote character; make_quoted_replacement will add
1869: it back. */
1870: if (qc && *qc && point && rl_line_buffer[point - 1] == *qc)
1871: point--;
1872: rl_delete_text (point, rl_point);
1873: rl_point = point;
1874:
1875: if (matches[1])
1876: {
1877: for (i = 1; matches[i]; i++)
1878: {
1879: rp = make_quoted_replacement (matches[i], SINGLE_MATCH, qc);
1880: rl_insert_text (rp);
1881: rl_insert_text (" ");
1882: if (rp != matches[i])
1883: xfree (rp);
1884: }
1885: }
1886: else
1887: {
1888: rp = make_quoted_replacement (matches[0], SINGLE_MATCH, qc);
1889: rl_insert_text (rp);
1890: rl_insert_text (" ");
1891: if (rp != matches[0])
1892: xfree (rp);
1893: }
1894: rl_end_undo_group ();
1895: }
1896:
1897: void
1898: _rl_free_match_list (matches)
1899: char **matches;
1900: {
1901: register int i;
1902:
1903: if (matches == 0)
1904: return;
1905:
1906: for (i = 0; matches[i]; i++)
1907: xfree (matches[i]);
1908: xfree (matches);
1909: }
1910:
1911: /* Complete the word at or before point.
1912: WHAT_TO_DO says what to do with the completion.
1913: `?' means list the possible completions.
1914: TAB means do standard completion.
1915: `*' means insert all of the possible completions.
1916: `!' means to do standard completion, and list all possible completions if
1917: there is more than one.
1918: `@' means to do standard completion, and list all possible completions if
1919: there is more than one and partial completion is not possible. */
1920: int
1921: rl_complete_internal (what_to_do)
1922: int what_to_do;
1923: {
1924: char **matches;
1925: rl_compentry_func_t *our_func;
1926: int start, end, delimiter, found_quote, i, nontrivial_lcd;
1927: char *text, *saved_line_buffer;
1928: char quote_char;
1929: #if 1
1930: int tlen, mlen;
1931: #endif
1932:
1933: RL_SETSTATE(RL_STATE_COMPLETING);
1934:
1935: set_completion_defaults (what_to_do);
1936:
1937: saved_line_buffer = rl_line_buffer ? savestring (rl_line_buffer) : (char *)NULL;
1938: our_func = rl_completion_entry_function
1939: ? rl_completion_entry_function
1940: : rl_filename_completion_function;
1941: /* We now look backwards for the start of a filename/variable word. */
1942: end = rl_point;
1943: found_quote = delimiter = 0;
1944: quote_char = '\0';
1945:
1946: if (rl_point)
1947: /* This (possibly) changes rl_point. If it returns a non-zero char,
1948: we know we have an open quote. */
1949: quote_char = _rl_find_completion_word (&found_quote, &delimiter);
1950:
1951: start = rl_point;
1952: rl_point = end;
1953:
1954: text = rl_copy_text (start, end);
1955: matches = gen_completion_matches (text, start, end, our_func, found_quote, quote_char);
1956: /* nontrivial_lcd is set if the common prefix adds something to the word
1957: being completed. */
1958: nontrivial_lcd = matches && strcmp (text, matches[0]) != 0;
1959: if (what_to_do == '!' || what_to_do == '@')
1960: tlen = strlen (text);
1961: xfree (text);
1962:
1963: if (matches == 0)
1964: {
1965: rl_ding ();
1966: FREE (saved_line_buffer);
1967: completion_changed_buffer = 0;
1968: RL_UNSETSTATE(RL_STATE_COMPLETING);
1969: _rl_reset_completion_state ();
1970: return (0);
1971: }
1972:
1973: /* If we are matching filenames, the attempted completion function will
1974: have set rl_filename_completion_desired to a non-zero value. The basic
1975: rl_filename_completion_function does this. */
1976: i = rl_filename_completion_desired;
1977:
1978: if (postprocess_matches (&matches, i) == 0)
1979: {
1980: rl_ding ();
1981: FREE (saved_line_buffer);
1982: completion_changed_buffer = 0;
1983: RL_UNSETSTATE(RL_STATE_COMPLETING);
1984: _rl_reset_completion_state ();
1985: return (0);
1986: }
1987:
1988: switch (what_to_do)
1989: {
1990: case TAB:
1991: case '!':
1992: case '@':
1993: /* Insert the first match with proper quoting. */
1994: if (what_to_do == TAB)
1995: {
1996: if (*matches[0])
1997: insert_match (matches[0], start, matches[1] ? MULT_MATCH : SINGLE_MATCH, "e_char);
1998: }
1999: else if (*matches[0] && matches[1] == 0)
2000: /* should we perform the check only if there are multiple matches? */
2001: insert_match (matches[0], start, matches[1] ? MULT_MATCH : SINGLE_MATCH, "e_char);
2002: else if (*matches[0]) /* what_to_do != TAB && multiple matches */
2003: {
2004: mlen = *matches[0] ? strlen (matches[0]) : 0;
2005: if (mlen >= tlen)
2006: insert_match (matches[0], start, matches[1] ? MULT_MATCH : SINGLE_MATCH, "e_char);
2007: }
2008:
2009: /* If there are more matches, ring the bell to indicate.
2010: If we are in vi mode, Posix.2 says to not ring the bell.
2011: If the `show-all-if-ambiguous' variable is set, display
2012: all the matches immediately. Otherwise, if this was the
2013: only match, and we are hacking files, check the file to
2014: see if it was a directory. If so, and the `mark-directories'
2015: variable is set, add a '/' to the name. If not, and we
2016: are at the end of the line, then add a space. */
2017: if (matches[1])
2018: {
2019: if (what_to_do == '!')
2020: {
2021: display_matches (matches);
2022: break;
2023: }
2024: else if (what_to_do == '@')
2025: {
2026: if (nontrivial_lcd == 0)
2027: display_matches (matches);
2028: break;
2029: }
2030: else if (rl_editing_mode != vi_mode)
2031: rl_ding (); /* There are other matches remaining. */
2032: }
2033: else
2034: append_to_match (matches[0], delimiter, quote_char, nontrivial_lcd);
2035:
2036: break;
2037:
2038: case '*':
2039: insert_all_matches (matches, start, "e_char);
2040: break;
2041:
2042: case '?':
2043: if (rl_completion_display_matches_hook == 0)
2044: {
2045: _rl_sigcleanup = _rl_complete_sigcleanup;
2046: _rl_sigcleanarg = matches;
2047: }
2048: display_matches (matches);
2049: _rl_sigcleanup = 0;
2050: _rl_sigcleanarg = 0;
2051: break;
2052:
2053: default:
2054: _rl_ttymsg ("bad value %d for what_to_do in rl_complete", what_to_do);
2055: rl_ding ();
2056: FREE (saved_line_buffer);
2057: RL_UNSETSTATE(RL_STATE_COMPLETING);
2058: _rl_free_match_list (matches);
2059: _rl_reset_completion_state ();
2060: return 1;
2061: }
2062:
2063: _rl_free_match_list (matches);
2064:
2065: /* Check to see if the line has changed through all of this manipulation. */
2066: if (saved_line_buffer)
2067: {
2068: completion_changed_buffer = strcmp (rl_line_buffer, saved_line_buffer) != 0;
2069: xfree (saved_line_buffer);
2070: }
2071:
2072: RL_UNSETSTATE(RL_STATE_COMPLETING);
2073: _rl_reset_completion_state ();
2074: return 0;
2075: }
2076:
2077: /***************************************************************/
2078: /* */
2079: /* Application-callable completion match generator functions */
2080: /* */
2081: /***************************************************************/
2082:
2083: /* Return an array of (char *) which is a list of completions for TEXT.
2084: If there are no completions, return a NULL pointer.
2085: The first entry in the returned array is the substitution for TEXT.
2086: The remaining entries are the possible completions.
2087: The array is terminated with a NULL pointer.
2088:
2089: ENTRY_FUNCTION is a function of two args, and returns a (char *).
2090: The first argument is TEXT.
2091: The second is a state argument; it should be zero on the first call, and
2092: non-zero on subsequent calls. It returns a NULL pointer to the caller
2093: when there are no more matches.
2094: */
2095: char **
2096: rl_completion_matches (text, entry_function)
2097: const char *text;
2098: rl_compentry_func_t *entry_function;
2099: {
2100: register int i;
2101:
2102: /* Number of slots in match_list. */
2103: int match_list_size;
2104:
2105: /* The list of matches. */
2106: char **match_list;
2107:
2108: /* Number of matches actually found. */
2109: int matches;
2110:
2111: /* Temporary string binder. */
2112: char *string;
2113:
2114: matches = 0;
2115: match_list_size = 10;
2116: match_list = (char **)xmalloc ((match_list_size + 1) * sizeof (char *));
2117: match_list[1] = (char *)NULL;
2118:
2119: while (string = (*entry_function) (text, matches))
2120: {
2121: if (RL_SIG_RECEIVED ())
2122: {
2123: /* Start at 1 because we don't set matches[0] in this function.
2124: Only free the list members if we're building match list from
2125: rl_filename_completion_function, since we know that doesn't
2126: free the strings it returns. */
2127: if (entry_function == rl_filename_completion_function)
2128: {
2129: for (i = 1; match_list[i]; i++)
2130: xfree (match_list[i]);
2131: }
2132: xfree (match_list);
2133: match_list = 0;
2134: match_list_size = 0;
2135: matches = 0;
2136: RL_CHECK_SIGNALS ();
2137: }
2138:
2139: if (matches + 1 >= match_list_size)
2140: match_list = (char **)xrealloc
2141: (match_list, ((match_list_size += 10) + 1) * sizeof (char *));
2142:
2143: if (match_list == 0)
2144: return (match_list);
2145:
2146: match_list[++matches] = string;
2147: match_list[matches + 1] = (char *)NULL;
2148: }
2149:
2150: /* If there were any matches, then look through them finding out the
2151: lowest common denominator. That then becomes match_list[0]. */
2152: if (matches)
2153: compute_lcd_of_matches (match_list, matches, text);
2154: else /* There were no matches. */
2155: {
2156: xfree (match_list);
2157: match_list = (char **)NULL;
2158: }
2159: return (match_list);
2160: }
2161:
2162: /* A completion function for usernames.
2163: TEXT contains a partial username preceded by a random
2164: character (usually `~'). */
2165: char *
2166: rl_username_completion_function (text, state)
2167: const char *text;
2168: int state;
2169: {
2170: #if defined (__WIN32__) || defined (__OPENNT)
2171: return (char *)NULL;
2172: #else /* !__WIN32__ && !__OPENNT) */
2173: static char *username = (char *)NULL;
2174: static struct passwd *entry;
2175: static int namelen, first_char, first_char_loc;
2176: char *value;
2177:
2178: if (state == 0)
2179: {
2180: FREE (username);
2181:
2182: first_char = *text;
2183: first_char_loc = first_char == '~';
2184:
2185: username = savestring (&text[first_char_loc]);
2186: namelen = strlen (username);
2187: #if defined (HAVE_GETPWENT)
2188: setpwent ();
2189: #endif
2190: }
2191:
2192: #if defined (HAVE_GETPWENT)
2193: while (entry = getpwent ())
2194: {
2195: /* Null usernames should result in all users as possible completions. */
2196: if (namelen == 0 || (STREQN (username, entry->pw_name, namelen)))
2197: break;
2198: }
2199: #endif
2200:
2201: if (entry == 0)
2202: {
2203: #if defined (HAVE_GETPWENT)
2204: endpwent ();
2205: #endif
2206: return ((char *)NULL);
2207: }
2208: else
2209: {
2210: value = (char *)xmalloc (2 + strlen (entry->pw_name));
2211:
2212: *value = *text;
2213:
2214: strcpy (value + first_char_loc, entry->pw_name);
2215:
2216: if (first_char == '~')
2217: rl_filename_completion_desired = 1;
2218:
2219: return (value);
2220: }
2221: #endif /* !__WIN32__ && !__OPENNT */
2222: }
2223:
2224: /* Return non-zero if CONVFN matches FILENAME up to the length of FILENAME
2225: (FILENAME_LEN). If _rl_completion_case_fold is set, compare without
2226: regard to the alphabetic case of characters. If
2227: _rl_completion_case_map is set, make `-' and `_' equivalent. CONVFN is
2228: the possibly-converted directory entry; FILENAME is what the user typed. */
2229: static int
2230: complete_fncmp (convfn, convlen, filename, filename_len)
2231: const char *convfn;
2232: int convlen;
2233: const char *filename;
2234: int filename_len;
2235: {
2236: register char *s1, *s2;
2237: int d, len;
2238: #if defined (HANDLE_MULTIBYTE)
2239: size_t v1, v2;
2240: mbstate_t ps1, ps2;
2241: wchar_t wc1, wc2;
2242: #endif
2243:
2244: #if defined (HANDLE_MULTIBYTE)
2245: memset (&ps1, 0, sizeof (mbstate_t));
2246: memset (&ps2, 0, sizeof (mbstate_t));
2247: #endif
2248:
2249: if (filename_len == 0)
2250: return 1;
2251: if (convlen < filename_len)
2252: return 0;
2253:
2254: len = filename_len;
2255: s1 = (char *)convfn;
2256: s2 = (char *)filename;
2257:
2258: /* Otherwise, if these match up to the length of filename, then
2259: it is a match. */
2260: if (_rl_completion_case_fold && _rl_completion_case_map)
2261: {
2262: /* Case-insensitive comparison treating _ and - as equivalent */
2263: #if defined (HANDLE_MULTIBYTE)
2264: if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
2265: {
2266: do
2267: {
2268: v1 = mbrtowc (&wc1, s1, convlen, &ps1);
2269: v2 = mbrtowc (&wc2, s2, filename_len, &ps2);
2270: if (v1 == 0 && v2 == 0)
2271: return 1;
2272: else if (MB_INVALIDCH (v1) || MB_INVALIDCH (v2))
2273: {
2274: if (*s1 != *s2) /* do byte comparison */
2275: return 0;
2276: else if ((*s1 == '-' || *s1 == '_') && (*s2 == '-' || *s2 == '_'))
2277: return 0;
2278: s1++; s2++; len--;
2279: continue;
2280: }
2281: wc1 = towlower (wc1);
2282: wc2 = towlower (wc2);
2283: s1 += v1;
2284: s2 += v1;
2285: len -= v1;
2286: if ((wc1 == L'-' || wc1 == L'_') && (wc2 == L'-' || wc2 == L'_'))
2287: continue;
2288: if (wc1 != wc2)
2289: return 0;
2290: }
2291: while (len != 0);
2292: }
2293: else
2294: #endif
2295: {
2296: do
2297: {
2298: d = _rl_to_lower (*s1) - _rl_to_lower (*s2);
2299: /* *s1 == [-_] && *s2 == [-_] */
2300: if ((*s1 == '-' || *s1 == '_') && (*s2 == '-' || *s2 == '_'))
2301: d = 0;
2302: if (d != 0)
2303: return 0;
2304: s1++; s2++; /* already checked convlen >= filename_len */
2305: }
2306: while (--len != 0);
2307: }
2308:
2309: return 1;
2310: }
2311: else if (_rl_completion_case_fold)
2312: {
2313: #if defined (HANDLE_MULTIBYTE)
2314: if (MB_CUR_MAX > 1 && rl_byte_oriented == 0)
2315: {
2316: do
2317: {
2318: v1 = mbrtowc (&wc1, s1, convlen, &ps1);
2319: v2 = mbrtowc (&wc2, s2, filename_len, &ps2);
2320: if (v1 == 0 && v2 == 0)
2321: return 1;
2322: else if (MB_INVALIDCH (v1) || MB_INVALIDCH (v2))
2323: {
2324: if (*s1 != *s2) /* do byte comparison */
2325: return 0;
2326: s1++; s2++; len--;
2327: continue;
2328: }
2329: wc1 = towlower (wc1);
2330: wc2 = towlower (wc2);
2331: if (wc1 != wc2)
2332: return 0;
2333: s1 += v1;
2334: s2 += v1;
2335: len -= v1;
2336: }
2337: while (len != 0);
2338: return 1;
2339: }
2340: else
2341: #endif
2342: if ((_rl_to_lower (convfn[0]) == _rl_to_lower (filename[0])) &&
2343: (convlen >= filename_len) &&
2344: (_rl_strnicmp (filename, convfn, filename_len) == 0))
2345: return 1;
2346: }
2347: else
2348: {
2349: if ((convfn[0] == filename[0]) &&
2350: (convlen >= filename_len) &&
2351: (strncmp (filename, convfn, filename_len) == 0))
2352: return 1;
2353: }
2354: return 0;
2355: }
2356:
2357: /* Okay, now we write the entry_function for filename completion. In the
2358: general case. Note that completion in the shell is a little different
2359: because of all the pathnames that must be followed when looking up the
2360: completion for a command. */
2361: char *
2362: rl_filename_completion_function (text, state)
2363: const char *text;
2364: int state;
2365: {
2366: static DIR *directory = (DIR *)NULL;
2367: static char *filename = (char *)NULL;
2368: static char *dirname = (char *)NULL;
2369: static char *users_dirname = (char *)NULL;
2370: static int filename_len;
2371: char *temp, *dentry, *convfn;
2372: int dirlen, dentlen, convlen;
2373: struct dirent *entry;
2374:
2375: /* If we don't have any state, then do some initialization. */
2376: if (state == 0)
2377: {
2378: /* If we were interrupted before closing the directory or reading
2379: all of its contents, close it. */
2380: if (directory)
2381: {
2382: closedir (directory);
2383: directory = (DIR *)NULL;
2384: }
2385: FREE (dirname);
2386: FREE (filename);
2387: FREE (users_dirname);
2388:
2389: filename = savestring (text);
2390: if (*text == 0)
2391: text = ".";
2392: dirname = savestring (text);
2393:
2394: temp = strrchr (dirname, '/');
2395:
2396: #if defined (__MSDOS__)
2397: /* special hack for //X/... */
2398: if (dirname[0] == '/' && dirname[1] == '/' && ISALPHA ((unsigned char)dirname[2]) && dirname[3] == '/')
2399: temp = strrchr (dirname + 3, '/');
2400: #endif
2401:
2402: if (temp)
2403: {
2404: strcpy (filename, ++temp);
2405: *temp = '\0';
2406: }
2407: #if defined (__MSDOS__)
2408: /* searches from current directory on the drive */
2409: else if (ISALPHA ((unsigned char)dirname[0]) && dirname[1] == ':')
2410: {
2411: strcpy (filename, dirname + 2);
2412: dirname[2] = '\0';
2413: }
2414: #endif
2415: else
2416: {
2417: dirname[0] = '.';
2418: dirname[1] = '\0';
2419: }
2420:
2421: /* We aren't done yet. We also support the "~user" syntax. */
2422:
2423: /* Save the version of the directory that the user typed, dequoting
2424: it if necessary. */
2425: if (rl_completion_found_quote && rl_filename_dequoting_function)
2426: users_dirname = (*rl_filename_dequoting_function) (dirname, rl_completion_quote_character);
2427: else
2428: users_dirname = savestring (dirname);
2429:
2430: if (*dirname == '~')
2431: {
2432: temp = tilde_expand (dirname);
2433: xfree (dirname);
2434: dirname = temp;
2435: }
2436:
2437: /* We have saved the possibly-dequoted version of the directory name
2438: the user typed. Now transform the directory name we're going to
2439: pass to opendir(2). The directory rewrite hook modifies only the
2440: directory name; the directory completion hook modifies both the
2441: directory name passed to opendir(2) and the version the user
2442: typed. Both the directory completion and rewrite hooks should perform
2443: any necessary dequoting. The hook functions return 1 if they modify
2444: the directory name argument. If either hook returns 0, it should
2445: not modify the directory name pointer passed as an argument. */
2446: if (rl_directory_rewrite_hook)
2447: (*rl_directory_rewrite_hook) (&dirname);
2448: else if (rl_directory_completion_hook && (*rl_directory_completion_hook) (&dirname))
2449: {
2450: xfree (users_dirname);
2451: users_dirname = savestring (dirname);
2452: }
2453: else if (rl_completion_found_quote && rl_filename_dequoting_function)
2454: {
2455: /* delete single and double quotes */
2456: xfree (dirname);
2457: dirname = savestring (users_dirname);
2458: }
2459: directory = opendir (dirname);
2460:
2461: /* Now dequote a non-null filename. FILENAME will not be NULL, but may
2462: be empty. */
2463: if (*filename && rl_completion_found_quote && rl_filename_dequoting_function)
2464: {
2465: /* delete single and double quotes */
2466: temp = (*rl_filename_dequoting_function) (filename, rl_completion_quote_character);
2467: xfree (filename);
2468: filename = temp;
2469: }
2470: filename_len = strlen (filename);
2471:
2472: rl_filename_completion_desired = 1;
2473: }
2474:
2475: /* At this point we should entertain the possibility of hacking wildcarded
2476: filenames, like /usr/man/man<WILD>/te<TAB>. If the directory name
2477: contains globbing characters, then build an array of directories, and
2478: then map over that list while completing. */
2479: /* *** UNIMPLEMENTED *** */
2480:
2481: /* Now that we have some state, we can read the directory. */
2482:
2483: entry = (struct dirent *)NULL;
2484: while (directory && (entry = readdir (directory)))
2485: {
2486: convfn = dentry = entry->d_name;
2487: convlen = dentlen = D_NAMLEN (entry);
2488:
2489: if (rl_filename_rewrite_hook)
2490: {
2491: convfn = (*rl_filename_rewrite_hook) (dentry, dentlen);
2492: convlen = (convfn == dentry) ? dentlen : strlen (convfn);
2493: }
2494:
2495: /* Special case for no filename. If the user has disabled the
2496: `match-hidden-files' variable, skip filenames beginning with `.'.
2497: All other entries except "." and ".." match. */
2498: if (filename_len == 0)
2499: {
2500: if (_rl_match_hidden_files == 0 && HIDDEN_FILE (convfn))
2501: continue;
2502:
2503: if (convfn[0] != '.' ||
2504: (convfn[1] && (convfn[1] != '.' || convfn[2])))
2505: break;
2506: }
2507: else
2508: {
2509: if (complete_fncmp (convfn, convlen, filename, filename_len))
2510: break;
2511: }
2512: }
2513:
2514: if (entry == 0)
2515: {
2516: if (directory)
2517: {
2518: closedir (directory);
2519: directory = (DIR *)NULL;
2520: }
2521: if (dirname)
2522: {
2523: xfree (dirname);
2524: dirname = (char *)NULL;
2525: }
2526: if (filename)
2527: {
2528: xfree (filename);
2529: filename = (char *)NULL;
2530: }
2531: if (users_dirname)
2532: {
2533: xfree (users_dirname);
2534: users_dirname = (char *)NULL;
2535: }
2536:
2537: return (char *)NULL;
2538: }
2539: else
2540: {
2541: /* dirname && (strcmp (dirname, ".") != 0) */
2542: if (dirname && (dirname[0] != '.' || dirname[1]))
2543: {
2544: if (rl_complete_with_tilde_expansion && *users_dirname == '~')
2545: {
2546: dirlen = strlen (dirname);
2547: temp = (char *)xmalloc (2 + dirlen + D_NAMLEN (entry));
2548: strcpy (temp, dirname);
2549: /* Canonicalization cuts off any final slash present. We
2550: may need to add it back. */
2551: if (dirname[dirlen - 1] != '/')
2552: {
2553: temp[dirlen++] = '/';
2554: temp[dirlen] = '\0';
2555: }
2556: }
2557: else
2558: {
2559: dirlen = strlen (users_dirname);
2560: temp = (char *)xmalloc (2 + dirlen + D_NAMLEN (entry));
2561: strcpy (temp, users_dirname);
2562: /* Make sure that temp has a trailing slash here. */
2563: if (users_dirname[dirlen - 1] != '/')
2564: temp[dirlen++] = '/';
2565: }
2566:
2567: strcpy (temp + dirlen, convfn);
2568: }
2569: else
2570: temp = savestring (convfn);
2571:
2572: if (convfn != dentry)
2573: xfree (convfn);
2574:
2575: return (temp);
2576: }
2577: }
2578:
2579: /* An initial implementation of a menu completion function a la tcsh. The
2580: first time (if the last readline command was not rl_old_menu_complete), we
2581: generate the list of matches. This code is very similar to the code in
2582: rl_complete_internal -- there should be a way to combine the two. Then,
2583: for each item in the list of matches, we insert the match in an undoable
2584: fashion, with the appropriate character appended (this happens on the
2585: second and subsequent consecutive calls to rl_old_menu_complete). When we
2586: hit the end of the match list, we restore the original unmatched text,
2587: ring the bell, and reset the counter to zero. */
2588: int
2589: rl_old_menu_complete (count, invoking_key)
2590: int count, invoking_key;
2591: {
2592: rl_compentry_func_t *our_func;
2593: int matching_filenames, found_quote;
2594:
2595: static char *orig_text;
2596: static char **matches = (char **)0;
2597: static int match_list_index = 0;
2598: static int match_list_size = 0;
2599: static int orig_start, orig_end;
2600: static char quote_char;
2601: static int delimiter;
2602:
2603: /* The first time through, we generate the list of matches and set things
2604: up to insert them. */
2605: if (rl_last_func != rl_old_menu_complete)
2606: {
2607: /* Clean up from previous call, if any. */
2608: FREE (orig_text);
2609: if (matches)
2610: _rl_free_match_list (matches);
2611:
2612: match_list_index = match_list_size = 0;
2613: matches = (char **)NULL;
2614:
2615: rl_completion_invoking_key = invoking_key;
2616:
2617: RL_SETSTATE(RL_STATE_COMPLETING);
2618:
2619: /* Only the completion entry function can change these. */
2620: set_completion_defaults ('%');
2621:
2622: our_func = rl_menu_completion_entry_function;
2623: if (our_func == 0)
2624: our_func = rl_completion_entry_function
2625: ? rl_completion_entry_function
2626: : rl_filename_completion_function;
2627:
2628: /* We now look backwards for the start of a filename/variable word. */
2629: orig_end = rl_point;
2630: found_quote = delimiter = 0;
2631: quote_char = '\0';
2632:
2633: if (rl_point)
2634: /* This (possibly) changes rl_point. If it returns a non-zero char,
2635: we know we have an open quote. */
2636: quote_char = _rl_find_completion_word (&found_quote, &delimiter);
2637:
2638: orig_start = rl_point;
2639: rl_point = orig_end;
2640:
2641: orig_text = rl_copy_text (orig_start, orig_end);
2642: matches = gen_completion_matches (orig_text, orig_start, orig_end,
2643: our_func, found_quote, quote_char);
2644:
2645: /* If we are matching filenames, the attempted completion function will
2646: have set rl_filename_completion_desired to a non-zero value. The basic
2647: rl_filename_completion_function does this. */
2648: matching_filenames = rl_filename_completion_desired;
2649:
2650: if (matches == 0 || postprocess_matches (&matches, matching_filenames) == 0)
2651: {
2652: rl_ding ();
2653: FREE (matches);
2654: matches = (char **)0;
2655: FREE (orig_text);
2656: orig_text = (char *)0;
2657: completion_changed_buffer = 0;
2658: RL_UNSETSTATE(RL_STATE_COMPLETING);
2659: return (0);
2660: }
2661:
2662: RL_UNSETSTATE(RL_STATE_COMPLETING);
2663:
2664: for (match_list_size = 0; matches[match_list_size]; match_list_size++)
2665: ;
2666: /* matches[0] is lcd if match_list_size > 1, but the circular buffer
2667: code below should take care of it. */
2668:
2669: if (match_list_size > 1 && _rl_complete_show_all)
2670: display_matches (matches);
2671: }
2672:
2673: /* Now we have the list of matches. Replace the text between
2674: rl_line_buffer[orig_start] and rl_line_buffer[rl_point] with
2675: matches[match_list_index], and add any necessary closing char. */
2676:
2677: if (matches == 0 || match_list_size == 0)
2678: {
2679: rl_ding ();
2680: FREE (matches);
2681: matches = (char **)0;
2682: completion_changed_buffer = 0;
2683: return (0);
2684: }
2685:
2686: match_list_index += count;
2687: if (match_list_index < 0)
2688: {
2689: while (match_list_index < 0)
2690: match_list_index += match_list_size;
2691: }
2692: else
2693: match_list_index %= match_list_size;
2694:
2695: if (match_list_index == 0 && match_list_size > 1)
2696: {
2697: rl_ding ();
2698: insert_match (orig_text, orig_start, MULT_MATCH, "e_char);
2699: }
2700: else
2701: {
2702: insert_match (matches[match_list_index], orig_start, SINGLE_MATCH, "e_char);
2703: append_to_match (matches[match_list_index], delimiter, quote_char,
2704: strcmp (orig_text, matches[match_list_index]));
2705: }
2706:
2707: completion_changed_buffer = 1;
2708: return (0);
2709: }
2710:
2711: int
2712: rl_menu_complete (count, ignore)
2713: int count, ignore;
2714: {
2715: rl_compentry_func_t *our_func;
2716: int matching_filenames, found_quote;
2717:
2718: static char *orig_text;
2719: static char **matches = (char **)0;
2720: static int match_list_index = 0;
2721: static int match_list_size = 0;
2722: static int nontrivial_lcd = 0;
2723: static int full_completion = 0; /* set to 1 if menu completion should reinitialize on next call */
2724: static int orig_start, orig_end;
2725: static char quote_char;
2726: static int delimiter, cstate;
2727:
2728: /* The first time through, we generate the list of matches and set things
2729: up to insert them. */
2730: if ((rl_last_func != rl_menu_complete && rl_last_func != rl_backward_menu_complete) || full_completion)
2731: {
2732: /* Clean up from previous call, if any. */
2733: FREE (orig_text);
2734: if (matches)
2735: _rl_free_match_list (matches);
2736:
2737: match_list_index = match_list_size = 0;
2738: matches = (char **)NULL;
2739:
2740: full_completion = 0;
2741:
2742: RL_SETSTATE(RL_STATE_COMPLETING);
2743:
2744: /* Only the completion entry function can change these. */
2745: set_completion_defaults ('%');
2746:
2747: our_func = rl_menu_completion_entry_function;
2748: if (our_func == 0)
2749: our_func = rl_completion_entry_function
2750: ? rl_completion_entry_function
2751: : rl_filename_completion_function;
2752:
2753: /* We now look backwards for the start of a filename/variable word. */
2754: orig_end = rl_point;
2755: found_quote = delimiter = 0;
2756: quote_char = '\0';
2757:
2758: if (rl_point)
2759: /* This (possibly) changes rl_point. If it returns a non-zero char,
2760: we know we have an open quote. */
2761: quote_char = _rl_find_completion_word (&found_quote, &delimiter);
2762:
2763: orig_start = rl_point;
2764: rl_point = orig_end;
2765:
2766: orig_text = rl_copy_text (orig_start, orig_end);
2767: matches = gen_completion_matches (orig_text, orig_start, orig_end,
2768: our_func, found_quote, quote_char);
2769:
2770: nontrivial_lcd = matches && strcmp (orig_text, matches[0]) != 0;
2771:
2772: /* If we are matching filenames, the attempted completion function will
2773: have set rl_filename_completion_desired to a non-zero value. The basic
2774: rl_filename_completion_function does this. */
2775: matching_filenames = rl_filename_completion_desired;
2776:
2777: if (matches == 0 || postprocess_matches (&matches, matching_filenames) == 0)
2778: {
2779: rl_ding ();
2780: FREE (matches);
2781: matches = (char **)0;
2782: FREE (orig_text);
2783: orig_text = (char *)0;
2784: completion_changed_buffer = 0;
2785: RL_UNSETSTATE(RL_STATE_COMPLETING);
2786: return (0);
2787: }
2788:
2789: RL_UNSETSTATE(RL_STATE_COMPLETING);
2790:
2791: for (match_list_size = 0; matches[match_list_size]; match_list_size++)
2792: ;
2793:
2794: if (match_list_size == 0)
2795: {
2796: rl_ding ();
2797: FREE (matches);
2798: matches = (char **)0;
2799: match_list_index = 0;
2800: completion_changed_buffer = 0;
2801: return (0);
2802: }
2803:
2804: /* matches[0] is lcd if match_list_size > 1, but the circular buffer
2805: code below should take care of it. */
2806: if (*matches[0])
2807: {
2808: insert_match (matches[0], orig_start, matches[1] ? MULT_MATCH : SINGLE_MATCH, "e_char);
2809: orig_end = orig_start + strlen (matches[0]);
2810: completion_changed_buffer = STREQ (orig_text, matches[0]) == 0;
2811: }
2812:
2813: if (match_list_size > 1 && _rl_complete_show_all)
2814: {
2815: display_matches (matches);
2816: /* If there are so many matches that the user has to be asked
2817: whether or not he wants to see the matches, menu completion
2818: is unwieldy. */
2819: if (rl_completion_query_items > 0 && match_list_size >= rl_completion_query_items)
2820: {
2821: rl_ding ();
2822: FREE (matches);
2823: matches = (char **)0;
2824: full_completion = 1;
2825: return (0);
2826: }
2827: else if (_rl_menu_complete_prefix_first)
2828: {
2829: rl_ding ();
2830: return (0);
2831: }
2832: }
2833: else if (match_list_size <= 1)
2834: {
2835: append_to_match (matches[0], delimiter, quote_char, nontrivial_lcd);
2836: full_completion = 1;
2837: return (0);
2838: }
2839: else if (_rl_menu_complete_prefix_first && match_list_size > 1)
2840: {
2841: rl_ding ();
2842: return (0);
2843: }
2844: }
2845:
2846: /* Now we have the list of matches. Replace the text between
2847: rl_line_buffer[orig_start] and rl_line_buffer[rl_point] with
2848: matches[match_list_index], and add any necessary closing char. */
2849:
2850: if (matches == 0 || match_list_size == 0)
2851: {
2852: rl_ding ();
2853: FREE (matches);
2854: matches = (char **)0;
2855: completion_changed_buffer = 0;
2856: return (0);
2857: }
2858:
2859: match_list_index += count;
2860: if (match_list_index < 0)
2861: {
2862: while (match_list_index < 0)
2863: match_list_index += match_list_size;
2864: }
2865: else
2866: match_list_index %= match_list_size;
2867:
2868: if (match_list_index == 0 && match_list_size > 1)
2869: {
2870: rl_ding ();
2871: insert_match (matches[0], orig_start, MULT_MATCH, "e_char);
2872: }
2873: else
2874: {
2875: insert_match (matches[match_list_index], orig_start, SINGLE_MATCH, "e_char);
2876: append_to_match (matches[match_list_index], delimiter, quote_char,
2877: strcmp (orig_text, matches[match_list_index]));
2878: }
2879:
2880: completion_changed_buffer = 1;
2881: return (0);
2882: }
2883:
2884: int
2885: rl_backward_menu_complete (count, key)
2886: int count, key;
2887: {
2888: /* Positive arguments to backward-menu-complete translate into negative
2889: arguments for menu-complete, and vice versa. */
2890: return (rl_menu_complete (-count, key));
2891: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>