2 * Copyright (c) 1991, 1993
3 * The Regents of the University of California. All rights reserved.
5 * This code is derived from software contributed to Berkeley by
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 * must display the following acknowledgement:
18 * This product includes software developed by the University of
19 * California, Berkeley and its contributors.
20 * 4. Neither the name of the University nor the names of its contributors
21 * may be used to endorse or promote products derived from this software
22 * without specific prior written permission.
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 * @(#)expand.c 8.5 (Berkeley) 5/15/95
37 * $FreeBSD: src/bin/sh/expand.c,v 1.51 2006/11/07 22:46:13 stefanf Exp $
38 * $DragonFly: src/bin/sh/expand.c,v 1.9 2007/01/07 16:58:30 pavalos Exp $
41 #include <sys/types.h>
54 * Routines to expand arguments to commands. We have to deal with
55 * backquotes, shell variables, and file metacharacters.
77 * Structure specifying which parts of the string should be searched
82 struct ifsregion *next; /* next region in list */
83 int begoff; /* offset of start of region */
84 int endoff; /* offset of end of region */
85 int nulonly; /* search for nul bytes only */
89 STATIC char *expdest; /* output of current string */
90 STATIC struct nodelist *argbackq; /* list of back quote expressions */
91 STATIC struct ifsregion ifsfirst; /* first struct in list of ifs regions */
92 STATIC struct ifsregion *ifslastp; /* last struct in list */
93 STATIC struct arglist exparg; /* holds expanded arg list */
95 STATIC void argstr(char *, int);
96 STATIC char *exptilde(char *, int);
97 STATIC void expbackq(union node *, int, int);
98 STATIC int subevalvar(char *, char *, int, int, int, int);
99 STATIC char *evalvar(char *, int);
100 STATIC int varisset(char *, int);
101 STATIC void varvalue(char *, int, int, int);
102 STATIC void recordregion(int, int, int);
103 STATIC void removerecordregions(int);
104 STATIC void ifsbreakup(char *, struct arglist *);
105 STATIC void expandmeta(struct strlist *, int);
106 STATIC void expmeta(char *, char *);
107 STATIC void addfname(char *);
108 STATIC struct strlist *expsort(struct strlist *);
109 STATIC struct strlist *msort(struct strlist *, int);
110 STATIC int pmatch(char *, char *, int);
111 STATIC char *cvtnum(int, char *);
112 STATIC int collate_range_cmp(int, int);
115 collate_range_cmp(int c1, int c2)
117 static char s1[2], s2[2];
121 return (strcoll(s1, s2));
124 extern int oexitstatus;
127 * Expand shell variables and backquotes inside a here document.
128 * union node *arg the document
129 * int fd; where to write the expanded version
133 expandhere(union node *arg, int fd)
136 expandarg(arg, NULL, 0);
137 xwrite(fd, stackblock(), expdest - stackblock());
142 * Perform variable substitution and command substitution on an argument,
143 * placing the resulting list of arguments in arglist. If EXP_FULL is true,
144 * perform splitting and file name expansion. When arglist is NULL, perform
145 * here document expansion.
149 expandarg(union node *arg, struct arglist *arglist, int flag)
154 argbackq = arg->narg.backquote;
155 STARTSTACKSTR(expdest);
156 ifsfirst.next = NULL;
158 argstr(arg->narg.text, flag);
159 if (arglist == NULL) {
160 return; /* here document expanded */
162 STPUTC('\0', expdest);
163 p = grabstackstr(expdest);
164 exparg.lastp = &exparg.list;
168 if (flag & EXP_FULL) {
169 ifsbreakup(p, &exparg);
170 *exparg.lastp = NULL;
171 exparg.lastp = &exparg.list;
172 expandmeta(exparg.list, flag);
174 if (flag & EXP_REDIR) /*XXX - for now, just remove escapes */
176 sp = (struct strlist *)stalloc(sizeof (struct strlist));
179 exparg.lastp = &sp->next;
181 while (ifsfirst.next != NULL) {
182 struct ifsregion *ifsp;
184 ifsp = ifsfirst.next->next;
185 ckfree(ifsfirst.next);
186 ifsfirst.next = ifsp;
189 *exparg.lastp = NULL;
191 *arglist->lastp = exparg.list;
192 arglist->lastp = exparg.lastp;
199 * Perform variable and command substitution. If EXP_FULL is set, output CTLESC
200 * characters to allow for further processing. Otherwise treat
201 * $@ like $* since no splitting will be performed.
205 argstr(char *p, int flag)
208 int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR); /* do CTLESC */
211 if (*p == '~' && (flag & (EXP_TILDE | EXP_VARTILDE)))
212 p = exptilde(p, flag);
216 case CTLENDVAR: /* ??? */
219 /* "$@" syntax adherence hack */
220 if (p[0] == CTLVAR && p[2] == '@' && p[3] == '=')
222 if ((flag & EXP_FULL) != 0)
232 p = evalvar(p, flag);
235 case CTLBACKQ|CTLQUOTE:
236 expbackq(argbackq->n, c & CTLQUOTE, flag);
237 argbackq = argbackq->next;
245 * sort of a hack - expand tildes in variable
246 * assignments (after the first '=' and after ':'s).
249 if (flag & EXP_VARTILDE && *p == '~') {
256 p = exptilde(p, flag);
267 exptilde(char *p, int flag)
272 int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR);
274 while ((c = *p) != '\0') {
281 if (flag & EXP_VARTILDE)
291 if (*(startp+1) == '\0') {
292 if ((home = lookupvar("HOME")) == NULL)
295 if ((pw = getpwnam(startp+1)) == NULL)
302 while ((c = *home++) != '\0') {
303 if (quotes && SQSYNTAX[(int)c] == CCTL)
304 STPUTC(CTLESC, expdest);
315 removerecordregions(int endoff)
317 if (ifslastp == NULL)
320 if (ifsfirst.endoff > endoff) {
321 while (ifsfirst.next != NULL) {
322 struct ifsregion *ifsp;
324 ifsp = ifsfirst.next->next;
325 ckfree(ifsfirst.next);
326 ifsfirst.next = ifsp;
329 if (ifsfirst.begoff > endoff)
332 ifslastp = &ifsfirst;
333 ifsfirst.endoff = endoff;
338 ifslastp = &ifsfirst;
339 while (ifslastp->next && ifslastp->next->begoff < endoff)
340 ifslastp=ifslastp->next;
341 while (ifslastp->next != NULL) {
342 struct ifsregion *ifsp;
344 ifsp = ifslastp->next->next;
345 ckfree(ifslastp->next);
346 ifslastp->next = ifsp;
349 if (ifslastp->endoff > endoff)
350 ifslastp->endoff = endoff;
354 * Expand arithmetic expression. Backup to start of expression,
355 * evaluate, place result in (backed up) result, adjust string position.
363 int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR);
368 * This routine is slightly over-complicated for
369 * efficiency. First we make sure there is
370 * enough space for the result, which may be bigger
371 * than the expression if we add exponentiation. Next we
372 * scan backwards looking for the start of arithmetic. If the
373 * next previous character is a CTLESC character, then we
374 * have to rescan starting from the beginning since CTLESC
375 * characters have to be processed left to right.
377 #if INT_MAX / 1000000000 >= 10 || INT_MIN / 1000000000 <= -10
378 #error "integers with more than 10 digits are not supported"
380 CHECKSTRSPACE(12 - 2, expdest);
381 USTPUTC('\0', expdest);
382 start = stackblock();
384 while (p >= start && *p != CTLARI)
386 if (p < start || *p != CTLARI)
387 error("missing CTLARI (shouldn't happen)");
388 if (p > start && *(p - 1) == CTLESC)
389 for (p = start; *p != CTLARI; p++)
398 removerecordregions(begoff);
402 fmtstr(p, 12, "%d", result);
406 recordregion(begoff, p - 1 - start, 0);
407 result = expdest - p + 1;
408 STADJUST(-result, expdest);
413 * Expand stuff in backwards quotes.
417 expbackq(union node *cmd, int quoted, int flag)
423 char *dest = expdest;
424 struct ifsregion saveifs, *savelastp;
425 struct nodelist *saveargbackq;
427 int startloc = dest - stackblock();
428 char const *syntax = quoted? DQSYNTAX : BASESYNTAX;
430 int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR);
434 savelastp = ifslastp;
435 saveargbackq = argbackq;
438 p = grabstackstr(dest);
439 evalbackcmd(cmd, &in);
440 ungrabstackstr(p, dest);
442 ifslastp = savelastp;
443 argbackq = saveargbackq;
449 if (--in.nleft < 0) {
452 while ((i = read(in.fd, buf, sizeof buf)) < 0 && errno == EINTR);
453 TRACE(("expbackq: read returns %d\n", i));
461 if (quotes && syntax[(int)lastc] == CCTL)
462 STPUTC(CTLESC, dest);
467 /* Eat all trailing newlines */
468 for ( ; (dest - stackblock()) > startloc && *(dest-1) == '\n'; )
476 exitstatus = waitforjob(in.jp, NULL);
478 recordregion(startloc, dest - stackblock(), 0);
479 TRACE(("evalbackq: size=%d: \"%.*s\"\n",
480 (dest - stackblock()) - startloc,
481 (dest - stackblock()) - startloc,
482 stackblock() + startloc));
490 subevalvar(char *p, char *str, int strloc, int subtype, int startloc,
497 int saveherefd = herefd;
498 struct nodelist *saveargbackq = argbackq;
503 STACKSTRNUL(expdest);
505 argbackq = saveargbackq;
506 startp = stackblock() + startloc;
508 str = stackblock() + strloc;
512 setvar(str, startp, 0);
513 amount = startp - expdest;
514 STADJUST(amount, expdest);
521 if (*p != CTLENDVAR) {
522 outfmt(&errout, "%s\n", startp);
525 error("%.*s: parameter %snot set", (int)(p - str - 1),
526 str, (varflags & VSNUL) ? "null or "
531 for (loc = startp; loc < str; loc++) {
534 if (patmatch(str, startp, varflags & VSQUOTE)) {
539 if ((varflags & VSQUOTE) && *loc == CTLESC)
545 for (loc = str - 1; loc >= startp;) {
548 if (patmatch(str, startp, varflags & VSQUOTE)) {
554 if ((varflags & VSQUOTE) && loc > startp &&
555 *(loc - 1) == CTLESC) {
556 for (q = startp; q < loc; q++)
566 for (loc = str - 1; loc >= startp;) {
567 if (patmatch(str, loc, varflags & VSQUOTE)) {
568 amount = loc - expdest;
569 STADJUST(amount, expdest);
573 if ((varflags & VSQUOTE) && loc > startp &&
574 *(loc - 1) == CTLESC) {
575 for (q = startp; q < loc; q++)
585 for (loc = startp; loc < str - 1; loc++) {
586 if (patmatch(str, loc, varflags & VSQUOTE)) {
587 amount = loc - expdest;
588 STADJUST(amount, expdest);
591 if ((varflags & VSQUOTE) && *loc == CTLESC)
602 amount = ((str - 1) - (loc - startp)) - expdest;
603 STADJUST(amount, expdest);
604 while (loc != str - 1)
611 * Expand a variable, and return a pointer to the next character in the
616 evalvar(char *p, int flag)
629 int quotes = flag & (EXP_FULL | EXP_CASE | EXP_REDIR);
631 varflags = (unsigned char)*p++;
632 subtype = varflags & VSTYPE;
637 p = strchr(p, '=') + 1;
638 again: /* jump here after setting a variable with ${var=text} */
639 if (varflags & VSLINENO) {
643 p[-1] = '\0'; /* temporarily overwrite '=' to have \0
645 } else if (special) {
646 set = varisset(var, varflags & VSNUL);
649 val = bltinlookup(var, 1);
650 if (val == NULL || ((varflags & VSNUL) && val[0] == '\0')) {
657 startloc = expdest - stackblock();
666 error("%.*s: parameter not set", (int)(p - var - 1),
670 if (set && subtype != VSPLUS) {
671 /* insert the value of the variable */
673 varvalue(var, varflags & VSQUOTE, subtype, flag);
674 if (subtype == VSLENGTH) {
675 varlen = expdest - stackblock() - startloc;
676 STADJUST(-varlen, expdest);
679 char const *syntax = (varflags & VSQUOTE) ? DQSYNTAX
682 if (subtype == VSLENGTH) {
689 syntax[(int)*val] == CCTL)
690 STPUTC(CTLESC, expdest);
691 STPUTC(*val++, expdest);
698 if (subtype == VSPLUS)
701 easy = ((varflags & VSQUOTE) == 0 ||
702 (*var == '@' && shellparam.nparam != 1));
707 expdest = cvtnum(varlen, expdest);
714 recordregion(startloc, expdest - stackblock(),
735 * Terminate the string and start recording the pattern
738 STPUTC('\0', expdest);
739 patloc = expdest - stackblock();
740 if (subevalvar(p, NULL, patloc, subtype,
741 startloc, varflags) == 0) {
742 int amount = (expdest - stackblock() - patloc) + 1;
743 STADJUST(-amount, expdest);
745 /* Remove any recorded regions beyond start of variable */
746 removerecordregions(startloc);
752 if (subevalvar(p, var, 0, subtype, startloc, varflags)) {
755 * Remove any recorded regions beyond
758 removerecordregions(startloc);
769 error("${%.*s%s}: Bad substitution", c, var,
770 (c > 0 && *p != CTLENDVAR) ? "..." : "");
775 p[-1] = '='; /* recover overwritten '=' */
777 if (subtype != VSNORMAL) { /* skip to end of alternative */
780 if ((c = *p++) == CTLESC)
782 else if (c == CTLBACKQ || c == (CTLBACKQ|CTLQUOTE)) {
784 argbackq = argbackq->next;
785 } else if (c == CTLVAR) {
786 if ((*p++ & VSTYPE) != VSNORMAL)
788 } else if (c == CTLENDVAR) {
800 * Test whether a specialized variable is set.
804 varisset(char *name, int nulok)
808 return backgndpid != -1;
809 else if (*name == '@' || *name == '*') {
810 if (*shellparam.p == NULL)
816 for (av = shellparam.p; *av; av++)
821 } else if (is_digit(*name)) {
823 int num = atoi(name);
825 if (num > shellparam.nparam)
831 ap = shellparam.p[num - 1];
833 if (nulok && (ap == NULL || *ap == '\0'))
842 * Add the value of a specialized variable to the stack string.
846 varvalue(char *name, int quoted, int subtype, int flag)
855 #define STRTODEST(p) \
857 if (flag & (EXP_FULL | EXP_CASE) && subtype != VSLENGTH) { \
858 syntax = quoted? DQSYNTAX : BASESYNTAX; \
860 if (syntax[(int)*p] == CCTL) \
861 STPUTC(CTLESC, expdest); \
862 STPUTC(*p++, expdest); \
866 STPUTC(*p++, expdest); \
878 num = shellparam.nparam;
883 expdest = cvtnum(num, expdest);
886 for (i = 0 ; i < NOPTS ; i++) {
888 STPUTC(optlist[i].letter, expdest);
892 if (flag & EXP_FULL && quoted) {
893 for (ap = shellparam.p ; (p = *ap++) != NULL ; ) {
896 STPUTC('\0', expdest);
906 for (ap = shellparam.p ; (p = *ap++) != NULL ; ) {
909 STPUTC(sep, expdest);
917 if (is_digit(*name)) {
919 if (num > 0 && num <= shellparam.nparam) {
920 p = shellparam.p[num - 1];
931 * Record the the fact that we have to scan this region of the
932 * string for IFS characters.
936 recordregion(int start, int end, int nulonly)
938 struct ifsregion *ifsp;
940 if (ifslastp == NULL) {
943 ifsp = (struct ifsregion *)ckmalloc(sizeof (struct ifsregion));
944 ifslastp->next = ifsp;
947 ifslastp->next = NULL;
948 ifslastp->begoff = start;
949 ifslastp->endoff = end;
950 ifslastp->nulonly = nulonly;
956 * Break the argument string into pieces based upon IFS and add the
957 * strings to the argument list. The regions of the string to be
958 * searched for IFS characters have been stored by recordregion.
961 ifsbreakup(char *string, struct arglist *arglist)
963 struct ifsregion *ifsp;
976 if (ifslastp != NULL) {
979 p = string + ifsp->begoff;
980 nulonly = ifsp->nulonly;
981 ifs = nulonly ? nullstr :
982 ( ifsset() ? ifsval() : " \t\n" );
984 while (p < string + ifsp->endoff) {
988 if (strchr(ifs, *p)) {
990 ifsspc = (strchr(" \t\n", *p) != NULL);
991 /* Ignore IFS whitespace at start */
992 if (q == start && ifsspc) {
998 sp = (struct strlist *)stalloc(sizeof *sp);
1000 *arglist->lastp = sp;
1001 arglist->lastp = &sp->next;
1005 if (p >= string + ifsp->endoff) {
1011 if (strchr(ifs, *p) == NULL ) {
1014 } else if (strchr(" \t\n",*p) == NULL) {
1030 } while ((ifsp = ifsp->next) != NULL);
1031 if (*start || (!ifsspc && start > string)) {
1032 sp = (struct strlist *)stalloc(sizeof *sp);
1034 *arglist->lastp = sp;
1035 arglist->lastp = &sp->next;
1038 sp = (struct strlist *)stalloc(sizeof *sp);
1040 *arglist->lastp = sp;
1041 arglist->lastp = &sp->next;
1048 * Expand shell metacharacters. At this point, the only control characters
1049 * should be escapes. The results are stored in the list exparg.
1052 STATIC char *expdir;
1056 expandmeta(struct strlist *str, int flag __unused)
1059 struct strlist **savelastp;
1062 /* TODO - EXP_REDIR */
1068 for (;;) { /* fast check for meta chars */
1069 if ((c = *p++) == '\0')
1071 if (c == '*' || c == '?' || c == '[' || c == '!')
1074 savelastp = exparg.lastp;
1076 if (expdir == NULL) {
1077 int i = strlen(str->text);
1078 expdir = ckmalloc(i < 2048 ? 2048 : i); /* XXX */
1081 expmeta(expdir, str->text);
1085 if (exparg.lastp == savelastp) {
1090 *exparg.lastp = str;
1091 rmescapes(str->text);
1092 exparg.lastp = &str->next;
1094 *exparg.lastp = NULL;
1095 *savelastp = sp = expsort(*savelastp);
1096 while (sp->next != NULL)
1098 exparg.lastp = &sp->next;
1106 * Do metacharacter (i.e. *, ?, [...]) expansion.
1110 expmeta(char *enddir, char *name)
1125 for (p = name ; ; p++) {
1126 if (*p == '*' || *p == '?')
1128 else if (*p == '[') {
1130 if (*q == '!' || *q == '^')
1133 while (*q == CTLQUOTEMARK)
1137 if (*q == '/' || *q == '\0')
1144 } else if (*p == '!' && p[1] == '!' && (p == name || p[-1] == '/')) {
1146 } else if (*p == '\0')
1148 else if (*p == CTLQUOTEMARK)
1150 else if (*p == CTLESC)
1158 if (metaflag == 0) { /* we've reached the end of the file name */
1159 if (enddir != expdir)
1161 for (p = name ; ; p++) {
1162 if (*p == CTLQUOTEMARK)
1170 if (metaflag == 0 || lstat(expdir, &statb) >= 0)
1175 if (start != name) {
1178 while (*p == CTLQUOTEMARK)
1185 if (enddir == expdir) {
1187 } else if (enddir == expdir + 1 && *expdir == '/') {
1193 if ((dirp = opendir(q)) == NULL)
1195 if (enddir != expdir)
1197 if (*endname == 0) {
1205 while (*p == CTLQUOTEMARK)
1211 while (! int_pending() && (dp = readdir(dirp)) != NULL) {
1212 if (dp->d_name[0] == '.' && ! matchdot)
1214 if (patmatch(start, dp->d_name, 0)) {
1216 scopy(dp->d_name, enddir);
1220 for (t = enddir, q = dp->d_name;
1221 (*t++ = *q++) != '\0';)
1224 expmeta(t, endname);
1235 * Add a file name to the list.
1239 addfname(char *name)
1244 p = stalloc(strlen(name) + 1);
1246 sp = (struct strlist *)stalloc(sizeof *sp);
1249 exparg.lastp = &sp->next;
1254 * Sort the results of file name expansion. It calculates the number of
1255 * strings to sort and then calls msort (short for merge sort) to do the
1259 STATIC struct strlist *
1260 expsort(struct strlist *str)
1266 for (sp = str ; sp ; sp = sp->next)
1268 return msort(str, len);
1272 STATIC struct strlist *
1273 msort(struct strlist *list, int len)
1275 struct strlist *p, *q = NULL;
1276 struct strlist **lpp;
1284 for (n = half ; --n >= 0 ; ) {
1288 q->next = NULL; /* terminate first half of list */
1289 q = msort(list, half); /* sort first half of list */
1290 p = msort(p, len - half); /* sort second half */
1293 if (strcmp(p->text, q->text) < 0) {
1296 if ((p = *lpp) == NULL) {
1303 if ((q = *lpp) == NULL) {
1315 * Returns true if the pattern matches the string.
1319 patmatch(char *pattern, char *string, int squoted)
1322 if (pattern[0] == '!' && pattern[1] == '!')
1323 return 1 - pmatch(pattern + 2, string);
1326 return pmatch(pattern, string, squoted);
1331 pmatch(char *pattern, char *string, int squoted)
1343 if (squoted && *q == CTLESC)
1351 if (squoted && *q == CTLESC)
1358 while (c == CTLQUOTEMARK || c == '*')
1360 if (c != CTLESC && c != CTLQUOTEMARK &&
1361 c != '?' && c != '*' && c != '[') {
1363 if (squoted && *q == CTLESC &&
1368 if (squoted && *q == CTLESC)
1374 if (pmatch(p, q, squoted))
1376 if (squoted && *q == CTLESC)
1378 } while (*q++ != '\0');
1386 if (*endp == '!' || *endp == '^')
1389 while (*endp == CTLQUOTEMARK)
1392 goto dft; /* no matching ] */
1393 if (*endp == CTLESC)
1399 if (*p == '!' || *p == '^') {
1405 if (squoted && chr == CTLESC)
1411 if (c == CTLQUOTEMARK)
1415 if (*p == '-' && p[1] != ']') {
1417 while (*p == CTLQUOTEMARK)
1421 if ( collate_range_cmp(chr, c) >= 0
1422 && collate_range_cmp(chr, *p) <= 0
1430 } while ((c = *p++) != ']');
1431 if (found == invert)
1436 if (squoted && *q == CTLESC)
1452 * Remove any CTLESC characters from a string.
1456 rmescapes(char *str)
1461 while (*p != CTLESC && *p != CTLQUOTEMARK) {
1467 if (*p == CTLQUOTEMARK) {
1481 * See if a pattern matches in a case statement.
1485 casematch(union node *pattern, char *val)
1487 struct stackmark smark;
1491 setstackmark(&smark);
1492 argbackq = pattern->narg.backquote;
1493 STARTSTACKSTR(expdest);
1495 argstr(pattern->narg.text, EXP_TILDE | EXP_CASE);
1496 STPUTC('\0', expdest);
1497 p = grabstackstr(expdest);
1498 result = patmatch(p, val, 0);
1499 popstackmark(&smark);
1508 cvtnum(int num, char *buf)
1512 char *p = temp + 31;
1517 *--p = num % 10 + '0';
1518 } while ((num /= 10) != 0);
1529 * Do most of the work for wordexp(3).
1533 wordexpcmd(int argc, char **argv)
1538 out1fmt("%08x", argc - 1);
1539 for (i = 1, len = 0; i < argc; i++)
1540 len += strlen(argv[i]);
1541 out1fmt("%08x", (int)len);
1542 for (i = 1; i < argc; i++) {