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. 64b88c807SRodney W. Grimes * 74b88c807SRodney W. Grimes * This code is derived from software contributed to Berkeley by 84b88c807SRodney W. Grimes * Kenneth Almquist. 94b88c807SRodney W. Grimes * 104b88c807SRodney W. Grimes * Redistribution and use in source and binary forms, with or without 114b88c807SRodney W. Grimes * modification, are permitted provided that the following conditions 124b88c807SRodney W. Grimes * are met: 134b88c807SRodney W. Grimes * 1. Redistributions of source code must retain the above copyright 144b88c807SRodney W. Grimes * notice, this list of conditions and the following disclaimer. 154b88c807SRodney W. Grimes * 2. Redistributions in binary form must reproduce the above copyright 164b88c807SRodney W. Grimes * notice, this list of conditions and the following disclaimer in the 174b88c807SRodney W. Grimes * documentation and/or other materials provided with the distribution. 184b88c807SRodney W. Grimes * 4. Neither the name of the University nor the names of its contributors 194b88c807SRodney W. Grimes * may be used to endorse or promote products derived from this software 204b88c807SRodney W. Grimes * without specific prior written permission. 214b88c807SRodney W. Grimes * 224b88c807SRodney W. Grimes * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 234b88c807SRodney W. Grimes * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 244b88c807SRodney W. Grimes * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 254b88c807SRodney W. Grimes * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 264b88c807SRodney W. Grimes * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 274b88c807SRodney W. Grimes * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 284b88c807SRodney W. Grimes * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 294b88c807SRodney W. Grimes * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 304b88c807SRodney W. Grimes * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 314b88c807SRodney W. Grimes * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 324b88c807SRodney W. Grimes * SUCH DAMAGE. 334b88c807SRodney W. Grimes */ 344b88c807SRodney W. Grimes 354b88c807SRodney W. Grimes #ifndef lint 363d7b5b93SPhilippe Charnier #if 0 373d7b5b93SPhilippe Charnier static char sccsid[] = "@(#)expand.c 8.5 (Berkeley) 5/15/95"; 383d7b5b93SPhilippe Charnier #endif 394b88c807SRodney W. Grimes #endif /* not lint */ 402749b141SDavid E. O'Brien #include <sys/cdefs.h> 412749b141SDavid E. O'Brien __FBSDID("$FreeBSD$"); 424b88c807SRodney W. Grimes 43aa9caaf6SPeter Wemm #include <sys/types.h> 44aa9caaf6SPeter Wemm #include <sys/time.h> 45aa9caaf6SPeter Wemm #include <sys/stat.h> 46aa9caaf6SPeter Wemm #include <dirent.h> 478ab2e970SJohn Baldwin #include <errno.h> 488ab2e970SJohn Baldwin #include <inttypes.h> 493cd859a7SAndrey A. Chernov #include <limits.h> 508ab2e970SJohn Baldwin #include <pwd.h> 516f47734fSTor Egge #include <stdio.h> 528ab2e970SJohn Baldwin #include <stdlib.h> 532c25061fSTim J. Robbins #include <string.h> 548ab2e970SJohn Baldwin #include <unistd.h> 55aa9caaf6SPeter Wemm 564b88c807SRodney W. Grimes /* 574b88c807SRodney W. Grimes * Routines to expand arguments to commands. We have to deal with 584b88c807SRodney W. Grimes * backquotes, shell variables, and file metacharacters. 594b88c807SRodney W. Grimes */ 604b88c807SRodney W. Grimes 614b88c807SRodney W. Grimes #include "shell.h" 624b88c807SRodney W. Grimes #include "main.h" 634b88c807SRodney W. Grimes #include "nodes.h" 644b88c807SRodney W. Grimes #include "eval.h" 654b88c807SRodney W. Grimes #include "expand.h" 664b88c807SRodney W. Grimes #include "syntax.h" 674b88c807SRodney W. Grimes #include "parser.h" 684b88c807SRodney W. Grimes #include "jobs.h" 694b88c807SRodney W. Grimes #include "options.h" 704b88c807SRodney W. Grimes #include "var.h" 714b88c807SRodney W. Grimes #include "input.h" 724b88c807SRodney W. Grimes #include "output.h" 734b88c807SRodney W. Grimes #include "memalloc.h" 744b88c807SRodney W. Grimes #include "error.h" 754b88c807SRodney W. Grimes #include "mystring.h" 76aa9caaf6SPeter Wemm #include "arith.h" 77aa9caaf6SPeter Wemm #include "show.h" 784b88c807SRodney W. Grimes 794b88c807SRodney W. Grimes /* 804b88c807SRodney W. Grimes * Structure specifying which parts of the string should be searched 814b88c807SRodney W. Grimes * for IFS characters. 824b88c807SRodney W. Grimes */ 834b88c807SRodney W. Grimes 844b88c807SRodney W. Grimes struct ifsregion { 854b88c807SRodney W. Grimes struct ifsregion *next; /* next region in list */ 864b88c807SRodney W. Grimes int begoff; /* offset of start of region */ 874b88c807SRodney W. Grimes int endoff; /* offset of end of region */ 8818d56246SJilles Tjoelker int inquotes; /* search for nul bytes only */ 894b88c807SRodney W. Grimes }; 904b88c807SRodney W. Grimes 914b88c807SRodney W. Grimes 92aa7b6f82SDavid E. O'Brien static char *expdest; /* output of current string */ 93aa7b6f82SDavid E. O'Brien static struct nodelist *argbackq; /* list of back quote expressions */ 94aa7b6f82SDavid E. O'Brien static struct ifsregion ifsfirst; /* first struct in list of ifs regions */ 95aa7b6f82SDavid E. O'Brien static struct ifsregion *ifslastp; /* last struct in list */ 96aa7b6f82SDavid E. O'Brien static struct arglist exparg; /* holds expanded arg list */ 974b88c807SRodney W. Grimes 98*88328642SDavid E. O'Brien static void argstr(char *, int); 99*88328642SDavid E. O'Brien static char *exptilde(char *, int); 100*88328642SDavid E. O'Brien static void expbackq(union node *, int, int); 101*88328642SDavid E. O'Brien static int subevalvar(char *, char *, int, int, int, int); 102*88328642SDavid E. O'Brien static char *evalvar(char *, int); 103*88328642SDavid E. O'Brien static int varisset(char *, int); 104*88328642SDavid E. O'Brien static void varvalue(char *, int, int, int); 105*88328642SDavid E. O'Brien static void recordregion(int, int, int); 106*88328642SDavid E. O'Brien static void removerecordregions(int); 107*88328642SDavid E. O'Brien static void ifsbreakup(char *, struct arglist *); 108*88328642SDavid E. O'Brien static void expandmeta(struct strlist *, int); 109*88328642SDavid E. O'Brien static void expmeta(char *, char *); 110*88328642SDavid E. O'Brien static void addfname(char *); 111*88328642SDavid E. O'Brien static struct strlist *expsort(struct strlist *); 112*88328642SDavid E. O'Brien static struct strlist *msort(struct strlist *, int); 113*88328642SDavid E. O'Brien static char *cvtnum(int, char *); 114*88328642SDavid E. O'Brien static int collate_range_cmp(int, int); 1153cd859a7SAndrey A. Chernov 116*88328642SDavid E. O'Brien static int 1175134c3f7SWarner Losh collate_range_cmp(int c1, int c2) 1183cd859a7SAndrey A. Chernov { 1193cd859a7SAndrey A. Chernov static char s1[2], s2[2]; 1203cd859a7SAndrey A. Chernov 1213cd859a7SAndrey A. Chernov s1[0] = c1; 1223cd859a7SAndrey A. Chernov s2[0] = c2; 123508f10f7SAndrey A. Chernov return (strcoll(s1, s2)); 1243cd859a7SAndrey A. Chernov } 1254b88c807SRodney W. Grimes 1264b88c807SRodney W. Grimes /* 1274b88c807SRodney W. Grimes * Expand shell variables and backquotes inside a here document. 1285134c3f7SWarner Losh * union node *arg the document 1295134c3f7SWarner Losh * int fd; where to write the expanded version 1304b88c807SRodney W. Grimes */ 1314b88c807SRodney W. Grimes 1324b88c807SRodney W. Grimes void 1335134c3f7SWarner Losh expandhere(union node *arg, int fd) 1344b88c807SRodney W. Grimes { 1354b88c807SRodney W. Grimes herefd = fd; 1364b88c807SRodney W. Grimes expandarg(arg, (struct arglist *)NULL, 0); 1375557a02aSTor Egge xwrite(fd, stackblock(), expdest - stackblock()); 1384b88c807SRodney W. Grimes } 1394b88c807SRodney W. Grimes 1404b88c807SRodney W. Grimes 1414b88c807SRodney W. Grimes /* 1422ca3d70fSJilles Tjoelker * Perform expansions on an argument, placing the resulting list of arguments 1432ca3d70fSJilles Tjoelker * in arglist. Parameter expansion, command substitution and arithmetic 1442ca3d70fSJilles Tjoelker * expansion are always performed; additional expansions can be requested 1452ca3d70fSJilles Tjoelker * via flag (EXP_*). 1462ca3d70fSJilles Tjoelker * The result is left in the stack string. 1472ca3d70fSJilles Tjoelker * When arglist is NULL, perform here document expansion. A partial result 1482ca3d70fSJilles Tjoelker * may be written to herefd, which is then not included in the stack string. 1492ca3d70fSJilles Tjoelker * 1502ca3d70fSJilles Tjoelker * Caution: this function uses global state and is not reentrant. 1512ca3d70fSJilles Tjoelker * However, a new invocation after an interrupted invocation is safe 1522ca3d70fSJilles Tjoelker * and will reset the global state for the new call. 1534b88c807SRodney W. Grimes */ 1544b88c807SRodney W. Grimes void 1555134c3f7SWarner Losh expandarg(union node *arg, struct arglist *arglist, int flag) 1564b88c807SRodney W. Grimes { 1574b88c807SRodney W. Grimes struct strlist *sp; 1584b88c807SRodney W. Grimes char *p; 1594b88c807SRodney W. Grimes 1604b88c807SRodney W. Grimes argbackq = arg->narg.backquote; 1614b88c807SRodney W. Grimes STARTSTACKSTR(expdest); 1624b88c807SRodney W. Grimes ifsfirst.next = NULL; 1634b88c807SRodney W. Grimes ifslastp = NULL; 1644b88c807SRodney W. Grimes argstr(arg->narg.text, flag); 1654b88c807SRodney W. Grimes if (arglist == NULL) { 1664b88c807SRodney W. Grimes return; /* here document expanded */ 1674b88c807SRodney W. Grimes } 1684b88c807SRodney W. Grimes STPUTC('\0', expdest); 1694b88c807SRodney W. Grimes p = grabstackstr(expdest); 1704b88c807SRodney W. Grimes exparg.lastp = &exparg.list; 1714b88c807SRodney W. Grimes /* 1724b88c807SRodney W. Grimes * TODO - EXP_REDIR 1734b88c807SRodney W. Grimes */ 1744b88c807SRodney W. Grimes if (flag & EXP_FULL) { 1754b88c807SRodney W. Grimes ifsbreakup(p, &exparg); 1764b88c807SRodney W. Grimes *exparg.lastp = NULL; 1774b88c807SRodney W. Grimes exparg.lastp = &exparg.list; 1784b88c807SRodney W. Grimes expandmeta(exparg.list, flag); 1794b88c807SRodney W. Grimes } else { 1804b88c807SRodney W. Grimes if (flag & EXP_REDIR) /*XXX - for now, just remove escapes */ 1814b88c807SRodney W. Grimes rmescapes(p); 1824b88c807SRodney W. Grimes sp = (struct strlist *)stalloc(sizeof (struct strlist)); 1834b88c807SRodney W. Grimes sp->text = p; 1844b88c807SRodney W. Grimes *exparg.lastp = sp; 1854b88c807SRodney W. Grimes exparg.lastp = &sp->next; 1864b88c807SRodney W. Grimes } 1874b88c807SRodney W. Grimes while (ifsfirst.next != NULL) { 1884b88c807SRodney W. Grimes struct ifsregion *ifsp; 1894b88c807SRodney W. Grimes INTOFF; 1904b88c807SRodney W. Grimes ifsp = ifsfirst.next->next; 1914b88c807SRodney W. Grimes ckfree(ifsfirst.next); 1924b88c807SRodney W. Grimes ifsfirst.next = ifsp; 1934b88c807SRodney W. Grimes INTON; 1944b88c807SRodney W. Grimes } 1954b88c807SRodney W. Grimes *exparg.lastp = NULL; 1964b88c807SRodney W. Grimes if (exparg.list) { 1974b88c807SRodney W. Grimes *arglist->lastp = exparg.list; 1984b88c807SRodney W. Grimes arglist->lastp = exparg.lastp; 1994b88c807SRodney W. Grimes } 2004b88c807SRodney W. Grimes } 2014b88c807SRodney W. Grimes 2024b88c807SRodney W. Grimes 2034b88c807SRodney W. Grimes 2044b88c807SRodney W. Grimes /* 2052ca3d70fSJilles Tjoelker * Perform parameter expansion, command substitution and arithmetic 2062ca3d70fSJilles Tjoelker * expansion, and tilde expansion if requested via EXP_TILDE/EXP_VARTILDE. 2072ca3d70fSJilles Tjoelker * Processing ends at a CTLENDVAR character as well as '\0'. 2082ca3d70fSJilles Tjoelker * This is used to expand word in ${var+word} etc. 2092ca3d70fSJilles Tjoelker * If EXP_FULL, EXP_CASE or EXP_REDIR are set, keep and/or generate CTLESC 2102ca3d70fSJilles Tjoelker * characters to allow for further processing. 2112ca3d70fSJilles Tjoelker * If EXP_FULL is set, also preserve CTLQUOTEMARK characters. 2124b88c807SRodney W. Grimes */ 213*88328642SDavid E. O'Brien static void 2145134c3f7SWarner Losh argstr(char *p, int flag) 2154b88c807SRodney W. Grimes { 21696522b88SSteve Price char c; 217c121fd80STim J. Robbins int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR); /* do CTLESC */ 2184b88c807SRodney W. Grimes int firsteq = 1; 2194b88c807SRodney W. Grimes 2204b88c807SRodney W. Grimes if (*p == '~' && (flag & (EXP_TILDE | EXP_VARTILDE))) 2214b88c807SRodney W. Grimes p = exptilde(p, flag); 2224b88c807SRodney W. Grimes for (;;) { 2234b88c807SRodney W. Grimes switch (c = *p++) { 2244b88c807SRodney W. Grimes case '\0': 2252ca3d70fSJilles Tjoelker case CTLENDVAR: 2264b88c807SRodney W. Grimes goto breakloop; 2276f47734fSTor Egge case CTLQUOTEMARK: 2286f47734fSTor Egge /* "$@" syntax adherence hack */ 2296f47734fSTor Egge if (p[0] == CTLVAR && p[2] == '@' && p[3] == '=') 2306f47734fSTor Egge break; 2315557a02aSTor Egge if ((flag & EXP_FULL) != 0) 2326f47734fSTor Egge STPUTC(c, expdest); 2336f47734fSTor Egge break; 2344b88c807SRodney W. Grimes case CTLESC: 2354b88c807SRodney W. Grimes if (quotes) 2364b88c807SRodney W. Grimes STPUTC(c, expdest); 2374b88c807SRodney W. Grimes c = *p++; 2384b88c807SRodney W. Grimes STPUTC(c, expdest); 2394b88c807SRodney W. Grimes break; 2404b88c807SRodney W. Grimes case CTLVAR: 2414b88c807SRodney W. Grimes p = evalvar(p, flag); 2424b88c807SRodney W. Grimes break; 2434b88c807SRodney W. Grimes case CTLBACKQ: 2444b88c807SRodney W. Grimes case CTLBACKQ|CTLQUOTE: 2454b88c807SRodney W. Grimes expbackq(argbackq->n, c & CTLQUOTE, flag); 2464b88c807SRodney W. Grimes argbackq = argbackq->next; 2474b88c807SRodney W. Grimes break; 2484b88c807SRodney W. Grimes case CTLENDARI: 2494b88c807SRodney W. Grimes expari(flag); 2504b88c807SRodney W. Grimes break; 2514b88c807SRodney W. Grimes case ':': 2524b88c807SRodney W. Grimes case '=': 2534b88c807SRodney W. Grimes /* 2544b88c807SRodney W. Grimes * sort of a hack - expand tildes in variable 2554b88c807SRodney W. Grimes * assignments (after the first '=' and after ':'s). 2564b88c807SRodney W. Grimes */ 2574b88c807SRodney W. Grimes STPUTC(c, expdest); 2584b88c807SRodney W. Grimes if (flag & EXP_VARTILDE && *p == '~') { 2594b88c807SRodney W. Grimes if (c == '=') { 2604b88c807SRodney W. Grimes if (firsteq) 2614b88c807SRodney W. Grimes firsteq = 0; 2624b88c807SRodney W. Grimes else 2634b88c807SRodney W. Grimes break; 2644b88c807SRodney W. Grimes } 2654b88c807SRodney W. Grimes p = exptilde(p, flag); 2664b88c807SRodney W. Grimes } 2674b88c807SRodney W. Grimes break; 2684b88c807SRodney W. Grimes default: 2694b88c807SRodney W. Grimes STPUTC(c, expdest); 2704b88c807SRodney W. Grimes } 2714b88c807SRodney W. Grimes } 2724b88c807SRodney W. Grimes breakloop:; 2734b88c807SRodney W. Grimes } 2744b88c807SRodney W. Grimes 2752ca3d70fSJilles Tjoelker /* 2762ca3d70fSJilles Tjoelker * Perform tilde expansion, placing the result in the stack string and 2772ca3d70fSJilles Tjoelker * returning the next position in the input string to process. 2782ca3d70fSJilles Tjoelker */ 279*88328642SDavid E. O'Brien static char * 2805134c3f7SWarner Losh exptilde(char *p, int flag) 2814b88c807SRodney W. Grimes { 2824b88c807SRodney W. Grimes char c, *startp = p; 2834b88c807SRodney W. Grimes struct passwd *pw; 2844b88c807SRodney W. Grimes char *home; 2859c92e72cSTim J. Robbins int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR); 2864b88c807SRodney W. Grimes 287aa9caaf6SPeter Wemm while ((c = *p) != '\0') { 2884b88c807SRodney W. Grimes switch(c) { 28905c10507SJilles Tjoelker case CTLESC: /* This means CTL* are always considered quoted. */ 29005c10507SJilles Tjoelker case CTLVAR: 29105c10507SJilles Tjoelker case CTLBACKQ: 29205c10507SJilles Tjoelker case CTLBACKQ | CTLQUOTE: 29305c10507SJilles Tjoelker case CTLARI: 29405c10507SJilles Tjoelker case CTLENDARI: 2955557a02aSTor Egge case CTLQUOTEMARK: 2965557a02aSTor Egge return (startp); 2974b88c807SRodney W. Grimes case ':': 2984b88c807SRodney W. Grimes if (flag & EXP_VARTILDE) 2994b88c807SRodney W. Grimes goto done; 3004b88c807SRodney W. Grimes break; 3014b88c807SRodney W. Grimes case '/': 302634e9188SJilles Tjoelker case CTLENDVAR: 3034b88c807SRodney W. Grimes goto done; 3044b88c807SRodney W. Grimes } 3054b88c807SRodney W. Grimes p++; 3064b88c807SRodney W. Grimes } 3074b88c807SRodney W. Grimes done: 3084b88c807SRodney W. Grimes *p = '\0'; 3094b88c807SRodney W. Grimes if (*(startp+1) == '\0') { 3104b88c807SRodney W. Grimes if ((home = lookupvar("HOME")) == NULL) 3114b88c807SRodney W. Grimes goto lose; 3124b88c807SRodney W. Grimes } else { 3134b88c807SRodney W. Grimes if ((pw = getpwnam(startp+1)) == NULL) 3144b88c807SRodney W. Grimes goto lose; 3154b88c807SRodney W. Grimes home = pw->pw_dir; 3164b88c807SRodney W. Grimes } 3174b88c807SRodney W. Grimes if (*home == '\0') 3184b88c807SRodney W. Grimes goto lose; 3194b88c807SRodney W. Grimes *p = c; 320aa9caaf6SPeter Wemm while ((c = *home++) != '\0') { 3210c4eeddaSTor Egge if (quotes && SQSYNTAX[(int)c] == CCTL) 3224b88c807SRodney W. Grimes STPUTC(CTLESC, expdest); 3234b88c807SRodney W. Grimes STPUTC(c, expdest); 3244b88c807SRodney W. Grimes } 3254b88c807SRodney W. Grimes return (p); 3264b88c807SRodney W. Grimes lose: 3274b88c807SRodney W. Grimes *p = c; 3284b88c807SRodney W. Grimes return (startp); 3294b88c807SRodney W. Grimes } 3304b88c807SRodney W. Grimes 3314b88c807SRodney W. Grimes 332*88328642SDavid E. O'Brien static void 3335134c3f7SWarner Losh removerecordregions(int endoff) 3346f47734fSTor Egge { 3356f47734fSTor Egge if (ifslastp == NULL) 3366f47734fSTor Egge return; 3376f47734fSTor Egge 3386f47734fSTor Egge if (ifsfirst.endoff > endoff) { 3396f47734fSTor Egge while (ifsfirst.next != NULL) { 3406f47734fSTor Egge struct ifsregion *ifsp; 3416f47734fSTor Egge INTOFF; 3426f47734fSTor Egge ifsp = ifsfirst.next->next; 3436f47734fSTor Egge ckfree(ifsfirst.next); 3446f47734fSTor Egge ifsfirst.next = ifsp; 3456f47734fSTor Egge INTON; 3466f47734fSTor Egge } 3476f47734fSTor Egge if (ifsfirst.begoff > endoff) 3486f47734fSTor Egge ifslastp = NULL; 3496f47734fSTor Egge else { 3506f47734fSTor Egge ifslastp = &ifsfirst; 3516f47734fSTor Egge ifsfirst.endoff = endoff; 3526f47734fSTor Egge } 3536f47734fSTor Egge return; 3546f47734fSTor Egge } 3556f47734fSTor Egge 3566f47734fSTor Egge ifslastp = &ifsfirst; 3576f47734fSTor Egge while (ifslastp->next && ifslastp->next->begoff < endoff) 3586f47734fSTor Egge ifslastp=ifslastp->next; 3596f47734fSTor Egge while (ifslastp->next != NULL) { 3606f47734fSTor Egge struct ifsregion *ifsp; 3616f47734fSTor Egge INTOFF; 3626f47734fSTor Egge ifsp = ifslastp->next->next; 3636f47734fSTor Egge ckfree(ifslastp->next); 3646f47734fSTor Egge ifslastp->next = ifsp; 3656f47734fSTor Egge INTON; 3666f47734fSTor Egge } 3676f47734fSTor Egge if (ifslastp->endoff > endoff) 3686f47734fSTor Egge ifslastp->endoff = endoff; 3696f47734fSTor Egge } 3706f47734fSTor Egge 3714b88c807SRodney W. Grimes /* 3724b88c807SRodney W. Grimes * Expand arithmetic expression. Backup to start of expression, 3734b88c807SRodney W. Grimes * evaluate, place result in (backed up) result, adjust string position. 3744b88c807SRodney W. Grimes */ 3754b88c807SRodney W. Grimes void 3765134c3f7SWarner Losh expari(int flag) 3774b88c807SRodney W. Grimes { 378593e925aSJilles Tjoelker char *p, *q, *start; 379d9d588d4SStefan Farfeleder arith_t result; 3806f47734fSTor Egge int begoff; 3819c92e72cSTim J. Robbins int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR); 3826f47734fSTor Egge int quoted; 3834b88c807SRodney W. Grimes 3844b88c807SRodney W. Grimes /* 38546be34b9SKris Kennaway * This routine is slightly over-complicated for 3864b88c807SRodney W. Grimes * efficiency. First we make sure there is 3874b88c807SRodney W. Grimes * enough space for the result, which may be bigger 3882ca3d70fSJilles Tjoelker * than the expression. Next we 3894b88c807SRodney W. Grimes * scan backwards looking for the start of arithmetic. If the 3904b88c807SRodney W. Grimes * next previous character is a CTLESC character, then we 3914b88c807SRodney W. Grimes * have to rescan starting from the beginning since CTLESC 3924b88c807SRodney W. Grimes * characters have to be processed left to right. 3934b88c807SRodney W. Grimes */ 394d9d588d4SStefan Farfeleder CHECKSTRSPACE(DIGITS(result) - 2, expdest); 3954b88c807SRodney W. Grimes USTPUTC('\0', expdest); 3964b88c807SRodney W. Grimes start = stackblock(); 397d2653b88STor Egge p = expdest - 2; 398d2653b88STor Egge while (p >= start && *p != CTLARI) 3994b88c807SRodney W. Grimes --p; 400d2653b88STor Egge if (p < start || *p != CTLARI) 4014b88c807SRodney W. Grimes error("missing CTLARI (shouldn't happen)"); 4024b88c807SRodney W. Grimes if (p > start && *(p - 1) == CTLESC) 4034b88c807SRodney W. Grimes for (p = start; *p != CTLARI; p++) 4044b88c807SRodney W. Grimes if (*p == CTLESC) 4054b88c807SRodney W. Grimes p++; 4066f47734fSTor Egge 4076f47734fSTor Egge if (p[1] == '"') 4086f47734fSTor Egge quoted=1; 4096f47734fSTor Egge else 4106f47734fSTor Egge quoted=0; 4116f47734fSTor Egge begoff = p - start; 4126f47734fSTor Egge removerecordregions(begoff); 4134b88c807SRodney W. Grimes if (quotes) 4146f47734fSTor Egge rmescapes(p+2); 415593e925aSJilles Tjoelker q = grabstackstr(expdest); 4166f47734fSTor Egge result = arith(p+2); 417593e925aSJilles Tjoelker ungrabstackstr(q, expdest); 418d9d588d4SStefan Farfeleder fmtstr(p, DIGITS(result), ARITH_FORMAT_STR, result); 4194b88c807SRodney W. Grimes while (*p++) 4204b88c807SRodney W. Grimes ; 4216f47734fSTor Egge if (quoted == 0) 4226f47734fSTor Egge recordregion(begoff, p - 1 - start, 0); 4234b88c807SRodney W. Grimes result = expdest - p + 1; 4244b88c807SRodney W. Grimes STADJUST(-result, expdest); 4254b88c807SRodney W. Grimes } 4264b88c807SRodney W. Grimes 4274b88c807SRodney W. Grimes 4284b88c807SRodney W. Grimes /* 4292ca3d70fSJilles Tjoelker * Perform command substitution. 4304b88c807SRodney W. Grimes */ 431*88328642SDavid E. O'Brien static void 4325134c3f7SWarner Losh expbackq(union node *cmd, int quoted, int flag) 4334b88c807SRodney W. Grimes { 4344b88c807SRodney W. Grimes struct backcmd in; 4354b88c807SRodney W. Grimes int i; 4364b88c807SRodney W. Grimes char buf[128]; 4374b88c807SRodney W. Grimes char *p; 4384b88c807SRodney W. Grimes char *dest = expdest; 4394b88c807SRodney W. Grimes struct ifsregion saveifs, *savelastp; 4404b88c807SRodney W. Grimes struct nodelist *saveargbackq; 4414b88c807SRodney W. Grimes char lastc; 4424b88c807SRodney W. Grimes int startloc = dest - stackblock(); 4434b88c807SRodney W. Grimes char const *syntax = quoted? DQSYNTAX : BASESYNTAX; 4444b88c807SRodney W. Grimes int saveherefd; 4459c92e72cSTim J. Robbins int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR); 44699907703SBill Fenner int nnl; 4474b88c807SRodney W. Grimes 4484b88c807SRodney W. Grimes INTOFF; 4494b88c807SRodney W. Grimes saveifs = ifsfirst; 4504b88c807SRodney W. Grimes savelastp = ifslastp; 4514b88c807SRodney W. Grimes saveargbackq = argbackq; 4524b88c807SRodney W. Grimes saveherefd = herefd; 4534b88c807SRodney W. Grimes herefd = -1; 4544b88c807SRodney W. Grimes p = grabstackstr(dest); 4554b88c807SRodney W. Grimes evalbackcmd(cmd, &in); 4564b88c807SRodney W. Grimes ungrabstackstr(p, dest); 4574b88c807SRodney W. Grimes ifsfirst = saveifs; 4584b88c807SRodney W. Grimes ifslastp = savelastp; 4594b88c807SRodney W. Grimes argbackq = saveargbackq; 4604b88c807SRodney W. Grimes herefd = saveherefd; 4614b88c807SRodney W. Grimes 4624b88c807SRodney W. Grimes p = in.buf; 4634b88c807SRodney W. Grimes lastc = '\0'; 46499907703SBill Fenner nnl = 0; 46599907703SBill Fenner /* Don't copy trailing newlines */ 4664b88c807SRodney W. Grimes for (;;) { 4674b88c807SRodney W. Grimes if (--in.nleft < 0) { 4684b88c807SRodney W. Grimes if (in.fd < 0) 4694b88c807SRodney W. Grimes break; 4704b88c807SRodney W. Grimes while ((i = read(in.fd, buf, sizeof buf)) < 0 && errno == EINTR); 4714b88c807SRodney W. Grimes TRACE(("expbackq: read returns %d\n", i)); 4724b88c807SRodney W. Grimes if (i <= 0) 4734b88c807SRodney W. Grimes break; 4744b88c807SRodney W. Grimes p = buf; 4754b88c807SRodney W. Grimes in.nleft = i - 1; 4764b88c807SRodney W. Grimes } 4774b88c807SRodney W. Grimes lastc = *p++; 4784b88c807SRodney W. Grimes if (lastc != '\0') { 4790c4eeddaSTor Egge if (quotes && syntax[(int)lastc] == CCTL) 4804b88c807SRodney W. Grimes STPUTC(CTLESC, dest); 48199907703SBill Fenner if (lastc == '\n') { 48299907703SBill Fenner nnl++; 48399907703SBill Fenner } else { 48499907703SBill Fenner while (nnl > 0) { 48599907703SBill Fenner nnl--; 48699907703SBill Fenner STPUTC('\n', dest); 48799907703SBill Fenner } 4884b88c807SRodney W. Grimes STPUTC(lastc, dest); 4894b88c807SRodney W. Grimes } 4904b88c807SRodney W. Grimes } 49199907703SBill Fenner } 492aa9caaf6SPeter Wemm 4934b88c807SRodney W. Grimes if (in.fd >= 0) 4944b88c807SRodney W. Grimes close(in.fd); 4954b88c807SRodney W. Grimes if (in.buf) 4964b88c807SRodney W. Grimes ckfree(in.buf); 4974b88c807SRodney W. Grimes if (in.jp) 49857b2932aSMartin Cracauer exitstatus = waitforjob(in.jp, (int *)NULL); 4994b88c807SRodney W. Grimes if (quoted == 0) 5004b88c807SRodney W. Grimes recordregion(startloc, dest - stackblock(), 0); 5018ab2e970SJohn Baldwin TRACE(("expbackq: size=%td: \"%.*s\"\n", 5028ab2e970SJohn Baldwin ((dest - stackblock()) - startloc), 5038ab2e970SJohn Baldwin (int)((dest - stackblock()) - startloc), 5044b88c807SRodney W. Grimes stackblock() + startloc)); 5054b88c807SRodney W. Grimes expdest = dest; 5064b88c807SRodney W. Grimes INTON; 5074b88c807SRodney W. Grimes } 5084b88c807SRodney W. Grimes 5094b88c807SRodney W. Grimes 5104b88c807SRodney W. Grimes 511*88328642SDavid E. O'Brien static int 5125134c3f7SWarner Losh subevalvar(char *p, char *str, int strloc, int subtype, int startloc, 5135134c3f7SWarner Losh int varflags) 514aa9caaf6SPeter Wemm { 515aa9caaf6SPeter Wemm char *startp; 516aa9caaf6SPeter Wemm char *loc = NULL; 5178b220a61STor Egge char *q; 518aa9caaf6SPeter Wemm int c = 0; 519aa9caaf6SPeter Wemm int saveherefd = herefd; 520aa9caaf6SPeter Wemm struct nodelist *saveargbackq = argbackq; 521ab0a2172SSteve Price int amount; 522ab0a2172SSteve Price 523aa9caaf6SPeter Wemm herefd = -1; 524634e9188SJilles Tjoelker argstr(p, (subtype == VSTRIMLEFT || subtype == VSTRIMLEFTMAX || 5256415a129SJilles Tjoelker subtype == VSTRIMRIGHT || subtype == VSTRIMRIGHTMAX ? 526634e9188SJilles Tjoelker EXP_CASE : 0) | EXP_TILDE); 527aa9caaf6SPeter Wemm STACKSTRNUL(expdest); 528aa9caaf6SPeter Wemm herefd = saveherefd; 529aa9caaf6SPeter Wemm argbackq = saveargbackq; 530aa9caaf6SPeter Wemm startp = stackblock() + startloc; 531ab0a2172SSteve Price if (str == NULL) 532ab0a2172SSteve Price str = stackblock() + strloc; 533aa9caaf6SPeter Wemm 534aa9caaf6SPeter Wemm switch (subtype) { 535aa9caaf6SPeter Wemm case VSASSIGN: 536aa9caaf6SPeter Wemm setvar(str, startp, 0); 537ab0a2172SSteve Price amount = startp - expdest; 538ab0a2172SSteve Price STADJUST(amount, expdest); 539aa9caaf6SPeter Wemm varflags &= ~VSNUL; 540aa9caaf6SPeter Wemm if (c != 0) 541aa9caaf6SPeter Wemm *loc = c; 542aa9caaf6SPeter Wemm return 1; 543aa9caaf6SPeter Wemm 544aa9caaf6SPeter Wemm case VSQUESTION: 545aa9caaf6SPeter Wemm if (*p != CTLENDVAR) { 546f7cc73afSJilles Tjoelker outfmt(out2, "%s\n", startp); 547aa9caaf6SPeter Wemm error((char *)NULL); 548aa9caaf6SPeter Wemm } 549024ae004SRuslan Ermilov error("%.*s: parameter %snot set", (int)(p - str - 1), 550aa9caaf6SPeter Wemm str, (varflags & VSNUL) ? "null or " 551aa9caaf6SPeter Wemm : nullstr); 552aa9caaf6SPeter Wemm return 0; 553aa9caaf6SPeter Wemm 554aa9caaf6SPeter Wemm case VSTRIMLEFT: 55596522b88SSteve Price for (loc = startp; loc < str; loc++) { 556aa9caaf6SPeter Wemm c = *loc; 557aa9caaf6SPeter Wemm *loc = '\0'; 5588b220a61STor Egge if (patmatch(str, startp, varflags & VSQUOTE)) { 559aa9caaf6SPeter Wemm *loc = c; 560aa9caaf6SPeter Wemm goto recordleft; 561aa9caaf6SPeter Wemm } 562aa9caaf6SPeter Wemm *loc = c; 5638b220a61STor Egge if ((varflags & VSQUOTE) && *loc == CTLESC) 5648b220a61STor Egge loc++; 565aa9caaf6SPeter Wemm } 566aa9caaf6SPeter Wemm return 0; 567aa9caaf6SPeter Wemm 568aa9caaf6SPeter Wemm case VSTRIMLEFTMAX: 5698b220a61STor Egge for (loc = str - 1; loc >= startp;) { 570aa9caaf6SPeter Wemm c = *loc; 571aa9caaf6SPeter Wemm *loc = '\0'; 5728b220a61STor Egge if (patmatch(str, startp, varflags & VSQUOTE)) { 573aa9caaf6SPeter Wemm *loc = c; 574aa9caaf6SPeter Wemm goto recordleft; 575aa9caaf6SPeter Wemm } 576aa9caaf6SPeter Wemm *loc = c; 5778b220a61STor Egge loc--; 5788b220a61STor Egge if ((varflags & VSQUOTE) && loc > startp && 5798b220a61STor Egge *(loc - 1) == CTLESC) { 5808b220a61STor Egge for (q = startp; q < loc; q++) 5818b220a61STor Egge if (*q == CTLESC) 5828b220a61STor Egge q++; 5838b220a61STor Egge if (q > loc) 5848b220a61STor Egge loc--; 5858b220a61STor Egge } 586aa9caaf6SPeter Wemm } 587aa9caaf6SPeter Wemm return 0; 588aa9caaf6SPeter Wemm 589aa9caaf6SPeter Wemm case VSTRIMRIGHT: 5908b220a61STor Egge for (loc = str - 1; loc >= startp;) { 5918b220a61STor Egge if (patmatch(str, loc, varflags & VSQUOTE)) { 592ab0a2172SSteve Price amount = loc - expdest; 593ab0a2172SSteve Price STADJUST(amount, expdest); 594aa9caaf6SPeter Wemm return 1; 595aa9caaf6SPeter Wemm } 5968b220a61STor Egge loc--; 5978b220a61STor Egge if ((varflags & VSQUOTE) && loc > startp && 5988b220a61STor Egge *(loc - 1) == CTLESC) { 5998b220a61STor Egge for (q = startp; q < loc; q++) 6008b220a61STor Egge if (*q == CTLESC) 6018b220a61STor Egge q++; 6028b220a61STor Egge if (q > loc) 6038b220a61STor Egge loc--; 6048b220a61STor Egge } 605aa9caaf6SPeter Wemm } 606aa9caaf6SPeter Wemm return 0; 607aa9caaf6SPeter Wemm 608aa9caaf6SPeter Wemm case VSTRIMRIGHTMAX: 609aa9caaf6SPeter Wemm for (loc = startp; loc < str - 1; loc++) { 6108b220a61STor Egge if (patmatch(str, loc, varflags & VSQUOTE)) { 611ab0a2172SSteve Price amount = loc - expdest; 612ab0a2172SSteve Price STADJUST(amount, expdest); 613aa9caaf6SPeter Wemm return 1; 614aa9caaf6SPeter Wemm } 6158b220a61STor Egge if ((varflags & VSQUOTE) && *loc == CTLESC) 6168b220a61STor Egge loc++; 617aa9caaf6SPeter Wemm } 618aa9caaf6SPeter Wemm return 0; 619aa9caaf6SPeter Wemm 620aa9caaf6SPeter Wemm 621aa9caaf6SPeter Wemm default: 622aa9caaf6SPeter Wemm abort(); 623aa9caaf6SPeter Wemm } 624aa9caaf6SPeter Wemm 625aa9caaf6SPeter Wemm recordleft: 626ab0a2172SSteve Price amount = ((str - 1) - (loc - startp)) - expdest; 627ab0a2172SSteve Price STADJUST(amount, expdest); 628aa9caaf6SPeter Wemm while (loc != str - 1) 629aa9caaf6SPeter Wemm *startp++ = *loc++; 630aa9caaf6SPeter Wemm return 1; 631aa9caaf6SPeter Wemm } 632aa9caaf6SPeter Wemm 633aa9caaf6SPeter Wemm 6344b88c807SRodney W. Grimes /* 6354b88c807SRodney W. Grimes * Expand a variable, and return a pointer to the next character in the 6364b88c807SRodney W. Grimes * input string. 6374b88c807SRodney W. Grimes */ 6384b88c807SRodney W. Grimes 639*88328642SDavid E. O'Brien static char * 6405134c3f7SWarner Losh evalvar(char *p, int flag) 6414b88c807SRodney W. Grimes { 6424b88c807SRodney W. Grimes int subtype; 6434b88c807SRodney W. Grimes int varflags; 6444b88c807SRodney W. Grimes char *var; 6454b88c807SRodney W. Grimes char *val; 646c4e5a8a8STor Egge int patloc; 6474b88c807SRodney W. Grimes int c; 6484b88c807SRodney W. Grimes int set; 6494b88c807SRodney W. Grimes int special; 6504b88c807SRodney W. Grimes int startloc; 651aa9caaf6SPeter Wemm int varlen; 652aa9caaf6SPeter Wemm int easy; 6539c92e72cSTim J. Robbins int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR); 6544b88c807SRodney W. Grimes 655bb4f73caSStefan Farfeleder varflags = (unsigned char)*p++; 6564b88c807SRodney W. Grimes subtype = varflags & VSTYPE; 6574b88c807SRodney W. Grimes var = p; 6584b88c807SRodney W. Grimes special = 0; 6594b88c807SRodney W. Grimes if (! is_name(*p)) 6604b88c807SRodney W. Grimes special = 1; 6614b88c807SRodney W. Grimes p = strchr(p, '=') + 1; 6624b88c807SRodney W. Grimes again: /* jump here after setting a variable with ${var=text} */ 663b71085aaSStefan Farfeleder if (varflags & VSLINENO) { 664b71085aaSStefan Farfeleder set = 1; 665b71085aaSStefan Farfeleder special = 0; 666b71085aaSStefan Farfeleder val = var; 667b71085aaSStefan Farfeleder p[-1] = '\0'; /* temporarily overwrite '=' to have \0 668b71085aaSStefan Farfeleder terminated string */ 669b71085aaSStefan Farfeleder } else if (special) { 67096522b88SSteve Price set = varisset(var, varflags & VSNUL); 6714b88c807SRodney W. Grimes val = NULL; 6724b88c807SRodney W. Grimes } else { 673b2acf887SMartin Cracauer val = bltinlookup(var, 1); 674aa9caaf6SPeter Wemm if (val == NULL || ((varflags & VSNUL) && val[0] == '\0')) { 6754b88c807SRodney W. Grimes val = NULL; 6764b88c807SRodney W. Grimes set = 0; 6774b88c807SRodney W. Grimes } else 6784b88c807SRodney W. Grimes set = 1; 6794b88c807SRodney W. Grimes } 680aa9caaf6SPeter Wemm varlen = 0; 6814b88c807SRodney W. Grimes startloc = expdest - stackblock(); 68264254a66SJilles Tjoelker if (!set && uflag && *var != '@' && *var != '*') { 6831b5a48ffSTim J. Robbins switch (subtype) { 6841b5a48ffSTim J. Robbins case VSNORMAL: 6851b5a48ffSTim J. Robbins case VSTRIMLEFT: 6861b5a48ffSTim J. Robbins case VSTRIMLEFTMAX: 6871b5a48ffSTim J. Robbins case VSTRIMRIGHT: 6881b5a48ffSTim J. Robbins case VSTRIMRIGHTMAX: 6891b5a48ffSTim J. Robbins case VSLENGTH: 690024ae004SRuslan Ermilov error("%.*s: parameter not set", (int)(p - var - 1), 691024ae004SRuslan Ermilov var); 6921b5a48ffSTim J. Robbins } 6931b5a48ffSTim J. Robbins } 6944b88c807SRodney W. Grimes if (set && subtype != VSPLUS) { 6954b88c807SRodney W. Grimes /* insert the value of the variable */ 6964b88c807SRodney W. Grimes if (special) { 697bb4f73caSStefan Farfeleder varvalue(var, varflags & VSQUOTE, subtype, flag); 698aa9caaf6SPeter Wemm if (subtype == VSLENGTH) { 69996522b88SSteve Price varlen = expdest - stackblock() - startloc; 70096522b88SSteve Price STADJUST(-varlen, expdest); 701aa9caaf6SPeter Wemm } 7024b88c807SRodney W. Grimes } else { 703aa9caaf6SPeter Wemm char const *syntax = (varflags & VSQUOTE) ? DQSYNTAX 704aa9caaf6SPeter Wemm : BASESYNTAX; 7054b88c807SRodney W. Grimes 706aa9caaf6SPeter Wemm if (subtype == VSLENGTH) { 707aa9caaf6SPeter Wemm for (;*val; val++) 708aa9caaf6SPeter Wemm varlen++; 709aa9caaf6SPeter Wemm } 710aa9caaf6SPeter Wemm else { 7114b88c807SRodney W. Grimes while (*val) { 7120c4eeddaSTor Egge if (quotes && 713e92feeebSMartin Cracauer syntax[(int)*val] == CCTL) 7144b88c807SRodney W. Grimes STPUTC(CTLESC, expdest); 7154b88c807SRodney W. Grimes STPUTC(*val++, expdest); 7164b88c807SRodney W. Grimes } 717aa9caaf6SPeter Wemm 7184b88c807SRodney W. Grimes } 7194b88c807SRodney W. Grimes } 720aa9caaf6SPeter Wemm } 721aa9caaf6SPeter Wemm 7224b88c807SRodney W. Grimes if (subtype == VSPLUS) 7234b88c807SRodney W. Grimes set = ! set; 724aa9caaf6SPeter Wemm 725aa9caaf6SPeter Wemm easy = ((varflags & VSQUOTE) == 0 || 726aa9caaf6SPeter Wemm (*var == '@' && shellparam.nparam != 1)); 727aa9caaf6SPeter Wemm 728aa9caaf6SPeter Wemm 729aa9caaf6SPeter Wemm switch (subtype) { 730aa9caaf6SPeter Wemm case VSLENGTH: 731aa9caaf6SPeter Wemm expdest = cvtnum(varlen, expdest); 732aa9caaf6SPeter Wemm goto record; 733aa9caaf6SPeter Wemm 734aa9caaf6SPeter Wemm case VSNORMAL: 735aa9caaf6SPeter Wemm if (!easy) 736aa9caaf6SPeter Wemm break; 737aa9caaf6SPeter Wemm record: 738aa9caaf6SPeter Wemm recordregion(startloc, expdest - stackblock(), 739aa9caaf6SPeter Wemm varflags & VSQUOTE); 740aa9caaf6SPeter Wemm break; 741aa9caaf6SPeter Wemm 742aa9caaf6SPeter Wemm case VSPLUS: 743aa9caaf6SPeter Wemm case VSMINUS: 744aa9caaf6SPeter Wemm if (!set) { 7454b88c807SRodney W. Grimes argstr(p, flag); 746aa9caaf6SPeter Wemm break; 747aa9caaf6SPeter Wemm } 748aa9caaf6SPeter Wemm if (easy) 749aa9caaf6SPeter Wemm goto record; 750aa9caaf6SPeter Wemm break; 751aa9caaf6SPeter Wemm 752aa9caaf6SPeter Wemm case VSTRIMLEFT: 753aa9caaf6SPeter Wemm case VSTRIMLEFTMAX: 754aa9caaf6SPeter Wemm case VSTRIMRIGHT: 755aa9caaf6SPeter Wemm case VSTRIMRIGHTMAX: 756aa9caaf6SPeter Wemm if (!set) 757aa9caaf6SPeter Wemm break; 758aa9caaf6SPeter Wemm /* 759aa9caaf6SPeter Wemm * Terminate the string and start recording the pattern 760aa9caaf6SPeter Wemm * right after it 761aa9caaf6SPeter Wemm */ 762aa9caaf6SPeter Wemm STPUTC('\0', expdest); 763c4e5a8a8STor Egge patloc = expdest - stackblock(); 764c4e5a8a8STor Egge if (subevalvar(p, NULL, patloc, subtype, 7656f47734fSTor Egge startloc, varflags) == 0) { 766c4e5a8a8STor Egge int amount = (expdest - stackblock() - patloc) + 1; 76796522b88SSteve Price STADJUST(-amount, expdest); 76896522b88SSteve Price } 7696f47734fSTor Egge /* Remove any recorded regions beyond start of variable */ 7706f47734fSTor Egge removerecordregions(startloc); 7716f47734fSTor Egge goto record; 772aa9caaf6SPeter Wemm 773aa9caaf6SPeter Wemm case VSASSIGN: 774aa9caaf6SPeter Wemm case VSQUESTION: 775aa9caaf6SPeter Wemm if (!set) { 776ab0a2172SSteve Price if (subevalvar(p, var, 0, subtype, startloc, varflags)) { 777ab0a2172SSteve Price varflags &= ~VSNUL; 7786f47734fSTor Egge /* 7796f47734fSTor Egge * Remove any recorded regions beyond 7806f47734fSTor Egge * start of variable 7816f47734fSTor Egge */ 7826f47734fSTor Egge removerecordregions(startloc); 7834b88c807SRodney W. Grimes goto again; 784ab0a2172SSteve Price } 785aa9caaf6SPeter Wemm break; 7864b88c807SRodney W. Grimes } 787aa9caaf6SPeter Wemm if (easy) 788aa9caaf6SPeter Wemm goto record; 789aa9caaf6SPeter Wemm break; 790aa9caaf6SPeter Wemm 79162addaefSStefan Farfeleder case VSERROR: 79262addaefSStefan Farfeleder c = p - var - 1; 79362addaefSStefan Farfeleder error("${%.*s%s}: Bad substitution", c, var, 79462addaefSStefan Farfeleder (c > 0 && *p != CTLENDVAR) ? "..." : ""); 79562addaefSStefan Farfeleder 796aa9caaf6SPeter Wemm default: 797aa9caaf6SPeter Wemm abort(); 7984b88c807SRodney W. Grimes } 799b71085aaSStefan Farfeleder p[-1] = '='; /* recover overwritten '=' */ 800aa9caaf6SPeter Wemm 8014b88c807SRodney W. Grimes if (subtype != VSNORMAL) { /* skip to end of alternative */ 8024b88c807SRodney W. Grimes int nesting = 1; 8034b88c807SRodney W. Grimes for (;;) { 8044b88c807SRodney W. Grimes if ((c = *p++) == CTLESC) 8054b88c807SRodney W. Grimes p++; 8064b88c807SRodney W. Grimes else if (c == CTLBACKQ || c == (CTLBACKQ|CTLQUOTE)) { 8074b88c807SRodney W. Grimes if (set) 8084b88c807SRodney W. Grimes argbackq = argbackq->next; 8094b88c807SRodney W. Grimes } else if (c == CTLVAR) { 8104b88c807SRodney W. Grimes if ((*p++ & VSTYPE) != VSNORMAL) 8114b88c807SRodney W. Grimes nesting++; 8124b88c807SRodney W. Grimes } else if (c == CTLENDVAR) { 8134b88c807SRodney W. Grimes if (--nesting == 0) 8144b88c807SRodney W. Grimes break; 8154b88c807SRodney W. Grimes } 8164b88c807SRodney W. Grimes } 8174b88c807SRodney W. Grimes } 8184b88c807SRodney W. Grimes return p; 8194b88c807SRodney W. Grimes } 8204b88c807SRodney W. Grimes 8214b88c807SRodney W. Grimes 8224b88c807SRodney W. Grimes 8234b88c807SRodney W. Grimes /* 8244b88c807SRodney W. Grimes * Test whether a specialized variable is set. 8254b88c807SRodney W. Grimes */ 8264b88c807SRodney W. Grimes 827*88328642SDavid E. O'Brien static int 8285134c3f7SWarner Losh varisset(char *name, int nulok) 8294b88c807SRodney W. Grimes { 8304b88c807SRodney W. Grimes 83196522b88SSteve Price if (*name == '!') 832ed4c3b5fSJilles Tjoelker return backgndpidset(); 83396522b88SSteve Price else if (*name == '@' || *name == '*') { 8344b88c807SRodney W. Grimes if (*shellparam.p == NULL) 8354b88c807SRodney W. Grimes return 0; 83696522b88SSteve Price 83796522b88SSteve Price if (nulok) { 83896522b88SSteve Price char **av; 83996522b88SSteve Price 84096522b88SSteve Price for (av = shellparam.p; *av; av++) 84196522b88SSteve Price if (**av != '\0') 84296522b88SSteve Price return 1; 84396522b88SSteve Price return 0; 84496522b88SSteve Price } 8455c817731SPeter Wemm } else if (is_digit(*name)) { 84696522b88SSteve Price char *ap; 847ab0a2172SSteve Price int num = atoi(name); 84896522b88SSteve Price 84996522b88SSteve Price if (num > shellparam.nparam) 85096522b88SSteve Price return 0; 85196522b88SSteve Price 85296522b88SSteve Price if (num == 0) 85396522b88SSteve Price ap = arg0; 85496522b88SSteve Price else 85596522b88SSteve Price ap = shellparam.p[num - 1]; 85696522b88SSteve Price 85796522b88SSteve Price if (nulok && (ap == NULL || *ap == '\0')) 8584b88c807SRodney W. Grimes return 0; 8594b88c807SRodney W. Grimes } 8604b88c807SRodney W. Grimes return 1; 8614b88c807SRodney W. Grimes } 8624b88c807SRodney W. Grimes 8634b88c807SRodney W. Grimes 8644b88c807SRodney W. Grimes 8654b88c807SRodney W. Grimes /* 8664b88c807SRodney W. Grimes * Add the value of a specialized variable to the stack string. 8674b88c807SRodney W. Grimes */ 8684b88c807SRodney W. Grimes 869*88328642SDavid E. O'Brien static void 870bb4f73caSStefan Farfeleder varvalue(char *name, int quoted, int subtype, int flag) 8714b88c807SRodney W. Grimes { 8724b88c807SRodney W. Grimes int num; 8734b88c807SRodney W. Grimes char *p; 8744b88c807SRodney W. Grimes int i; 8754b88c807SRodney W. Grimes char sep; 8764b88c807SRodney W. Grimes char **ap; 8774b88c807SRodney W. Grimes char const *syntax; 8784b88c807SRodney W. Grimes 8794b88c807SRodney W. Grimes #define STRTODEST(p) \ 8804b88c807SRodney W. Grimes do {\ 881bb4f73caSStefan Farfeleder if (flag & (EXP_FULL | EXP_CASE) && subtype != VSLENGTH) { \ 8824b88c807SRodney W. Grimes syntax = quoted? DQSYNTAX : BASESYNTAX; \ 8834b88c807SRodney W. Grimes while (*p) { \ 8840c4eeddaSTor Egge if (syntax[(int)*p] == CCTL) \ 8854b88c807SRodney W. Grimes STPUTC(CTLESC, expdest); \ 8864b88c807SRodney W. Grimes STPUTC(*p++, expdest); \ 8874b88c807SRodney W. Grimes } \ 8884b88c807SRodney W. Grimes } else \ 8894b88c807SRodney W. Grimes while (*p) \ 8904b88c807SRodney W. Grimes STPUTC(*p++, expdest); \ 8914b88c807SRodney W. Grimes } while (0) 8924b88c807SRodney W. Grimes 8934b88c807SRodney W. Grimes 8945c817731SPeter Wemm switch (*name) { 8954b88c807SRodney W. Grimes case '$': 8964b88c807SRodney W. Grimes num = rootpid; 8974b88c807SRodney W. Grimes goto numvar; 8984b88c807SRodney W. Grimes case '?': 899aa9caaf6SPeter Wemm num = oexitstatus; 9004b88c807SRodney W. Grimes goto numvar; 9014b88c807SRodney W. Grimes case '#': 9024b88c807SRodney W. Grimes num = shellparam.nparam; 9034b88c807SRodney W. Grimes goto numvar; 9044b88c807SRodney W. Grimes case '!': 905ed4c3b5fSJilles Tjoelker num = backgndpidval(); 9064b88c807SRodney W. Grimes numvar: 907aa9caaf6SPeter Wemm expdest = cvtnum(num, expdest); 9084b88c807SRodney W. Grimes break; 9094b88c807SRodney W. Grimes case '-': 9104b88c807SRodney W. Grimes for (i = 0 ; i < NOPTS ; i++) { 9114b88c807SRodney W. Grimes if (optlist[i].val) 9124b88c807SRodney W. Grimes STPUTC(optlist[i].letter, expdest); 9134b88c807SRodney W. Grimes } 9144b88c807SRodney W. Grimes break; 9154b88c807SRodney W. Grimes case '@': 916bb4f73caSStefan Farfeleder if (flag & EXP_FULL && quoted) { 9174b88c807SRodney W. Grimes for (ap = shellparam.p ; (p = *ap++) != NULL ; ) { 9184b88c807SRodney W. Grimes STRTODEST(p); 9194b88c807SRodney W. Grimes if (*ap) 9206f47734fSTor Egge STPUTC('\0', expdest); 9216f47734fSTor Egge } 9226f47734fSTor Egge break; 9236f47734fSTor Egge } 9240d9f1a69SPhilippe Charnier /* FALLTHROUGH */ 9256f47734fSTor Egge case '*': 926f7d95a07SRalf S. Engelschall if (ifsset()) 9276f47734fSTor Egge sep = ifsval()[0]; 9286f47734fSTor Egge else 9296f47734fSTor Egge sep = ' '; 9306f47734fSTor Egge for (ap = shellparam.p ; (p = *ap++) != NULL ; ) { 9316f47734fSTor Egge STRTODEST(p); 9326f47734fSTor Egge if (*ap && sep) 9334b88c807SRodney W. Grimes STPUTC(sep, expdest); 9344b88c807SRodney W. Grimes } 9354b88c807SRodney W. Grimes break; 9364b88c807SRodney W. Grimes case '0': 9374b88c807SRodney W. Grimes p = arg0; 9384b88c807SRodney W. Grimes STRTODEST(p); 9394b88c807SRodney W. Grimes break; 9404b88c807SRodney W. Grimes default: 9415c817731SPeter Wemm if (is_digit(*name)) { 9425c817731SPeter Wemm num = atoi(name); 9435c817731SPeter Wemm if (num > 0 && num <= shellparam.nparam) { 9445c817731SPeter Wemm p = shellparam.p[num - 1]; 9454b88c807SRodney W. Grimes STRTODEST(p); 9464b88c807SRodney W. Grimes } 9475c817731SPeter Wemm } 9484b88c807SRodney W. Grimes break; 9494b88c807SRodney W. Grimes } 9504b88c807SRodney W. Grimes } 9514b88c807SRodney W. Grimes 9524b88c807SRodney W. Grimes 9534b88c807SRodney W. Grimes 9544b88c807SRodney W. Grimes /* 9554b88c807SRodney W. Grimes * Record the the fact that we have to scan this region of the 9564b88c807SRodney W. Grimes * string for IFS characters. 9574b88c807SRodney W. Grimes */ 9584b88c807SRodney W. Grimes 959*88328642SDavid E. O'Brien static void 96018d56246SJilles Tjoelker recordregion(int start, int end, int inquotes) 961aa9caaf6SPeter Wemm { 96296522b88SSteve Price struct ifsregion *ifsp; 9634b88c807SRodney W. Grimes 9644b88c807SRodney W. Grimes if (ifslastp == NULL) { 9654b88c807SRodney W. Grimes ifsp = &ifsfirst; 9664b88c807SRodney W. Grimes } else { 96718d56246SJilles Tjoelker if (ifslastp->endoff == start 96818d56246SJilles Tjoelker && ifslastp->inquotes == inquotes) { 96918d56246SJilles Tjoelker /* extend previous area */ 97018d56246SJilles Tjoelker ifslastp->endoff = end; 97118d56246SJilles Tjoelker return; 97218d56246SJilles Tjoelker } 9734b88c807SRodney W. Grimes ifsp = (struct ifsregion *)ckmalloc(sizeof (struct ifsregion)); 9744b88c807SRodney W. Grimes ifslastp->next = ifsp; 9754b88c807SRodney W. Grimes } 9764b88c807SRodney W. Grimes ifslastp = ifsp; 9774b88c807SRodney W. Grimes ifslastp->next = NULL; 9784b88c807SRodney W. Grimes ifslastp->begoff = start; 9794b88c807SRodney W. Grimes ifslastp->endoff = end; 98018d56246SJilles Tjoelker ifslastp->inquotes = inquotes; 9814b88c807SRodney W. Grimes } 9824b88c807SRodney W. Grimes 9834b88c807SRodney W. Grimes 9844b88c807SRodney W. Grimes 9854b88c807SRodney W. Grimes /* 9864b88c807SRodney W. Grimes * Break the argument string into pieces based upon IFS and add the 9874b88c807SRodney W. Grimes * strings to the argument list. The regions of the string to be 9884b88c807SRodney W. Grimes * searched for IFS characters have been stored by recordregion. 9892ca3d70fSJilles Tjoelker * CTLESC characters are preserved but have little effect in this pass 9902ca3d70fSJilles Tjoelker * other than escaping CTL* characters. In particular, they do not escape 9912ca3d70fSJilles Tjoelker * IFS characters: that should be done with the ifsregion mechanism. 9922ca3d70fSJilles Tjoelker * CTLQUOTEMARK characters are used to preserve empty quoted strings. 9932ca3d70fSJilles Tjoelker * This pass treats them as a regular character, making the string non-empty. 9942ca3d70fSJilles Tjoelker * Later, they are removed along with the other CTL* characters. 9954b88c807SRodney W. Grimes */ 996*88328642SDavid E. O'Brien static void 9975134c3f7SWarner Losh ifsbreakup(char *string, struct arglist *arglist) 9984b88c807SRodney W. Grimes { 9994b88c807SRodney W. Grimes struct ifsregion *ifsp; 10004b88c807SRodney W. Grimes struct strlist *sp; 10014b88c807SRodney W. Grimes char *start; 100296522b88SSteve Price char *p; 10034b88c807SRodney W. Grimes char *q; 1004384aedabSJilles Tjoelker const char *ifs; 100518d56246SJilles Tjoelker const char *ifsspc; 100618d56246SJilles Tjoelker int had_param_ch = 0; 10074b88c807SRodney W. Grimes 10084b88c807SRodney W. Grimes start = string; 100918d56246SJilles Tjoelker 101018d56246SJilles Tjoelker if (ifslastp == NULL) { 101118d56246SJilles Tjoelker /* Return entire argument, IFS doesn't apply to any of it */ 101218d56246SJilles Tjoelker sp = (struct strlist *)stalloc(sizeof *sp); 101318d56246SJilles Tjoelker sp->text = start; 101418d56246SJilles Tjoelker *arglist->lastp = sp; 101518d56246SJilles Tjoelker arglist->lastp = &sp->next; 101618d56246SJilles Tjoelker return; 101718d56246SJilles Tjoelker } 101818d56246SJilles Tjoelker 101918d56246SJilles Tjoelker ifs = ifsset() ? ifsval() : " \t\n"; 102018d56246SJilles Tjoelker 102118d56246SJilles Tjoelker for (ifsp = &ifsfirst; ifsp != NULL; ifsp = ifsp->next) { 10224b88c807SRodney W. Grimes p = string + ifsp->begoff; 10234b88c807SRodney W. Grimes while (p < string + ifsp->endoff) { 10244b88c807SRodney W. Grimes q = p; 10254b88c807SRodney W. Grimes if (*p == CTLESC) 10264b88c807SRodney W. Grimes p++; 102718d56246SJilles Tjoelker if (ifsp->inquotes) { 102818d56246SJilles Tjoelker /* Only NULs (should be from "$@") end args */ 1029f19a2f6cSJilles Tjoelker had_param_ch = 1; 103018d56246SJilles Tjoelker if (*p != 0) { 103118d56246SJilles Tjoelker p++; 103218d56246SJilles Tjoelker continue; 103318d56246SJilles Tjoelker } 103418d56246SJilles Tjoelker ifsspc = NULL; 103518d56246SJilles Tjoelker } else { 103618d56246SJilles Tjoelker if (!strchr(ifs, *p)) { 1037f19a2f6cSJilles Tjoelker had_param_ch = 1; 103818d56246SJilles Tjoelker p++; 103918d56246SJilles Tjoelker continue; 104018d56246SJilles Tjoelker } 104118d56246SJilles Tjoelker ifsspc = strchr(" \t\n", *p); 104218d56246SJilles Tjoelker 10436f47734fSTor Egge /* Ignore IFS whitespace at start */ 104418d56246SJilles Tjoelker if (q == start && ifsspc != NULL) { 10456f47734fSTor Egge p++; 10466f47734fSTor Egge start = p; 10476f47734fSTor Egge continue; 10486f47734fSTor Egge } 1049f19a2f6cSJilles Tjoelker had_param_ch = 0; 105018d56246SJilles Tjoelker } 105118d56246SJilles Tjoelker 105218d56246SJilles Tjoelker /* Save this argument... */ 10534b88c807SRodney W. Grimes *q = '\0'; 10544b88c807SRodney W. Grimes sp = (struct strlist *)stalloc(sizeof *sp); 10554b88c807SRodney W. Grimes sp->text = start; 10564b88c807SRodney W. Grimes *arglist->lastp = sp; 10574b88c807SRodney W. Grimes arglist->lastp = &sp->next; 10586f47734fSTor Egge p++; 105918d56246SJilles Tjoelker 106018d56246SJilles Tjoelker if (ifsspc != NULL) { 106118d56246SJilles Tjoelker /* Ignore further trailing IFS whitespace */ 106218d56246SJilles Tjoelker for (; p < string + ifsp->endoff; p++) { 10634b88c807SRodney W. Grimes q = p; 10644b88c807SRodney W. Grimes if (*p == CTLESC) 10654b88c807SRodney W. Grimes p++; 10666f47734fSTor Egge if (strchr(ifs, *p) == NULL) { 10676f47734fSTor Egge p = q; 10686f47734fSTor Egge break; 106918d56246SJilles Tjoelker } 107018d56246SJilles Tjoelker if (strchr(" \t\n", *p) == NULL) { 10716f47734fSTor Egge p++; 10724b88c807SRodney W. Grimes break; 10734b88c807SRodney W. Grimes } 10744b88c807SRodney W. Grimes } 10754b88c807SRodney W. Grimes } 10764b88c807SRodney W. Grimes start = p; 10774b88c807SRodney W. Grimes } 10784b88c807SRodney W. Grimes } 107918d56246SJilles Tjoelker 108018d56246SJilles Tjoelker /* 108118d56246SJilles Tjoelker * Save anything left as an argument. 108218d56246SJilles Tjoelker * Traditionally we have treated 'IFS=':'; set -- x$IFS' as 108318d56246SJilles Tjoelker * generating 2 arguments, the second of which is empty. 108418d56246SJilles Tjoelker * Some recent clarification of the Posix spec say that it 108518d56246SJilles Tjoelker * should only generate one.... 108618d56246SJilles Tjoelker */ 108718d56246SJilles Tjoelker if (had_param_ch || *start != 0) { 10884b88c807SRodney W. Grimes sp = (struct strlist *)stalloc(sizeof *sp); 10894b88c807SRodney W. Grimes sp->text = start; 10904b88c807SRodney W. Grimes *arglist->lastp = sp; 10914b88c807SRodney W. Grimes arglist->lastp = &sp->next; 10924b88c807SRodney W. Grimes } 10934b88c807SRodney W. Grimes } 10944b88c807SRodney W. Grimes 10954b88c807SRodney W. Grimes 1096aa7b6f82SDavid E. O'Brien static char expdir[PATH_MAX]; 1097c8a3d81fSJilles Tjoelker #define expdir_end (expdir + sizeof(expdir)) 10984b88c807SRodney W. Grimes 10992ca3d70fSJilles Tjoelker /* 11002ca3d70fSJilles Tjoelker * Perform pathname generation and remove control characters. 11012ca3d70fSJilles Tjoelker * At this point, the only control characters should be CTLESC and CTLQUOTEMARK. 11022ca3d70fSJilles Tjoelker * The results are stored in the list exparg. 11032ca3d70fSJilles Tjoelker */ 1104*88328642SDavid E. O'Brien static void 11055134c3f7SWarner Losh expandmeta(struct strlist *str, int flag __unused) 11064b88c807SRodney W. Grimes { 11074b88c807SRodney W. Grimes char *p; 11084b88c807SRodney W. Grimes struct strlist **savelastp; 11094b88c807SRodney W. Grimes struct strlist *sp; 11104b88c807SRodney W. Grimes char c; 11114b88c807SRodney W. Grimes /* TODO - EXP_REDIR */ 11124b88c807SRodney W. Grimes 11134b88c807SRodney W. Grimes while (str) { 11144b88c807SRodney W. Grimes if (fflag) 11154b88c807SRodney W. Grimes goto nometa; 11164b88c807SRodney W. Grimes p = str->text; 11174b88c807SRodney W. Grimes for (;;) { /* fast check for meta chars */ 11184b88c807SRodney W. Grimes if ((c = *p++) == '\0') 11194b88c807SRodney W. Grimes goto nometa; 11208fdbdb5dSJilles Tjoelker if (c == '*' || c == '?' || c == '[') 11214b88c807SRodney W. Grimes break; 11224b88c807SRodney W. Grimes } 11234b88c807SRodney W. Grimes savelastp = exparg.lastp; 11244b88c807SRodney W. Grimes INTOFF; 11254b88c807SRodney W. Grimes expmeta(expdir, str->text); 11264b88c807SRodney W. Grimes INTON; 11274b88c807SRodney W. Grimes if (exparg.lastp == savelastp) { 11284b88c807SRodney W. Grimes /* 11294b88c807SRodney W. Grimes * no matches 11304b88c807SRodney W. Grimes */ 11314b88c807SRodney W. Grimes nometa: 11324b88c807SRodney W. Grimes *exparg.lastp = str; 11334b88c807SRodney W. Grimes rmescapes(str->text); 11344b88c807SRodney W. Grimes exparg.lastp = &str->next; 11354b88c807SRodney W. Grimes } else { 11364b88c807SRodney W. Grimes *exparg.lastp = NULL; 11374b88c807SRodney W. Grimes *savelastp = sp = expsort(*savelastp); 11384b88c807SRodney W. Grimes while (sp->next != NULL) 11394b88c807SRodney W. Grimes sp = sp->next; 11404b88c807SRodney W. Grimes exparg.lastp = &sp->next; 11414b88c807SRodney W. Grimes } 11424b88c807SRodney W. Grimes str = str->next; 11434b88c807SRodney W. Grimes } 11444b88c807SRodney W. Grimes } 11454b88c807SRodney W. Grimes 11464b88c807SRodney W. Grimes 11474b88c807SRodney W. Grimes /* 11484b88c807SRodney W. Grimes * Do metacharacter (i.e. *, ?, [...]) expansion. 11494b88c807SRodney W. Grimes */ 11504b88c807SRodney W. Grimes 1151*88328642SDavid E. O'Brien static void 11525134c3f7SWarner Losh expmeta(char *enddir, char *name) 11534b88c807SRodney W. Grimes { 115496522b88SSteve Price char *p; 11554b88c807SRodney W. Grimes char *q; 11564b88c807SRodney W. Grimes char *start; 11574b88c807SRodney W. Grimes char *endname; 11584b88c807SRodney W. Grimes int metaflag; 11594b88c807SRodney W. Grimes struct stat statb; 11604b88c807SRodney W. Grimes DIR *dirp; 11614b88c807SRodney W. Grimes struct dirent *dp; 11624b88c807SRodney W. Grimes int atend; 11634b88c807SRodney W. Grimes int matchdot; 11644710b07eSJilles Tjoelker int esc; 11654b88c807SRodney W. Grimes 11664b88c807SRodney W. Grimes metaflag = 0; 11674b88c807SRodney W. Grimes start = name; 11684710b07eSJilles Tjoelker for (p = name; esc = 0, *p; p += esc + 1) { 11694b88c807SRodney W. Grimes if (*p == '*' || *p == '?') 11704b88c807SRodney W. Grimes metaflag = 1; 11714b88c807SRodney W. Grimes else if (*p == '[') { 11724b88c807SRodney W. Grimes q = p + 1; 1173ea1376dfSAndrey A. Chernov if (*q == '!' || *q == '^') 11744b88c807SRodney W. Grimes q++; 11754b88c807SRodney W. Grimes for (;;) { 11766f47734fSTor Egge while (*q == CTLQUOTEMARK) 11776f47734fSTor Egge q++; 11784b88c807SRodney W. Grimes if (*q == CTLESC) 11794b88c807SRodney W. Grimes q++; 11804b88c807SRodney W. Grimes if (*q == '/' || *q == '\0') 11814b88c807SRodney W. Grimes break; 11824b88c807SRodney W. Grimes if (*++q == ']') { 11834b88c807SRodney W. Grimes metaflag = 1; 11844b88c807SRodney W. Grimes break; 11854b88c807SRodney W. Grimes } 11864b88c807SRodney W. Grimes } 11874b88c807SRodney W. Grimes } else if (*p == '\0') 11884b88c807SRodney W. Grimes break; 11896f47734fSTor Egge else if (*p == CTLQUOTEMARK) 11906f47734fSTor Egge continue; 11914710b07eSJilles Tjoelker else { 11924710b07eSJilles Tjoelker if (*p == CTLESC) 11934710b07eSJilles Tjoelker esc++; 11944710b07eSJilles Tjoelker if (p[esc] == '/') { 11954b88c807SRodney W. Grimes if (metaflag) 11964b88c807SRodney W. Grimes break; 11974710b07eSJilles Tjoelker start = p + esc + 1; 11984710b07eSJilles Tjoelker } 11994b88c807SRodney W. Grimes } 12004b88c807SRodney W. Grimes } 12014b88c807SRodney W. Grimes if (metaflag == 0) { /* we've reached the end of the file name */ 12024b88c807SRodney W. Grimes if (enddir != expdir) 12034b88c807SRodney W. Grimes metaflag++; 12044b88c807SRodney W. Grimes for (p = name ; ; p++) { 12056f47734fSTor Egge if (*p == CTLQUOTEMARK) 12066f47734fSTor Egge continue; 12074b88c807SRodney W. Grimes if (*p == CTLESC) 12084b88c807SRodney W. Grimes p++; 12094b88c807SRodney W. Grimes *enddir++ = *p; 12104b88c807SRodney W. Grimes if (*p == '\0') 12114b88c807SRodney W. Grimes break; 1212c8a3d81fSJilles Tjoelker if (enddir == expdir_end) 1213c8a3d81fSJilles Tjoelker return; 12144b88c807SRodney W. Grimes } 12150e3e87bdSXin LI if (metaflag == 0 || lstat(expdir, &statb) >= 0) 12164b88c807SRodney W. Grimes addfname(expdir); 12174b88c807SRodney W. Grimes return; 12184b88c807SRodney W. Grimes } 12194b88c807SRodney W. Grimes endname = p; 12204b88c807SRodney W. Grimes if (start != name) { 12214b88c807SRodney W. Grimes p = name; 12224b88c807SRodney W. Grimes while (p < start) { 12236f47734fSTor Egge while (*p == CTLQUOTEMARK) 12246f47734fSTor Egge p++; 12254b88c807SRodney W. Grimes if (*p == CTLESC) 12264b88c807SRodney W. Grimes p++; 12274b88c807SRodney W. Grimes *enddir++ = *p++; 1228c8a3d81fSJilles Tjoelker if (enddir == expdir_end) 1229c8a3d81fSJilles Tjoelker return; 12304b88c807SRodney W. Grimes } 12314b88c807SRodney W. Grimes } 12324b88c807SRodney W. Grimes if (enddir == expdir) { 12334b88c807SRodney W. Grimes p = "."; 12344b88c807SRodney W. Grimes } else if (enddir == expdir + 1 && *expdir == '/') { 12354b88c807SRodney W. Grimes p = "/"; 12364b88c807SRodney W. Grimes } else { 12374b88c807SRodney W. Grimes p = expdir; 12384b88c807SRodney W. Grimes enddir[-1] = '\0'; 12394b88c807SRodney W. Grimes } 12404b88c807SRodney W. Grimes if ((dirp = opendir(p)) == NULL) 12414b88c807SRodney W. Grimes return; 12424b88c807SRodney W. Grimes if (enddir != expdir) 12434b88c807SRodney W. Grimes enddir[-1] = '/'; 12444b88c807SRodney W. Grimes if (*endname == 0) { 12454b88c807SRodney W. Grimes atend = 1; 12464b88c807SRodney W. Grimes } else { 12474b88c807SRodney W. Grimes atend = 0; 12484710b07eSJilles Tjoelker *endname = '\0'; 12494710b07eSJilles Tjoelker endname += esc + 1; 12504b88c807SRodney W. Grimes } 12514b88c807SRodney W. Grimes matchdot = 0; 12526f47734fSTor Egge p = start; 12536f47734fSTor Egge while (*p == CTLQUOTEMARK) 12546f47734fSTor Egge p++; 12556f47734fSTor Egge if (*p == CTLESC) 12566f47734fSTor Egge p++; 12576f47734fSTor Egge if (*p == '.') 12584b88c807SRodney W. Grimes matchdot++; 12594b88c807SRodney W. Grimes while (! int_pending() && (dp = readdir(dirp)) != NULL) { 12604b88c807SRodney W. Grimes if (dp->d_name[0] == '.' && ! matchdot) 12614b88c807SRodney W. Grimes continue; 12628b220a61STor Egge if (patmatch(start, dp->d_name, 0)) { 1263c8a3d81fSJilles Tjoelker if (enddir + dp->d_namlen + 1 > expdir_end) 1264aa9caaf6SPeter Wemm continue; 1265c8a3d81fSJilles Tjoelker memcpy(enddir, dp->d_name, dp->d_namlen + 1); 1266c8a3d81fSJilles Tjoelker if (atend) 1267c8a3d81fSJilles Tjoelker addfname(expdir); 1268c8a3d81fSJilles Tjoelker else { 1269c8a3d81fSJilles Tjoelker if (enddir + dp->d_namlen + 2 > expdir_end) 1270c8a3d81fSJilles Tjoelker continue; 1271c8a3d81fSJilles Tjoelker enddir[dp->d_namlen] = '/'; 1272c8a3d81fSJilles Tjoelker enddir[dp->d_namlen + 1] = '\0'; 1273c8a3d81fSJilles Tjoelker expmeta(enddir + dp->d_namlen + 1, endname); 12744b88c807SRodney W. Grimes } 12754b88c807SRodney W. Grimes } 12764b88c807SRodney W. Grimes } 12774b88c807SRodney W. Grimes closedir(dirp); 12784b88c807SRodney W. Grimes if (! atend) 12794710b07eSJilles Tjoelker endname[-esc - 1] = esc ? CTLESC : '/'; 12804b88c807SRodney W. Grimes } 12814b88c807SRodney W. Grimes 12824b88c807SRodney W. Grimes 12834b88c807SRodney W. Grimes /* 12844b88c807SRodney W. Grimes * Add a file name to the list. 12854b88c807SRodney W. Grimes */ 12864b88c807SRodney W. Grimes 1287*88328642SDavid E. O'Brien static void 12885134c3f7SWarner Losh addfname(char *name) 12894b88c807SRodney W. Grimes { 12904b88c807SRodney W. Grimes char *p; 12914b88c807SRodney W. Grimes struct strlist *sp; 12924b88c807SRodney W. Grimes 12934b88c807SRodney W. Grimes p = stalloc(strlen(name) + 1); 12944b88c807SRodney W. Grimes scopy(name, p); 12954b88c807SRodney W. Grimes sp = (struct strlist *)stalloc(sizeof *sp); 12964b88c807SRodney W. Grimes sp->text = p; 12974b88c807SRodney W. Grimes *exparg.lastp = sp; 12984b88c807SRodney W. Grimes exparg.lastp = &sp->next; 12994b88c807SRodney W. Grimes } 13004b88c807SRodney W. Grimes 13014b88c807SRodney W. Grimes 13024b88c807SRodney W. Grimes /* 13034b88c807SRodney W. Grimes * Sort the results of file name expansion. It calculates the number of 13044b88c807SRodney W. Grimes * strings to sort and then calls msort (short for merge sort) to do the 13054b88c807SRodney W. Grimes * work. 13064b88c807SRodney W. Grimes */ 13074b88c807SRodney W. Grimes 1308*88328642SDavid E. O'Brien static struct strlist * 13095134c3f7SWarner Losh expsort(struct strlist *str) 13104b88c807SRodney W. Grimes { 13114b88c807SRodney W. Grimes int len; 13124b88c807SRodney W. Grimes struct strlist *sp; 13134b88c807SRodney W. Grimes 13144b88c807SRodney W. Grimes len = 0; 13154b88c807SRodney W. Grimes for (sp = str ; sp ; sp = sp->next) 13164b88c807SRodney W. Grimes len++; 13174b88c807SRodney W. Grimes return msort(str, len); 13184b88c807SRodney W. Grimes } 13194b88c807SRodney W. Grimes 13204b88c807SRodney W. Grimes 1321*88328642SDavid E. O'Brien static struct strlist * 13225134c3f7SWarner Losh msort(struct strlist *list, int len) 13234b88c807SRodney W. Grimes { 1324aa9caaf6SPeter Wemm struct strlist *p, *q = NULL; 13254b88c807SRodney W. Grimes struct strlist **lpp; 13264b88c807SRodney W. Grimes int half; 13274b88c807SRodney W. Grimes int n; 13284b88c807SRodney W. Grimes 13294b88c807SRodney W. Grimes if (len <= 1) 13304b88c807SRodney W. Grimes return list; 13314b88c807SRodney W. Grimes half = len >> 1; 13324b88c807SRodney W. Grimes p = list; 13334b88c807SRodney W. Grimes for (n = half ; --n >= 0 ; ) { 13344b88c807SRodney W. Grimes q = p; 13354b88c807SRodney W. Grimes p = p->next; 13364b88c807SRodney W. Grimes } 13374b88c807SRodney W. Grimes q->next = NULL; /* terminate first half of list */ 13384b88c807SRodney W. Grimes q = msort(list, half); /* sort first half of list */ 13394b88c807SRodney W. Grimes p = msort(p, len - half); /* sort second half */ 13404b88c807SRodney W. Grimes lpp = &list; 13414b88c807SRodney W. Grimes for (;;) { 13424b88c807SRodney W. Grimes if (strcmp(p->text, q->text) < 0) { 13434b88c807SRodney W. Grimes *lpp = p; 13444b88c807SRodney W. Grimes lpp = &p->next; 13454b88c807SRodney W. Grimes if ((p = *lpp) == NULL) { 13464b88c807SRodney W. Grimes *lpp = q; 13474b88c807SRodney W. Grimes break; 13484b88c807SRodney W. Grimes } 13494b88c807SRodney W. Grimes } else { 13504b88c807SRodney W. Grimes *lpp = q; 13514b88c807SRodney W. Grimes lpp = &q->next; 13524b88c807SRodney W. Grimes if ((q = *lpp) == NULL) { 13534b88c807SRodney W. Grimes *lpp = p; 13544b88c807SRodney W. Grimes break; 13554b88c807SRodney W. Grimes } 13564b88c807SRodney W. Grimes } 13574b88c807SRodney W. Grimes } 13584b88c807SRodney W. Grimes return list; 13594b88c807SRodney W. Grimes } 13604b88c807SRodney W. Grimes 13614b88c807SRodney W. Grimes 13624b88c807SRodney W. Grimes 13634b88c807SRodney W. Grimes /* 13644b88c807SRodney W. Grimes * Returns true if the pattern matches the string. 13654b88c807SRodney W. Grimes */ 13664b88c807SRodney W. Grimes 13674b88c807SRodney W. Grimes int 13682cac6e36SJilles Tjoelker patmatch(const char *pattern, const char *string, int squoted) 13694b88c807SRodney W. Grimes { 13702cac6e36SJilles Tjoelker const char *p, *q; 137196522b88SSteve Price char c; 13724b88c807SRodney W. Grimes 13734b88c807SRodney W. Grimes p = pattern; 13744b88c807SRodney W. Grimes q = string; 13754b88c807SRodney W. Grimes for (;;) { 13764b88c807SRodney W. Grimes switch (c = *p++) { 13774b88c807SRodney W. Grimes case '\0': 13784b88c807SRodney W. Grimes goto breakloop; 13794b88c807SRodney W. Grimes case CTLESC: 13808b220a61STor Egge if (squoted && *q == CTLESC) 13818b220a61STor Egge q++; 13824b88c807SRodney W. Grimes if (*q++ != *p++) 13834b88c807SRodney W. Grimes return 0; 13844b88c807SRodney W. Grimes break; 13856f47734fSTor Egge case CTLQUOTEMARK: 13866f47734fSTor Egge continue; 13874b88c807SRodney W. Grimes case '?': 13888b220a61STor Egge if (squoted && *q == CTLESC) 13898b220a61STor Egge q++; 13904b88c807SRodney W. Grimes if (*q++ == '\0') 13914b88c807SRodney W. Grimes return 0; 13924b88c807SRodney W. Grimes break; 13934b88c807SRodney W. Grimes case '*': 13944b88c807SRodney W. Grimes c = *p; 13956f47734fSTor Egge while (c == CTLQUOTEMARK || c == '*') 13966f47734fSTor Egge c = *++p; 13976f47734fSTor Egge if (c != CTLESC && c != CTLQUOTEMARK && 13986f47734fSTor Egge c != '?' && c != '*' && c != '[') { 13994b88c807SRodney W. Grimes while (*q != c) { 14008b220a61STor Egge if (squoted && *q == CTLESC && 14018b220a61STor Egge q[1] == c) 14028b220a61STor Egge break; 14034b88c807SRodney W. Grimes if (*q == '\0') 14044b88c807SRodney W. Grimes return 0; 14058b220a61STor Egge if (squoted && *q == CTLESC) 14068b220a61STor Egge q++; 14074b88c807SRodney W. Grimes q++; 14084b88c807SRodney W. Grimes } 14094b88c807SRodney W. Grimes } 14104b88c807SRodney W. Grimes do { 14118fdbdb5dSJilles Tjoelker if (patmatch(p, q, squoted)) 14124b88c807SRodney W. Grimes return 1; 14138b220a61STor Egge if (squoted && *q == CTLESC) 14148b220a61STor Egge q++; 14154b88c807SRodney W. Grimes } while (*q++ != '\0'); 14164b88c807SRodney W. Grimes return 0; 14174b88c807SRodney W. Grimes case '[': { 14182cac6e36SJilles Tjoelker const char *endp; 14194b88c807SRodney W. Grimes int invert, found; 14204b88c807SRodney W. Grimes char chr; 14214b88c807SRodney W. Grimes 14224b88c807SRodney W. Grimes endp = p; 1423ea1376dfSAndrey A. Chernov if (*endp == '!' || *endp == '^') 14244b88c807SRodney W. Grimes endp++; 14254b88c807SRodney W. Grimes for (;;) { 14266f47734fSTor Egge while (*endp == CTLQUOTEMARK) 14276f47734fSTor Egge endp++; 14284b88c807SRodney W. Grimes if (*endp == '\0') 14294b88c807SRodney W. Grimes goto dft; /* no matching ] */ 14304b88c807SRodney W. Grimes if (*endp == CTLESC) 14314b88c807SRodney W. Grimes endp++; 14324b88c807SRodney W. Grimes if (*++endp == ']') 14334b88c807SRodney W. Grimes break; 14344b88c807SRodney W. Grimes } 14354b88c807SRodney W. Grimes invert = 0; 1436ea1376dfSAndrey A. Chernov if (*p == '!' || *p == '^') { 14374b88c807SRodney W. Grimes invert++; 14384b88c807SRodney W. Grimes p++; 14394b88c807SRodney W. Grimes } 14404b88c807SRodney W. Grimes found = 0; 14414b88c807SRodney W. Grimes chr = *q++; 14428b220a61STor Egge if (squoted && chr == CTLESC) 14438b220a61STor Egge chr = *q++; 1444aa9caaf6SPeter Wemm if (chr == '\0') 1445aa9caaf6SPeter Wemm return 0; 14464b88c807SRodney W. Grimes c = *p++; 14474b88c807SRodney W. Grimes do { 14486f47734fSTor Egge if (c == CTLQUOTEMARK) 14496f47734fSTor Egge continue; 14504b88c807SRodney W. Grimes if (c == CTLESC) 14514b88c807SRodney W. Grimes c = *p++; 14524b88c807SRodney W. Grimes if (*p == '-' && p[1] != ']') { 14534b88c807SRodney W. Grimes p++; 14546f47734fSTor Egge while (*p == CTLQUOTEMARK) 14556f47734fSTor Egge p++; 14564b88c807SRodney W. Grimes if (*p == CTLESC) 14574b88c807SRodney W. Grimes p++; 1458c906f8d4SAndrey A. Chernov if ( collate_range_cmp(chr, c) >= 0 1459c906f8d4SAndrey A. Chernov && collate_range_cmp(chr, *p) <= 0 1460ba726b8aSAndrey A. Chernov ) 14614b88c807SRodney W. Grimes found = 1; 14624b88c807SRodney W. Grimes p++; 14634b88c807SRodney W. Grimes } else { 14644b88c807SRodney W. Grimes if (chr == c) 14654b88c807SRodney W. Grimes found = 1; 14664b88c807SRodney W. Grimes } 14674b88c807SRodney W. Grimes } while ((c = *p++) != ']'); 14684b88c807SRodney W. Grimes if (found == invert) 14694b88c807SRodney W. Grimes return 0; 14704b88c807SRodney W. Grimes break; 14714b88c807SRodney W. Grimes } 14724b88c807SRodney W. Grimes dft: default: 14738b220a61STor Egge if (squoted && *q == CTLESC) 14748b220a61STor Egge q++; 14754b88c807SRodney W. Grimes if (*q++ != c) 14764b88c807SRodney W. Grimes return 0; 14774b88c807SRodney W. Grimes break; 14784b88c807SRodney W. Grimes } 14794b88c807SRodney W. Grimes } 14804b88c807SRodney W. Grimes breakloop: 14814b88c807SRodney W. Grimes if (*q != '\0') 14824b88c807SRodney W. Grimes return 0; 14834b88c807SRodney W. Grimes return 1; 14844b88c807SRodney W. Grimes } 14854b88c807SRodney W. Grimes 14864b88c807SRodney W. Grimes 14874b88c807SRodney W. Grimes 14884b88c807SRodney W. Grimes /* 14892ca3d70fSJilles Tjoelker * Remove any CTLESC and CTLQUOTEMARK characters from a string. 14904b88c807SRodney W. Grimes */ 14914b88c807SRodney W. Grimes 14924b88c807SRodney W. Grimes void 14935134c3f7SWarner Losh rmescapes(char *str) 14944b88c807SRodney W. Grimes { 149596522b88SSteve Price char *p, *q; 14964b88c807SRodney W. Grimes 14974b88c807SRodney W. Grimes p = str; 14986f47734fSTor Egge while (*p != CTLESC && *p != CTLQUOTEMARK) { 14994b88c807SRodney W. Grimes if (*p++ == '\0') 15004b88c807SRodney W. Grimes return; 15014b88c807SRodney W. Grimes } 15024b88c807SRodney W. Grimes q = p; 15034b88c807SRodney W. Grimes while (*p) { 15046f47734fSTor Egge if (*p == CTLQUOTEMARK) { 15056f47734fSTor Egge p++; 15066f47734fSTor Egge continue; 15076f47734fSTor Egge } 15084b88c807SRodney W. Grimes if (*p == CTLESC) 15094b88c807SRodney W. Grimes p++; 15104b88c807SRodney W. Grimes *q++ = *p++; 15114b88c807SRodney W. Grimes } 15124b88c807SRodney W. Grimes *q = '\0'; 15134b88c807SRodney W. Grimes } 15144b88c807SRodney W. Grimes 15154b88c807SRodney W. Grimes 15164b88c807SRodney W. Grimes 15174b88c807SRodney W. Grimes /* 15184b88c807SRodney W. Grimes * See if a pattern matches in a case statement. 15194b88c807SRodney W. Grimes */ 15204b88c807SRodney W. Grimes 15214b88c807SRodney W. Grimes int 15222cac6e36SJilles Tjoelker casematch(union node *pattern, const char *val) 15234b88c807SRodney W. Grimes { 15244b88c807SRodney W. Grimes struct stackmark smark; 15254b88c807SRodney W. Grimes int result; 15264b88c807SRodney W. Grimes char *p; 15274b88c807SRodney W. Grimes 15284b88c807SRodney W. Grimes setstackmark(&smark); 15294b88c807SRodney W. Grimes argbackq = pattern->narg.backquote; 15304b88c807SRodney W. Grimes STARTSTACKSTR(expdest); 15314b88c807SRodney W. Grimes ifslastp = NULL; 15324b88c807SRodney W. Grimes argstr(pattern->narg.text, EXP_TILDE | EXP_CASE); 15334b88c807SRodney W. Grimes STPUTC('\0', expdest); 15344b88c807SRodney W. Grimes p = grabstackstr(expdest); 15358b220a61STor Egge result = patmatch(p, val, 0); 15364b88c807SRodney W. Grimes popstackmark(&smark); 15374b88c807SRodney W. Grimes return result; 15384b88c807SRodney W. Grimes } 1539aa9caaf6SPeter Wemm 1540aa9caaf6SPeter Wemm /* 1541aa9caaf6SPeter Wemm * Our own itoa(). 1542aa9caaf6SPeter Wemm */ 1543aa9caaf6SPeter Wemm 1544*88328642SDavid E. O'Brien static char * 15455134c3f7SWarner Losh cvtnum(int num, char *buf) 1546aa9caaf6SPeter Wemm { 1547aa9caaf6SPeter Wemm char temp[32]; 1548aa9caaf6SPeter Wemm int neg = num < 0; 1549aa9caaf6SPeter Wemm char *p = temp + 31; 1550aa9caaf6SPeter Wemm 1551aa9caaf6SPeter Wemm temp[31] = '\0'; 1552aa9caaf6SPeter Wemm 1553aa9caaf6SPeter Wemm do { 1554aa9caaf6SPeter Wemm *--p = num % 10 + '0'; 1555aa9caaf6SPeter Wemm } while ((num /= 10) != 0); 1556aa9caaf6SPeter Wemm 1557aa9caaf6SPeter Wemm if (neg) 1558aa9caaf6SPeter Wemm *--p = '-'; 1559aa9caaf6SPeter Wemm 1560aa9caaf6SPeter Wemm while (*p) 1561aa9caaf6SPeter Wemm STPUTC(*p++, buf); 1562aa9caaf6SPeter Wemm return buf; 1563aa9caaf6SPeter Wemm } 15642c25061fSTim J. Robbins 15652c25061fSTim J. Robbins /* 15662c25061fSTim J. Robbins * Do most of the work for wordexp(3). 15672c25061fSTim J. Robbins */ 15682c25061fSTim J. Robbins 15692c25061fSTim J. Robbins int 15702c25061fSTim J. Robbins wordexpcmd(int argc, char **argv) 15712c25061fSTim J. Robbins { 15722c25061fSTim J. Robbins size_t len; 15732c25061fSTim J. Robbins int i; 15742c25061fSTim J. Robbins 15752c25061fSTim J. Robbins out1fmt("%08x", argc - 1); 15762c25061fSTim J. Robbins for (i = 1, len = 0; i < argc; i++) 15772c25061fSTim J. Robbins len += strlen(argv[i]); 15782c25061fSTim J. Robbins out1fmt("%08x", (int)len); 15792c25061fSTim J. Robbins for (i = 1; i < argc; i++) { 15802c25061fSTim J. Robbins out1str(argv[i]); 15812c25061fSTim J. Robbins out1c('\0'); 15822c25061fSTim J. Robbins } 15832c25061fSTim J. Robbins return (0); 15842c25061fSTim J. Robbins } 1585