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