xref: /freebsd/bin/sh/expand.c (revision 439948cdf67b5b14324c7e1ff5aa6529eaab15db)
14b88c807SRodney W. Grimes /*-
24b88c807SRodney W. Grimes  * Copyright (c) 1991, 1993
34b88c807SRodney W. Grimes  *	The Regents of the University of California.  All rights reserved.
44710b07eSJilles Tjoelker  * Copyright (c) 1997-2005
54710b07eSJilles Tjoelker  *	Herbert Xu <herbert@gondor.apana.org.au>.  All rights reserved.
647d8814cSJilles Tjoelker  * Copyright (c) 2010-2015
747d8814cSJilles Tjoelker  *	Jilles Tjoelker <jilles@stack.nl>.  All rights reserved.
84b88c807SRodney W. Grimes  *
94b88c807SRodney W. Grimes  * This code is derived from software contributed to Berkeley by
104b88c807SRodney W. Grimes  * Kenneth Almquist.
114b88c807SRodney W. Grimes  *
124b88c807SRodney W. Grimes  * Redistribution and use in source and binary forms, with or without
134b88c807SRodney W. Grimes  * modification, are permitted provided that the following conditions
144b88c807SRodney W. Grimes  * are met:
154b88c807SRodney W. Grimes  * 1. Redistributions of source code must retain the above copyright
164b88c807SRodney W. Grimes  *    notice, this list of conditions and the following disclaimer.
174b88c807SRodney W. Grimes  * 2. Redistributions in binary form must reproduce the above copyright
184b88c807SRodney W. Grimes  *    notice, this list of conditions and the following disclaimer in the
194b88c807SRodney W. Grimes  *    documentation and/or other materials provided with the distribution.
20fbbd9655SWarner Losh  * 3. Neither the name of the University nor the names of its contributors
214b88c807SRodney W. Grimes  *    may be used to endorse or promote products derived from this software
224b88c807SRodney W. Grimes  *    without specific prior written permission.
234b88c807SRodney W. Grimes  *
244b88c807SRodney W. Grimes  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
254b88c807SRodney W. Grimes  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
264b88c807SRodney W. Grimes  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
274b88c807SRodney W. Grimes  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
284b88c807SRodney W. Grimes  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
294b88c807SRodney W. Grimes  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
304b88c807SRodney W. Grimes  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
314b88c807SRodney W. Grimes  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
324b88c807SRodney W. Grimes  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
334b88c807SRodney W. Grimes  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
344b88c807SRodney W. Grimes  * SUCH DAMAGE.
354b88c807SRodney W. Grimes  */
364b88c807SRodney W. Grimes 
374b88c807SRodney W. Grimes #ifndef lint
383d7b5b93SPhilippe Charnier #if 0
393d7b5b93SPhilippe Charnier static char sccsid[] = "@(#)expand.c	8.5 (Berkeley) 5/15/95";
403d7b5b93SPhilippe Charnier #endif
414b88c807SRodney W. Grimes #endif /* not lint */
422749b141SDavid E. O'Brien #include <sys/cdefs.h>
432749b141SDavid E. O'Brien __FBSDID("$FreeBSD$");
444b88c807SRodney W. Grimes 
45aa9caaf6SPeter Wemm #include <sys/types.h>
46aa9caaf6SPeter Wemm #include <sys/time.h>
47aa9caaf6SPeter Wemm #include <sys/stat.h>
48aa9caaf6SPeter Wemm #include <dirent.h>
498ab2e970SJohn Baldwin #include <errno.h>
508ab2e970SJohn Baldwin #include <inttypes.h>
513cd859a7SAndrey A. Chernov #include <limits.h>
528ab2e970SJohn Baldwin #include <pwd.h>
536f47734fSTor Egge #include <stdio.h>
548ab2e970SJohn Baldwin #include <stdlib.h>
552c25061fSTim J. Robbins #include <string.h>
568ab2e970SJohn Baldwin #include <unistd.h>
577cc6b3dfSJilles Tjoelker #include <wchar.h>
58ff4dc672SJilles Tjoelker #include <wctype.h>
59aa9caaf6SPeter Wemm 
604b88c807SRodney W. Grimes /*
614b88c807SRodney W. Grimes  * Routines to expand arguments to commands.  We have to deal with
624b88c807SRodney W. Grimes  * backquotes, shell variables, and file metacharacters.
634b88c807SRodney W. Grimes  */
644b88c807SRodney W. Grimes 
654b88c807SRodney W. Grimes #include "shell.h"
664b88c807SRodney W. Grimes #include "main.h"
674b88c807SRodney W. Grimes #include "nodes.h"
684b88c807SRodney W. Grimes #include "eval.h"
694b88c807SRodney W. Grimes #include "expand.h"
704b88c807SRodney W. Grimes #include "syntax.h"
714b88c807SRodney W. Grimes #include "parser.h"
724b88c807SRodney W. Grimes #include "jobs.h"
734b88c807SRodney W. Grimes #include "options.h"
744b88c807SRodney W. Grimes #include "var.h"
754b88c807SRodney W. Grimes #include "input.h"
764b88c807SRodney W. Grimes #include "output.h"
774b88c807SRodney W. Grimes #include "memalloc.h"
784b88c807SRodney W. Grimes #include "error.h"
794b88c807SRodney W. Grimes #include "mystring.h"
80aa9caaf6SPeter Wemm #include "arith.h"
81aa9caaf6SPeter Wemm #include "show.h"
82454a02b3SJilles Tjoelker #include "builtins.h"
834b88c807SRodney W. Grimes 
8447d8814cSJilles Tjoelker enum wordstate { WORD_IDLE, WORD_WS_DELIMITED, WORD_QUOTEMARK };
854b88c807SRodney W. Grimes 
8647d8814cSJilles Tjoelker struct worddest {
870e39c931SJilles Tjoelker 	struct arglist *list;
8847d8814cSJilles Tjoelker 	enum wordstate state;
894b88c807SRodney W. Grimes };
904b88c807SRodney W. Grimes 
91aa7b6f82SDavid E. O'Brien static char *expdest;			/* output of current string */
924b88c807SRodney W. Grimes 
93*439948cdSJilles Tjoelker static const char *argstr(const char *, struct nodelist **restrict, int,
94*439948cdSJilles Tjoelker     struct worddest *);
9552d5897dSJilles Tjoelker static const char *exptilde(const char *, int);
96*439948cdSJilles Tjoelker static const char *expari(const char *, struct nodelist **restrict, int,
97*439948cdSJilles Tjoelker     struct worddest *);
9847d8814cSJilles Tjoelker static void expbackq(union node *, int, int, struct worddest *);
99*439948cdSJilles Tjoelker static void subevalvar_trim(const char *, struct nodelist *, int, int, int);
100*439948cdSJilles Tjoelker static int subevalvar_misc(const char *, struct nodelist *, const char *, int,
101*439948cdSJilles Tjoelker     int, int);
102*439948cdSJilles Tjoelker static const char *evalvar(const char *, struct nodelist **restrict, int,
103*439948cdSJilles Tjoelker     struct worddest *);
10461346cbdSJilles Tjoelker static int varisset(const char *, int);
10547d8814cSJilles Tjoelker static void strtodest(const char *, int, int, int, struct worddest *);
10647d8814cSJilles Tjoelker static void reprocess(int, int, int, int, struct worddest *);
10747d8814cSJilles Tjoelker static void varvalue(const char *, int, int, int, struct worddest *);
1080e39c931SJilles Tjoelker static void expandmeta(char *, struct arglist *);
1098ef0ae8aSJilles Tjoelker static void expmeta(char *, char *, struct arglist *);
1108ef0ae8aSJilles Tjoelker static int expsortcmp(const void *, const void *);
11147d8814cSJilles Tjoelker static int patmatch(const char *, const char *);
11247d8814cSJilles Tjoelker static void cvtnum(int, char *);
113fa93fc65SAndrey A. Chernov static int collate_range_cmp(wchar_t, wchar_t);
1143cd859a7SAndrey A. Chernov 
1158ef0ae8aSJilles Tjoelker void
1168ef0ae8aSJilles Tjoelker emptyarglist(struct arglist *list)
1178ef0ae8aSJilles Tjoelker {
1188ef0ae8aSJilles Tjoelker 
1198ef0ae8aSJilles Tjoelker 	list->args = list->smallarg;
1208ef0ae8aSJilles Tjoelker 	list->count = 0;
1218ef0ae8aSJilles Tjoelker 	list->capacity = sizeof(list->smallarg) / sizeof(list->smallarg[0]);
1228ef0ae8aSJilles Tjoelker }
1238ef0ae8aSJilles Tjoelker 
124046bfe52SJilles Tjoelker void
1258ef0ae8aSJilles Tjoelker appendarglist(struct arglist *list, char *str)
1268ef0ae8aSJilles Tjoelker {
1278ef0ae8aSJilles Tjoelker 	char **newargs;
1288ef0ae8aSJilles Tjoelker 	int newcapacity;
1298ef0ae8aSJilles Tjoelker 
1308ef0ae8aSJilles Tjoelker 	if (list->count >= list->capacity) {
1318ef0ae8aSJilles Tjoelker 		newcapacity = list->capacity * 2;
1328ef0ae8aSJilles Tjoelker 		if (newcapacity < 16)
1338ef0ae8aSJilles Tjoelker 			newcapacity = 16;
1348ef0ae8aSJilles Tjoelker 		if (newcapacity > INT_MAX / (int)sizeof(newargs[0]))
1358ef0ae8aSJilles Tjoelker 			error("Too many entries in arglist");
1368ef0ae8aSJilles Tjoelker 		newargs = stalloc(newcapacity * sizeof(newargs[0]));
1378ef0ae8aSJilles Tjoelker 		memcpy(newargs, list->args, list->count * sizeof(newargs[0]));
1388ef0ae8aSJilles Tjoelker 		list->args = newargs;
1398ef0ae8aSJilles Tjoelker 		list->capacity = newcapacity;
1408ef0ae8aSJilles Tjoelker 	}
1418ef0ae8aSJilles Tjoelker 	list->args[list->count++] = str;
1428ef0ae8aSJilles Tjoelker }
1438ef0ae8aSJilles Tjoelker 
144fa93fc65SAndrey A. Chernov static int
145fa93fc65SAndrey A. Chernov collate_range_cmp(wchar_t c1, wchar_t c2)
146fa93fc65SAndrey A. Chernov {
147fa93fc65SAndrey A. Chernov 	static wchar_t s1[2], s2[2];
148fa93fc65SAndrey A. Chernov 
149fa93fc65SAndrey A. Chernov 	s1[0] = c1;
150fa93fc65SAndrey A. Chernov 	s2[0] = c2;
151fa93fc65SAndrey A. Chernov 	return (wcscoll(s1, s2));
152fa93fc65SAndrey A. Chernov }
153fa93fc65SAndrey A. Chernov 
154f7dea851SJilles Tjoelker static char *
155f7dea851SJilles Tjoelker stputs_quotes(const char *data, const char *syntax, char *p)
156f7dea851SJilles Tjoelker {
157f7dea851SJilles Tjoelker 	while (*data) {
158f7dea851SJilles Tjoelker 		CHECKSTRSPACE(2, p);
159f7dea851SJilles Tjoelker 		if (syntax[(int)*data] == CCTL)
160f7dea851SJilles Tjoelker 			USTPUTC(CTLESC, p);
161f7dea851SJilles Tjoelker 		USTPUTC(*data++, p);
162f7dea851SJilles Tjoelker 	}
163f7dea851SJilles Tjoelker 	return (p);
164f7dea851SJilles Tjoelker }
165f7dea851SJilles Tjoelker #define STPUTS_QUOTES(data, syntax, p) p = stputs_quotes((data), syntax, p)
1664b88c807SRodney W. Grimes 
16747d8814cSJilles Tjoelker static char *
1680e39c931SJilles Tjoelker nextword(char c, int flag, char *p, struct worddest *dst)
16947d8814cSJilles Tjoelker {
17047d8814cSJilles Tjoelker 	int is_ws;
17147d8814cSJilles Tjoelker 
17247d8814cSJilles Tjoelker 	is_ws = c == '\t' || c == '\n' || c == ' ';
17347d8814cSJilles Tjoelker 	if (p != stackblock() || (is_ws ? dst->state == WORD_QUOTEMARK :
17447d8814cSJilles Tjoelker 	    dst->state != WORD_WS_DELIMITED) || c == '\0') {
17547d8814cSJilles Tjoelker 		STPUTC('\0', p);
1760e39c931SJilles Tjoelker 		if (flag & EXP_GLOB)
1770e39c931SJilles Tjoelker 			expandmeta(grabstackstr(p), dst->list);
1780e39c931SJilles Tjoelker 		else
1790e39c931SJilles Tjoelker 			appendarglist(dst->list, grabstackstr(p));
18047d8814cSJilles Tjoelker 		dst->state = is_ws ? WORD_WS_DELIMITED : WORD_IDLE;
18147d8814cSJilles Tjoelker 	} else if (!is_ws && dst->state == WORD_WS_DELIMITED)
18247d8814cSJilles Tjoelker 		dst->state = WORD_IDLE;
18347d8814cSJilles Tjoelker 	/* Reserve space while the stack string is empty. */
1840e39c931SJilles Tjoelker 	appendarglist(dst->list, NULL);
1850e39c931SJilles Tjoelker 	dst->list->count--;
18647d8814cSJilles Tjoelker 	STARTSTACKSTR(p);
18747d8814cSJilles Tjoelker 	return p;
18847d8814cSJilles Tjoelker }
1890e39c931SJilles Tjoelker #define NEXTWORD(c, flag, p, dstlist) p = nextword(c, flag, p, dstlist)
19047d8814cSJilles Tjoelker 
19147d8814cSJilles Tjoelker static char *
1920e39c931SJilles Tjoelker stputs_split(const char *data, const char *syntax, int flag, char *p,
19347d8814cSJilles Tjoelker     struct worddest *dst)
19447d8814cSJilles Tjoelker {
19547d8814cSJilles Tjoelker 	const char *ifs;
19647d8814cSJilles Tjoelker 	char c;
19747d8814cSJilles Tjoelker 
19847d8814cSJilles Tjoelker 	ifs = ifsset() ? ifsval() : " \t\n";
19947d8814cSJilles Tjoelker 	while (*data) {
20047d8814cSJilles Tjoelker 		CHECKSTRSPACE(2, p);
20147d8814cSJilles Tjoelker 		c = *data++;
20247d8814cSJilles Tjoelker 		if (strchr(ifs, c) != NULL) {
2030e39c931SJilles Tjoelker 			NEXTWORD(c, flag, p, dst);
20447d8814cSJilles Tjoelker 			continue;
20547d8814cSJilles Tjoelker 		}
2060e39c931SJilles Tjoelker 		if (flag & EXP_GLOB && syntax[(int)c] == CCTL)
20747d8814cSJilles Tjoelker 			USTPUTC(CTLESC, p);
20847d8814cSJilles Tjoelker 		USTPUTC(c, p);
20947d8814cSJilles Tjoelker 	}
21047d8814cSJilles Tjoelker 	return (p);
21147d8814cSJilles Tjoelker }
2120e39c931SJilles Tjoelker #define STPUTS_SPLIT(data, syntax, flag, p, dst) p = stputs_split((data), syntax, flag, p, dst)
21347d8814cSJilles Tjoelker 
2144b88c807SRodney W. Grimes /*
2152ca3d70fSJilles Tjoelker  * Perform expansions on an argument, placing the resulting list of arguments
2162ca3d70fSJilles Tjoelker  * in arglist.  Parameter expansion, command substitution and arithmetic
2172ca3d70fSJilles Tjoelker  * expansion are always performed; additional expansions can be requested
2182ca3d70fSJilles Tjoelker  * via flag (EXP_*).
2192ca3d70fSJilles Tjoelker  * The result is left in the stack string.
2203e0b768cSJilles Tjoelker  * When arglist is NULL, perform here document expansion.
2212ca3d70fSJilles Tjoelker  *
2222ca3d70fSJilles Tjoelker  * Caution: this function uses global state and is not reentrant.
2232ca3d70fSJilles Tjoelker  * However, a new invocation after an interrupted invocation is safe
2242ca3d70fSJilles Tjoelker  * and will reset the global state for the new call.
2254b88c807SRodney W. Grimes  */
2264b88c807SRodney W. Grimes void
2275134c3f7SWarner Losh expandarg(union node *arg, struct arglist *arglist, int flag)
2284b88c807SRodney W. Grimes {
22947d8814cSJilles Tjoelker 	struct worddest exparg;
230*439948cdSJilles Tjoelker 	struct nodelist *argbackq;
2314b88c807SRodney W. Grimes 
2320e39c931SJilles Tjoelker 	if (fflag)
2330e39c931SJilles Tjoelker 		flag &= ~EXP_GLOB;
2344b88c807SRodney W. Grimes 	argbackq = arg->narg.backquote;
2350e39c931SJilles Tjoelker 	exparg.list = arglist;
23647d8814cSJilles Tjoelker 	exparg.state = WORD_IDLE;
2374b88c807SRodney W. Grimes 	STARTSTACKSTR(expdest);
238*439948cdSJilles Tjoelker 	argstr(arg->narg.text, &argbackq, flag, &exparg);
2394b88c807SRodney W. Grimes 	if (arglist == NULL) {
240292e6676SJilles Tjoelker 		STACKSTRNUL(expdest);
2414b88c807SRodney W. Grimes 		return;			/* here document expanded */
2424b88c807SRodney W. Grimes 	}
2430e39c931SJilles Tjoelker 	if ((flag & EXP_SPLIT) == 0 || expdest != stackblock() ||
24447d8814cSJilles Tjoelker 	    exparg.state == WORD_QUOTEMARK) {
2454b88c807SRodney W. Grimes 		STPUTC('\0', expdest);
2460e39c931SJilles Tjoelker 		if (flag & EXP_SPLIT) {
2470e39c931SJilles Tjoelker 			if (flag & EXP_GLOB)
2480e39c931SJilles Tjoelker 				expandmeta(grabstackstr(expdest), exparg.list);
24947d8814cSJilles Tjoelker 			else
2500e39c931SJilles Tjoelker 				appendarglist(exparg.list, grabstackstr(expdest));
2510e39c931SJilles Tjoelker 		}
2520e39c931SJilles Tjoelker 	}
2530e39c931SJilles Tjoelker 	if ((flag & EXP_SPLIT) == 0)
25447d8814cSJilles Tjoelker 		appendarglist(arglist, grabstackstr(expdest));
2554b88c807SRodney W. Grimes }
2564b88c807SRodney W. Grimes 
2574b88c807SRodney W. Grimes 
2584b88c807SRodney W. Grimes 
2594b88c807SRodney W. Grimes /*
2602ca3d70fSJilles Tjoelker  * Perform parameter expansion, command substitution and arithmetic
2612ca3d70fSJilles Tjoelker  * expansion, and tilde expansion if requested via EXP_TILDE/EXP_VARTILDE.
262ce16da82SJilles Tjoelker  * Processing ends at a CTLENDVAR or CTLENDARI character as well as '\0'.
2632ca3d70fSJilles Tjoelker  * This is used to expand word in ${var+word} etc.
2640e39c931SJilles Tjoelker  * If EXP_GLOB or EXP_CASE are set, keep and/or generate CTLESC
2652ca3d70fSJilles Tjoelker  * characters to allow for further processing.
26647d8814cSJilles Tjoelker  *
2670e39c931SJilles Tjoelker  * If EXP_SPLIT is set, dst receives any complete words produced.
2684b88c807SRodney W. Grimes  */
26952d5897dSJilles Tjoelker static const char *
270*439948cdSJilles Tjoelker argstr(const char *p, struct nodelist **restrict argbackq, int flag,
271*439948cdSJilles Tjoelker     struct worddest *dst)
2724b88c807SRodney W. Grimes {
27396522b88SSteve Price 	char c;
2740e39c931SJilles Tjoelker 	int quotes = flag & (EXP_GLOB | EXP_CASE);	/* do CTLESC */
2754b88c807SRodney W. Grimes 	int firsteq = 1;
276048f2667SJilles Tjoelker 	int split_lit;
277048f2667SJilles Tjoelker 	int lit_quoted;
2784b88c807SRodney W. Grimes 
279048f2667SJilles Tjoelker 	split_lit = flag & EXP_SPLIT_LIT;
280048f2667SJilles Tjoelker 	lit_quoted = flag & EXP_LIT_QUOTED;
281048f2667SJilles Tjoelker 	flag &= ~(EXP_SPLIT_LIT | EXP_LIT_QUOTED);
2824b88c807SRodney W. Grimes 	if (*p == '~' && (flag & (EXP_TILDE | EXP_VARTILDE)))
2834b88c807SRodney W. Grimes 		p = exptilde(p, flag);
2844b88c807SRodney W. Grimes 	for (;;) {
2859d37e157SJilles Tjoelker 		CHECKSTRSPACE(2, expdest);
2864b88c807SRodney W. Grimes 		switch (c = *p++) {
2874b88c807SRodney W. Grimes 		case '\0':
288a2cba42fSJilles Tjoelker 			return (p - 1);
2892ca3d70fSJilles Tjoelker 		case CTLENDVAR:
290ce16da82SJilles Tjoelker 		case CTLENDARI:
291a2cba42fSJilles Tjoelker 			return (p);
2926f47734fSTor Egge 		case CTLQUOTEMARK:
293048f2667SJilles Tjoelker 			lit_quoted = 1;
2946f47734fSTor Egge 			/* "$@" syntax adherence hack */
295a5cb58abSJilles Tjoelker 			if (p[0] == CTLVAR && (p[1] & VSQUOTE) != 0 &&
296a5cb58abSJilles Tjoelker 			    p[2] == '@' && p[3] == '=')
2976f47734fSTor Egge 				break;
2980e39c931SJilles Tjoelker 			if ((flag & EXP_SPLIT) != 0 && expdest == stackblock())
29947d8814cSJilles Tjoelker 				dst->state = WORD_QUOTEMARK;
3006f47734fSTor Egge 			break;
301048f2667SJilles Tjoelker 		case CTLQUOTEEND:
302048f2667SJilles Tjoelker 			lit_quoted = 0;
303048f2667SJilles Tjoelker 			break;
3044b88c807SRodney W. Grimes 		case CTLESC:
3054b88c807SRodney W. Grimes 			c = *p++;
30647d8814cSJilles Tjoelker 			if (split_lit && !lit_quoted &&
30747d8814cSJilles Tjoelker 			    strchr(ifsset() ? ifsval() : " \t\n", c) != NULL) {
3080e39c931SJilles Tjoelker 				NEXTWORD(c, flag, expdest, dst);
30947d8814cSJilles Tjoelker 				break;
31047d8814cSJilles Tjoelker 			}
31147d8814cSJilles Tjoelker 			if (quotes)
31247d8814cSJilles Tjoelker 				USTPUTC(CTLESC, expdest);
3139d37e157SJilles Tjoelker 			USTPUTC(c, expdest);
3144b88c807SRodney W. Grimes 			break;
3154b88c807SRodney W. Grimes 		case CTLVAR:
316*439948cdSJilles Tjoelker 			p = evalvar(p, argbackq, flag, dst);
3174b88c807SRodney W. Grimes 			break;
3184b88c807SRodney W. Grimes 		case CTLBACKQ:
3194b88c807SRodney W. Grimes 		case CTLBACKQ|CTLQUOTE:
320*439948cdSJilles Tjoelker 			expbackq((*argbackq)->n, c & CTLQUOTE, flag, dst);
321*439948cdSJilles Tjoelker 			*argbackq = (*argbackq)->next;
3224b88c807SRodney W. Grimes 			break;
323ce16da82SJilles Tjoelker 		case CTLARI:
324*439948cdSJilles Tjoelker 			p = expari(p, argbackq, flag, dst);
3254b88c807SRodney W. Grimes 			break;
3264b88c807SRodney W. Grimes 		case ':':
3274b88c807SRodney W. Grimes 		case '=':
3284b88c807SRodney W. Grimes 			/*
3294b88c807SRodney W. Grimes 			 * sort of a hack - expand tildes in variable
3304b88c807SRodney W. Grimes 			 * assignments (after the first '=' and after ':'s).
3314b88c807SRodney W. Grimes 			 */
33247d8814cSJilles Tjoelker 			if (split_lit && !lit_quoted &&
33347d8814cSJilles Tjoelker 			    strchr(ifsset() ? ifsval() : " \t\n", c) != NULL) {
3340e39c931SJilles Tjoelker 				NEXTWORD(c, flag, expdest, dst);
33547d8814cSJilles Tjoelker 				break;
33647d8814cSJilles Tjoelker 			}
3379d37e157SJilles Tjoelker 			USTPUTC(c, expdest);
338048f2667SJilles Tjoelker 			if (flag & EXP_VARTILDE && *p == '~' &&
339048f2667SJilles Tjoelker 			    (c != '=' || firsteq)) {
340048f2667SJilles Tjoelker 				if (c == '=')
3414b88c807SRodney W. Grimes 					firsteq = 0;
3424b88c807SRodney W. Grimes 				p = exptilde(p, flag);
3434b88c807SRodney W. Grimes 			}
3444b88c807SRodney W. Grimes 			break;
3454b88c807SRodney W. Grimes 		default:
34647d8814cSJilles Tjoelker 			if (split_lit && !lit_quoted &&
34747d8814cSJilles Tjoelker 			    strchr(ifsset() ? ifsval() : " \t\n", c) != NULL) {
3480e39c931SJilles Tjoelker 				NEXTWORD(c, flag, expdest, dst);
34947d8814cSJilles Tjoelker 				break;
35047d8814cSJilles Tjoelker 			}
3519d37e157SJilles Tjoelker 			USTPUTC(c, expdest);
3524b88c807SRodney W. Grimes 		}
3534b88c807SRodney W. Grimes 	}
3544b88c807SRodney W. Grimes }
3554b88c807SRodney W. Grimes 
3562ca3d70fSJilles Tjoelker /*
3572ca3d70fSJilles Tjoelker  * Perform tilde expansion, placing the result in the stack string and
3582ca3d70fSJilles Tjoelker  * returning the next position in the input string to process.
3592ca3d70fSJilles Tjoelker  */
36052d5897dSJilles Tjoelker static const char *
36152d5897dSJilles Tjoelker exptilde(const char *p, int flag)
3624b88c807SRodney W. Grimes {
36352d5897dSJilles Tjoelker 	char c;
36452d5897dSJilles Tjoelker 	const char *startp = p;
36552d5897dSJilles Tjoelker 	const char *user;
3664b88c807SRodney W. Grimes 	struct passwd *pw;
3674b88c807SRodney W. Grimes 	char *home;
36852d5897dSJilles Tjoelker 	int len;
3694b88c807SRodney W. Grimes 
3707034d8dfSJilles Tjoelker 	for (;;) {
3717034d8dfSJilles Tjoelker 		c = *p;
3724b88c807SRodney W. Grimes 		switch(c) {
37305c10507SJilles Tjoelker 		case CTLESC: /* This means CTL* are always considered quoted. */
37405c10507SJilles Tjoelker 		case CTLVAR:
37505c10507SJilles Tjoelker 		case CTLBACKQ:
37605c10507SJilles Tjoelker 		case CTLBACKQ | CTLQUOTE:
37705c10507SJilles Tjoelker 		case CTLARI:
37805c10507SJilles Tjoelker 		case CTLENDARI:
3795557a02aSTor Egge 		case CTLQUOTEMARK:
3805557a02aSTor Egge 			return (startp);
3814b88c807SRodney W. Grimes 		case ':':
3827034d8dfSJilles Tjoelker 			if ((flag & EXP_VARTILDE) == 0)
3834b88c807SRodney W. Grimes 				break;
3847034d8dfSJilles Tjoelker 			/* FALLTHROUGH */
3857034d8dfSJilles Tjoelker 		case '\0':
3864b88c807SRodney W. Grimes 		case '/':
387634e9188SJilles Tjoelker 		case CTLENDVAR:
38852d5897dSJilles Tjoelker 			len = p - startp - 1;
38952d5897dSJilles Tjoelker 			STPUTBIN(startp + 1, len, expdest);
39052d5897dSJilles Tjoelker 			STACKSTRNUL(expdest);
39152d5897dSJilles Tjoelker 			user = expdest - len;
39252d5897dSJilles Tjoelker 			if (*user == '\0') {
39333c5acf0SJilles Tjoelker 				home = lookupvar("HOME");
3944b88c807SRodney W. Grimes 			} else {
39552d5897dSJilles Tjoelker 				pw = getpwnam(user);
39633c5acf0SJilles Tjoelker 				home = pw != NULL ? pw->pw_dir : NULL;
3974b88c807SRodney W. Grimes 			}
39852d5897dSJilles Tjoelker 			STADJUST(-len, expdest);
39933c5acf0SJilles Tjoelker 			if (home == NULL || *home == '\0')
40033c5acf0SJilles Tjoelker 				return (startp);
40147d8814cSJilles Tjoelker 			strtodest(home, flag, VSNORMAL, 1, NULL);
4024b88c807SRodney W. Grimes 			return (p);
4034b88c807SRodney W. Grimes 		}
4047034d8dfSJilles Tjoelker 		p++;
4057034d8dfSJilles Tjoelker 	}
4067034d8dfSJilles Tjoelker }
4074b88c807SRodney W. Grimes 
4084b88c807SRodney W. Grimes 
4094b88c807SRodney W. Grimes /*
410ce16da82SJilles Tjoelker  * Expand arithmetic expression.
4114b88c807SRodney W. Grimes  */
41252d5897dSJilles Tjoelker static const char *
413*439948cdSJilles Tjoelker expari(const char *p, struct nodelist **restrict argbackq, int flag,
414*439948cdSJilles Tjoelker     struct worddest *dst)
4154b88c807SRodney W. Grimes {
416ce16da82SJilles Tjoelker 	char *q, *start;
417d9d588d4SStefan Farfeleder 	arith_t result;
4186f47734fSTor Egge 	int begoff;
4196f47734fSTor Egge 	int quoted;
420ce16da82SJilles Tjoelker 	int adj;
4214b88c807SRodney W. Grimes 
422ce16da82SJilles Tjoelker 	quoted = *p++ == '"';
423ce16da82SJilles Tjoelker 	begoff = expdest - stackblock();
424*439948cdSJilles Tjoelker 	p = argstr(p, argbackq, 0, NULL);
425ce16da82SJilles Tjoelker 	STPUTC('\0', expdest);
426ce16da82SJilles Tjoelker 	start = stackblock() + begoff;
427ce16da82SJilles Tjoelker 
428593e925aSJilles Tjoelker 	q = grabstackstr(expdest);
429ce16da82SJilles Tjoelker 	result = arith(start);
430593e925aSJilles Tjoelker 	ungrabstackstr(q, expdest);
431ce16da82SJilles Tjoelker 
432ce16da82SJilles Tjoelker 	start = stackblock() + begoff;
433ce16da82SJilles Tjoelker 	adj = start - expdest;
434ce16da82SJilles Tjoelker 	STADJUST(adj, expdest);
435ce16da82SJilles Tjoelker 
436ce16da82SJilles Tjoelker 	CHECKSTRSPACE((int)(DIGITS(result) + 1), expdest);
437ce16da82SJilles Tjoelker 	fmtstr(expdest, DIGITS(result), ARITH_FORMAT_STR, result);
438ce16da82SJilles Tjoelker 	adj = strlen(expdest);
439ce16da82SJilles Tjoelker 	STADJUST(adj, expdest);
440ce16da82SJilles Tjoelker 	if (!quoted)
44147d8814cSJilles Tjoelker 		reprocess(expdest - adj - stackblock(), flag, VSNORMAL, 0, dst);
442ce16da82SJilles Tjoelker 	return p;
4434b88c807SRodney W. Grimes }
4444b88c807SRodney W. Grimes 
4454b88c807SRodney W. Grimes 
4464b88c807SRodney W. Grimes /*
4472ca3d70fSJilles Tjoelker  * Perform command substitution.
4484b88c807SRodney W. Grimes  */
44988328642SDavid E. O'Brien static void
45047d8814cSJilles Tjoelker expbackq(union node *cmd, int quoted, int flag, struct worddest *dst)
4514b88c807SRodney W. Grimes {
4524b88c807SRodney W. Grimes 	struct backcmd in;
4534b88c807SRodney W. Grimes 	int i;
4544b88c807SRodney W. Grimes 	char buf[128];
4554b88c807SRodney W. Grimes 	char *p;
4564b88c807SRodney W. Grimes 	char *dest = expdest;
4574b88c807SRodney W. Grimes 	char lastc;
4584b88c807SRodney W. Grimes 	char const *syntax = quoted? DQSYNTAX : BASESYNTAX;
4590e39c931SJilles Tjoelker 	int quotes = flag & (EXP_GLOB | EXP_CASE);
46046c6b52dSJilles Tjoelker 	size_t nnl;
46147d8814cSJilles Tjoelker 	const char *ifs;
4624b88c807SRodney W. Grimes 
4634b88c807SRodney W. Grimes 	INTOFF;
4644b88c807SRodney W. Grimes 	p = grabstackstr(dest);
4654b88c807SRodney W. Grimes 	evalbackcmd(cmd, &in);
4664b88c807SRodney W. Grimes 	ungrabstackstr(p, dest);
4674b88c807SRodney W. Grimes 
4684b88c807SRodney W. Grimes 	p = in.buf;
46999907703SBill Fenner 	nnl = 0;
4700e39c931SJilles Tjoelker 	if (!quoted && flag & EXP_SPLIT)
47147d8814cSJilles Tjoelker 		ifs = ifsset() ? ifsval() : " \t\n";
47247d8814cSJilles Tjoelker 	else
47347d8814cSJilles Tjoelker 		ifs = "";
47499907703SBill Fenner 	/* Don't copy trailing newlines */
4754b88c807SRodney W. Grimes 	for (;;) {
4764b88c807SRodney W. Grimes 		if (--in.nleft < 0) {
4774b88c807SRodney W. Grimes 			if (in.fd < 0)
4784b88c807SRodney W. Grimes 				break;
4793bb6ada2SJilles Tjoelker 			while ((i = read(in.fd, buf, sizeof buf)) < 0 && errno == EINTR)
4803bb6ada2SJilles Tjoelker 				;
4814b88c807SRodney W. Grimes 			TRACE(("expbackq: read returns %d\n", i));
4824b88c807SRodney W. Grimes 			if (i <= 0)
4834b88c807SRodney W. Grimes 				break;
4844b88c807SRodney W. Grimes 			p = buf;
4854b88c807SRodney W. Grimes 			in.nleft = i - 1;
4864b88c807SRodney W. Grimes 		}
4874b88c807SRodney W. Grimes 		lastc = *p++;
48847d8814cSJilles Tjoelker 		if (lastc == '\0')
48947d8814cSJilles Tjoelker 			continue;
49099907703SBill Fenner 		if (lastc == '\n') {
49199907703SBill Fenner 			nnl++;
49299907703SBill Fenner 		} else {
49347d8814cSJilles Tjoelker 			if (nnl > 0) {
49447d8814cSJilles Tjoelker 				if (strchr(ifs, '\n') != NULL) {
4950e39c931SJilles Tjoelker 					NEXTWORD('\n', flag, dest, dst);
49647d8814cSJilles Tjoelker 					nnl = 0;
49747d8814cSJilles Tjoelker 				} else {
498d8f32e72SJilles Tjoelker 					CHECKSTRSPACE(nnl + 2, dest);
49999907703SBill Fenner 					while (nnl > 0) {
50099907703SBill Fenner 						nnl--;
501d8f32e72SJilles Tjoelker 						USTPUTC('\n', dest);
50299907703SBill Fenner 					}
50347d8814cSJilles Tjoelker 				}
50447d8814cSJilles Tjoelker 			}
50547d8814cSJilles Tjoelker 			if (strchr(ifs, lastc) != NULL)
5060e39c931SJilles Tjoelker 				NEXTWORD(lastc, flag, dest, dst);
50747d8814cSJilles Tjoelker 			else {
50847d8814cSJilles Tjoelker 				CHECKSTRSPACE(2, dest);
509fa0951d6SJilles Tjoelker 				if (quotes && syntax[(int)lastc] == CCTL)
510d8f32e72SJilles Tjoelker 					USTPUTC(CTLESC, dest);
511d8f32e72SJilles Tjoelker 				USTPUTC(lastc, dest);
5124b88c807SRodney W. Grimes 			}
5134b88c807SRodney W. Grimes 		}
51499907703SBill Fenner 	}
515aa9caaf6SPeter Wemm 
5164b88c807SRodney W. Grimes 	if (in.fd >= 0)
5174b88c807SRodney W. Grimes 		close(in.fd);
5184b88c807SRodney W. Grimes 	if (in.buf)
5194b88c807SRodney W. Grimes 		ckfree(in.buf);
520586fd248SJilles Tjoelker 	if (in.jp) {
521586fd248SJilles Tjoelker 		p = grabstackstr(dest);
52257b2932aSMartin Cracauer 		exitstatus = waitforjob(in.jp, (int *)NULL);
523586fd248SJilles Tjoelker 		ungrabstackstr(p, dest);
524586fd248SJilles Tjoelker 	}
5258ab2e970SJohn Baldwin 	TRACE(("expbackq: size=%td: \"%.*s\"\n",
5268ab2e970SJohn Baldwin 		((dest - stackblock()) - startloc),
5278ab2e970SJohn Baldwin 		(int)((dest - stackblock()) - startloc),
5284b88c807SRodney W. Grimes 		stackblock() + startloc));
5294b88c807SRodney W. Grimes 	expdest = dest;
5304b88c807SRodney W. Grimes 	INTON;
5314b88c807SRodney W. Grimes }
5324b88c807SRodney W. Grimes 
5334b88c807SRodney W. Grimes 
5344b88c807SRodney W. Grimes 
5357034d8dfSJilles Tjoelker static void
5367034d8dfSJilles Tjoelker recordleft(const char *str, const char *loc, char *startp)
5377034d8dfSJilles Tjoelker {
5387034d8dfSJilles Tjoelker 	int amount;
5397034d8dfSJilles Tjoelker 
5407034d8dfSJilles Tjoelker 	amount = ((str - 1) - (loc - startp)) - expdest;
5417034d8dfSJilles Tjoelker 	STADJUST(amount, expdest);
5427034d8dfSJilles Tjoelker 	while (loc != str - 1)
5437034d8dfSJilles Tjoelker 		*startp++ = *loc++;
5447034d8dfSJilles Tjoelker }
5457034d8dfSJilles Tjoelker 
54647d8814cSJilles Tjoelker static void
547*439948cdSJilles Tjoelker subevalvar_trim(const char *p, struct nodelist *argbackq, int strloc,
548*439948cdSJilles Tjoelker     int subtype, int startloc)
549aa9caaf6SPeter Wemm {
550aa9caaf6SPeter Wemm 	char *startp;
551aa9caaf6SPeter Wemm 	char *loc = NULL;
5524f2f5faaSJilles Tjoelker 	char *str;
553aa9caaf6SPeter Wemm 	int c = 0;
554*439948cdSJilles Tjoelker 	struct nodelist *argbackqcopy = argbackq;
555ab0a2172SSteve Price 	int amount;
556ab0a2172SSteve Price 
557*439948cdSJilles Tjoelker 	argstr(p, &argbackqcopy, EXP_CASE | EXP_TILDE, NULL);
558aa9caaf6SPeter Wemm 	STACKSTRNUL(expdest);
559aa9caaf6SPeter Wemm 	startp = stackblock() + startloc;
560ab0a2172SSteve Price 	str = stackblock() + strloc;
561aa9caaf6SPeter Wemm 
562aa9caaf6SPeter Wemm 	switch (subtype) {
563aa9caaf6SPeter Wemm 	case VSTRIMLEFT:
56496522b88SSteve Price 		for (loc = startp; loc < str; loc++) {
565aa9caaf6SPeter Wemm 			c = *loc;
566aa9caaf6SPeter Wemm 			*loc = '\0';
56747d8814cSJilles Tjoelker 			if (patmatch(str, startp)) {
568aa9caaf6SPeter Wemm 				*loc = c;
5697034d8dfSJilles Tjoelker 				recordleft(str, loc, startp);
57047d8814cSJilles Tjoelker 				return;
571aa9caaf6SPeter Wemm 			}
572aa9caaf6SPeter Wemm 			*loc = c;
573aa9caaf6SPeter Wemm 		}
57447d8814cSJilles Tjoelker 		break;
575aa9caaf6SPeter Wemm 
576aa9caaf6SPeter Wemm 	case VSTRIMLEFTMAX:
5778b220a61STor Egge 		for (loc = str - 1; loc >= startp;) {
578aa9caaf6SPeter Wemm 			c = *loc;
579aa9caaf6SPeter Wemm 			*loc = '\0';
58047d8814cSJilles Tjoelker 			if (patmatch(str, startp)) {
581aa9caaf6SPeter Wemm 				*loc = c;
5827034d8dfSJilles Tjoelker 				recordleft(str, loc, startp);
58347d8814cSJilles Tjoelker 				return;
584aa9caaf6SPeter Wemm 			}
585aa9caaf6SPeter Wemm 			*loc = c;
5868b220a61STor Egge 			loc--;
5878b220a61STor Egge 		}
58847d8814cSJilles Tjoelker 		break;
589aa9caaf6SPeter Wemm 
590aa9caaf6SPeter Wemm 	case VSTRIMRIGHT:
5918b220a61STor Egge 		for (loc = str - 1; loc >= startp;) {
59247d8814cSJilles Tjoelker 			if (patmatch(str, loc)) {
593ab0a2172SSteve Price 				amount = loc - expdest;
594ab0a2172SSteve Price 				STADJUST(amount, expdest);
59547d8814cSJilles Tjoelker 				return;
596aa9caaf6SPeter Wemm 			}
5978b220a61STor Egge 			loc--;
5988b220a61STor Egge 		}
59947d8814cSJilles Tjoelker 		break;
600aa9caaf6SPeter Wemm 
601aa9caaf6SPeter Wemm 	case VSTRIMRIGHTMAX:
602aa9caaf6SPeter Wemm 		for (loc = startp; loc < str - 1; loc++) {
60347d8814cSJilles Tjoelker 			if (patmatch(str, loc)) {
604ab0a2172SSteve Price 				amount = loc - expdest;
605ab0a2172SSteve Price 				STADJUST(amount, expdest);
60647d8814cSJilles Tjoelker 				return;
607aa9caaf6SPeter Wemm 			}
608aa9caaf6SPeter Wemm 		}
60947d8814cSJilles Tjoelker 		break;
610aa9caaf6SPeter Wemm 
611aa9caaf6SPeter Wemm 
612aa9caaf6SPeter Wemm 	default:
613aa9caaf6SPeter Wemm 		abort();
614aa9caaf6SPeter Wemm 	}
61547d8814cSJilles Tjoelker 	amount = (expdest - stackblock() - strloc) + 1;
61647d8814cSJilles Tjoelker 	STADJUST(-amount, expdest);
617aa9caaf6SPeter Wemm }
618aa9caaf6SPeter Wemm 
619aa9caaf6SPeter Wemm 
6204f2f5faaSJilles Tjoelker static int
621*439948cdSJilles Tjoelker subevalvar_misc(const char *p, struct nodelist *argbackq, const char *var, int subtype, int startloc,
6224f2f5faaSJilles Tjoelker   int varflags)
6234f2f5faaSJilles Tjoelker {
6244f2f5faaSJilles Tjoelker 	char *startp;
625*439948cdSJilles Tjoelker 	struct nodelist *argbackqcopy = argbackq;
6264f2f5faaSJilles Tjoelker 	int amount;
6274f2f5faaSJilles Tjoelker 
628*439948cdSJilles Tjoelker 	argstr(p, &argbackqcopy, EXP_TILDE, NULL);
6294f2f5faaSJilles Tjoelker 	STACKSTRNUL(expdest);
6304f2f5faaSJilles Tjoelker 	startp = stackblock() + startloc;
6314f2f5faaSJilles Tjoelker 
6324f2f5faaSJilles Tjoelker 	switch (subtype) {
6334f2f5faaSJilles Tjoelker 	case VSASSIGN:
6344f2f5faaSJilles Tjoelker 		setvar(var, startp, 0);
6354f2f5faaSJilles Tjoelker 		amount = startp - expdest;
6364f2f5faaSJilles Tjoelker 		STADJUST(amount, expdest);
6374f2f5faaSJilles Tjoelker 		return 1;
6384f2f5faaSJilles Tjoelker 
6394f2f5faaSJilles Tjoelker 	case VSQUESTION:
6404f2f5faaSJilles Tjoelker 		if (*p != CTLENDVAR) {
6414f2f5faaSJilles Tjoelker 			outfmt(out2, "%s\n", startp);
6424f2f5faaSJilles Tjoelker 			error((char *)NULL);
6434f2f5faaSJilles Tjoelker 		}
6444f2f5faaSJilles Tjoelker 		error("%.*s: parameter %snot set", (int)(p - var - 1),
6454f2f5faaSJilles Tjoelker 		      var, (varflags & VSNUL) ? "null or " : "");
6464f2f5faaSJilles Tjoelker 		return 0;
6474f2f5faaSJilles Tjoelker 
6484f2f5faaSJilles Tjoelker 	default:
6494f2f5faaSJilles Tjoelker 		abort();
6504f2f5faaSJilles Tjoelker 	}
6514f2f5faaSJilles Tjoelker }
6524f2f5faaSJilles Tjoelker 
6534f2f5faaSJilles Tjoelker 
6544b88c807SRodney W. Grimes /*
6554b88c807SRodney W. Grimes  * Expand a variable, and return a pointer to the next character in the
6564b88c807SRodney W. Grimes  * input string.
6574b88c807SRodney W. Grimes  */
6584b88c807SRodney W. Grimes 
65952d5897dSJilles Tjoelker static const char *
660*439948cdSJilles Tjoelker evalvar(const char *p, struct nodelist **restrict argbackq, int flag,
661*439948cdSJilles Tjoelker     struct worddest *dst)
6624b88c807SRodney W. Grimes {
6634b88c807SRodney W. Grimes 	int subtype;
6644b88c807SRodney W. Grimes 	int varflags;
66552d5897dSJilles Tjoelker 	const char *var;
66661346cbdSJilles Tjoelker 	const char *val;
667c4e5a8a8STor Egge 	int patloc;
6684b88c807SRodney W. Grimes 	int c;
6694b88c807SRodney W. Grimes 	int set;
6704b88c807SRodney W. Grimes 	int special;
6714b88c807SRodney W. Grimes 	int startloc;
672aa9caaf6SPeter Wemm 	int varlen;
6734c244ed2SJilles Tjoelker 	int varlenb;
67447d8814cSJilles Tjoelker 	char buf[21];
6754b88c807SRodney W. Grimes 
676bb4f73caSStefan Farfeleder 	varflags = (unsigned char)*p++;
6774b88c807SRodney W. Grimes 	subtype = varflags & VSTYPE;
6784b88c807SRodney W. Grimes 	var = p;
6794b88c807SRodney W. Grimes 	special = 0;
6804b88c807SRodney W. Grimes 	if (! is_name(*p))
6814b88c807SRodney W. Grimes 		special = 1;
6824b88c807SRodney W. Grimes 	p = strchr(p, '=') + 1;
6834b88c807SRodney W. Grimes again: /* jump here after setting a variable with ${var=text} */
684b71085aaSStefan Farfeleder 	if (varflags & VSLINENO) {
685b71085aaSStefan Farfeleder 		set = 1;
68654396489SJilles Tjoelker 		special = 1;
68754396489SJilles Tjoelker 		val = NULL;
688b71085aaSStefan Farfeleder 	} else if (special) {
68996522b88SSteve Price 		set = varisset(var, varflags & VSNUL);
6904b88c807SRodney W. Grimes 		val = NULL;
6914b88c807SRodney W. Grimes 	} else {
692b2acf887SMartin Cracauer 		val = bltinlookup(var, 1);
693aa9caaf6SPeter Wemm 		if (val == NULL || ((varflags & VSNUL) && val[0] == '\0')) {
6944b88c807SRodney W. Grimes 			val = NULL;
6954b88c807SRodney W. Grimes 			set = 0;
6964b88c807SRodney W. Grimes 		} else
6974b88c807SRodney W. Grimes 			set = 1;
6984b88c807SRodney W. Grimes 	}
699aa9caaf6SPeter Wemm 	varlen = 0;
7004b88c807SRodney W. Grimes 	startloc = expdest - stackblock();
70164254a66SJilles Tjoelker 	if (!set && uflag && *var != '@' && *var != '*') {
7021b5a48ffSTim J. Robbins 		switch (subtype) {
7031b5a48ffSTim J. Robbins 		case VSNORMAL:
7041b5a48ffSTim J. Robbins 		case VSTRIMLEFT:
7051b5a48ffSTim J. Robbins 		case VSTRIMLEFTMAX:
7061b5a48ffSTim J. Robbins 		case VSTRIMRIGHT:
7071b5a48ffSTim J. Robbins 		case VSTRIMRIGHTMAX:
7081b5a48ffSTim J. Robbins 		case VSLENGTH:
709024ae004SRuslan Ermilov 			error("%.*s: parameter not set", (int)(p - var - 1),
710024ae004SRuslan Ermilov 			    var);
7111b5a48ffSTim J. Robbins 		}
7121b5a48ffSTim J. Robbins 	}
7134b88c807SRodney W. Grimes 	if (set && subtype != VSPLUS) {
7144b88c807SRodney W. Grimes 		/* insert the value of the variable */
7154b88c807SRodney W. Grimes 		if (special) {
71647d8814cSJilles Tjoelker 			if (varflags & VSLINENO) {
71747d8814cSJilles Tjoelker 				if (p - var > (ptrdiff_t)sizeof(buf))
71847d8814cSJilles Tjoelker 					abort();
71947d8814cSJilles Tjoelker 				memcpy(buf, var, p - var - 1);
72047d8814cSJilles Tjoelker 				buf[p - var - 1] = '\0';
72147d8814cSJilles Tjoelker 				strtodest(buf, flag, subtype,
72247d8814cSJilles Tjoelker 				    varflags & VSQUOTE, dst);
72347d8814cSJilles Tjoelker 			} else
72447d8814cSJilles Tjoelker 				varvalue(var, varflags & VSQUOTE, subtype, flag,
72547d8814cSJilles Tjoelker 				    dst);
726aa9caaf6SPeter Wemm 			if (subtype == VSLENGTH) {
7274c244ed2SJilles Tjoelker 				varlenb = expdest - stackblock() - startloc;
7284c244ed2SJilles Tjoelker 				varlen = varlenb;
7294c244ed2SJilles Tjoelker 				if (localeisutf8) {
7304c244ed2SJilles Tjoelker 					val = stackblock() + startloc;
7314c244ed2SJilles Tjoelker 					for (;val != expdest; val++)
7324c244ed2SJilles Tjoelker 						if ((*val & 0xC0) == 0x80)
7334c244ed2SJilles Tjoelker 							varlen--;
7344c244ed2SJilles Tjoelker 				}
7354c244ed2SJilles Tjoelker 				STADJUST(-varlenb, expdest);
736aa9caaf6SPeter Wemm 			}
7374b88c807SRodney W. Grimes 		} else {
738aa9caaf6SPeter Wemm 			if (subtype == VSLENGTH) {
739aa9caaf6SPeter Wemm 				for (;*val; val++)
7404c244ed2SJilles Tjoelker 					if (!localeisutf8 ||
7414c244ed2SJilles Tjoelker 					    (*val & 0xC0) != 0x80)
742aa9caaf6SPeter Wemm 						varlen++;
743aa9caaf6SPeter Wemm 			}
744f7dea851SJilles Tjoelker 			else
7457034d8dfSJilles Tjoelker 				strtodest(val, flag, subtype,
74647d8814cSJilles Tjoelker 				    varflags & VSQUOTE, dst);
7474b88c807SRodney W. Grimes 		}
748aa9caaf6SPeter Wemm 	}
749aa9caaf6SPeter Wemm 
7504b88c807SRodney W. Grimes 	if (subtype == VSPLUS)
7514b88c807SRodney W. Grimes 		set = ! set;
752aa9caaf6SPeter Wemm 
753aa9caaf6SPeter Wemm 	switch (subtype) {
754aa9caaf6SPeter Wemm 	case VSLENGTH:
75547d8814cSJilles Tjoelker 		cvtnum(varlen, buf);
75647d8814cSJilles Tjoelker 		strtodest(buf, flag, VSNORMAL, varflags & VSQUOTE, dst);
7577034d8dfSJilles Tjoelker 		break;
758aa9caaf6SPeter Wemm 
759aa9caaf6SPeter Wemm 	case VSNORMAL:
760aa9caaf6SPeter Wemm 		break;
761aa9caaf6SPeter Wemm 
762aa9caaf6SPeter Wemm 	case VSPLUS:
763aa9caaf6SPeter Wemm 	case VSMINUS:
764aa9caaf6SPeter Wemm 		if (!set) {
765*439948cdSJilles Tjoelker 			argstr(p, argbackq,
766*439948cdSJilles Tjoelker 			    flag | (flag & EXP_SPLIT ? EXP_SPLIT_LIT : 0) |
76747d8814cSJilles Tjoelker 			    (varflags & VSQUOTE ? EXP_LIT_QUOTED : 0), dst);
768aa9caaf6SPeter Wemm 			break;
769aa9caaf6SPeter Wemm 		}
770aa9caaf6SPeter Wemm 		break;
771aa9caaf6SPeter Wemm 
772aa9caaf6SPeter Wemm 	case VSTRIMLEFT:
773aa9caaf6SPeter Wemm 	case VSTRIMLEFTMAX:
774aa9caaf6SPeter Wemm 	case VSTRIMRIGHT:
775aa9caaf6SPeter Wemm 	case VSTRIMRIGHTMAX:
7768999a290SJilles Tjoelker 		if (!set) {
7778999a290SJilles Tjoelker 			set = 1;
778aa9caaf6SPeter Wemm 			break;
7798999a290SJilles Tjoelker 		}
780aa9caaf6SPeter Wemm 		/*
781aa9caaf6SPeter Wemm 		 * Terminate the string and start recording the pattern
782aa9caaf6SPeter Wemm 		 * right after it
783aa9caaf6SPeter Wemm 		 */
784aa9caaf6SPeter Wemm 		STPUTC('\0', expdest);
785c4e5a8a8STor Egge 		patloc = expdest - stackblock();
786*439948cdSJilles Tjoelker 		subevalvar_trim(p, *argbackq, patloc, subtype, startloc);
78747d8814cSJilles Tjoelker 		reprocess(startloc, flag, VSNORMAL, varflags & VSQUOTE, dst);
7880e39c931SJilles Tjoelker 		if (flag & EXP_SPLIT && *var == '@' && varflags & VSQUOTE)
78947d8814cSJilles Tjoelker 			dst->state = WORD_QUOTEMARK;
7907034d8dfSJilles Tjoelker 		break;
791aa9caaf6SPeter Wemm 
792aa9caaf6SPeter Wemm 	case VSASSIGN:
793aa9caaf6SPeter Wemm 	case VSQUESTION:
794aa9caaf6SPeter Wemm 		if (!set) {
795*439948cdSJilles Tjoelker 			if (subevalvar_misc(p, *argbackq, var, subtype,
796*439948cdSJilles Tjoelker 			    startloc, varflags)) {
797ab0a2172SSteve Price 				varflags &= ~VSNUL;
7984b88c807SRodney W. Grimes 				goto again;
799ab0a2172SSteve Price 			}
800aa9caaf6SPeter Wemm 			break;
8014b88c807SRodney W. Grimes 		}
802aa9caaf6SPeter Wemm 		break;
803aa9caaf6SPeter Wemm 
80462addaefSStefan Farfeleder 	case VSERROR:
80562addaefSStefan Farfeleder 		c = p - var - 1;
80662addaefSStefan Farfeleder 		error("${%.*s%s}: Bad substitution", c, var,
80762addaefSStefan Farfeleder 		    (c > 0 && *p != CTLENDVAR) ? "..." : "");
80862addaefSStefan Farfeleder 
809aa9caaf6SPeter Wemm 	default:
810aa9caaf6SPeter Wemm 		abort();
8114b88c807SRodney W. Grimes 	}
812aa9caaf6SPeter Wemm 
8134b88c807SRodney W. Grimes 	if (subtype != VSNORMAL) {	/* skip to end of alternative */
8144b88c807SRodney W. Grimes 		int nesting = 1;
8154b88c807SRodney W. Grimes 		for (;;) {
8164b88c807SRodney W. Grimes 			if ((c = *p++) == CTLESC)
8174b88c807SRodney W. Grimes 				p++;
8184b88c807SRodney W. Grimes 			else if (c == CTLBACKQ || c == (CTLBACKQ|CTLQUOTE)) {
8194b88c807SRodney W. Grimes 				if (set)
820*439948cdSJilles Tjoelker 					*argbackq = (*argbackq)->next;
8214b88c807SRodney W. Grimes 			} else if (c == CTLVAR) {
8224b88c807SRodney W. Grimes 				if ((*p++ & VSTYPE) != VSNORMAL)
8234b88c807SRodney W. Grimes 					nesting++;
8244b88c807SRodney W. Grimes 			} else if (c == CTLENDVAR) {
8254b88c807SRodney W. Grimes 				if (--nesting == 0)
8264b88c807SRodney W. Grimes 					break;
8274b88c807SRodney W. Grimes 			}
8284b88c807SRodney W. Grimes 		}
8294b88c807SRodney W. Grimes 	}
8304b88c807SRodney W. Grimes 	return p;
8314b88c807SRodney W. Grimes }
8324b88c807SRodney W. Grimes 
8334b88c807SRodney W. Grimes 
8344b88c807SRodney W. Grimes 
8354b88c807SRodney W. Grimes /*
8364b88c807SRodney W. Grimes  * Test whether a specialized variable is set.
8374b88c807SRodney W. Grimes  */
8384b88c807SRodney W. Grimes 
83988328642SDavid E. O'Brien static int
84061346cbdSJilles Tjoelker varisset(const char *name, int nulok)
8414b88c807SRodney W. Grimes {
8424b88c807SRodney W. Grimes 
84396522b88SSteve Price 	if (*name == '!')
844ed4c3b5fSJilles Tjoelker 		return backgndpidset();
84596522b88SSteve Price 	else if (*name == '@' || *name == '*') {
8464b88c807SRodney W. Grimes 		if (*shellparam.p == NULL)
8474b88c807SRodney W. Grimes 			return 0;
84896522b88SSteve Price 
84996522b88SSteve Price 		if (nulok) {
85096522b88SSteve Price 			char **av;
85196522b88SSteve Price 
85296522b88SSteve Price 			for (av = shellparam.p; *av; av++)
85396522b88SSteve Price 				if (**av != '\0')
85496522b88SSteve Price 					return 1;
85596522b88SSteve Price 			return 0;
85696522b88SSteve Price 		}
8575c817731SPeter Wemm 	} else if (is_digit(*name)) {
85896522b88SSteve Price 		char *ap;
8597b9104c0SJilles Tjoelker 		long num;
86096522b88SSteve Price 
8617b9104c0SJilles Tjoelker 		errno = 0;
8627b9104c0SJilles Tjoelker 		num = strtol(name, NULL, 10);
8637b9104c0SJilles Tjoelker 		if (errno != 0 || num > shellparam.nparam)
86496522b88SSteve Price 			return 0;
86596522b88SSteve Price 
86696522b88SSteve Price 		if (num == 0)
86796522b88SSteve Price 			ap = arg0;
86896522b88SSteve Price 		else
86996522b88SSteve Price 			ap = shellparam.p[num - 1];
87096522b88SSteve Price 
87196522b88SSteve Price 		if (nulok && (ap == NULL || *ap == '\0'))
8724b88c807SRodney W. Grimes 			return 0;
8734b88c807SRodney W. Grimes 	}
8744b88c807SRodney W. Grimes 	return 1;
8754b88c807SRodney W. Grimes }
8764b88c807SRodney W. Grimes 
877f7dea851SJilles Tjoelker static void
87847d8814cSJilles Tjoelker strtodest(const char *p, int flag, int subtype, int quoted,
87947d8814cSJilles Tjoelker     struct worddest *dst)
880f7dea851SJilles Tjoelker {
88147d8814cSJilles Tjoelker 	if (subtype == VSLENGTH || subtype == VSTRIMLEFT ||
88247d8814cSJilles Tjoelker 	    subtype == VSTRIMLEFTMAX || subtype == VSTRIMRIGHT ||
88347d8814cSJilles Tjoelker 	    subtype == VSTRIMRIGHTMAX)
88447d8814cSJilles Tjoelker 		STPUTS(p, expdest);
8850e39c931SJilles Tjoelker 	else if (flag & EXP_SPLIT && !quoted && dst != NULL)
8860e39c931SJilles Tjoelker 		STPUTS_SPLIT(p, BASESYNTAX, flag, expdest, dst);
8870e39c931SJilles Tjoelker 	else if (flag & (EXP_GLOB | EXP_CASE))
888f7dea851SJilles Tjoelker 		STPUTS_QUOTES(p, quoted ? DQSYNTAX : BASESYNTAX, expdest);
889f7dea851SJilles Tjoelker 	else
890f7dea851SJilles Tjoelker 		STPUTS(p, expdest);
891f7dea851SJilles Tjoelker }
8924b88c807SRodney W. Grimes 
89347d8814cSJilles Tjoelker static void
89447d8814cSJilles Tjoelker reprocess(int startloc, int flag, int subtype, int quoted,
89547d8814cSJilles Tjoelker     struct worddest *dst)
89647d8814cSJilles Tjoelker {
89747d8814cSJilles Tjoelker 	static char *buf = NULL;
89847d8814cSJilles Tjoelker 	static size_t buflen = 0;
89947d8814cSJilles Tjoelker 	char *startp;
90047d8814cSJilles Tjoelker 	size_t len, zpos, zlen;
90147d8814cSJilles Tjoelker 
90247d8814cSJilles Tjoelker 	startp = stackblock() + startloc;
90347d8814cSJilles Tjoelker 	len = expdest - startp;
90447d8814cSJilles Tjoelker 	if (len >= SIZE_MAX / 2)
90547d8814cSJilles Tjoelker 		abort();
90647d8814cSJilles Tjoelker 	INTOFF;
90747d8814cSJilles Tjoelker 	if (len >= buflen) {
90847d8814cSJilles Tjoelker 		ckfree(buf);
90947d8814cSJilles Tjoelker 		buf = NULL;
91047d8814cSJilles Tjoelker 	}
91147d8814cSJilles Tjoelker 	if (buflen < 128)
91247d8814cSJilles Tjoelker 		buflen = 128;
91347d8814cSJilles Tjoelker 	while (len >= buflen)
91447d8814cSJilles Tjoelker 		buflen <<= 1;
91547d8814cSJilles Tjoelker 	if (buf == NULL)
91647d8814cSJilles Tjoelker 		buf = ckmalloc(buflen);
91747d8814cSJilles Tjoelker 	INTON;
91847d8814cSJilles Tjoelker 	memcpy(buf, startp, len);
91947d8814cSJilles Tjoelker 	buf[len] = '\0';
92047d8814cSJilles Tjoelker 	STADJUST(-len, expdest);
92147d8814cSJilles Tjoelker 	for (zpos = 0;;) {
92247d8814cSJilles Tjoelker 		zlen = strlen(buf + zpos);
92347d8814cSJilles Tjoelker 		strtodest(buf + zpos, flag, subtype, quoted, dst);
92447d8814cSJilles Tjoelker 		zpos += zlen + 1;
92547d8814cSJilles Tjoelker 		if (zpos == len + 1)
92647d8814cSJilles Tjoelker 			break;
9270e39c931SJilles Tjoelker 		if (flag & EXP_SPLIT && (quoted || (zlen > 0 && zpos < len)))
9280e39c931SJilles Tjoelker 			NEXTWORD('\0', flag, expdest, dst);
92947d8814cSJilles Tjoelker 	}
93047d8814cSJilles Tjoelker }
93147d8814cSJilles Tjoelker 
9324b88c807SRodney W. Grimes /*
9334b88c807SRodney W. Grimes  * Add the value of a specialized variable to the stack string.
9344b88c807SRodney W. Grimes  */
9354b88c807SRodney W. Grimes 
93688328642SDavid E. O'Brien static void
93747d8814cSJilles Tjoelker varvalue(const char *name, int quoted, int subtype, int flag,
93847d8814cSJilles Tjoelker     struct worddest *dst)
9394b88c807SRodney W. Grimes {
9404b88c807SRodney W. Grimes 	int num;
9414b88c807SRodney W. Grimes 	char *p;
9424b88c807SRodney W. Grimes 	int i;
94347d8814cSJilles Tjoelker 	int splitlater;
9443fb51b3aSJilles Tjoelker 	char sep[2];
9454b88c807SRodney W. Grimes 	char **ap;
94647d8814cSJilles Tjoelker 	char buf[(NSHORTOPTS > 10 ? NSHORTOPTS : 10) + 1];
94747d8814cSJilles Tjoelker 
94847d8814cSJilles Tjoelker 	if (subtype == VSLENGTH)
94947d8814cSJilles Tjoelker 		flag &= ~EXP_FULL;
95047d8814cSJilles Tjoelker 	splitlater = subtype == VSTRIMLEFT || subtype == VSTRIMLEFTMAX ||
95147d8814cSJilles Tjoelker 		subtype == VSTRIMRIGHT || subtype == VSTRIMRIGHTMAX;
9524b88c807SRodney W. Grimes 
9535c817731SPeter Wemm 	switch (*name) {
9544b88c807SRodney W. Grimes 	case '$':
9554b88c807SRodney W. Grimes 		num = rootpid;
956622fdf32SJilles Tjoelker 		break;
9574b88c807SRodney W. Grimes 	case '?':
958aa9caaf6SPeter Wemm 		num = oexitstatus;
959622fdf32SJilles Tjoelker 		break;
9604b88c807SRodney W. Grimes 	case '#':
9614b88c807SRodney W. Grimes 		num = shellparam.nparam;
962622fdf32SJilles Tjoelker 		break;
9634b88c807SRodney W. Grimes 	case '!':
964ed4c3b5fSJilles Tjoelker 		num = backgndpidval();
9654b88c807SRodney W. Grimes 		break;
9664b88c807SRodney W. Grimes 	case '-':
96747d8814cSJilles Tjoelker 		p = buf;
96862c37116SJilles Tjoelker 		for (i = 0 ; i < NSHORTOPTS ; i++) {
9693da40d4aSJilles Tjoelker 			if (optval[i])
9703da40d4aSJilles Tjoelker 				*p++ = optletter[i];
9714b88c807SRodney W. Grimes 		}
97247d8814cSJilles Tjoelker 		*p = '\0';
97347d8814cSJilles Tjoelker 		strtodest(buf, flag, subtype, quoted, dst);
974622fdf32SJilles Tjoelker 		return;
9754b88c807SRodney W. Grimes 	case '@':
9760e39c931SJilles Tjoelker 		if (flag & EXP_SPLIT && quoted) {
9774b88c807SRodney W. Grimes 			for (ap = shellparam.p ; (p = *ap++) != NULL ; ) {
97847d8814cSJilles Tjoelker 				strtodest(p, flag, subtype, quoted, dst);
97947d8814cSJilles Tjoelker 				if (*ap) {
98047d8814cSJilles Tjoelker 					if (splitlater)
9816f47734fSTor Egge 						STPUTC('\0', expdest);
98247d8814cSJilles Tjoelker 					else
9830e39c931SJilles Tjoelker 						NEXTWORD('\0', flag, expdest,
9840e39c931SJilles Tjoelker 						    dst);
9856f47734fSTor Egge 				}
98647d8814cSJilles Tjoelker 			}
98747d8814cSJilles Tjoelker 			if (shellparam.nparam > 0)
98847d8814cSJilles Tjoelker 				dst->state = WORD_QUOTEMARK;
989622fdf32SJilles Tjoelker 			return;
9906f47734fSTor Egge 		}
9910d9f1a69SPhilippe Charnier 		/* FALLTHROUGH */
9926f47734fSTor Egge 	case '*':
993f7d95a07SRalf S. Engelschall 		if (ifsset())
9943fb51b3aSJilles Tjoelker 			sep[0] = ifsval()[0];
9956f47734fSTor Egge 		else
9963fb51b3aSJilles Tjoelker 			sep[0] = ' ';
9973fb51b3aSJilles Tjoelker 		sep[1] = '\0';
9986f47734fSTor Egge 		for (ap = shellparam.p ; (p = *ap++) != NULL ; ) {
99947d8814cSJilles Tjoelker 			strtodest(p, flag, subtype, quoted, dst);
1000715a0dd5SJilles Tjoelker 			if (!*ap)
1001715a0dd5SJilles Tjoelker 				break;
10023fb51b3aSJilles Tjoelker 			if (sep[0])
100347d8814cSJilles Tjoelker 				strtodest(sep, flag, subtype, quoted, dst);
10040e39c931SJilles Tjoelker 			else if (flag & EXP_SPLIT && !quoted && **ap != '\0') {
100547d8814cSJilles Tjoelker 				if (splitlater)
10063fb51b3aSJilles Tjoelker 					STPUTC('\0', expdest);
100747d8814cSJilles Tjoelker 				else
10080e39c931SJilles Tjoelker 					NEXTWORD('\0', flag, expdest, dst);
100947d8814cSJilles Tjoelker 			}
10104b88c807SRodney W. Grimes 		}
1011622fdf32SJilles Tjoelker 		return;
10124b88c807SRodney W. Grimes 	default:
10135c817731SPeter Wemm 		if (is_digit(*name)) {
10145c817731SPeter Wemm 			num = atoi(name);
10155ddabb83SJilles Tjoelker 			if (num == 0)
10165ddabb83SJilles Tjoelker 				p = arg0;
10175ddabb83SJilles Tjoelker 			else if (num > 0 && num <= shellparam.nparam)
10185c817731SPeter Wemm 				p = shellparam.p[num - 1];
10195ddabb83SJilles Tjoelker 			else
1020622fdf32SJilles Tjoelker 				return;
102147d8814cSJilles Tjoelker 			strtodest(p, flag, subtype, quoted, dst);
10224b88c807SRodney W. Grimes 		}
1023622fdf32SJilles Tjoelker 		return;
10244b88c807SRodney W. Grimes 	}
102547d8814cSJilles Tjoelker 	cvtnum(num, buf);
102647d8814cSJilles Tjoelker 	strtodest(buf, flag, subtype, quoted, dst);
10274b88c807SRodney W. Grimes }
10284b88c807SRodney W. Grimes 
10294b88c807SRodney W. Grimes 
10304b88c807SRodney W. Grimes 
1031aa7b6f82SDavid E. O'Brien static char expdir[PATH_MAX];
1032c8a3d81fSJilles Tjoelker #define expdir_end (expdir + sizeof(expdir))
10334b88c807SRodney W. Grimes 
10342ca3d70fSJilles Tjoelker /*
10352ca3d70fSJilles Tjoelker  * Perform pathname generation and remove control characters.
1036bc57b4d4SJilles Tjoelker  * At this point, the only control characters should be CTLESC.
10378ef0ae8aSJilles Tjoelker  * The results are stored in the list dstlist.
10382ca3d70fSJilles Tjoelker  */
103988328642SDavid E. O'Brien static void
10400e39c931SJilles Tjoelker expandmeta(char *pattern, struct arglist *dstlist)
10414b88c807SRodney W. Grimes {
10424b88c807SRodney W. Grimes 	char *p;
10438ef0ae8aSJilles Tjoelker 	int firstmatch;
10444b88c807SRodney W. Grimes 	char c;
10454b88c807SRodney W. Grimes 
10468ef0ae8aSJilles Tjoelker 	firstmatch = dstlist->count;
10470e39c931SJilles Tjoelker 	p = pattern;
1048622fdf32SJilles Tjoelker 	for (; (c = *p) != '\0'; p++) {
1049622fdf32SJilles Tjoelker 		/* fast check for meta chars */
1050622fdf32SJilles Tjoelker 		if (c == '*' || c == '?' || c == '[') {
10514b88c807SRodney W. Grimes 			INTOFF;
10520e39c931SJilles Tjoelker 			expmeta(expdir, pattern, dstlist);
10534b88c807SRodney W. Grimes 			INTON;
1054622fdf32SJilles Tjoelker 			break;
1055622fdf32SJilles Tjoelker 		}
1056622fdf32SJilles Tjoelker 	}
10578ef0ae8aSJilles Tjoelker 	if (dstlist->count == firstmatch) {
10584b88c807SRodney W. Grimes 		/*
10594b88c807SRodney W. Grimes 		 * no matches
10604b88c807SRodney W. Grimes 		 */
10610e39c931SJilles Tjoelker 		rmescapes(pattern);
10620e39c931SJilles Tjoelker 		appendarglist(dstlist, pattern);
10634b88c807SRodney W. Grimes 	} else {
10648ef0ae8aSJilles Tjoelker 		qsort(&dstlist->args[firstmatch],
10658ef0ae8aSJilles Tjoelker 		    dstlist->count - firstmatch,
10668ef0ae8aSJilles Tjoelker 		    sizeof(dstlist->args[0]), expsortcmp);
10674b88c807SRodney W. Grimes 	}
10684b88c807SRodney W. Grimes }
10694b88c807SRodney W. Grimes 
10704b88c807SRodney W. Grimes 
10714b88c807SRodney W. Grimes /*
10724b88c807SRodney W. Grimes  * Do metacharacter (i.e. *, ?, [...]) expansion.
10734b88c807SRodney W. Grimes  */
10744b88c807SRodney W. Grimes 
107588328642SDavid E. O'Brien static void
10768ef0ae8aSJilles Tjoelker expmeta(char *enddir, char *name, struct arglist *arglist)
10774b88c807SRodney W. Grimes {
107846c6b52dSJilles Tjoelker 	const char *p;
107946c6b52dSJilles Tjoelker 	const char *q;
108046c6b52dSJilles Tjoelker 	const char *start;
10814b88c807SRodney W. Grimes 	char *endname;
10824b88c807SRodney W. Grimes 	int metaflag;
10834b88c807SRodney W. Grimes 	struct stat statb;
10844b88c807SRodney W. Grimes 	DIR *dirp;
10854b88c807SRodney W. Grimes 	struct dirent *dp;
10864b88c807SRodney W. Grimes 	int atend;
10874b88c807SRodney W. Grimes 	int matchdot;
10884710b07eSJilles Tjoelker 	int esc;
10897a2b9d4bSJilles Tjoelker 	int namlen;
10904b88c807SRodney W. Grimes 
10914b88c807SRodney W. Grimes 	metaflag = 0;
10924b88c807SRodney W. Grimes 	start = name;
10934710b07eSJilles Tjoelker 	for (p = name; esc = 0, *p; p += esc + 1) {
10944b88c807SRodney W. Grimes 		if (*p == '*' || *p == '?')
10954b88c807SRodney W. Grimes 			metaflag = 1;
10964b88c807SRodney W. Grimes 		else if (*p == '[') {
10974b88c807SRodney W. Grimes 			q = p + 1;
1098ea1376dfSAndrey A. Chernov 			if (*q == '!' || *q == '^')
10994b88c807SRodney W. Grimes 				q++;
11004b88c807SRodney W. Grimes 			for (;;) {
11014b88c807SRodney W. Grimes 				if (*q == CTLESC)
11024b88c807SRodney W. Grimes 					q++;
11034b88c807SRodney W. Grimes 				if (*q == '/' || *q == '\0')
11044b88c807SRodney W. Grimes 					break;
11054b88c807SRodney W. Grimes 				if (*++q == ']') {
11064b88c807SRodney W. Grimes 					metaflag = 1;
11074b88c807SRodney W. Grimes 					break;
11084b88c807SRodney W. Grimes 				}
11094b88c807SRodney W. Grimes 			}
11104b88c807SRodney W. Grimes 		} else if (*p == '\0')
11114b88c807SRodney W. Grimes 			break;
11124710b07eSJilles Tjoelker 		else {
11134710b07eSJilles Tjoelker 			if (*p == CTLESC)
11144710b07eSJilles Tjoelker 				esc++;
11154710b07eSJilles Tjoelker 			if (p[esc] == '/') {
11164b88c807SRodney W. Grimes 				if (metaflag)
11174b88c807SRodney W. Grimes 					break;
11184710b07eSJilles Tjoelker 				start = p + esc + 1;
11194710b07eSJilles Tjoelker 			}
11204b88c807SRodney W. Grimes 		}
11214b88c807SRodney W. Grimes 	}
11224b88c807SRodney W. Grimes 	if (metaflag == 0) {	/* we've reached the end of the file name */
11234b88c807SRodney W. Grimes 		if (enddir != expdir)
11244b88c807SRodney W. Grimes 			metaflag++;
11254b88c807SRodney W. Grimes 		for (p = name ; ; p++) {
11264b88c807SRodney W. Grimes 			if (*p == CTLESC)
11274b88c807SRodney W. Grimes 				p++;
11284b88c807SRodney W. Grimes 			*enddir++ = *p;
11294b88c807SRodney W. Grimes 			if (*p == '\0')
11304b88c807SRodney W. Grimes 				break;
1131c8a3d81fSJilles Tjoelker 			if (enddir == expdir_end)
1132c8a3d81fSJilles Tjoelker 				return;
11334b88c807SRodney W. Grimes 		}
11340e3e87bdSXin LI 		if (metaflag == 0 || lstat(expdir, &statb) >= 0)
11358ef0ae8aSJilles Tjoelker 			appendarglist(arglist, stsavestr(expdir));
11364b88c807SRodney W. Grimes 		return;
11374b88c807SRodney W. Grimes 	}
113846c6b52dSJilles Tjoelker 	endname = name + (p - name);
11394b88c807SRodney W. Grimes 	if (start != name) {
11404b88c807SRodney W. Grimes 		p = name;
11414b88c807SRodney W. Grimes 		while (p < start) {
11424b88c807SRodney W. Grimes 			if (*p == CTLESC)
11434b88c807SRodney W. Grimes 				p++;
11444b88c807SRodney W. Grimes 			*enddir++ = *p++;
1145c8a3d81fSJilles Tjoelker 			if (enddir == expdir_end)
1146c8a3d81fSJilles Tjoelker 				return;
11474b88c807SRodney W. Grimes 		}
11484b88c807SRodney W. Grimes 	}
11494b88c807SRodney W. Grimes 	if (enddir == expdir) {
11504b88c807SRodney W. Grimes 		p = ".";
11514b88c807SRodney W. Grimes 	} else if (enddir == expdir + 1 && *expdir == '/') {
11524b88c807SRodney W. Grimes 		p = "/";
11534b88c807SRodney W. Grimes 	} else {
11544b88c807SRodney W. Grimes 		p = expdir;
11554b88c807SRodney W. Grimes 		enddir[-1] = '\0';
11564b88c807SRodney W. Grimes 	}
11574b88c807SRodney W. Grimes 	if ((dirp = opendir(p)) == NULL)
11584b88c807SRodney W. Grimes 		return;
11594b88c807SRodney W. Grimes 	if (enddir != expdir)
11604b88c807SRodney W. Grimes 		enddir[-1] = '/';
11614b88c807SRodney W. Grimes 	if (*endname == 0) {
11624b88c807SRodney W. Grimes 		atend = 1;
11634b88c807SRodney W. Grimes 	} else {
11644b88c807SRodney W. Grimes 		atend = 0;
11654710b07eSJilles Tjoelker 		*endname = '\0';
11664710b07eSJilles Tjoelker 		endname += esc + 1;
11674b88c807SRodney W. Grimes 	}
11684b88c807SRodney W. Grimes 	matchdot = 0;
11696f47734fSTor Egge 	p = start;
11706f47734fSTor Egge 	if (*p == CTLESC)
11716f47734fSTor Egge 		p++;
11726f47734fSTor Egge 	if (*p == '.')
11734b88c807SRodney W. Grimes 		matchdot++;
11744b88c807SRodney W. Grimes 	while (! int_pending() && (dp = readdir(dirp)) != NULL) {
11754b88c807SRodney W. Grimes 		if (dp->d_name[0] == '.' && ! matchdot)
11764b88c807SRodney W. Grimes 			continue;
117747d8814cSJilles Tjoelker 		if (patmatch(start, dp->d_name)) {
11787a2b9d4bSJilles Tjoelker 			namlen = dp->d_namlen;
11797a2b9d4bSJilles Tjoelker 			if (enddir + namlen + 1 > expdir_end)
1180aa9caaf6SPeter Wemm 				continue;
11817a2b9d4bSJilles Tjoelker 			memcpy(enddir, dp->d_name, namlen + 1);
1182c8a3d81fSJilles Tjoelker 			if (atend)
11838ef0ae8aSJilles Tjoelker 				appendarglist(arglist, stsavestr(expdir));
1184c8a3d81fSJilles Tjoelker 			else {
11856e8db49aSJilles Tjoelker 				if (dp->d_type != DT_UNKNOWN &&
11866e8db49aSJilles Tjoelker 				    dp->d_type != DT_DIR &&
11876e8db49aSJilles Tjoelker 				    dp->d_type != DT_LNK)
11886e8db49aSJilles Tjoelker 					continue;
11897a2b9d4bSJilles Tjoelker 				if (enddir + namlen + 2 > expdir_end)
1190c8a3d81fSJilles Tjoelker 					continue;
11917a2b9d4bSJilles Tjoelker 				enddir[namlen] = '/';
11927a2b9d4bSJilles Tjoelker 				enddir[namlen + 1] = '\0';
11938ef0ae8aSJilles Tjoelker 				expmeta(enddir + namlen + 1, endname, arglist);
11944b88c807SRodney W. Grimes 			}
11954b88c807SRodney W. Grimes 		}
11964b88c807SRodney W. Grimes 	}
11974b88c807SRodney W. Grimes 	closedir(dirp);
11984b88c807SRodney W. Grimes 	if (! atend)
11994710b07eSJilles Tjoelker 		endname[-esc - 1] = esc ? CTLESC : '/';
12004b88c807SRodney W. Grimes }
12014b88c807SRodney W. Grimes 
12024b88c807SRodney W. Grimes 
12038ef0ae8aSJilles Tjoelker static int
12048ef0ae8aSJilles Tjoelker expsortcmp(const void *p1, const void *p2)
12054b88c807SRodney W. Grimes {
12068ef0ae8aSJilles Tjoelker 	const char *s1 = *(const char * const *)p1;
12078ef0ae8aSJilles Tjoelker 	const char *s2 = *(const char * const *)p2;
12084b88c807SRodney W. Grimes 
1209143d321aSAndrey A. Chernov 	return (strcoll(s1, s2));
12104b88c807SRodney W. Grimes }
12114b88c807SRodney W. Grimes 
12124b88c807SRodney W. Grimes 
12134b88c807SRodney W. Grimes 
12147cc6b3dfSJilles Tjoelker static wchar_t
12157cc6b3dfSJilles Tjoelker get_wc(const char **p)
12167cc6b3dfSJilles Tjoelker {
12177cc6b3dfSJilles Tjoelker 	wchar_t c;
12187cc6b3dfSJilles Tjoelker 	int chrlen;
12197cc6b3dfSJilles Tjoelker 
12207cc6b3dfSJilles Tjoelker 	chrlen = mbtowc(&c, *p, 4);
12217cc6b3dfSJilles Tjoelker 	if (chrlen == 0)
12227cc6b3dfSJilles Tjoelker 		return 0;
12237cc6b3dfSJilles Tjoelker 	else if (chrlen == -1)
12247cc6b3dfSJilles Tjoelker 		c = 0;
12257cc6b3dfSJilles Tjoelker 	else
12267cc6b3dfSJilles Tjoelker 		*p += chrlen;
12277cc6b3dfSJilles Tjoelker 	return c;
12287cc6b3dfSJilles Tjoelker }
12297cc6b3dfSJilles Tjoelker 
12307cc6b3dfSJilles Tjoelker 
12314b88c807SRodney W. Grimes /*
1232ff4dc672SJilles Tjoelker  * See if a character matches a character class, starting at the first colon
1233ff4dc672SJilles Tjoelker  * of "[:class:]".
1234ff4dc672SJilles Tjoelker  * If a valid character class is recognized, a pointer to the next character
1235ff4dc672SJilles Tjoelker  * after the final closing bracket is stored into *end, otherwise a null
1236ff4dc672SJilles Tjoelker  * pointer is stored into *end.
1237ff4dc672SJilles Tjoelker  */
1238ff4dc672SJilles Tjoelker static int
1239ff4dc672SJilles Tjoelker match_charclass(const char *p, wchar_t chr, const char **end)
1240ff4dc672SJilles Tjoelker {
1241ff4dc672SJilles Tjoelker 	char name[20];
1242ff4dc672SJilles Tjoelker 	const char *nameend;
1243ff4dc672SJilles Tjoelker 	wctype_t cclass;
1244ff4dc672SJilles Tjoelker 
1245ff4dc672SJilles Tjoelker 	*end = NULL;
1246ff4dc672SJilles Tjoelker 	p++;
1247ff4dc672SJilles Tjoelker 	nameend = strstr(p, ":]");
124846c6b52dSJilles Tjoelker 	if (nameend == NULL || (size_t)(nameend - p) >= sizeof(name) ||
124946c6b52dSJilles Tjoelker 	    nameend == p)
1250ff4dc672SJilles Tjoelker 		return 0;
1251ff4dc672SJilles Tjoelker 	memcpy(name, p, nameend - p);
1252ff4dc672SJilles Tjoelker 	name[nameend - p] = '\0';
1253ff4dc672SJilles Tjoelker 	*end = nameend + 2;
1254ff4dc672SJilles Tjoelker 	cclass = wctype(name);
1255ff4dc672SJilles Tjoelker 	/* An unknown class matches nothing but is valid nevertheless. */
1256ff4dc672SJilles Tjoelker 	if (cclass == 0)
1257ff4dc672SJilles Tjoelker 		return 0;
1258ff4dc672SJilles Tjoelker 	return iswctype(chr, cclass);
1259ff4dc672SJilles Tjoelker }
1260ff4dc672SJilles Tjoelker 
1261ff4dc672SJilles Tjoelker 
1262ff4dc672SJilles Tjoelker /*
12634b88c807SRodney W. Grimes  * Returns true if the pattern matches the string.
12644b88c807SRodney W. Grimes  */
12654b88c807SRodney W. Grimes 
1266260fc3f4SJilles Tjoelker static int
126747d8814cSJilles Tjoelker patmatch(const char *pattern, const char *string)
12684b88c807SRodney W. Grimes {
1269ff4dc672SJilles Tjoelker 	const char *p, *q, *end;
1270820491f8SJilles Tjoelker 	const char *bt_p, *bt_q;
127196522b88SSteve Price 	char c;
12727cc6b3dfSJilles Tjoelker 	wchar_t wc, wc2;
12734b88c807SRodney W. Grimes 
12744b88c807SRodney W. Grimes 	p = pattern;
12754b88c807SRodney W. Grimes 	q = string;
1276820491f8SJilles Tjoelker 	bt_p = NULL;
1277820491f8SJilles Tjoelker 	bt_q = NULL;
12784b88c807SRodney W. Grimes 	for (;;) {
12794b88c807SRodney W. Grimes 		switch (c = *p++) {
12804b88c807SRodney W. Grimes 		case '\0':
1281820491f8SJilles Tjoelker 			if (*q != '\0')
1282820491f8SJilles Tjoelker 				goto backtrack;
1283820491f8SJilles Tjoelker 			return 1;
12844b88c807SRodney W. Grimes 		case CTLESC:
12854b88c807SRodney W. Grimes 			if (*q++ != *p++)
1286820491f8SJilles Tjoelker 				goto backtrack;
12874b88c807SRodney W. Grimes 			break;
12884b88c807SRodney W. Grimes 		case '?':
1289820491f8SJilles Tjoelker 			if (*q == '\0')
12904b88c807SRodney W. Grimes 				return 0;
1291820491f8SJilles Tjoelker 			if (localeisutf8) {
1292820491f8SJilles Tjoelker 				wc = get_wc(&q);
1293820491f8SJilles Tjoelker 				/*
1294820491f8SJilles Tjoelker 				 * A '?' does not match invalid UTF-8 but a
1295820491f8SJilles Tjoelker 				 * '*' does, so backtrack.
1296820491f8SJilles Tjoelker 				 */
1297820491f8SJilles Tjoelker 				if (wc == 0)
1298820491f8SJilles Tjoelker 					goto backtrack;
1299820491f8SJilles Tjoelker 			} else
1300acb4eadaSJilles Tjoelker 				q++;
13014b88c807SRodney W. Grimes 			break;
13024b88c807SRodney W. Grimes 		case '*':
13034b88c807SRodney W. Grimes 			c = *p;
1304bc57b4d4SJilles Tjoelker 			while (c == '*')
13056f47734fSTor Egge 				c = *++p;
1306820491f8SJilles Tjoelker 			/*
1307820491f8SJilles Tjoelker 			 * If the pattern ends here, we know the string
1308820491f8SJilles Tjoelker 			 * matches without needing to look at the rest of it.
1309820491f8SJilles Tjoelker 			 */
1310820491f8SJilles Tjoelker 			if (c == '\0')
13114b88c807SRodney W. Grimes 				return 1;
1312820491f8SJilles Tjoelker 			/*
1313820491f8SJilles Tjoelker 			 * First try the shortest match for the '*' that
1314820491f8SJilles Tjoelker 			 * could work. We can forget any earlier '*' since
1315820491f8SJilles Tjoelker 			 * there is no way having it match more characters
1316820491f8SJilles Tjoelker 			 * can help us, given that we are already here.
1317820491f8SJilles Tjoelker 			 */
1318820491f8SJilles Tjoelker 			bt_p = p;
1319820491f8SJilles Tjoelker 			bt_q = q;
1320820491f8SJilles Tjoelker 			break;
13214b88c807SRodney W. Grimes 		case '[': {
13224a4867d6SJilles Tjoelker 			const char *savep, *saveq;
13234b88c807SRodney W. Grimes 			int invert, found;
13247cc6b3dfSJilles Tjoelker 			wchar_t chr;
13254b88c807SRodney W. Grimes 
13264a4867d6SJilles Tjoelker 			savep = p, saveq = q;
13274b88c807SRodney W. Grimes 			invert = 0;
1328ea1376dfSAndrey A. Chernov 			if (*p == '!' || *p == '^') {
13294b88c807SRodney W. Grimes 				invert++;
13304b88c807SRodney W. Grimes 				p++;
13314b88c807SRodney W. Grimes 			}
13324b88c807SRodney W. Grimes 			found = 0;
1333820491f8SJilles Tjoelker 			if (*q == '\0')
1334aa9caaf6SPeter Wemm 				return 0;
1335820491f8SJilles Tjoelker 			if (localeisutf8) {
1336820491f8SJilles Tjoelker 				chr = get_wc(&q);
1337820491f8SJilles Tjoelker 				if (chr == 0)
1338820491f8SJilles Tjoelker 					goto backtrack;
1339820491f8SJilles Tjoelker 			} else
1340820491f8SJilles Tjoelker 				chr = (unsigned char)*q++;
13414b88c807SRodney W. Grimes 			c = *p++;
13424b88c807SRodney W. Grimes 			do {
13434a4867d6SJilles Tjoelker 				if (c == '\0') {
13444a4867d6SJilles Tjoelker 					p = savep, q = saveq;
13454a4867d6SJilles Tjoelker 					c = '[';
13464a4867d6SJilles Tjoelker 					goto dft;
13474a4867d6SJilles Tjoelker 				}
1348ff4dc672SJilles Tjoelker 				if (c == '[' && *p == ':') {
1349ff4dc672SJilles Tjoelker 					found |= match_charclass(p, chr, &end);
1350ff4dc672SJilles Tjoelker 					if (end != NULL)
1351ff4dc672SJilles Tjoelker 						p = end;
1352ff4dc672SJilles Tjoelker 				}
13534b88c807SRodney W. Grimes 				if (c == CTLESC)
13544b88c807SRodney W. Grimes 					c = *p++;
13557cc6b3dfSJilles Tjoelker 				if (localeisutf8 && c & 0x80) {
13567cc6b3dfSJilles Tjoelker 					p--;
13577cc6b3dfSJilles Tjoelker 					wc = get_wc(&p);
13587cc6b3dfSJilles Tjoelker 					if (wc == 0) /* bad utf-8 */
13597cc6b3dfSJilles Tjoelker 						return 0;
13607cc6b3dfSJilles Tjoelker 				} else
1361f5ac5937SJilles Tjoelker 					wc = (unsigned char)c;
13624b88c807SRodney W. Grimes 				if (*p == '-' && p[1] != ']') {
13634b88c807SRodney W. Grimes 					p++;
13644b88c807SRodney W. Grimes 					if (*p == CTLESC)
13654b88c807SRodney W. Grimes 						p++;
13667cc6b3dfSJilles Tjoelker 					if (localeisutf8) {
13677cc6b3dfSJilles Tjoelker 						wc2 = get_wc(&p);
13687cc6b3dfSJilles Tjoelker 						if (wc2 == 0) /* bad utf-8 */
13697cc6b3dfSJilles Tjoelker 							return 0;
13707cc6b3dfSJilles Tjoelker 					} else
1371f5ac5937SJilles Tjoelker 						wc2 = (unsigned char)*p++;
1372fa93fc65SAndrey A. Chernov 					if (   collate_range_cmp(chr, wc) >= 0
1373fa93fc65SAndrey A. Chernov 					    && collate_range_cmp(chr, wc2) <= 0
1374fa93fc65SAndrey A. Chernov 					   )
13754b88c807SRodney W. Grimes 						found = 1;
13764b88c807SRodney W. Grimes 				} else {
13777cc6b3dfSJilles Tjoelker 					if (chr == wc)
13784b88c807SRodney W. Grimes 						found = 1;
13794b88c807SRodney W. Grimes 				}
13804b88c807SRodney W. Grimes 			} while ((c = *p++) != ']');
13814b88c807SRodney W. Grimes 			if (found == invert)
1382820491f8SJilles Tjoelker 				goto backtrack;
13834b88c807SRodney W. Grimes 			break;
13844b88c807SRodney W. Grimes 		}
13854b88c807SRodney W. Grimes dft:	        default:
1386820491f8SJilles Tjoelker 			if (*q == '\0')
13874b88c807SRodney W. Grimes 				return 0;
1388820491f8SJilles Tjoelker 			if (*q++ == c)
1389820491f8SJilles Tjoelker 				break;
1390820491f8SJilles Tjoelker backtrack:
1391820491f8SJilles Tjoelker 			/*
1392820491f8SJilles Tjoelker 			 * If we have a mismatch (other than hitting the end
1393820491f8SJilles Tjoelker 			 * of the string), go back to the last '*' seen and
1394820491f8SJilles Tjoelker 			 * have it match one additional character.
1395820491f8SJilles Tjoelker 			 */
1396820491f8SJilles Tjoelker 			if (bt_p == NULL)
1397820491f8SJilles Tjoelker 				return 0;
1398820491f8SJilles Tjoelker 			if (*bt_q == '\0')
1399820491f8SJilles Tjoelker 				return 0;
1400820491f8SJilles Tjoelker 			bt_q++;
1401820491f8SJilles Tjoelker 			p = bt_p;
1402820491f8SJilles Tjoelker 			q = bt_q;
14034b88c807SRodney W. Grimes 			break;
14044b88c807SRodney W. Grimes 		}
14054b88c807SRodney W. Grimes 	}
14064b88c807SRodney W. Grimes }
14074b88c807SRodney W. Grimes 
14084b88c807SRodney W. Grimes 
14094b88c807SRodney W. Grimes 
14104b88c807SRodney W. Grimes /*
14112ca3d70fSJilles Tjoelker  * Remove any CTLESC and CTLQUOTEMARK characters from a string.
14124b88c807SRodney W. Grimes  */
14134b88c807SRodney W. Grimes 
14144b88c807SRodney W. Grimes void
14155134c3f7SWarner Losh rmescapes(char *str)
14164b88c807SRodney W. Grimes {
141796522b88SSteve Price 	char *p, *q;
14184b88c807SRodney W. Grimes 
14194b88c807SRodney W. Grimes 	p = str;
1420048f2667SJilles Tjoelker 	while (*p != CTLESC && *p != CTLQUOTEMARK && *p != CTLQUOTEEND) {
14214b88c807SRodney W. Grimes 		if (*p++ == '\0')
14224b88c807SRodney W. Grimes 			return;
14234b88c807SRodney W. Grimes 	}
14244b88c807SRodney W. Grimes 	q = p;
14254b88c807SRodney W. Grimes 	while (*p) {
1426048f2667SJilles Tjoelker 		if (*p == CTLQUOTEMARK || *p == CTLQUOTEEND) {
14276f47734fSTor Egge 			p++;
14286f47734fSTor Egge 			continue;
14296f47734fSTor Egge 		}
14304b88c807SRodney W. Grimes 		if (*p == CTLESC)
14314b88c807SRodney W. Grimes 			p++;
14324b88c807SRodney W. Grimes 		*q++ = *p++;
14334b88c807SRodney W. Grimes 	}
14344b88c807SRodney W. Grimes 	*q = '\0';
14354b88c807SRodney W. Grimes }
14364b88c807SRodney W. Grimes 
14374b88c807SRodney W. Grimes 
14384b88c807SRodney W. Grimes 
14394b88c807SRodney W. Grimes /*
14404b88c807SRodney W. Grimes  * See if a pattern matches in a case statement.
14414b88c807SRodney W. Grimes  */
14424b88c807SRodney W. Grimes 
14434b88c807SRodney W. Grimes int
14442cac6e36SJilles Tjoelker casematch(union node *pattern, const char *val)
14454b88c807SRodney W. Grimes {
14464b88c807SRodney W. Grimes 	struct stackmark smark;
1447*439948cdSJilles Tjoelker 	struct nodelist *argbackq;
14484b88c807SRodney W. Grimes 	int result;
14494b88c807SRodney W. Grimes 	char *p;
14504b88c807SRodney W. Grimes 
14514b88c807SRodney W. Grimes 	setstackmark(&smark);
14524b88c807SRodney W. Grimes 	argbackq = pattern->narg.backquote;
14534b88c807SRodney W. Grimes 	STARTSTACKSTR(expdest);
1454*439948cdSJilles Tjoelker 	argstr(pattern->narg.text, &argbackq, EXP_TILDE | EXP_CASE, NULL);
14554b88c807SRodney W. Grimes 	STPUTC('\0', expdest);
14564b88c807SRodney W. Grimes 	p = grabstackstr(expdest);
145747d8814cSJilles Tjoelker 	result = patmatch(p, val);
14584b88c807SRodney W. Grimes 	popstackmark(&smark);
14594b88c807SRodney W. Grimes 	return result;
14604b88c807SRodney W. Grimes }
1461aa9caaf6SPeter Wemm 
1462aa9caaf6SPeter Wemm /*
1463aa9caaf6SPeter Wemm  * Our own itoa().
1464aa9caaf6SPeter Wemm  */
1465aa9caaf6SPeter Wemm 
146647d8814cSJilles Tjoelker static void
14675134c3f7SWarner Losh cvtnum(int num, char *buf)
1468aa9caaf6SPeter Wemm {
1469aa9caaf6SPeter Wemm 	char temp[32];
1470aa9caaf6SPeter Wemm 	int neg = num < 0;
1471aa9caaf6SPeter Wemm 	char *p = temp + 31;
1472aa9caaf6SPeter Wemm 
1473aa9caaf6SPeter Wemm 	temp[31] = '\0';
1474aa9caaf6SPeter Wemm 
1475aa9caaf6SPeter Wemm 	do {
1476aa9caaf6SPeter Wemm 		*--p = num % 10 + '0';
1477aa9caaf6SPeter Wemm 	} while ((num /= 10) != 0);
1478aa9caaf6SPeter Wemm 
1479aa9caaf6SPeter Wemm 	if (neg)
1480aa9caaf6SPeter Wemm 		*--p = '-';
1481aa9caaf6SPeter Wemm 
148247d8814cSJilles Tjoelker 	memcpy(buf, p, temp + 32 - p);
1483aa9caaf6SPeter Wemm }
14842c25061fSTim J. Robbins 
14852c25061fSTim J. Robbins /*
14862c25061fSTim J. Robbins  * Do most of the work for wordexp(3).
14872c25061fSTim J. Robbins  */
14882c25061fSTim J. Robbins 
14892c25061fSTim J. Robbins int
14902c25061fSTim J. Robbins wordexpcmd(int argc, char **argv)
14912c25061fSTim J. Robbins {
14922c25061fSTim J. Robbins 	size_t len;
14932c25061fSTim J. Robbins 	int i;
14942c25061fSTim J. Robbins 
14952c25061fSTim J. Robbins 	out1fmt("%08x", argc - 1);
14962c25061fSTim J. Robbins 	for (i = 1, len = 0; i < argc; i++)
14972c25061fSTim J. Robbins 		len += strlen(argv[i]);
14982c25061fSTim J. Robbins 	out1fmt("%08x", (int)len);
1499aeb5d065SJilles Tjoelker 	for (i = 1; i < argc; i++)
1500aeb5d065SJilles Tjoelker 		outbin(argv[i], strlen(argv[i]) + 1, out1);
15012c25061fSTim J. Robbins         return (0);
15022c25061fSTim J. Robbins }
1503d358fa78SJilles Tjoelker 
1504d358fa78SJilles Tjoelker /*
1505d358fa78SJilles Tjoelker  * Do most of the work for wordexp(3), new version.
1506d358fa78SJilles Tjoelker  */
1507d358fa78SJilles Tjoelker 
1508d358fa78SJilles Tjoelker int
1509d358fa78SJilles Tjoelker freebsd_wordexpcmd(int argc __unused, char **argv __unused)
1510d358fa78SJilles Tjoelker {
1511d358fa78SJilles Tjoelker 	struct arglist arglist;
1512d358fa78SJilles Tjoelker 	union node *args, *n;
15138ef0ae8aSJilles Tjoelker 	size_t len;
1514d358fa78SJilles Tjoelker 	int ch;
1515d358fa78SJilles Tjoelker 	int protected = 0;
1516d358fa78SJilles Tjoelker 	int fd = -1;
15178ef0ae8aSJilles Tjoelker 	int i;
1518d358fa78SJilles Tjoelker 
1519d358fa78SJilles Tjoelker 	while ((ch = nextopt("f:p")) != '\0') {
1520d358fa78SJilles Tjoelker 		switch (ch) {
1521d358fa78SJilles Tjoelker 		case 'f':
1522d358fa78SJilles Tjoelker 			fd = number(shoptarg);
1523d358fa78SJilles Tjoelker 			break;
1524d358fa78SJilles Tjoelker 		case 'p':
1525d358fa78SJilles Tjoelker 			protected = 1;
1526d358fa78SJilles Tjoelker 			break;
1527d358fa78SJilles Tjoelker 		}
1528d358fa78SJilles Tjoelker 	}
1529d358fa78SJilles Tjoelker 	if (*argptr != NULL)
1530d358fa78SJilles Tjoelker 		error("wrong number of arguments");
1531d358fa78SJilles Tjoelker 	if (fd < 0)
1532d358fa78SJilles Tjoelker 		error("missing fd");
1533d358fa78SJilles Tjoelker 	INTOFF;
1534d358fa78SJilles Tjoelker 	setinputfd(fd, 1);
1535d358fa78SJilles Tjoelker 	INTON;
1536d358fa78SJilles Tjoelker 	args = parsewordexp();
1537d358fa78SJilles Tjoelker 	popfile(); /* will also close fd */
1538d358fa78SJilles Tjoelker 	if (protected)
1539d358fa78SJilles Tjoelker 		for (n = args; n != NULL; n = n->narg.next) {
1540d358fa78SJilles Tjoelker 			if (n->narg.backquote != NULL) {
1541d358fa78SJilles Tjoelker 				outcslow('C', out1);
1542d358fa78SJilles Tjoelker 				error("command substitution disabled");
1543d358fa78SJilles Tjoelker 			}
1544d358fa78SJilles Tjoelker 		}
1545d358fa78SJilles Tjoelker 	outcslow(' ', out1);
15468ef0ae8aSJilles Tjoelker 	emptyarglist(&arglist);
1547d358fa78SJilles Tjoelker 	for (n = args; n != NULL; n = n->narg.next)
1548d358fa78SJilles Tjoelker 		expandarg(n, &arglist, EXP_FULL | EXP_TILDE);
15498ef0ae8aSJilles Tjoelker 	for (i = 0, len = 0; i < arglist.count; i++)
15508ef0ae8aSJilles Tjoelker 		len += strlen(arglist.args[i]);
15518ef0ae8aSJilles Tjoelker 	out1fmt("%016x %016zx", arglist.count, len);
15528ef0ae8aSJilles Tjoelker 	for (i = 0; i < arglist.count; i++)
15538ef0ae8aSJilles Tjoelker 		outbin(arglist.args[i], strlen(arglist.args[i]) + 1, out1);
1554d358fa78SJilles Tjoelker 	return (0);
1555d358fa78SJilles Tjoelker }
1556