xref: /freebsd/contrib/libedit/filecomplete.c (revision baff8195)
1baff8195SBaptiste Daroussin /*	$NetBSD: filecomplete.c,v 1.72 2023/02/03 22:01:42 christos Exp $	*/
2d0ef721eSBaptiste Daroussin 
3d0ef721eSBaptiste Daroussin /*-
4d0ef721eSBaptiste Daroussin  * Copyright (c) 1997 The NetBSD Foundation, Inc.
5d0ef721eSBaptiste Daroussin  * All rights reserved.
6d0ef721eSBaptiste Daroussin  *
7d0ef721eSBaptiste Daroussin  * This code is derived from software contributed to The NetBSD Foundation
8d0ef721eSBaptiste Daroussin  * by Jaromir Dolecek.
9d0ef721eSBaptiste Daroussin  *
10d0ef721eSBaptiste Daroussin  * Redistribution and use in source and binary forms, with or without
11d0ef721eSBaptiste Daroussin  * modification, are permitted provided that the following conditions
12d0ef721eSBaptiste Daroussin  * are met:
13d0ef721eSBaptiste Daroussin  * 1. Redistributions of source code must retain the above copyright
14d0ef721eSBaptiste Daroussin  *    notice, this list of conditions and the following disclaimer.
15d0ef721eSBaptiste Daroussin  * 2. Redistributions in binary form must reproduce the above copyright
16d0ef721eSBaptiste Daroussin  *    notice, this list of conditions and the following disclaimer in the
17d0ef721eSBaptiste Daroussin  *    documentation and/or other materials provided with the distribution.
18d0ef721eSBaptiste Daroussin  *
19d0ef721eSBaptiste Daroussin  * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
20d0ef721eSBaptiste Daroussin  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
21d0ef721eSBaptiste Daroussin  * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
22d0ef721eSBaptiste Daroussin  * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
23d0ef721eSBaptiste Daroussin  * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
24d0ef721eSBaptiste Daroussin  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
25d0ef721eSBaptiste Daroussin  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
26d0ef721eSBaptiste Daroussin  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
27d0ef721eSBaptiste Daroussin  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
28d0ef721eSBaptiste Daroussin  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
29d0ef721eSBaptiste Daroussin  * POSSIBILITY OF SUCH DAMAGE.
30d0ef721eSBaptiste Daroussin  */
31d0ef721eSBaptiste Daroussin 
32d0ef721eSBaptiste Daroussin #include "config.h"
33d0ef721eSBaptiste Daroussin #if !defined(lint) && !defined(SCCSID)
34baff8195SBaptiste Daroussin __RCSID("$NetBSD: filecomplete.c,v 1.72 2023/02/03 22:01:42 christos Exp $");
35d0ef721eSBaptiste Daroussin #endif /* not lint && not SCCSID */
36d0ef721eSBaptiste Daroussin 
37d0ef721eSBaptiste Daroussin #include <sys/types.h>
38d0ef721eSBaptiste Daroussin #include <sys/stat.h>
39d0ef721eSBaptiste Daroussin #include <dirent.h>
40d0ef721eSBaptiste Daroussin #include <errno.h>
41d0ef721eSBaptiste Daroussin #include <fcntl.h>
42d0ef721eSBaptiste Daroussin #include <limits.h>
43d0ef721eSBaptiste Daroussin #include <pwd.h>
44d0ef721eSBaptiste Daroussin #include <stdio.h>
45d0ef721eSBaptiste Daroussin #include <stdlib.h>
46d0ef721eSBaptiste Daroussin #include <string.h>
47d0ef721eSBaptiste Daroussin #include <unistd.h>
48d0ef721eSBaptiste Daroussin 
49d0ef721eSBaptiste Daroussin #include "el.h"
50d0ef721eSBaptiste Daroussin #include "filecomplete.h"
51d0ef721eSBaptiste Daroussin 
52d0ef721eSBaptiste Daroussin static const wchar_t break_chars[] = L" \t\n\"\\'`@$><=;|&{(";
53d0ef721eSBaptiste Daroussin 
54d0ef721eSBaptiste Daroussin /********************************/
55d0ef721eSBaptiste Daroussin /* completion functions */
56d0ef721eSBaptiste Daroussin 
57d0ef721eSBaptiste Daroussin /*
58d0ef721eSBaptiste Daroussin  * does tilde expansion of strings of type ``~user/foo''
59d0ef721eSBaptiste Daroussin  * if ``user'' isn't valid user name or ``txt'' doesn't start
60d0ef721eSBaptiste Daroussin  * w/ '~', returns pointer to strdup()ed copy of ``txt''
61d0ef721eSBaptiste Daroussin  *
62d0ef721eSBaptiste Daroussin  * it's the caller's responsibility to free() the returned string
63d0ef721eSBaptiste Daroussin  */
64d0ef721eSBaptiste Daroussin char *
fn_tilde_expand(const char * txt)65d0ef721eSBaptiste Daroussin fn_tilde_expand(const char *txt)
66d0ef721eSBaptiste Daroussin {
67d0ef721eSBaptiste Daroussin #if defined(HAVE_GETPW_R_POSIX) || defined(HAVE_GETPW_R_DRAFT)
68d0ef721eSBaptiste Daroussin 	struct passwd pwres;
69d0ef721eSBaptiste Daroussin 	char pwbuf[1024];
70d0ef721eSBaptiste Daroussin #endif
71d0ef721eSBaptiste Daroussin 	struct passwd *pass;
727f399375SBaptiste Daroussin 	const char *pos;
73d0ef721eSBaptiste Daroussin 	char *temp;
74d0ef721eSBaptiste Daroussin 	size_t len = 0;
75d0ef721eSBaptiste Daroussin 
76d0ef721eSBaptiste Daroussin 	if (txt[0] != '~')
77d0ef721eSBaptiste Daroussin 		return strdup(txt);
78d0ef721eSBaptiste Daroussin 
797f399375SBaptiste Daroussin 	pos = strchr(txt + 1, '/');
807f399375SBaptiste Daroussin 	if (pos == NULL) {
81d0ef721eSBaptiste Daroussin 		temp = strdup(txt + 1);
82d0ef721eSBaptiste Daroussin 		if (temp == NULL)
83d0ef721eSBaptiste Daroussin 			return NULL;
84d0ef721eSBaptiste Daroussin 	} else {
85d0ef721eSBaptiste Daroussin 		/* text until string after slash */
867f399375SBaptiste Daroussin 		len = (size_t)(pos - txt + 1);
87d0ef721eSBaptiste Daroussin 		temp = el_calloc(len, sizeof(*temp));
88d0ef721eSBaptiste Daroussin 		if (temp == NULL)
89d0ef721eSBaptiste Daroussin 			return NULL;
90f9a159daSBaptiste Daroussin 		(void)strlcpy(temp, txt + 1, len - 1);
91d0ef721eSBaptiste Daroussin 	}
92d0ef721eSBaptiste Daroussin 	if (temp[0] == 0) {
93d0ef721eSBaptiste Daroussin #ifdef HAVE_GETPW_R_POSIX
94d0ef721eSBaptiste Daroussin 		if (getpwuid_r(getuid(), &pwres, pwbuf, sizeof(pwbuf),
95d0ef721eSBaptiste Daroussin 		    &pass) != 0)
96d0ef721eSBaptiste Daroussin 			pass = NULL;
97d0ef721eSBaptiste Daroussin #elif HAVE_GETPW_R_DRAFT
98d0ef721eSBaptiste Daroussin 		pass = getpwuid_r(getuid(), &pwres, pwbuf, sizeof(pwbuf));
99d0ef721eSBaptiste Daroussin #else
100d0ef721eSBaptiste Daroussin 		pass = getpwuid(getuid());
101d0ef721eSBaptiste Daroussin #endif
102d0ef721eSBaptiste Daroussin 	} else {
103d0ef721eSBaptiste Daroussin #ifdef HAVE_GETPW_R_POSIX
104d0ef721eSBaptiste Daroussin 		if (getpwnam_r(temp, &pwres, pwbuf, sizeof(pwbuf), &pass) != 0)
105d0ef721eSBaptiste Daroussin 			pass = NULL;
106d0ef721eSBaptiste Daroussin #elif HAVE_GETPW_R_DRAFT
107d0ef721eSBaptiste Daroussin 		pass = getpwnam_r(temp, &pwres, pwbuf, sizeof(pwbuf));
108d0ef721eSBaptiste Daroussin #else
109d0ef721eSBaptiste Daroussin 		pass = getpwnam(temp);
110d0ef721eSBaptiste Daroussin #endif
111d0ef721eSBaptiste Daroussin 	}
112d0ef721eSBaptiste Daroussin 	el_free(temp);		/* value no more needed */
113d0ef721eSBaptiste Daroussin 	if (pass == NULL)
114d0ef721eSBaptiste Daroussin 		return strdup(txt);
115d0ef721eSBaptiste Daroussin 
116d0ef721eSBaptiste Daroussin 	/* update pointer txt to point at string immedially following */
117d0ef721eSBaptiste Daroussin 	/* first slash */
118d0ef721eSBaptiste Daroussin 	txt += len;
119d0ef721eSBaptiste Daroussin 
120d0ef721eSBaptiste Daroussin 	len = strlen(pass->pw_dir) + 1 + strlen(txt) + 1;
121d0ef721eSBaptiste Daroussin 	temp = el_calloc(len, sizeof(*temp));
122d0ef721eSBaptiste Daroussin 	if (temp == NULL)
123d0ef721eSBaptiste Daroussin 		return NULL;
124d0ef721eSBaptiste Daroussin 	(void)snprintf(temp, len, "%s/%s", pass->pw_dir, txt);
125d0ef721eSBaptiste Daroussin 
126d0ef721eSBaptiste Daroussin 	return temp;
127d0ef721eSBaptiste Daroussin }
128d0ef721eSBaptiste Daroussin 
129d0ef721eSBaptiste Daroussin static int
needs_escaping(wchar_t c)1307f399375SBaptiste Daroussin needs_escaping(wchar_t c)
131d0ef721eSBaptiste Daroussin {
132d0ef721eSBaptiste Daroussin 	switch (c) {
133d0ef721eSBaptiste Daroussin 	case '\'':
134d0ef721eSBaptiste Daroussin 	case '"':
135d0ef721eSBaptiste Daroussin 	case '(':
136d0ef721eSBaptiste Daroussin 	case ')':
137d0ef721eSBaptiste Daroussin 	case '\\':
138d0ef721eSBaptiste Daroussin 	case '<':
139d0ef721eSBaptiste Daroussin 	case '>':
140d0ef721eSBaptiste Daroussin 	case '$':
141d0ef721eSBaptiste Daroussin 	case '#':
142d0ef721eSBaptiste Daroussin 	case ' ':
143d0ef721eSBaptiste Daroussin 	case '\n':
144d0ef721eSBaptiste Daroussin 	case '\t':
145d0ef721eSBaptiste Daroussin 	case '?':
146d0ef721eSBaptiste Daroussin 	case ';':
147d0ef721eSBaptiste Daroussin 	case '`':
148d0ef721eSBaptiste Daroussin 	case '@':
149d0ef721eSBaptiste Daroussin 	case '=':
150d0ef721eSBaptiste Daroussin 	case '|':
151d0ef721eSBaptiste Daroussin 	case '{':
152d0ef721eSBaptiste Daroussin 	case '}':
153d0ef721eSBaptiste Daroussin 	case '&':
154d0ef721eSBaptiste Daroussin 	case '*':
155d0ef721eSBaptiste Daroussin 	case '[':
156d0ef721eSBaptiste Daroussin 		return 1;
157d0ef721eSBaptiste Daroussin 	default:
158d0ef721eSBaptiste Daroussin 		return 0;
159d0ef721eSBaptiste Daroussin 	}
160d0ef721eSBaptiste Daroussin }
161d0ef721eSBaptiste Daroussin 
162d0ef721eSBaptiste Daroussin static int
needs_dquote_escaping(char c)163d0ef721eSBaptiste Daroussin needs_dquote_escaping(char c)
164d0ef721eSBaptiste Daroussin {
165d0ef721eSBaptiste Daroussin 	switch (c) {
166d0ef721eSBaptiste Daroussin 	case '"':
167d0ef721eSBaptiste Daroussin 	case '\\':
168d0ef721eSBaptiste Daroussin 	case '`':
169d0ef721eSBaptiste Daroussin 	case '$':
170d0ef721eSBaptiste Daroussin 		return 1;
171d0ef721eSBaptiste Daroussin 	default:
172d0ef721eSBaptiste Daroussin 		return 0;
173d0ef721eSBaptiste Daroussin 	}
174d0ef721eSBaptiste Daroussin }
175d0ef721eSBaptiste Daroussin 
176d0ef721eSBaptiste Daroussin 
177d0ef721eSBaptiste Daroussin static wchar_t *
unescape_string(const wchar_t * string,size_t length)178d0ef721eSBaptiste Daroussin unescape_string(const wchar_t *string, size_t length)
179d0ef721eSBaptiste Daroussin {
180d0ef721eSBaptiste Daroussin 	size_t i;
181d0ef721eSBaptiste Daroussin 	size_t j = 0;
182d0ef721eSBaptiste Daroussin 	wchar_t *unescaped = el_calloc(length + 1, sizeof(*string));
183d0ef721eSBaptiste Daroussin 	if (unescaped == NULL)
184d0ef721eSBaptiste Daroussin 		return NULL;
185d0ef721eSBaptiste Daroussin 	for (i = 0; i < length ; i++) {
186d0ef721eSBaptiste Daroussin 		if (string[i] == '\\')
187d0ef721eSBaptiste Daroussin 			continue;
188d0ef721eSBaptiste Daroussin 		unescaped[j++] = string[i];
189d0ef721eSBaptiste Daroussin 	}
190d0ef721eSBaptiste Daroussin 	unescaped[j] = 0;
191d0ef721eSBaptiste Daroussin 	return unescaped;
192d0ef721eSBaptiste Daroussin }
193d0ef721eSBaptiste Daroussin 
194d0ef721eSBaptiste Daroussin static char *
escape_filename(EditLine * el,const char * filename,int single_match,const char * (* app_func)(const char *))195d0ef721eSBaptiste Daroussin escape_filename(EditLine * el, const char *filename, int single_match,
196d0ef721eSBaptiste Daroussin 		const char *(*app_func)(const char *))
197d0ef721eSBaptiste Daroussin {
198d0ef721eSBaptiste Daroussin 	size_t original_len = 0;
199d0ef721eSBaptiste Daroussin 	size_t escaped_character_count = 0;
200d0ef721eSBaptiste Daroussin 	size_t offset = 0;
201d0ef721eSBaptiste Daroussin 	size_t newlen;
202d0ef721eSBaptiste Daroussin 	const char *s;
203d0ef721eSBaptiste Daroussin 	char c;
204d0ef721eSBaptiste Daroussin 	size_t s_quoted = 0;	/* does the input contain a single quote */
205d0ef721eSBaptiste Daroussin 	size_t d_quoted = 0;	/* does the input contain a double quote */
206d0ef721eSBaptiste Daroussin 	char *escaped_str;
207d0ef721eSBaptiste Daroussin 	wchar_t *temp = el->el_line.buffer;
208d0ef721eSBaptiste Daroussin 	const char *append_char = NULL;
209d0ef721eSBaptiste Daroussin 
210d0ef721eSBaptiste Daroussin 	if (filename == NULL)
211d0ef721eSBaptiste Daroussin 		return NULL;
212d0ef721eSBaptiste Daroussin 
213d0ef721eSBaptiste Daroussin 	while (temp != el->el_line.cursor) {
214d0ef721eSBaptiste Daroussin 		/*
215d0ef721eSBaptiste Daroussin 		 * If we see a single quote but have not seen a double quote
2167f399375SBaptiste Daroussin 		 * so far set/unset s_quote, unless it is already quoted
217d0ef721eSBaptiste Daroussin 		 */
2187f399375SBaptiste Daroussin 		if (temp[0] == '\'' && !d_quoted &&
2197f399375SBaptiste Daroussin 		    (temp == el->el_line.buffer || temp[-1] != '\\'))
220d0ef721eSBaptiste Daroussin 			s_quoted = !s_quoted;
221d0ef721eSBaptiste Daroussin 		/*
222d0ef721eSBaptiste Daroussin 		 * vice versa to the above condition
223d0ef721eSBaptiste Daroussin 		 */
224d0ef721eSBaptiste Daroussin 		else if (temp[0] == '"' && !s_quoted)
225d0ef721eSBaptiste Daroussin 			d_quoted = !d_quoted;
226d0ef721eSBaptiste Daroussin 		temp++;
227d0ef721eSBaptiste Daroussin 	}
228d0ef721eSBaptiste Daroussin 
229d0ef721eSBaptiste Daroussin 	/* Count number of special characters so that we can calculate
230d0ef721eSBaptiste Daroussin 	 * number of extra bytes needed in the new string
231d0ef721eSBaptiste Daroussin 	 */
232d0ef721eSBaptiste Daroussin 	for (s = filename; *s; s++, original_len++) {
233d0ef721eSBaptiste Daroussin 		c = *s;
234d0ef721eSBaptiste Daroussin 		/* Inside a single quote only single quotes need escaping */
235d0ef721eSBaptiste Daroussin 		if (s_quoted && c == '\'') {
236d0ef721eSBaptiste Daroussin 			escaped_character_count += 3;
237d0ef721eSBaptiste Daroussin 			continue;
238d0ef721eSBaptiste Daroussin 		}
239d0ef721eSBaptiste Daroussin 		/* Inside double quotes only ", \, ` and $ need escaping */
240d0ef721eSBaptiste Daroussin 		if (d_quoted && needs_dquote_escaping(c)) {
241d0ef721eSBaptiste Daroussin 			escaped_character_count++;
242d0ef721eSBaptiste Daroussin 			continue;
243d0ef721eSBaptiste Daroussin 		}
244d0ef721eSBaptiste Daroussin 		if (!s_quoted && !d_quoted && needs_escaping(c))
245d0ef721eSBaptiste Daroussin 			escaped_character_count++;
246d0ef721eSBaptiste Daroussin 	}
247d0ef721eSBaptiste Daroussin 
248d0ef721eSBaptiste Daroussin 	newlen = original_len + escaped_character_count + 1;
249d0ef721eSBaptiste Daroussin 	if (s_quoted || d_quoted)
250d0ef721eSBaptiste Daroussin 		newlen++;
251d0ef721eSBaptiste Daroussin 
252d0ef721eSBaptiste Daroussin 	if (single_match && app_func)
253d0ef721eSBaptiste Daroussin 		newlen++;
254d0ef721eSBaptiste Daroussin 
255d0ef721eSBaptiste Daroussin 	if ((escaped_str = el_malloc(newlen)) == NULL)
256d0ef721eSBaptiste Daroussin 		return NULL;
257d0ef721eSBaptiste Daroussin 
258d0ef721eSBaptiste Daroussin 	for (s = filename; *s; s++) {
259d0ef721eSBaptiste Daroussin 		c = *s;
260d0ef721eSBaptiste Daroussin 		if (!needs_escaping(c)) {
261d0ef721eSBaptiste Daroussin 			/* no escaping is required continue as usual */
262d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = c;
263d0ef721eSBaptiste Daroussin 			continue;
264d0ef721eSBaptiste Daroussin 		}
265d0ef721eSBaptiste Daroussin 
266d0ef721eSBaptiste Daroussin 		/* single quotes inside single quotes require special handling */
267d0ef721eSBaptiste Daroussin 		if (c == '\'' && s_quoted) {
268d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = '\'';
269d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = '\\';
270d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = '\'';
271d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = '\'';
272d0ef721eSBaptiste Daroussin 			continue;
273d0ef721eSBaptiste Daroussin 		}
274d0ef721eSBaptiste Daroussin 
275d0ef721eSBaptiste Daroussin 		/* Otherwise no escaping needed inside single quotes */
276d0ef721eSBaptiste Daroussin 		if (s_quoted) {
277d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = c;
278d0ef721eSBaptiste Daroussin 			continue;
279d0ef721eSBaptiste Daroussin 		}
280d0ef721eSBaptiste Daroussin 
281d0ef721eSBaptiste Daroussin 		/* No escaping needed inside a double quoted string either
282d0ef721eSBaptiste Daroussin 		 * unless we see a '$', '\', '`', or '"' (itself)
283d0ef721eSBaptiste Daroussin 		 */
284d0ef721eSBaptiste Daroussin 		if (d_quoted && !needs_dquote_escaping(c)) {
285d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = c;
286d0ef721eSBaptiste Daroussin 			continue;
287d0ef721eSBaptiste Daroussin 		}
288d0ef721eSBaptiste Daroussin 
289d0ef721eSBaptiste Daroussin 		/* If we reach here that means escaping is actually needed */
290d0ef721eSBaptiste Daroussin 		escaped_str[offset++] = '\\';
291d0ef721eSBaptiste Daroussin 		escaped_str[offset++] = c;
292d0ef721eSBaptiste Daroussin 	}
293d0ef721eSBaptiste Daroussin 
294d0ef721eSBaptiste Daroussin 	if (single_match && app_func) {
295d0ef721eSBaptiste Daroussin 		escaped_str[offset] = 0;
29619318a62SBaptiste Daroussin 		append_char = app_func(filename);
297d0ef721eSBaptiste Daroussin 		/* we want to append space only if we are not inside quotes */
298d0ef721eSBaptiste Daroussin 		if (append_char[0] == ' ') {
299d0ef721eSBaptiste Daroussin 			if (!s_quoted && !d_quoted)
300d0ef721eSBaptiste Daroussin 				escaped_str[offset++] = append_char[0];
301d0ef721eSBaptiste Daroussin 		} else
302d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = append_char[0];
303d0ef721eSBaptiste Daroussin 	}
304d0ef721eSBaptiste Daroussin 
305d0ef721eSBaptiste Daroussin 	/* close the quotes if single match and the match is not a directory */
306d0ef721eSBaptiste Daroussin 	if (single_match && (append_char && append_char[0] == ' ')) {
307d0ef721eSBaptiste Daroussin 		if (s_quoted)
308d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = '\'';
309d0ef721eSBaptiste Daroussin 		else if (d_quoted)
310d0ef721eSBaptiste Daroussin 			escaped_str[offset++] = '"';
311d0ef721eSBaptiste Daroussin 	}
312d0ef721eSBaptiste Daroussin 
313d0ef721eSBaptiste Daroussin 	escaped_str[offset] = 0;
314d0ef721eSBaptiste Daroussin 	return escaped_str;
315d0ef721eSBaptiste Daroussin }
316d0ef721eSBaptiste Daroussin 
317d0ef721eSBaptiste Daroussin /*
318d0ef721eSBaptiste Daroussin  * return first found file name starting by the ``text'' or NULL if no
319d0ef721eSBaptiste Daroussin  * such file can be found
320d0ef721eSBaptiste Daroussin  * value of ``state'' is ignored
321d0ef721eSBaptiste Daroussin  *
322d0ef721eSBaptiste Daroussin  * it's the caller's responsibility to free the returned string
323d0ef721eSBaptiste Daroussin  */
324d0ef721eSBaptiste Daroussin char *
fn_filename_completion_function(const char * text,int state)325d0ef721eSBaptiste Daroussin fn_filename_completion_function(const char *text, int state)
326d0ef721eSBaptiste Daroussin {
327d0ef721eSBaptiste Daroussin 	static DIR *dir = NULL;
328d0ef721eSBaptiste Daroussin 	static char *filename = NULL, *dirname = NULL, *dirpath = NULL;
329d0ef721eSBaptiste Daroussin 	static size_t filename_len = 0;
330d0ef721eSBaptiste Daroussin 	struct dirent *entry;
331d0ef721eSBaptiste Daroussin 	char *temp;
3327f399375SBaptiste Daroussin 	const char *pos;
333d0ef721eSBaptiste Daroussin 	size_t len;
334d0ef721eSBaptiste Daroussin 
335d0ef721eSBaptiste Daroussin 	if (state == 0 || dir == NULL) {
3367f399375SBaptiste Daroussin 		pos = strrchr(text, '/');
3377f399375SBaptiste Daroussin 		if (pos) {
338d0ef721eSBaptiste Daroussin 			char *nptr;
3397f399375SBaptiste Daroussin 			pos++;
3407f399375SBaptiste Daroussin 			nptr = el_realloc(filename, (strlen(pos) + 1) *
341d0ef721eSBaptiste Daroussin 			    sizeof(*nptr));
342d0ef721eSBaptiste Daroussin 			if (nptr == NULL) {
343d0ef721eSBaptiste Daroussin 				el_free(filename);
344d0ef721eSBaptiste Daroussin 				filename = NULL;
345d0ef721eSBaptiste Daroussin 				return NULL;
346d0ef721eSBaptiste Daroussin 			}
347d0ef721eSBaptiste Daroussin 			filename = nptr;
3487f399375SBaptiste Daroussin 			(void)strcpy(filename, pos);
3497f399375SBaptiste Daroussin 			len = (size_t)(pos - text);	/* including last slash */
350d0ef721eSBaptiste Daroussin 
351d0ef721eSBaptiste Daroussin 			nptr = el_realloc(dirname, (len + 1) *
352d0ef721eSBaptiste Daroussin 			    sizeof(*nptr));
353d0ef721eSBaptiste Daroussin 			if (nptr == NULL) {
354d0ef721eSBaptiste Daroussin 				el_free(dirname);
355d0ef721eSBaptiste Daroussin 				dirname = NULL;
356d0ef721eSBaptiste Daroussin 				return NULL;
357d0ef721eSBaptiste Daroussin 			}
358d0ef721eSBaptiste Daroussin 			dirname = nptr;
359f9a159daSBaptiste Daroussin 			(void)strlcpy(dirname, text, len + 1);
360d0ef721eSBaptiste Daroussin 		} else {
361d0ef721eSBaptiste Daroussin 			el_free(filename);
362d0ef721eSBaptiste Daroussin 			if (*text == 0)
363d0ef721eSBaptiste Daroussin 				filename = NULL;
364d0ef721eSBaptiste Daroussin 			else {
365d0ef721eSBaptiste Daroussin 				filename = strdup(text);
366d0ef721eSBaptiste Daroussin 				if (filename == NULL)
367d0ef721eSBaptiste Daroussin 					return NULL;
368d0ef721eSBaptiste Daroussin 			}
369d0ef721eSBaptiste Daroussin 			el_free(dirname);
370d0ef721eSBaptiste Daroussin 			dirname = NULL;
371d0ef721eSBaptiste Daroussin 		}
372d0ef721eSBaptiste Daroussin 
373d0ef721eSBaptiste Daroussin 		if (dir != NULL) {
374d0ef721eSBaptiste Daroussin 			(void)closedir(dir);
375d0ef721eSBaptiste Daroussin 			dir = NULL;
376d0ef721eSBaptiste Daroussin 		}
377d0ef721eSBaptiste Daroussin 
378d0ef721eSBaptiste Daroussin 		/* support for ``~user'' syntax */
379d0ef721eSBaptiste Daroussin 
380d0ef721eSBaptiste Daroussin 		el_free(dirpath);
381d0ef721eSBaptiste Daroussin 		dirpath = NULL;
382d0ef721eSBaptiste Daroussin 		if (dirname == NULL) {
383d0ef721eSBaptiste Daroussin 			if ((dirname = strdup("")) == NULL)
384d0ef721eSBaptiste Daroussin 				return NULL;
385d0ef721eSBaptiste Daroussin 			dirpath = strdup("./");
386d0ef721eSBaptiste Daroussin 		} else if (*dirname == '~')
387d0ef721eSBaptiste Daroussin 			dirpath = fn_tilde_expand(dirname);
388d0ef721eSBaptiste Daroussin 		else
389d0ef721eSBaptiste Daroussin 			dirpath = strdup(dirname);
390d0ef721eSBaptiste Daroussin 
391d0ef721eSBaptiste Daroussin 		if (dirpath == NULL)
392d0ef721eSBaptiste Daroussin 			return NULL;
393d0ef721eSBaptiste Daroussin 
394d0ef721eSBaptiste Daroussin 		dir = opendir(dirpath);
395d0ef721eSBaptiste Daroussin 		if (!dir)
396d0ef721eSBaptiste Daroussin 			return NULL;	/* cannot open the directory */
397d0ef721eSBaptiste Daroussin 
398d0ef721eSBaptiste Daroussin 		/* will be used in cycle */
399d0ef721eSBaptiste Daroussin 		filename_len = filename ? strlen(filename) : 0;
400d0ef721eSBaptiste Daroussin 	}
401d0ef721eSBaptiste Daroussin 
402d0ef721eSBaptiste Daroussin 	/* find the match */
403d0ef721eSBaptiste Daroussin 	while ((entry = readdir(dir)) != NULL) {
404d0ef721eSBaptiste Daroussin 		/* skip . and .. */
405d0ef721eSBaptiste Daroussin 		if (entry->d_name[0] == '.' && (!entry->d_name[1]
406d0ef721eSBaptiste Daroussin 		    || (entry->d_name[1] == '.' && !entry->d_name[2])))
407d0ef721eSBaptiste Daroussin 			continue;
408d0ef721eSBaptiste Daroussin 		if (filename_len == 0)
409d0ef721eSBaptiste Daroussin 			break;
410d0ef721eSBaptiste Daroussin 		/* otherwise, get first entry where first */
411d0ef721eSBaptiste Daroussin 		/* filename_len characters are equal	  */
412d0ef721eSBaptiste Daroussin 		if (entry->d_name[0] == filename[0]
413d0ef721eSBaptiste Daroussin #if HAVE_STRUCT_DIRENT_D_NAMLEN
414d0ef721eSBaptiste Daroussin 		    && entry->d_namlen >= filename_len
415d0ef721eSBaptiste Daroussin #else
416d0ef721eSBaptiste Daroussin 		    && strlen(entry->d_name) >= filename_len
417d0ef721eSBaptiste Daroussin #endif
418d0ef721eSBaptiste Daroussin 		    && strncmp(entry->d_name, filename,
419d0ef721eSBaptiste Daroussin 			filename_len) == 0)
420d0ef721eSBaptiste Daroussin 			break;
421d0ef721eSBaptiste Daroussin 	}
422d0ef721eSBaptiste Daroussin 
423d0ef721eSBaptiste Daroussin 	if (entry) {		/* match found */
424d0ef721eSBaptiste Daroussin 
425d0ef721eSBaptiste Daroussin #if HAVE_STRUCT_DIRENT_D_NAMLEN
426d0ef721eSBaptiste Daroussin 		len = entry->d_namlen;
427d0ef721eSBaptiste Daroussin #else
428d0ef721eSBaptiste Daroussin 		len = strlen(entry->d_name);
429d0ef721eSBaptiste Daroussin #endif
430d0ef721eSBaptiste Daroussin 
431d0ef721eSBaptiste Daroussin 		len = strlen(dirname) + len + 1;
432d0ef721eSBaptiste Daroussin 		temp = el_calloc(len, sizeof(*temp));
433d0ef721eSBaptiste Daroussin 		if (temp == NULL)
434d0ef721eSBaptiste Daroussin 			return NULL;
435d0ef721eSBaptiste Daroussin 		(void)snprintf(temp, len, "%s%s", dirname, entry->d_name);
436d0ef721eSBaptiste Daroussin 	} else {
437d0ef721eSBaptiste Daroussin 		(void)closedir(dir);
438d0ef721eSBaptiste Daroussin 		dir = NULL;
439d0ef721eSBaptiste Daroussin 		temp = NULL;
440d0ef721eSBaptiste Daroussin 	}
441d0ef721eSBaptiste Daroussin 
442d0ef721eSBaptiste Daroussin 	return temp;
443d0ef721eSBaptiste Daroussin }
444d0ef721eSBaptiste Daroussin 
445d0ef721eSBaptiste Daroussin 
446d0ef721eSBaptiste Daroussin static const char *
append_char_function(const char * name)447d0ef721eSBaptiste Daroussin append_char_function(const char *name)
448d0ef721eSBaptiste Daroussin {
449d0ef721eSBaptiste Daroussin 	struct stat stbuf;
450d0ef721eSBaptiste Daroussin 	char *expname = *name == '~' ? fn_tilde_expand(name) : NULL;
451d0ef721eSBaptiste Daroussin 	const char *rs = " ";
452d0ef721eSBaptiste Daroussin 
453d0ef721eSBaptiste Daroussin 	if (stat(expname ? expname : name, &stbuf) == -1)
454d0ef721eSBaptiste Daroussin 		goto out;
455d0ef721eSBaptiste Daroussin 	if (S_ISDIR(stbuf.st_mode))
456d0ef721eSBaptiste Daroussin 		rs = "/";
457d0ef721eSBaptiste Daroussin out:
458d0ef721eSBaptiste Daroussin 	if (expname)
459d0ef721eSBaptiste Daroussin 		el_free(expname);
460d0ef721eSBaptiste Daroussin 	return rs;
461d0ef721eSBaptiste Daroussin }
462d0ef721eSBaptiste Daroussin /*
463d0ef721eSBaptiste Daroussin  * returns list of completions for text given
464d0ef721eSBaptiste Daroussin  * non-static for readline.
465d0ef721eSBaptiste Daroussin  */
466d0ef721eSBaptiste Daroussin char ** completion_matches(const char *, char *(*)(const char *, int));
467d0ef721eSBaptiste Daroussin char **
completion_matches(const char * text,char * (* genfunc)(const char *,int))468d0ef721eSBaptiste Daroussin completion_matches(const char *text, char *(*genfunc)(const char *, int))
469d0ef721eSBaptiste Daroussin {
470d0ef721eSBaptiste Daroussin 	char **match_list = NULL, *retstr, *prevstr;
471d0ef721eSBaptiste Daroussin 	size_t match_list_len, max_equal, which, i;
472d0ef721eSBaptiste Daroussin 	size_t matches;
473d0ef721eSBaptiste Daroussin 
474d0ef721eSBaptiste Daroussin 	matches = 0;
475d0ef721eSBaptiste Daroussin 	match_list_len = 1;
476d0ef721eSBaptiste Daroussin 	while ((retstr = (*genfunc) (text, (int)matches)) != NULL) {
477d0ef721eSBaptiste Daroussin 		/* allow for list terminator here */
478d0ef721eSBaptiste Daroussin 		if (matches + 3 >= match_list_len) {
479d0ef721eSBaptiste Daroussin 			char **nmatch_list;
480d0ef721eSBaptiste Daroussin 			while (matches + 3 >= match_list_len)
481d0ef721eSBaptiste Daroussin 				match_list_len <<= 1;
482d0ef721eSBaptiste Daroussin 			nmatch_list = el_realloc(match_list,
483d0ef721eSBaptiste Daroussin 			    match_list_len * sizeof(*nmatch_list));
484d0ef721eSBaptiste Daroussin 			if (nmatch_list == NULL) {
485d0ef721eSBaptiste Daroussin 				el_free(match_list);
486d0ef721eSBaptiste Daroussin 				return NULL;
487d0ef721eSBaptiste Daroussin 			}
488d0ef721eSBaptiste Daroussin 			match_list = nmatch_list;
489d0ef721eSBaptiste Daroussin 
490d0ef721eSBaptiste Daroussin 		}
491d0ef721eSBaptiste Daroussin 		match_list[++matches] = retstr;
492d0ef721eSBaptiste Daroussin 	}
493d0ef721eSBaptiste Daroussin 
494d0ef721eSBaptiste Daroussin 	if (!match_list)
495d0ef721eSBaptiste Daroussin 		return NULL;	/* nothing found */
496d0ef721eSBaptiste Daroussin 
497d0ef721eSBaptiste Daroussin 	/* find least denominator and insert it to match_list[0] */
498d0ef721eSBaptiste Daroussin 	which = 2;
499d0ef721eSBaptiste Daroussin 	prevstr = match_list[1];
500d0ef721eSBaptiste Daroussin 	max_equal = strlen(prevstr);
501d0ef721eSBaptiste Daroussin 	for (; which <= matches; which++) {
502d0ef721eSBaptiste Daroussin 		for (i = 0; i < max_equal &&
503d0ef721eSBaptiste Daroussin 		    prevstr[i] == match_list[which][i]; i++)
504d0ef721eSBaptiste Daroussin 			continue;
505d0ef721eSBaptiste Daroussin 		max_equal = i;
506d0ef721eSBaptiste Daroussin 	}
507d0ef721eSBaptiste Daroussin 
508d0ef721eSBaptiste Daroussin 	retstr = el_calloc(max_equal + 1, sizeof(*retstr));
509d0ef721eSBaptiste Daroussin 	if (retstr == NULL) {
510d0ef721eSBaptiste Daroussin 		el_free(match_list);
511d0ef721eSBaptiste Daroussin 		return NULL;
512d0ef721eSBaptiste Daroussin 	}
513f9a159daSBaptiste Daroussin 	(void)strlcpy(retstr, match_list[1], max_equal + 1);
514d0ef721eSBaptiste Daroussin 	match_list[0] = retstr;
515d0ef721eSBaptiste Daroussin 
516d0ef721eSBaptiste Daroussin 	/* add NULL as last pointer to the array */
517d0ef721eSBaptiste Daroussin 	match_list[matches + 1] = NULL;
518d0ef721eSBaptiste Daroussin 
519d0ef721eSBaptiste Daroussin 	return match_list;
520d0ef721eSBaptiste Daroussin }
521d0ef721eSBaptiste Daroussin 
522d0ef721eSBaptiste Daroussin /*
523d0ef721eSBaptiste Daroussin  * Sort function for qsort(). Just wrapper around strcasecmp().
524d0ef721eSBaptiste Daroussin  */
525d0ef721eSBaptiste Daroussin static int
_fn_qsort_string_compare(const void * i1,const void * i2)526d0ef721eSBaptiste Daroussin _fn_qsort_string_compare(const void *i1, const void *i2)
527d0ef721eSBaptiste Daroussin {
528d0ef721eSBaptiste Daroussin 	const char *s1 = ((const char * const *)i1)[0];
529d0ef721eSBaptiste Daroussin 	const char *s2 = ((const char * const *)i2)[0];
530d0ef721eSBaptiste Daroussin 
531d0ef721eSBaptiste Daroussin 	return strcasecmp(s1, s2);
532d0ef721eSBaptiste Daroussin }
533d0ef721eSBaptiste Daroussin 
534d0ef721eSBaptiste Daroussin /*
535d0ef721eSBaptiste Daroussin  * Display list of strings in columnar format on readline's output stream.
536d0ef721eSBaptiste Daroussin  * 'matches' is list of strings, 'num' is number of strings in 'matches',
537d0ef721eSBaptiste Daroussin  * 'width' is maximum length of string in 'matches'.
538d0ef721eSBaptiste Daroussin  *
539d0ef721eSBaptiste Daroussin  * matches[0] is not one of the match strings, but it is counted in
540d0ef721eSBaptiste Daroussin  * num, so the strings are matches[1] *through* matches[num-1].
541d0ef721eSBaptiste Daroussin  */
542d0ef721eSBaptiste Daroussin void
fn_display_match_list(EditLine * el,char ** matches,size_t num,size_t width,const char * (* app_func)(const char *))543d0ef721eSBaptiste Daroussin fn_display_match_list(EditLine * el, char **matches, size_t num, size_t width,
544d0ef721eSBaptiste Daroussin     const char *(*app_func) (const char *))
545d0ef721eSBaptiste Daroussin {
546d0ef721eSBaptiste Daroussin 	size_t line, lines, col, cols, thisguy;
547d0ef721eSBaptiste Daroussin 	int screenwidth = el->el_terminal.t_size.h;
548d0ef721eSBaptiste Daroussin 	if (app_func == NULL)
549d0ef721eSBaptiste Daroussin 		app_func = append_char_function;
550d0ef721eSBaptiste Daroussin 
551d0ef721eSBaptiste Daroussin 	/* Ignore matches[0]. Avoid 1-based array logic below. */
552d0ef721eSBaptiste Daroussin 	matches++;
553d0ef721eSBaptiste Daroussin 	num--;
554d0ef721eSBaptiste Daroussin 
555d0ef721eSBaptiste Daroussin 	/*
556d0ef721eSBaptiste Daroussin 	 * Find out how many entries can be put on one line; count
557d0ef721eSBaptiste Daroussin 	 * with one space between strings the same way it's printed.
558d0ef721eSBaptiste Daroussin 	 */
559d0ef721eSBaptiste Daroussin 	cols = (size_t)screenwidth / (width + 2);
560d0ef721eSBaptiste Daroussin 	if (cols == 0)
561d0ef721eSBaptiste Daroussin 		cols = 1;
562d0ef721eSBaptiste Daroussin 
563d0ef721eSBaptiste Daroussin 	/* how many lines of output, rounded up */
564d0ef721eSBaptiste Daroussin 	lines = (num + cols - 1) / cols;
565d0ef721eSBaptiste Daroussin 
566d0ef721eSBaptiste Daroussin 	/* Sort the items. */
567d0ef721eSBaptiste Daroussin 	qsort(matches, num, sizeof(char *), _fn_qsort_string_compare);
568d0ef721eSBaptiste Daroussin 
569d0ef721eSBaptiste Daroussin 	/*
570d0ef721eSBaptiste Daroussin 	 * On the ith line print elements i, i+lines, i+lines*2, etc.
571d0ef721eSBaptiste Daroussin 	 */
572d0ef721eSBaptiste Daroussin 	for (line = 0; line < lines; line++) {
573d0ef721eSBaptiste Daroussin 		for (col = 0; col < cols; col++) {
574d0ef721eSBaptiste Daroussin 			thisguy = line + col * lines;
575d0ef721eSBaptiste Daroussin 			if (thisguy >= num)
576d0ef721eSBaptiste Daroussin 				break;
577d0ef721eSBaptiste Daroussin 			(void)fprintf(el->el_outfile, "%s%s%s",
578d0ef721eSBaptiste Daroussin 			    col == 0 ? "" : " ", matches[thisguy],
579d0ef721eSBaptiste Daroussin 				(*app_func)(matches[thisguy]));
580d0ef721eSBaptiste Daroussin 			(void)fprintf(el->el_outfile, "%-*s",
581d0ef721eSBaptiste Daroussin 				(int) (width - strlen(matches[thisguy])), "");
582d0ef721eSBaptiste Daroussin 		}
583d0ef721eSBaptiste Daroussin 		(void)fprintf(el->el_outfile, "\n");
584d0ef721eSBaptiste Daroussin 	}
585d0ef721eSBaptiste Daroussin }
586d0ef721eSBaptiste Daroussin 
587d0ef721eSBaptiste Daroussin static wchar_t *
find_word_to_complete(const wchar_t * cursor,const wchar_t * buffer,const wchar_t * word_break,const wchar_t * special_prefixes,size_t * length,int do_unescape)588d0ef721eSBaptiste Daroussin find_word_to_complete(const wchar_t * cursor, const wchar_t * buffer,
589f9a159daSBaptiste Daroussin     const wchar_t * word_break, const wchar_t * special_prefixes, size_t * length,
590f9a159daSBaptiste Daroussin 	int do_unescape)
591d0ef721eSBaptiste Daroussin {
592d0ef721eSBaptiste Daroussin 	/* We now look backwards for the start of a filename/variable word */
593d0ef721eSBaptiste Daroussin 	const wchar_t *ctemp = cursor;
594f9a159daSBaptiste Daroussin 	wchar_t *temp;
595d0ef721eSBaptiste Daroussin 	size_t len;
596d0ef721eSBaptiste Daroussin 
597d0ef721eSBaptiste Daroussin 	/* if the cursor is placed at a slash or a quote, we need to find the
598d0ef721eSBaptiste Daroussin 	 * word before it
599d0ef721eSBaptiste Daroussin 	 */
600d0ef721eSBaptiste Daroussin 	if (ctemp > buffer) {
601d0ef721eSBaptiste Daroussin 		switch (ctemp[-1]) {
602d0ef721eSBaptiste Daroussin 		case '\\':
603d0ef721eSBaptiste Daroussin 		case '\'':
604d0ef721eSBaptiste Daroussin 		case '"':
605d0ef721eSBaptiste Daroussin 			ctemp--;
606d0ef721eSBaptiste Daroussin 			break;
607d0ef721eSBaptiste Daroussin 		default:
608d0ef721eSBaptiste Daroussin 			break;
609d0ef721eSBaptiste Daroussin 		}
610d0ef721eSBaptiste Daroussin 	}
611d0ef721eSBaptiste Daroussin 
612d0ef721eSBaptiste Daroussin 	for (;;) {
613d0ef721eSBaptiste Daroussin 		if (ctemp <= buffer)
614d0ef721eSBaptiste Daroussin 			break;
6157f399375SBaptiste Daroussin 		if (ctemp - buffer >= 2 && ctemp[-2] == '\\' &&
6167f399375SBaptiste Daroussin 		    needs_escaping(ctemp[-1])) {
617d0ef721eSBaptiste Daroussin 			ctemp -= 2;
618d0ef721eSBaptiste Daroussin 			continue;
619f9a159daSBaptiste Daroussin 		}
6207f399375SBaptiste Daroussin 		if (wcschr(word_break, ctemp[-1]))
621d0ef721eSBaptiste Daroussin 			break;
622d0ef721eSBaptiste Daroussin 		if (special_prefixes && wcschr(special_prefixes, ctemp[-1]))
623d0ef721eSBaptiste Daroussin 			break;
624d0ef721eSBaptiste Daroussin 		ctemp--;
625d0ef721eSBaptiste Daroussin 	}
626d0ef721eSBaptiste Daroussin 
627d0ef721eSBaptiste Daroussin 	len = (size_t) (cursor - ctemp);
628d0ef721eSBaptiste Daroussin 	if (len == 1 && (ctemp[0] == '\'' || ctemp[0] == '"')) {
629d0ef721eSBaptiste Daroussin 		len = 0;
630d0ef721eSBaptiste Daroussin 		ctemp++;
631d0ef721eSBaptiste Daroussin 	}
632d0ef721eSBaptiste Daroussin 	*length = len;
633f9a159daSBaptiste Daroussin 	if (do_unescape) {
634d0ef721eSBaptiste Daroussin 		wchar_t *unescaped_word = unescape_string(ctemp, len);
635d0ef721eSBaptiste Daroussin 		if (unescaped_word == NULL)
636d0ef721eSBaptiste Daroussin 			return NULL;
637d0ef721eSBaptiste Daroussin 		return unescaped_word;
638d0ef721eSBaptiste Daroussin 	}
639f9a159daSBaptiste Daroussin 	temp = el_malloc((len + 1) * sizeof(*temp));
640baff8195SBaptiste Daroussin 	if (temp == NULL)
641baff8195SBaptiste Daroussin 		return NULL;
642f9a159daSBaptiste Daroussin 	(void) wcsncpy(temp, ctemp, len);
643f9a159daSBaptiste Daroussin 	temp[len] = '\0';
644f9a159daSBaptiste Daroussin 	return temp;
645f9a159daSBaptiste Daroussin }
646d0ef721eSBaptiste Daroussin 
647d0ef721eSBaptiste Daroussin /*
648d0ef721eSBaptiste Daroussin  * Complete the word at or before point,
649d0ef721eSBaptiste Daroussin  * 'what_to_do' says what to do with the completion.
650d0ef721eSBaptiste Daroussin  * \t   means do standard completion.
651d0ef721eSBaptiste Daroussin  * `?' means list the possible completions.
652d0ef721eSBaptiste Daroussin  * `*' means insert all of the possible completions.
653d0ef721eSBaptiste Daroussin  * `!' means to do standard completion, and list all possible completions if
654d0ef721eSBaptiste Daroussin  * there is more than one.
655d0ef721eSBaptiste Daroussin  *
656d0ef721eSBaptiste Daroussin  * Note: '*' support is not implemented
657d0ef721eSBaptiste Daroussin  *       '!' could never be invoked
658d0ef721eSBaptiste Daroussin  */
659d0ef721eSBaptiste Daroussin int
fn_complete2(EditLine * el,char * (* complete_func)(const char *,int),char ** (* attempted_completion_function)(const char *,int,int),const wchar_t * word_break,const wchar_t * special_prefixes,const char * (* app_func)(const char *),size_t query_items,int * completion_type,int * over,int * point,int * end,unsigned int flags)66019318a62SBaptiste Daroussin fn_complete2(EditLine *el,
66119318a62SBaptiste Daroussin     char *(*complete_func)(const char *, int),
662d0ef721eSBaptiste Daroussin     char **(*attempted_completion_function)(const char *, int, int),
663d0ef721eSBaptiste Daroussin     const wchar_t *word_break, const wchar_t *special_prefixes,
664d0ef721eSBaptiste Daroussin     const char *(*app_func)(const char *), size_t query_items,
66519318a62SBaptiste Daroussin     int *completion_type, int *over, int *point, int *end,
66619318a62SBaptiste Daroussin     unsigned int flags)
667d0ef721eSBaptiste Daroussin {
668d0ef721eSBaptiste Daroussin 	const LineInfoW *li;
669d0ef721eSBaptiste Daroussin 	wchar_t *temp;
670d0ef721eSBaptiste Daroussin 	char **matches;
671d0ef721eSBaptiste Daroussin 	char *completion;
672d0ef721eSBaptiste Daroussin 	size_t len;
673d0ef721eSBaptiste Daroussin 	int what_to_do = '\t';
674d0ef721eSBaptiste Daroussin 	int retval = CC_NORM;
67519318a62SBaptiste Daroussin 	int do_unescape = flags & FN_QUOTE_MATCH;
676d0ef721eSBaptiste Daroussin 
677d0ef721eSBaptiste Daroussin 	if (el->el_state.lastcmd == el->el_state.thiscmd)
678d0ef721eSBaptiste Daroussin 		what_to_do = '?';
679d0ef721eSBaptiste Daroussin 
680d0ef721eSBaptiste Daroussin 	/* readline's rl_complete() has to be told what we did... */
681d0ef721eSBaptiste Daroussin 	if (completion_type != NULL)
682d0ef721eSBaptiste Daroussin 		*completion_type = what_to_do;
683d0ef721eSBaptiste Daroussin 
68419318a62SBaptiste Daroussin 	if (!complete_func)
68519318a62SBaptiste Daroussin 		complete_func = fn_filename_completion_function;
686d0ef721eSBaptiste Daroussin 	if (!app_func)
687d0ef721eSBaptiste Daroussin 		app_func = append_char_function;
688d0ef721eSBaptiste Daroussin 
689d0ef721eSBaptiste Daroussin 	li = el_wline(el);
690d0ef721eSBaptiste Daroussin 	temp = find_word_to_complete(li->cursor,
691f9a159daSBaptiste Daroussin 	    li->buffer, word_break, special_prefixes, &len, do_unescape);
692d0ef721eSBaptiste Daroussin 	if (temp == NULL)
693d0ef721eSBaptiste Daroussin 		goto out;
694d0ef721eSBaptiste Daroussin 
695d0ef721eSBaptiste Daroussin 	/* these can be used by function called in completion_matches() */
696d0ef721eSBaptiste Daroussin 	/* or (*attempted_completion_function)() */
697d0ef721eSBaptiste Daroussin 	if (point != NULL)
698d0ef721eSBaptiste Daroussin 		*point = (int)(li->cursor - li->buffer);
699d0ef721eSBaptiste Daroussin 	if (end != NULL)
700d0ef721eSBaptiste Daroussin 		*end = (int)(li->lastchar - li->buffer);
701d0ef721eSBaptiste Daroussin 
702d0ef721eSBaptiste Daroussin 	if (attempted_completion_function) {
703d0ef721eSBaptiste Daroussin 		int cur_off = (int)(li->cursor - li->buffer);
704d0ef721eSBaptiste Daroussin 		matches = (*attempted_completion_function)(
705d0ef721eSBaptiste Daroussin 		    ct_encode_string(temp, &el->el_scratch),
706d0ef721eSBaptiste Daroussin 		    cur_off - (int)len, cur_off);
707d0ef721eSBaptiste Daroussin 	} else
708d0ef721eSBaptiste Daroussin 		matches = NULL;
709d0ef721eSBaptiste Daroussin 	if (!attempted_completion_function ||
710d0ef721eSBaptiste Daroussin 	    (over != NULL && !*over && !matches))
711d0ef721eSBaptiste Daroussin 		matches = completion_matches(
71219318a62SBaptiste Daroussin 		    ct_encode_string(temp, &el->el_scratch), complete_func);
713d0ef721eSBaptiste Daroussin 
714d0ef721eSBaptiste Daroussin 	if (over != NULL)
715d0ef721eSBaptiste Daroussin 		*over = 0;
716d0ef721eSBaptiste Daroussin 
717f9a159daSBaptiste Daroussin 	if (matches == NULL) {
718f9a159daSBaptiste Daroussin 		goto out;
719f9a159daSBaptiste Daroussin 	}
720d0ef721eSBaptiste Daroussin 	int i;
721d0ef721eSBaptiste Daroussin 	size_t matches_num, maxlen, match_len, match_display=1;
722d0ef721eSBaptiste Daroussin 	int single_match = matches[2] == NULL &&
723d0ef721eSBaptiste Daroussin 		(matches[1] == NULL || strcmp(matches[0], matches[1]) == 0);
724d0ef721eSBaptiste Daroussin 
725d0ef721eSBaptiste Daroussin 	retval = CC_REFRESH;
726d0ef721eSBaptiste Daroussin 
727d0ef721eSBaptiste Daroussin 	if (matches[0][0] != '\0') {
728d0ef721eSBaptiste Daroussin 		el_deletestr(el, (int)len);
72919318a62SBaptiste Daroussin 		if (flags & FN_QUOTE_MATCH)
730d0ef721eSBaptiste Daroussin 			completion = escape_filename(el, matches[0],
731d0ef721eSBaptiste Daroussin 			    single_match, app_func);
732d0ef721eSBaptiste Daroussin 		else
733d0ef721eSBaptiste Daroussin 			completion = strdup(matches[0]);
734d0ef721eSBaptiste Daroussin 		if (completion == NULL)
73591f76417SBaptiste Daroussin 			goto out2;
736f9a159daSBaptiste Daroussin 
737f9a159daSBaptiste Daroussin 		/*
738f9a159daSBaptiste Daroussin 		 * Replace the completed string with the common part of
739f9a159daSBaptiste Daroussin 		 * all possible matches if there is a possible completion.
740f9a159daSBaptiste Daroussin 		 */
741f9a159daSBaptiste Daroussin 		el_winsertstr(el,
742f9a159daSBaptiste Daroussin 		    ct_decode_string(completion, &el->el_scratch));
743f9a159daSBaptiste Daroussin 
74419318a62SBaptiste Daroussin 		if (single_match && attempted_completion_function &&
74519318a62SBaptiste Daroussin 		    !(flags & FN_QUOTE_MATCH))
74619318a62SBaptiste Daroussin 		{
747f9a159daSBaptiste Daroussin 			/*
748f9a159daSBaptiste Daroussin 			 * We found an exact match. Add a space after
749f9a159daSBaptiste Daroussin 			 * it, unless we do filename completion and the
750d0ef721eSBaptiste Daroussin 			 * object is a directory. Also do necessary
751d0ef721eSBaptiste Daroussin 			 * escape quoting
752d0ef721eSBaptiste Daroussin 			 */
753f9a159daSBaptiste Daroussin 			el_winsertstr(el, ct_decode_string(
754f9a159daSBaptiste Daroussin 			    (*app_func)(completion), &el->el_scratch));
755d0ef721eSBaptiste Daroussin 		}
756d0ef721eSBaptiste Daroussin 		free(completion);
757d0ef721eSBaptiste Daroussin 	}
758d0ef721eSBaptiste Daroussin 
759d0ef721eSBaptiste Daroussin 
760d0ef721eSBaptiste Daroussin 	if (!single_match && (what_to_do == '!' || what_to_do == '?')) {
761d0ef721eSBaptiste Daroussin 		/*
762d0ef721eSBaptiste Daroussin 		 * More than one match and requested to list possible
763d0ef721eSBaptiste Daroussin 		 * matches.
764d0ef721eSBaptiste Daroussin 		 */
765d0ef721eSBaptiste Daroussin 
766d0ef721eSBaptiste Daroussin 		for(i = 1, maxlen = 0; matches[i]; i++) {
767d0ef721eSBaptiste Daroussin 			match_len = strlen(matches[i]);
768d0ef721eSBaptiste Daroussin 			if (match_len > maxlen)
769d0ef721eSBaptiste Daroussin 				maxlen = match_len;
770d0ef721eSBaptiste Daroussin 		}
771d0ef721eSBaptiste Daroussin 		/* matches[1] through matches[i-1] are available */
772d0ef721eSBaptiste Daroussin 		matches_num = (size_t)(i - 1);
773d0ef721eSBaptiste Daroussin 
774d0ef721eSBaptiste Daroussin 		/* newline to get on next line from command line */
775d0ef721eSBaptiste Daroussin 		(void)fprintf(el->el_outfile, "\n");
776d0ef721eSBaptiste Daroussin 
777d0ef721eSBaptiste Daroussin 		/*
778d0ef721eSBaptiste Daroussin 		 * If there are too many items, ask user for display
779d0ef721eSBaptiste Daroussin 		 * confirmation.
780d0ef721eSBaptiste Daroussin 		 */
781d0ef721eSBaptiste Daroussin 		if (matches_num > query_items) {
782d0ef721eSBaptiste Daroussin 			(void)fprintf(el->el_outfile,
783d0ef721eSBaptiste Daroussin 			    "Display all %zu possibilities? (y or n) ",
784d0ef721eSBaptiste Daroussin 			    matches_num);
785d0ef721eSBaptiste Daroussin 			(void)fflush(el->el_outfile);
786d0ef721eSBaptiste Daroussin 			if (getc(stdin) != 'y')
787d0ef721eSBaptiste Daroussin 				match_display = 0;
788d0ef721eSBaptiste Daroussin 			(void)fprintf(el->el_outfile, "\n");
789d0ef721eSBaptiste Daroussin 		}
790d0ef721eSBaptiste Daroussin 
791d0ef721eSBaptiste Daroussin 		if (match_display) {
792d0ef721eSBaptiste Daroussin 			/*
793d0ef721eSBaptiste Daroussin 			 * Interface of this function requires the
794d0ef721eSBaptiste Daroussin 			 * strings be matches[1..num-1] for compat.
795d0ef721eSBaptiste Daroussin 			 * We have matches_num strings not counting
796d0ef721eSBaptiste Daroussin 			 * the prefix in matches[0], so we need to
797d0ef721eSBaptiste Daroussin 			 * add 1 to matches_num for the call.
798d0ef721eSBaptiste Daroussin 			 */
799d0ef721eSBaptiste Daroussin 			fn_display_match_list(el, matches,
800d0ef721eSBaptiste Daroussin 			    matches_num+1, maxlen, app_func);
801d0ef721eSBaptiste Daroussin 		}
802d0ef721eSBaptiste Daroussin 		retval = CC_REDISPLAY;
803d0ef721eSBaptiste Daroussin 	} else if (matches[0][0]) {
804d0ef721eSBaptiste Daroussin 		/*
805d0ef721eSBaptiste Daroussin 		 * There was some common match, but the name was
806d0ef721eSBaptiste Daroussin 		 * not complete enough. Next tab will print possible
807d0ef721eSBaptiste Daroussin 		 * completions.
808d0ef721eSBaptiste Daroussin 		 */
809d0ef721eSBaptiste Daroussin 		el_beep(el);
810d0ef721eSBaptiste Daroussin 	} else {
811d0ef721eSBaptiste Daroussin 		/* lcd is not a valid object - further specification */
812d0ef721eSBaptiste Daroussin 		/* is needed */
813d0ef721eSBaptiste Daroussin 		el_beep(el);
814d0ef721eSBaptiste Daroussin 		retval = CC_NORM;
815d0ef721eSBaptiste Daroussin 	}
816d0ef721eSBaptiste Daroussin 
817d0ef721eSBaptiste Daroussin 	/* free elements of array and the array itself */
81891f76417SBaptiste Daroussin out2:
819d0ef721eSBaptiste Daroussin 	for (i = 0; matches[i]; i++)
820d0ef721eSBaptiste Daroussin 		el_free(matches[i]);
821d0ef721eSBaptiste Daroussin 	el_free(matches);
822d0ef721eSBaptiste Daroussin 	matches = NULL;
823d0ef721eSBaptiste Daroussin 
824d0ef721eSBaptiste Daroussin out:
825d0ef721eSBaptiste Daroussin 	el_free(temp);
826d0ef721eSBaptiste Daroussin 	return retval;
827d0ef721eSBaptiste Daroussin }
828d0ef721eSBaptiste Daroussin 
82919318a62SBaptiste Daroussin int
fn_complete(EditLine * el,char * (* complete_func)(const char *,int),char ** (* attempted_completion_function)(const char *,int,int),const wchar_t * word_break,const wchar_t * special_prefixes,const char * (* app_func)(const char *),size_t query_items,int * completion_type,int * over,int * point,int * end)83019318a62SBaptiste Daroussin fn_complete(EditLine *el,
83119318a62SBaptiste Daroussin     char *(*complete_func)(const char *, int),
83219318a62SBaptiste Daroussin     char **(*attempted_completion_function)(const char *, int, int),
83319318a62SBaptiste Daroussin     const wchar_t *word_break, const wchar_t *special_prefixes,
83419318a62SBaptiste Daroussin     const char *(*app_func)(const char *), size_t query_items,
83519318a62SBaptiste Daroussin     int *completion_type, int *over, int *point, int *end)
83619318a62SBaptiste Daroussin {
83719318a62SBaptiste Daroussin 	return fn_complete2(el, complete_func, attempted_completion_function,
83819318a62SBaptiste Daroussin 	    word_break, special_prefixes, app_func, query_items,
83919318a62SBaptiste Daroussin 	    completion_type, over, point, end,
84019318a62SBaptiste Daroussin 	    attempted_completion_function ? 0 : FN_QUOTE_MATCH);
84119318a62SBaptiste Daroussin }
84219318a62SBaptiste Daroussin 
843d0ef721eSBaptiste Daroussin /*
844d0ef721eSBaptiste Daroussin  * el-compatible wrapper around rl_complete; needed for key binding
845d0ef721eSBaptiste Daroussin  */
846d0ef721eSBaptiste Daroussin /* ARGSUSED */
847d0ef721eSBaptiste Daroussin unsigned char
_el_fn_complete(EditLine * el,int ch)848d0ef721eSBaptiste Daroussin _el_fn_complete(EditLine *el, int ch __attribute__((__unused__)))
849d0ef721eSBaptiste Daroussin {
850d0ef721eSBaptiste Daroussin 	return (unsigned char)fn_complete(el, NULL, NULL,
851d0ef721eSBaptiste Daroussin 	    break_chars, NULL, NULL, (size_t)100,
852d0ef721eSBaptiste Daroussin 	    NULL, NULL, NULL, NULL);
853d0ef721eSBaptiste Daroussin }
85496c81c97SBaptiste Daroussin 
85596c81c97SBaptiste Daroussin /*
85696c81c97SBaptiste Daroussin  * el-compatible wrapper around rl_complete; needed for key binding
85796c81c97SBaptiste Daroussin  */
85896c81c97SBaptiste Daroussin /* ARGSUSED */
85996c81c97SBaptiste Daroussin unsigned char
_el_fn_sh_complete(EditLine * el,int ch)86096c81c97SBaptiste Daroussin _el_fn_sh_complete(EditLine *el, int ch)
86196c81c97SBaptiste Daroussin {
86296c81c97SBaptiste Daroussin 	return _el_fn_complete(el, ch);
86396c81c97SBaptiste Daroussin }
864