xref: /plan9/sys/src/ape/cmd/pdksh/tree.c (revision 7dd7cddf99dd7472612f1413b4da293630e6b1bc)
1*7dd7cddfSDavid du Colombier /*
2*7dd7cddfSDavid du Colombier  * command tree climbing
3*7dd7cddfSDavid du Colombier  */
4*7dd7cddfSDavid du Colombier 
5*7dd7cddfSDavid du Colombier #include "sh.h"
6*7dd7cddfSDavid du Colombier 
7*7dd7cddfSDavid du Colombier #define INDENT	4
8*7dd7cddfSDavid du Colombier 
9*7dd7cddfSDavid du Colombier #define tputc(c, shf)	shf_putchar(c, shf);
10*7dd7cddfSDavid du Colombier static void 	ptree ARGS((struct op *t, int indent, struct shf *f));
11*7dd7cddfSDavid du Colombier static void 	pioact ARGS((struct shf *f, int indent, struct ioword *iop));
12*7dd7cddfSDavid du Colombier static void	tputC ARGS((int c, struct shf *shf));
13*7dd7cddfSDavid du Colombier static void	tputS ARGS((char *wp, struct shf *shf));
14*7dd7cddfSDavid du Colombier static void	vfptreef ARGS((struct shf *shf, int indent, const char *fmt, va_list va));
15*7dd7cddfSDavid du Colombier static struct ioword **iocopy ARGS((struct ioword **iow, Area *ap));
16*7dd7cddfSDavid du Colombier static void     iofree ARGS((struct ioword **iow, Area *ap));
17*7dd7cddfSDavid du Colombier 
18*7dd7cddfSDavid du Colombier /*
19*7dd7cddfSDavid du Colombier  * print a command tree
20*7dd7cddfSDavid du Colombier  */
21*7dd7cddfSDavid du Colombier 
22*7dd7cddfSDavid du Colombier static void
ptree(t,indent,shf)23*7dd7cddfSDavid du Colombier ptree(t, indent, shf)
24*7dd7cddfSDavid du Colombier 	register struct op *t;
25*7dd7cddfSDavid du Colombier 	int indent;
26*7dd7cddfSDavid du Colombier 	register struct shf *shf;
27*7dd7cddfSDavid du Colombier {
28*7dd7cddfSDavid du Colombier 	register char **w;
29*7dd7cddfSDavid du Colombier 	struct ioword **ioact;
30*7dd7cddfSDavid du Colombier 	struct op *t1;
31*7dd7cddfSDavid du Colombier 
32*7dd7cddfSDavid du Colombier  Chain:
33*7dd7cddfSDavid du Colombier 	if (t == NULL)
34*7dd7cddfSDavid du Colombier 		return;
35*7dd7cddfSDavid du Colombier 	switch (t->type) {
36*7dd7cddfSDavid du Colombier 	  case TCOM:
37*7dd7cddfSDavid du Colombier 		if (t->vars)
38*7dd7cddfSDavid du Colombier 			for (w = t->vars; *w != NULL; )
39*7dd7cddfSDavid du Colombier 				fptreef(shf, indent, "%S ", *w++);
40*7dd7cddfSDavid du Colombier 		else
41*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "#no-vars# ");
42*7dd7cddfSDavid du Colombier 		if (t->args)
43*7dd7cddfSDavid du Colombier 			for (w = t->args; *w != NULL; )
44*7dd7cddfSDavid du Colombier 				fptreef(shf, indent, "%S ", *w++);
45*7dd7cddfSDavid du Colombier 		else
46*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "#no-args# ");
47*7dd7cddfSDavid du Colombier 		break;
48*7dd7cddfSDavid du Colombier 	  case TEXEC:
49*7dd7cddfSDavid du Colombier #if 0 /* ?not useful - can't be called? */
50*7dd7cddfSDavid du Colombier 		/* Print original vars */
51*7dd7cddfSDavid du Colombier 		if (t->left->vars)
52*7dd7cddfSDavid du Colombier 			for (w = t->left->vars; *w != NULL; )
53*7dd7cddfSDavid du Colombier 				fptreef(shf, indent, "%S ", *w++);
54*7dd7cddfSDavid du Colombier 		else
55*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "#no-vars# ");
56*7dd7cddfSDavid du Colombier 		/* Print expanded vars */
57*7dd7cddfSDavid du Colombier 		if (t->args)
58*7dd7cddfSDavid du Colombier 			for (w = t->args; *w != NULL; )
59*7dd7cddfSDavid du Colombier 				fptreef(shf, indent, "%s ", *w++);
60*7dd7cddfSDavid du Colombier 		else
61*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "#no-args# ");
62*7dd7cddfSDavid du Colombier 		/* Print original io */
63*7dd7cddfSDavid du Colombier 		t = t->left;
64*7dd7cddfSDavid du Colombier #else
65*7dd7cddfSDavid du Colombier 		t = t->left;
66*7dd7cddfSDavid du Colombier 		goto Chain;
67*7dd7cddfSDavid du Colombier #endif
68*7dd7cddfSDavid du Colombier 	  case TPAREN:
69*7dd7cddfSDavid du Colombier 		fptreef(shf, indent + 2, "( %T) ", t->left);
70*7dd7cddfSDavid du Colombier 		break;
71*7dd7cddfSDavid du Colombier 	  case TPIPE:
72*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%T| ", t->left);
73*7dd7cddfSDavid du Colombier 		t = t->right;
74*7dd7cddfSDavid du Colombier 		goto Chain;
75*7dd7cddfSDavid du Colombier 	  case TLIST:
76*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%T%;", t->left);
77*7dd7cddfSDavid du Colombier 		t = t->right;
78*7dd7cddfSDavid du Colombier 		goto Chain;
79*7dd7cddfSDavid du Colombier 	  case TOR:
80*7dd7cddfSDavid du Colombier 	  case TAND:
81*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%T%s %T",
82*7dd7cddfSDavid du Colombier 			t->left, (t->type==TOR) ? "||" : "&&", t->right);
83*7dd7cddfSDavid du Colombier 		break;
84*7dd7cddfSDavid du Colombier 	  case TBANG:
85*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "! ");
86*7dd7cddfSDavid du Colombier 		t = t->right;
87*7dd7cddfSDavid du Colombier 		goto Chain;
88*7dd7cddfSDavid du Colombier 	  case TDBRACKET:
89*7dd7cddfSDavid du Colombier 	  {
90*7dd7cddfSDavid du Colombier 		int i;
91*7dd7cddfSDavid du Colombier 
92*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "[[");
93*7dd7cddfSDavid du Colombier 		for (i = 0; t->args[i]; i++)
94*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, " %S", t->args[i]);
95*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, " ]] ");
96*7dd7cddfSDavid du Colombier 		break;
97*7dd7cddfSDavid du Colombier 	  }
98*7dd7cddfSDavid du Colombier #ifdef KSH
99*7dd7cddfSDavid du Colombier 	  case TSELECT:
100*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "select %s ", t->str);
101*7dd7cddfSDavid du Colombier 		/* fall through */
102*7dd7cddfSDavid du Colombier #endif /* KSH */
103*7dd7cddfSDavid du Colombier 	  case TFOR:
104*7dd7cddfSDavid du Colombier 		if (t->type == TFOR)
105*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "for %s ", t->str);
106*7dd7cddfSDavid du Colombier 		if (t->vars != NULL) {
107*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "in ");
108*7dd7cddfSDavid du Colombier 			for (w = t->vars; *w; )
109*7dd7cddfSDavid du Colombier 				fptreef(shf, indent, "%S ", *w++);
110*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "%;");
111*7dd7cddfSDavid du Colombier 		}
112*7dd7cddfSDavid du Colombier 		fptreef(shf, indent + INDENT, "do%N%T", t->left);
113*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%;done ");
114*7dd7cddfSDavid du Colombier 		break;
115*7dd7cddfSDavid du Colombier 	  case TCASE:
116*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "case %S in", t->str);
117*7dd7cddfSDavid du Colombier 		for (t1 = t->left; t1 != NULL; t1 = t1->right) {
118*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "%N(");
119*7dd7cddfSDavid du Colombier 			for (w = t1->vars; *w != NULL; w++)
120*7dd7cddfSDavid du Colombier 				fptreef(shf, indent, "%S%c", *w,
121*7dd7cddfSDavid du Colombier 					(w[1] != NULL) ? '|' : ')');
122*7dd7cddfSDavid du Colombier 			fptreef(shf, indent + INDENT, "%;%T%N;;", t1->left);
123*7dd7cddfSDavid du Colombier 		}
124*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%Nesac ");
125*7dd7cddfSDavid du Colombier 		break;
126*7dd7cddfSDavid du Colombier 	  case TIF:
127*7dd7cddfSDavid du Colombier 	  case TELIF:
128*7dd7cddfSDavid du Colombier 		/* 3 == strlen("if ") */
129*7dd7cddfSDavid du Colombier 		fptreef(shf, indent + 3, "if %T", t->left);
130*7dd7cddfSDavid du Colombier 		for (;;) {
131*7dd7cddfSDavid du Colombier 			t = t->right;
132*7dd7cddfSDavid du Colombier 			if (t->left != NULL) {
133*7dd7cddfSDavid du Colombier 				fptreef(shf, indent, "%;");
134*7dd7cddfSDavid du Colombier 				fptreef(shf, indent + INDENT, "then%N%T",
135*7dd7cddfSDavid du Colombier 					t->left);
136*7dd7cddfSDavid du Colombier 			}
137*7dd7cddfSDavid du Colombier 			if (t->right == NULL || t->right->type != TELIF)
138*7dd7cddfSDavid du Colombier 				break;
139*7dd7cddfSDavid du Colombier 			t = t->right;
140*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "%;");
141*7dd7cddfSDavid du Colombier 			/* 5 == strlen("elif ") */
142*7dd7cddfSDavid du Colombier 			fptreef(shf, indent + 5, "elif %T", t->left);
143*7dd7cddfSDavid du Colombier 		}
144*7dd7cddfSDavid du Colombier 		if (t->right != NULL) {
145*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "%;");
146*7dd7cddfSDavid du Colombier 			fptreef(shf, indent + INDENT, "else%;%T", t->right);
147*7dd7cddfSDavid du Colombier 		}
148*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%;fi ");
149*7dd7cddfSDavid du Colombier 		break;
150*7dd7cddfSDavid du Colombier 	  case TWHILE:
151*7dd7cddfSDavid du Colombier 	  case TUNTIL:
152*7dd7cddfSDavid du Colombier 		/* 6 == strlen("while"/"until") */
153*7dd7cddfSDavid du Colombier 		fptreef(shf, indent + 6, "%s %T",
154*7dd7cddfSDavid du Colombier 			(t->type==TWHILE) ? "while" : "until",
155*7dd7cddfSDavid du Colombier 			t->left);
156*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%;do");
157*7dd7cddfSDavid du Colombier 		fptreef(shf, indent + INDENT, "%;%T", t->right);
158*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%;done ");
159*7dd7cddfSDavid du Colombier 		break;
160*7dd7cddfSDavid du Colombier 	  case TBRACE:
161*7dd7cddfSDavid du Colombier 		fptreef(shf, indent + INDENT, "{%;%T", t->left);
162*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%;} ");
163*7dd7cddfSDavid du Colombier 		break;
164*7dd7cddfSDavid du Colombier 	  case TCOPROC:
165*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%T|& ", t->left);
166*7dd7cddfSDavid du Colombier 		break;
167*7dd7cddfSDavid du Colombier 	  case TASYNC:
168*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "%T& ", t->left);
169*7dd7cddfSDavid du Colombier 		break;
170*7dd7cddfSDavid du Colombier 	  case TFUNCT:
171*7dd7cddfSDavid du Colombier 		fptreef(shf, indent,
172*7dd7cddfSDavid du Colombier 			t->u.ksh_func ? "function %s %T" : "%s() %T",
173*7dd7cddfSDavid du Colombier 				t->str, t->left);
174*7dd7cddfSDavid du Colombier 		break;
175*7dd7cddfSDavid du Colombier 	  case TTIME:
176*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "time %T", t->left);
177*7dd7cddfSDavid du Colombier 		break;
178*7dd7cddfSDavid du Colombier 	  default:
179*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "<botch>");
180*7dd7cddfSDavid du Colombier 		break;
181*7dd7cddfSDavid du Colombier 	}
182*7dd7cddfSDavid du Colombier 	if ((ioact = t->ioact) != NULL) {
183*7dd7cddfSDavid du Colombier 		int	need_nl = 0;
184*7dd7cddfSDavid du Colombier 
185*7dd7cddfSDavid du Colombier 		while (*ioact != NULL)
186*7dd7cddfSDavid du Colombier 			pioact(shf, indent, *ioact++);
187*7dd7cddfSDavid du Colombier 		/* Print here documents after everything else... */
188*7dd7cddfSDavid du Colombier 		for (ioact = t->ioact; *ioact != NULL; ) {
189*7dd7cddfSDavid du Colombier 			struct ioword *iop = *ioact++;
190*7dd7cddfSDavid du Colombier 
191*7dd7cddfSDavid du Colombier 			/* heredoc is 0 when tracing (set -x) */
192*7dd7cddfSDavid du Colombier 			if ((iop->flag & IOTYPE) == IOHERE && iop->heredoc) {
193*7dd7cddfSDavid du Colombier 				tputc('\n', shf);
194*7dd7cddfSDavid du Colombier 				shf_puts(iop->heredoc, shf);
195*7dd7cddfSDavid du Colombier 				fptreef(shf, indent, "%s",
196*7dd7cddfSDavid du Colombier 					evalstr(iop->delim, 0));
197*7dd7cddfSDavid du Colombier 				need_nl = 1;
198*7dd7cddfSDavid du Colombier 			}
199*7dd7cddfSDavid du Colombier 		}
200*7dd7cddfSDavid du Colombier 		/* Last delimiter must be followed by a newline (this often
201*7dd7cddfSDavid du Colombier 		 * leads to an extra blank line, but its not worth worrying
202*7dd7cddfSDavid du Colombier 		 * about)
203*7dd7cddfSDavid du Colombier 		 */
204*7dd7cddfSDavid du Colombier 		if (need_nl)
205*7dd7cddfSDavid du Colombier 			tputc('\n', shf);
206*7dd7cddfSDavid du Colombier 	}
207*7dd7cddfSDavid du Colombier }
208*7dd7cddfSDavid du Colombier 
209*7dd7cddfSDavid du Colombier static void
pioact(shf,indent,iop)210*7dd7cddfSDavid du Colombier pioact(shf, indent, iop)
211*7dd7cddfSDavid du Colombier 	register struct shf *shf;
212*7dd7cddfSDavid du Colombier 	int indent;
213*7dd7cddfSDavid du Colombier 	register struct ioword *iop;
214*7dd7cddfSDavid du Colombier {
215*7dd7cddfSDavid du Colombier 	int flag = iop->flag;
216*7dd7cddfSDavid du Colombier 	int type = flag & IOTYPE;
217*7dd7cddfSDavid du Colombier 	int expected;
218*7dd7cddfSDavid du Colombier 
219*7dd7cddfSDavid du Colombier 	expected = (type == IOREAD || type == IORDWR || type == IOHERE) ? 0
220*7dd7cddfSDavid du Colombier 		    : (type == IOCAT || type == IOWRITE) ? 1
221*7dd7cddfSDavid du Colombier 		    : (type == IODUP && (iop->unit == !(flag & IORDUP))) ?
222*7dd7cddfSDavid du Colombier 			iop->unit
223*7dd7cddfSDavid du Colombier 		    : iop->unit + 1;
224*7dd7cddfSDavid du Colombier 	if (iop->unit != expected)
225*7dd7cddfSDavid du Colombier 		tputc('0' + iop->unit, shf);
226*7dd7cddfSDavid du Colombier 
227*7dd7cddfSDavid du Colombier 	switch (type) {
228*7dd7cddfSDavid du Colombier 	case IOREAD:
229*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "< ");
230*7dd7cddfSDavid du Colombier 		break;
231*7dd7cddfSDavid du Colombier 	case IOHERE:
232*7dd7cddfSDavid du Colombier 		if (flag&IOSKIP)
233*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "<<- ");
234*7dd7cddfSDavid du Colombier 		else
235*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "<< ");
236*7dd7cddfSDavid du Colombier 		break;
237*7dd7cddfSDavid du Colombier 	case IOCAT:
238*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, ">> ");
239*7dd7cddfSDavid du Colombier 		break;
240*7dd7cddfSDavid du Colombier 	case IOWRITE:
241*7dd7cddfSDavid du Colombier 		if (flag&IOCLOB)
242*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, ">| ");
243*7dd7cddfSDavid du Colombier 		else
244*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "> ");
245*7dd7cddfSDavid du Colombier 		break;
246*7dd7cddfSDavid du Colombier 	case IORDWR:
247*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, "<> ");
248*7dd7cddfSDavid du Colombier 		break;
249*7dd7cddfSDavid du Colombier 	case IODUP:
250*7dd7cddfSDavid du Colombier 		if (flag & IORDUP)
251*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "<&");
252*7dd7cddfSDavid du Colombier 		else
253*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, ">&");
254*7dd7cddfSDavid du Colombier 		break;
255*7dd7cddfSDavid du Colombier 	}
256*7dd7cddfSDavid du Colombier 	/* name/delim are 0 when printing syntax errors */
257*7dd7cddfSDavid du Colombier 	if (type == IOHERE) {
258*7dd7cddfSDavid du Colombier 		if (iop->delim)
259*7dd7cddfSDavid du Colombier 			fptreef(shf, indent, "%S ", iop->delim);
260*7dd7cddfSDavid du Colombier 	} else if (iop->name)
261*7dd7cddfSDavid du Colombier 		fptreef(shf, indent, (iop->flag & IONAMEXP) ? "%s " : "%S ",
262*7dd7cddfSDavid du Colombier 			iop->name);
263*7dd7cddfSDavid du Colombier }
264*7dd7cddfSDavid du Colombier 
265*7dd7cddfSDavid du Colombier 
266*7dd7cddfSDavid du Colombier /*
267*7dd7cddfSDavid du Colombier  * variants of fputc, fputs for ptreef and snptreef
268*7dd7cddfSDavid du Colombier  */
269*7dd7cddfSDavid du Colombier 
270*7dd7cddfSDavid du Colombier static void
tputC(c,shf)271*7dd7cddfSDavid du Colombier tputC(c, shf)
272*7dd7cddfSDavid du Colombier 	register int c;
273*7dd7cddfSDavid du Colombier 	register struct shf *shf;
274*7dd7cddfSDavid du Colombier {
275*7dd7cddfSDavid du Colombier 	if ((c&0x60) == 0) {		/* C0|C1 */
276*7dd7cddfSDavid du Colombier 		tputc((c&0x80) ? '$' : '^', shf);
277*7dd7cddfSDavid du Colombier 		tputc(((c&0x7F)|0x40), shf);
278*7dd7cddfSDavid du Colombier 	} else if ((c&0x7F) == 0x7F) {	/* DEL */
279*7dd7cddfSDavid du Colombier 		tputc((c&0x80) ? '$' : '^', shf);
280*7dd7cddfSDavid du Colombier 		tputc('?', shf);
281*7dd7cddfSDavid du Colombier 	} else
282*7dd7cddfSDavid du Colombier 		tputc(c, shf);
283*7dd7cddfSDavid du Colombier }
284*7dd7cddfSDavid du Colombier 
285*7dd7cddfSDavid du Colombier static void
tputS(wp,shf)286*7dd7cddfSDavid du Colombier tputS(wp, shf)
287*7dd7cddfSDavid du Colombier 	register char *wp;
288*7dd7cddfSDavid du Colombier 	register struct shf *shf;
289*7dd7cddfSDavid du Colombier {
290*7dd7cddfSDavid du Colombier 	register int c, quoted=0;
291*7dd7cddfSDavid du Colombier 
292*7dd7cddfSDavid du Colombier 	/* problems:
293*7dd7cddfSDavid du Colombier 	 *	`...` -> $(...)
294*7dd7cddfSDavid du Colombier 	 *	'foo' -> "foo"
295*7dd7cddfSDavid du Colombier 	 * could change encoding to:
296*7dd7cddfSDavid du Colombier 	 *	OQUOTE ["'] ... CQUOTE ["']
297*7dd7cddfSDavid du Colombier 	 * 	COMSUB [(`] ...\0	(handle $ ` \ and maybe " in `...` case)
298*7dd7cddfSDavid du Colombier 	 */
299*7dd7cddfSDavid du Colombier 	while (1)
300*7dd7cddfSDavid du Colombier 		switch ((c = *wp++)) {
301*7dd7cddfSDavid du Colombier 		  case EOS:
302*7dd7cddfSDavid du Colombier 			return;
303*7dd7cddfSDavid du Colombier 		  case CHAR:
304*7dd7cddfSDavid du Colombier 			tputC(*wp++, shf);
305*7dd7cddfSDavid du Colombier 			break;
306*7dd7cddfSDavid du Colombier 		  case QCHAR:
307*7dd7cddfSDavid du Colombier 			c = *wp++;
308*7dd7cddfSDavid du Colombier 			if (!quoted || (c == '"' || c == '`' || c == '$'))
309*7dd7cddfSDavid du Colombier 				tputc('\\', shf);
310*7dd7cddfSDavid du Colombier 			tputC(c, shf);
311*7dd7cddfSDavid du Colombier 			break;
312*7dd7cddfSDavid du Colombier 		  case COMSUB:
313*7dd7cddfSDavid du Colombier 			tputc('$', shf);
314*7dd7cddfSDavid du Colombier 			tputc('(', shf);
315*7dd7cddfSDavid du Colombier 			while (*wp != 0)
316*7dd7cddfSDavid du Colombier 				tputC(*wp++, shf);
317*7dd7cddfSDavid du Colombier 			tputc(')', shf);
318*7dd7cddfSDavid du Colombier 			wp++;
319*7dd7cddfSDavid du Colombier 			break;
320*7dd7cddfSDavid du Colombier 		  case EXPRSUB:
321*7dd7cddfSDavid du Colombier 			tputc('$', shf);
322*7dd7cddfSDavid du Colombier 			tputc('(', shf);
323*7dd7cddfSDavid du Colombier 			tputc('(', shf);
324*7dd7cddfSDavid du Colombier 			while (*wp != 0)
325*7dd7cddfSDavid du Colombier 				tputC(*wp++, shf);
326*7dd7cddfSDavid du Colombier 			tputc(')', shf);
327*7dd7cddfSDavid du Colombier 			tputc(')', shf);
328*7dd7cddfSDavid du Colombier 			wp++;
329*7dd7cddfSDavid du Colombier 			break;
330*7dd7cddfSDavid du Colombier 		  case OQUOTE:
331*7dd7cddfSDavid du Colombier 		  	quoted = 1;
332*7dd7cddfSDavid du Colombier 			tputc('"', shf);
333*7dd7cddfSDavid du Colombier 			break;
334*7dd7cddfSDavid du Colombier 		  case CQUOTE:
335*7dd7cddfSDavid du Colombier 			quoted = 0;
336*7dd7cddfSDavid du Colombier 			tputc('"', shf);
337*7dd7cddfSDavid du Colombier 			break;
338*7dd7cddfSDavid du Colombier 		  case OSUBST:
339*7dd7cddfSDavid du Colombier 			tputc('$', shf);
340*7dd7cddfSDavid du Colombier 			if (*wp++ == '{')
341*7dd7cddfSDavid du Colombier 				tputc('{', shf);
342*7dd7cddfSDavid du Colombier 			while ((c = *wp++) != 0)
343*7dd7cddfSDavid du Colombier 				tputC(c, shf);
344*7dd7cddfSDavid du Colombier 			break;
345*7dd7cddfSDavid du Colombier 		  case CSUBST:
346*7dd7cddfSDavid du Colombier 			if (*wp++ == '}')
347*7dd7cddfSDavid du Colombier 				tputc('}', shf);
348*7dd7cddfSDavid du Colombier 			break;
349*7dd7cddfSDavid du Colombier #ifdef KSH
350*7dd7cddfSDavid du Colombier 		  case OPAT:
351*7dd7cddfSDavid du Colombier 			tputc(*wp++, shf);
352*7dd7cddfSDavid du Colombier 			tputc('(', shf);
353*7dd7cddfSDavid du Colombier 			break;
354*7dd7cddfSDavid du Colombier 		  case SPAT:
355*7dd7cddfSDavid du Colombier 			tputc('|', shf);
356*7dd7cddfSDavid du Colombier 			break;
357*7dd7cddfSDavid du Colombier 		  case CPAT:
358*7dd7cddfSDavid du Colombier 			tputc(')', shf);
359*7dd7cddfSDavid du Colombier 			break;
360*7dd7cddfSDavid du Colombier #endif /* KSH */
361*7dd7cddfSDavid du Colombier 		}
362*7dd7cddfSDavid du Colombier }
363*7dd7cddfSDavid du Colombier 
364*7dd7cddfSDavid du Colombier /*
365*7dd7cddfSDavid du Colombier  * this is the _only_ way to reliably handle
366*7dd7cddfSDavid du Colombier  * variable args with an ANSI compiler
367*7dd7cddfSDavid du Colombier  */
368*7dd7cddfSDavid du Colombier /* VARARGS */
369*7dd7cddfSDavid du Colombier int
370*7dd7cddfSDavid du Colombier #ifdef HAVE_PROTOTYPES
fptreef(struct shf * shf,int indent,const char * fmt,...)371*7dd7cddfSDavid du Colombier fptreef(struct shf *shf, int indent, const char *fmt, ...)
372*7dd7cddfSDavid du Colombier #else
373*7dd7cddfSDavid du Colombier fptreef(shf, indent, fmt, va_alist)
374*7dd7cddfSDavid du Colombier   struct shf *shf;
375*7dd7cddfSDavid du Colombier   int indent;
376*7dd7cddfSDavid du Colombier   const char *fmt;
377*7dd7cddfSDavid du Colombier   va_dcl
378*7dd7cddfSDavid du Colombier #endif
379*7dd7cddfSDavid du Colombier {
380*7dd7cddfSDavid du Colombier   va_list	va;
381*7dd7cddfSDavid du Colombier 
382*7dd7cddfSDavid du Colombier   SH_VA_START(va, fmt);
383*7dd7cddfSDavid du Colombier 
384*7dd7cddfSDavid du Colombier   vfptreef(shf, indent, fmt, va);
385*7dd7cddfSDavid du Colombier   va_end(va);
386*7dd7cddfSDavid du Colombier   return 0;
387*7dd7cddfSDavid du Colombier }
388*7dd7cddfSDavid du Colombier 
389*7dd7cddfSDavid du Colombier /* VARARGS */
390*7dd7cddfSDavid du Colombier char *
391*7dd7cddfSDavid du Colombier #ifdef HAVE_PROTOTYPES
snptreef(char * s,int n,const char * fmt,...)392*7dd7cddfSDavid du Colombier snptreef(char *s, int n, const char *fmt, ...)
393*7dd7cddfSDavid du Colombier #else
394*7dd7cddfSDavid du Colombier snptreef(s, n, fmt, va_alist)
395*7dd7cddfSDavid du Colombier   char *s;
396*7dd7cddfSDavid du Colombier   int n;
397*7dd7cddfSDavid du Colombier   const char *fmt;
398*7dd7cddfSDavid du Colombier   va_dcl
399*7dd7cddfSDavid du Colombier #endif
400*7dd7cddfSDavid du Colombier {
401*7dd7cddfSDavid du Colombier   va_list va;
402*7dd7cddfSDavid du Colombier   struct shf shf;
403*7dd7cddfSDavid du Colombier 
404*7dd7cddfSDavid du Colombier   shf_sopen(s, n, SHF_WR | (s ? 0 : SHF_DYNAMIC), &shf);
405*7dd7cddfSDavid du Colombier 
406*7dd7cddfSDavid du Colombier   SH_VA_START(va, fmt);
407*7dd7cddfSDavid du Colombier   vfptreef(&shf, 0, fmt, va);
408*7dd7cddfSDavid du Colombier   va_end(va);
409*7dd7cddfSDavid du Colombier 
410*7dd7cddfSDavid du Colombier   return shf_sclose(&shf); /* null terminates */
411*7dd7cddfSDavid du Colombier }
412*7dd7cddfSDavid du Colombier 
413*7dd7cddfSDavid du Colombier static void
vfptreef(shf,indent,fmt,va)414*7dd7cddfSDavid du Colombier vfptreef(shf, indent, fmt, va)
415*7dd7cddfSDavid du Colombier 	register struct shf *shf;
416*7dd7cddfSDavid du Colombier 	int indent;
417*7dd7cddfSDavid du Colombier 	const char *fmt;
418*7dd7cddfSDavid du Colombier 	register va_list va;
419*7dd7cddfSDavid du Colombier {
420*7dd7cddfSDavid du Colombier 	register int c;
421*7dd7cddfSDavid du Colombier 
422*7dd7cddfSDavid du Colombier 	while ((c = *fmt++))
423*7dd7cddfSDavid du Colombier 	    if (c == '%') {
424*7dd7cddfSDavid du Colombier 		register long n;
425*7dd7cddfSDavid du Colombier 		register char *p;
426*7dd7cddfSDavid du Colombier 		int neg;
427*7dd7cddfSDavid du Colombier 
428*7dd7cddfSDavid du Colombier 		switch ((c = *fmt++)) {
429*7dd7cddfSDavid du Colombier 		  case 'c':
430*7dd7cddfSDavid du Colombier 			tputc(va_arg(va, int), shf);
431*7dd7cddfSDavid du Colombier 			break;
432*7dd7cddfSDavid du Colombier 		  case 's':
433*7dd7cddfSDavid du Colombier 			p = va_arg(va, char *);
434*7dd7cddfSDavid du Colombier 			while (*p)
435*7dd7cddfSDavid du Colombier 				tputc(*p++, shf);
436*7dd7cddfSDavid du Colombier 			break;
437*7dd7cddfSDavid du Colombier 		  case 'S':	/* word */
438*7dd7cddfSDavid du Colombier 			p = va_arg(va, char *);
439*7dd7cddfSDavid du Colombier 			tputS(p, shf);
440*7dd7cddfSDavid du Colombier 			break;
441*7dd7cddfSDavid du Colombier 		  case 'd': case 'u': /* decimal */
442*7dd7cddfSDavid du Colombier 			n = (c == 'd') ? va_arg(va, int)
443*7dd7cddfSDavid du Colombier 				       : va_arg(va, unsigned int);
444*7dd7cddfSDavid du Colombier 			neg = c=='d' && n<0;
445*7dd7cddfSDavid du Colombier 			p = ulton((neg) ? -n : n, 10);
446*7dd7cddfSDavid du Colombier 			if (neg)
447*7dd7cddfSDavid du Colombier 				*--p = '-';
448*7dd7cddfSDavid du Colombier 			while (*p)
449*7dd7cddfSDavid du Colombier 				tputc(*p++, shf);
450*7dd7cddfSDavid du Colombier 			break;
451*7dd7cddfSDavid du Colombier 		  case 'T':	/* format tree */
452*7dd7cddfSDavid du Colombier 			ptree(va_arg(va, struct op *), indent, shf);
453*7dd7cddfSDavid du Colombier 			break;
454*7dd7cddfSDavid du Colombier 		  case ';':	/* newline or ; */
455*7dd7cddfSDavid du Colombier 		  case 'N':	/* newline or space */
456*7dd7cddfSDavid du Colombier 			if (shf->flags & SHF_STRING) {
457*7dd7cddfSDavid du Colombier 				if (c == ';')
458*7dd7cddfSDavid du Colombier 					tputc(';', shf);
459*7dd7cddfSDavid du Colombier 				tputc(' ', shf);
460*7dd7cddfSDavid du Colombier 			} else {
461*7dd7cddfSDavid du Colombier 				int i;
462*7dd7cddfSDavid du Colombier 
463*7dd7cddfSDavid du Colombier 				tputc('\n', shf);
464*7dd7cddfSDavid du Colombier 				for (i = indent; i >= 8; i -= 8)
465*7dd7cddfSDavid du Colombier 					tputc('\t', shf);
466*7dd7cddfSDavid du Colombier 				for (; i > 0; --i)
467*7dd7cddfSDavid du Colombier 					tputc(' ', shf);
468*7dd7cddfSDavid du Colombier 			}
469*7dd7cddfSDavid du Colombier 			break;
470*7dd7cddfSDavid du Colombier 		  case 'R':
471*7dd7cddfSDavid du Colombier 			pioact(shf, indent, va_arg(va, struct ioword *));
472*7dd7cddfSDavid du Colombier 			break;
473*7dd7cddfSDavid du Colombier 		  default:
474*7dd7cddfSDavid du Colombier 			tputc(c, shf);
475*7dd7cddfSDavid du Colombier 			break;
476*7dd7cddfSDavid du Colombier 		}
477*7dd7cddfSDavid du Colombier 	    } else
478*7dd7cddfSDavid du Colombier 		tputc(c, shf);
479*7dd7cddfSDavid du Colombier }
480*7dd7cddfSDavid du Colombier 
481*7dd7cddfSDavid du Colombier /*
482*7dd7cddfSDavid du Colombier  * copy tree (for function definition)
483*7dd7cddfSDavid du Colombier  */
484*7dd7cddfSDavid du Colombier 
485*7dd7cddfSDavid du Colombier struct op *
tcopy(t,ap)486*7dd7cddfSDavid du Colombier tcopy(t, ap)
487*7dd7cddfSDavid du Colombier 	register struct op *t;
488*7dd7cddfSDavid du Colombier 	Area *ap;
489*7dd7cddfSDavid du Colombier {
490*7dd7cddfSDavid du Colombier 	register struct op *r;
491*7dd7cddfSDavid du Colombier 	register char **tw, **rw;
492*7dd7cddfSDavid du Colombier 
493*7dd7cddfSDavid du Colombier 	if (t == NULL)
494*7dd7cddfSDavid du Colombier 		return NULL;
495*7dd7cddfSDavid du Colombier 
496*7dd7cddfSDavid du Colombier 	r = (struct op *) alloc(sizeof(struct op), ap);
497*7dd7cddfSDavid du Colombier 
498*7dd7cddfSDavid du Colombier 	r->type = t->type;
499*7dd7cddfSDavid du Colombier 	r->u.evalflags = t->u.evalflags;
500*7dd7cddfSDavid du Colombier 
501*7dd7cddfSDavid du Colombier 	r->str = t->type == TCASE ? wdcopy(t->str, ap) : str_save(t->str, ap);
502*7dd7cddfSDavid du Colombier 
503*7dd7cddfSDavid du Colombier 	if (t->vars == NULL)
504*7dd7cddfSDavid du Colombier 		r->vars = NULL;
505*7dd7cddfSDavid du Colombier 	else {
506*7dd7cddfSDavid du Colombier 		for (tw = t->vars; *tw++ != NULL; )
507*7dd7cddfSDavid du Colombier 			;
508*7dd7cddfSDavid du Colombier 		rw = r->vars = (char **)
509*7dd7cddfSDavid du Colombier 			alloc((int)(tw - t->vars) * sizeof(*tw), ap);
510*7dd7cddfSDavid du Colombier 		for (tw = t->vars; *tw != NULL; )
511*7dd7cddfSDavid du Colombier 			*rw++ = wdcopy(*tw++, ap);
512*7dd7cddfSDavid du Colombier 		*rw = NULL;
513*7dd7cddfSDavid du Colombier 	}
514*7dd7cddfSDavid du Colombier 
515*7dd7cddfSDavid du Colombier 	if (t->args == NULL)
516*7dd7cddfSDavid du Colombier 		r->args = NULL;
517*7dd7cddfSDavid du Colombier 	else {
518*7dd7cddfSDavid du Colombier 		for (tw = t->args; *tw++ != NULL; )
519*7dd7cddfSDavid du Colombier 			;
520*7dd7cddfSDavid du Colombier 		rw = r->args = (char **)
521*7dd7cddfSDavid du Colombier 			alloc((int)(tw - t->args) * sizeof(*tw), ap);
522*7dd7cddfSDavid du Colombier 		for (tw = t->args; *tw != NULL; )
523*7dd7cddfSDavid du Colombier 			*rw++ = wdcopy(*tw++, ap);
524*7dd7cddfSDavid du Colombier 		*rw = NULL;
525*7dd7cddfSDavid du Colombier 	}
526*7dd7cddfSDavid du Colombier 
527*7dd7cddfSDavid du Colombier 	r->ioact = (t->ioact == NULL) ? NULL : iocopy(t->ioact, ap);
528*7dd7cddfSDavid du Colombier 
529*7dd7cddfSDavid du Colombier 	r->left = tcopy(t->left, ap);
530*7dd7cddfSDavid du Colombier 	r->right = tcopy(t->right, ap);
531*7dd7cddfSDavid du Colombier 	r->lineno = t->lineno;
532*7dd7cddfSDavid du Colombier 
533*7dd7cddfSDavid du Colombier 	return r;
534*7dd7cddfSDavid du Colombier }
535*7dd7cddfSDavid du Colombier 
536*7dd7cddfSDavid du Colombier char *
wdcopy(wp,ap)537*7dd7cddfSDavid du Colombier wdcopy(wp, ap)
538*7dd7cddfSDavid du Colombier 	const char *wp;
539*7dd7cddfSDavid du Colombier 	Area *ap;
540*7dd7cddfSDavid du Colombier {
541*7dd7cddfSDavid du Colombier 	size_t len = wdscan(wp, EOS) - wp;
542*7dd7cddfSDavid du Colombier 	return memcpy(alloc(len, ap), wp, len);
543*7dd7cddfSDavid du Colombier }
544*7dd7cddfSDavid du Colombier 
545*7dd7cddfSDavid du Colombier /* return the position of prefix c in wp plus 1 */
546*7dd7cddfSDavid du Colombier char *
wdscan(wp,c)547*7dd7cddfSDavid du Colombier wdscan(wp, c)
548*7dd7cddfSDavid du Colombier 	register const char *wp;
549*7dd7cddfSDavid du Colombier 	register int c;
550*7dd7cddfSDavid du Colombier {
551*7dd7cddfSDavid du Colombier 	register int nest = 0;
552*7dd7cddfSDavid du Colombier 
553*7dd7cddfSDavid du Colombier 	while (1)
554*7dd7cddfSDavid du Colombier 		switch (*wp++) {
555*7dd7cddfSDavid du Colombier 		  case EOS:
556*7dd7cddfSDavid du Colombier 			return (char *) wp;
557*7dd7cddfSDavid du Colombier 		  case CHAR:
558*7dd7cddfSDavid du Colombier 		  case QCHAR:
559*7dd7cddfSDavid du Colombier 			wp++;
560*7dd7cddfSDavid du Colombier 			break;
561*7dd7cddfSDavid du Colombier 		  case COMSUB:
562*7dd7cddfSDavid du Colombier 		  case EXPRSUB:
563*7dd7cddfSDavid du Colombier 			while (*wp++ != 0)
564*7dd7cddfSDavid du Colombier 				;
565*7dd7cddfSDavid du Colombier 			break;
566*7dd7cddfSDavid du Colombier 		  case OQUOTE:
567*7dd7cddfSDavid du Colombier 		  case CQUOTE:
568*7dd7cddfSDavid du Colombier 			break;
569*7dd7cddfSDavid du Colombier 		  case OSUBST:
570*7dd7cddfSDavid du Colombier 			nest++;
571*7dd7cddfSDavid du Colombier 			while (*wp++ != '\0')
572*7dd7cddfSDavid du Colombier 				;
573*7dd7cddfSDavid du Colombier 			break;
574*7dd7cddfSDavid du Colombier 		  case CSUBST:
575*7dd7cddfSDavid du Colombier 			wp++;
576*7dd7cddfSDavid du Colombier 			if (c == CSUBST && nest == 0)
577*7dd7cddfSDavid du Colombier 				return (char *) wp;
578*7dd7cddfSDavid du Colombier 			nest--;
579*7dd7cddfSDavid du Colombier 			break;
580*7dd7cddfSDavid du Colombier #ifdef KSH
581*7dd7cddfSDavid du Colombier 		  case OPAT:
582*7dd7cddfSDavid du Colombier 			nest++;
583*7dd7cddfSDavid du Colombier 			wp++;
584*7dd7cddfSDavid du Colombier 			break;
585*7dd7cddfSDavid du Colombier 		  case SPAT:
586*7dd7cddfSDavid du Colombier 		  case CPAT:
587*7dd7cddfSDavid du Colombier 			if (c == wp[-1] && nest == 0)
588*7dd7cddfSDavid du Colombier 				return (char *) wp;
589*7dd7cddfSDavid du Colombier 			if (wp[-1] == CPAT)
590*7dd7cddfSDavid du Colombier 				nest--;
591*7dd7cddfSDavid du Colombier 			break;
592*7dd7cddfSDavid du Colombier #endif /* KSH */
593*7dd7cddfSDavid du Colombier 		  default:
594*7dd7cddfSDavid du Colombier 			internal_errorf(0,
595*7dd7cddfSDavid du Colombier 				"wdscan: unknown char 0x%x (carrying on)",
596*7dd7cddfSDavid du Colombier 				wp[-1]);
597*7dd7cddfSDavid du Colombier 		}
598*7dd7cddfSDavid du Colombier }
599*7dd7cddfSDavid du Colombier 
600*7dd7cddfSDavid du Colombier /* return a copy of wp without any of the mark up characters and
601*7dd7cddfSDavid du Colombier  * with quote characters (" ' \) stripped.
602*7dd7cddfSDavid du Colombier  * (string is allocated from ATEMP)
603*7dd7cddfSDavid du Colombier  */
604*7dd7cddfSDavid du Colombier char *
wdstrip(wp)605*7dd7cddfSDavid du Colombier wdstrip(wp)
606*7dd7cddfSDavid du Colombier 	const char *wp;
607*7dd7cddfSDavid du Colombier {
608*7dd7cddfSDavid du Colombier 	struct shf shf;
609*7dd7cddfSDavid du Colombier 	int c;
610*7dd7cddfSDavid du Colombier 
611*7dd7cddfSDavid du Colombier 	shf_sopen((char *) 0, 32, SHF_WR | SHF_DYNAMIC, &shf);
612*7dd7cddfSDavid du Colombier 
613*7dd7cddfSDavid du Colombier 	/* problems:
614*7dd7cddfSDavid du Colombier 	 *	`...` -> $(...)
615*7dd7cddfSDavid du Colombier 	 *	x${foo:-"hi"} -> x${foo:-hi}
616*7dd7cddfSDavid du Colombier 	 *	x${foo:-'hi'} -> x${foo:-hi}
617*7dd7cddfSDavid du Colombier 	 */
618*7dd7cddfSDavid du Colombier 	while (1)
619*7dd7cddfSDavid du Colombier 		switch ((c = *wp++)) {
620*7dd7cddfSDavid du Colombier 		  case EOS:
621*7dd7cddfSDavid du Colombier 			return shf_sclose(&shf); /* null terminates */
622*7dd7cddfSDavid du Colombier 		  case CHAR:
623*7dd7cddfSDavid du Colombier 		  case QCHAR:
624*7dd7cddfSDavid du Colombier 			shf_putchar(*wp++, &shf);
625*7dd7cddfSDavid du Colombier 			break;
626*7dd7cddfSDavid du Colombier 		  case COMSUB:
627*7dd7cddfSDavid du Colombier 			shf_putchar('$', &shf);
628*7dd7cddfSDavid du Colombier 			shf_putchar('(', &shf);
629*7dd7cddfSDavid du Colombier 			while (*wp != 0)
630*7dd7cddfSDavid du Colombier 				shf_putchar(*wp++, &shf);
631*7dd7cddfSDavid du Colombier 			shf_putchar(')', &shf);
632*7dd7cddfSDavid du Colombier 			break;
633*7dd7cddfSDavid du Colombier 		  case EXPRSUB:
634*7dd7cddfSDavid du Colombier 			shf_putchar('$', &shf);
635*7dd7cddfSDavid du Colombier 			shf_putchar('(', &shf);
636*7dd7cddfSDavid du Colombier 			shf_putchar('(', &shf);
637*7dd7cddfSDavid du Colombier 			while (*wp != 0)
638*7dd7cddfSDavid du Colombier 				shf_putchar(*wp++, &shf);
639*7dd7cddfSDavid du Colombier 			shf_putchar(')', &shf);
640*7dd7cddfSDavid du Colombier 			shf_putchar(')', &shf);
641*7dd7cddfSDavid du Colombier 			break;
642*7dd7cddfSDavid du Colombier 		  case OQUOTE:
643*7dd7cddfSDavid du Colombier 			break;
644*7dd7cddfSDavid du Colombier 		  case CQUOTE:
645*7dd7cddfSDavid du Colombier 			break;
646*7dd7cddfSDavid du Colombier 		  case OSUBST:
647*7dd7cddfSDavid du Colombier 			shf_putchar('$', &shf);
648*7dd7cddfSDavid du Colombier 			if (*wp++ == '{')
649*7dd7cddfSDavid du Colombier 			    shf_putchar('{', &shf);
650*7dd7cddfSDavid du Colombier 			while ((c = *wp++) != 0)
651*7dd7cddfSDavid du Colombier 				shf_putchar(c, &shf);
652*7dd7cddfSDavid du Colombier 			break;
653*7dd7cddfSDavid du Colombier 		  case CSUBST:
654*7dd7cddfSDavid du Colombier 			if (*wp++ == '}')
655*7dd7cddfSDavid du Colombier 				shf_putchar('}', &shf);
656*7dd7cddfSDavid du Colombier 			break;
657*7dd7cddfSDavid du Colombier #ifdef KSH
658*7dd7cddfSDavid du Colombier 		  case OPAT:
659*7dd7cddfSDavid du Colombier 			shf_putchar(*wp++, &shf);
660*7dd7cddfSDavid du Colombier 			shf_putchar('(', &shf);
661*7dd7cddfSDavid du Colombier 			break;
662*7dd7cddfSDavid du Colombier 		  case SPAT:
663*7dd7cddfSDavid du Colombier 			shf_putchar('|', &shf);
664*7dd7cddfSDavid du Colombier 			break;
665*7dd7cddfSDavid du Colombier 		  case CPAT:
666*7dd7cddfSDavid du Colombier 			shf_putchar(')', &shf);
667*7dd7cddfSDavid du Colombier 			break;
668*7dd7cddfSDavid du Colombier #endif /* KSH */
669*7dd7cddfSDavid du Colombier 		}
670*7dd7cddfSDavid du Colombier }
671*7dd7cddfSDavid du Colombier 
672*7dd7cddfSDavid du Colombier static	struct ioword **
iocopy(iow,ap)673*7dd7cddfSDavid du Colombier iocopy(iow, ap)
674*7dd7cddfSDavid du Colombier 	register struct ioword **iow;
675*7dd7cddfSDavid du Colombier 	Area *ap;
676*7dd7cddfSDavid du Colombier {
677*7dd7cddfSDavid du Colombier 	register struct ioword **ior;
678*7dd7cddfSDavid du Colombier 	register int i;
679*7dd7cddfSDavid du Colombier 
680*7dd7cddfSDavid du Colombier 	for (ior = iow; *ior++ != NULL; )
681*7dd7cddfSDavid du Colombier 		;
682*7dd7cddfSDavid du Colombier 	ior = (struct ioword **) alloc((int)(ior - iow) * sizeof(*ior), ap);
683*7dd7cddfSDavid du Colombier 
684*7dd7cddfSDavid du Colombier 	for (i = 0; iow[i] != NULL; i++) {
685*7dd7cddfSDavid du Colombier 		register struct ioword *p, *q;
686*7dd7cddfSDavid du Colombier 
687*7dd7cddfSDavid du Colombier 		p = iow[i];
688*7dd7cddfSDavid du Colombier 		q = (struct ioword *) alloc(sizeof(*p), ap);
689*7dd7cddfSDavid du Colombier 		ior[i] = q;
690*7dd7cddfSDavid du Colombier 		*q = *p;
691*7dd7cddfSDavid du Colombier 		if (p->name != (char *) 0)
692*7dd7cddfSDavid du Colombier 			q->name = wdcopy(p->name, ap);
693*7dd7cddfSDavid du Colombier 		if (p->delim != (char *) 0)
694*7dd7cddfSDavid du Colombier 			q->delim = wdcopy(p->delim, ap);
695*7dd7cddfSDavid du Colombier 		if (p->heredoc != (char *) 0)
696*7dd7cddfSDavid du Colombier 			q->heredoc = str_save(p->heredoc, ap);
697*7dd7cddfSDavid du Colombier 	}
698*7dd7cddfSDavid du Colombier 	ior[i] = NULL;
699*7dd7cddfSDavid du Colombier 
700*7dd7cddfSDavid du Colombier 	return ior;
701*7dd7cddfSDavid du Colombier }
702*7dd7cddfSDavid du Colombier 
703*7dd7cddfSDavid du Colombier /*
704*7dd7cddfSDavid du Colombier  * free tree (for function definition)
705*7dd7cddfSDavid du Colombier  */
706*7dd7cddfSDavid du Colombier 
707*7dd7cddfSDavid du Colombier void
tfree(t,ap)708*7dd7cddfSDavid du Colombier tfree(t, ap)
709*7dd7cddfSDavid du Colombier 	register struct op *t;
710*7dd7cddfSDavid du Colombier 	Area *ap;
711*7dd7cddfSDavid du Colombier {
712*7dd7cddfSDavid du Colombier 	register char **w;
713*7dd7cddfSDavid du Colombier 
714*7dd7cddfSDavid du Colombier 	if (t == NULL)
715*7dd7cddfSDavid du Colombier 		return;
716*7dd7cddfSDavid du Colombier 
717*7dd7cddfSDavid du Colombier 	if (t->str != NULL)
718*7dd7cddfSDavid du Colombier 		afree((void*)t->str, ap);
719*7dd7cddfSDavid du Colombier 
720*7dd7cddfSDavid du Colombier 	if (t->vars != NULL) {
721*7dd7cddfSDavid du Colombier 		for (w = t->vars; *w != NULL; w++)
722*7dd7cddfSDavid du Colombier 			afree((void*)*w, ap);
723*7dd7cddfSDavid du Colombier 		afree((void*)t->vars, ap);
724*7dd7cddfSDavid du Colombier 	}
725*7dd7cddfSDavid du Colombier 
726*7dd7cddfSDavid du Colombier 	if (t->args != NULL) {
727*7dd7cddfSDavid du Colombier 		for (w = t->args; *w != NULL; w++)
728*7dd7cddfSDavid du Colombier 			afree((void*)*w, ap);
729*7dd7cddfSDavid du Colombier 		afree((void*)t->args, ap);
730*7dd7cddfSDavid du Colombier 	}
731*7dd7cddfSDavid du Colombier 
732*7dd7cddfSDavid du Colombier 	if (t->ioact != NULL)
733*7dd7cddfSDavid du Colombier 		iofree(t->ioact, ap);
734*7dd7cddfSDavid du Colombier 
735*7dd7cddfSDavid du Colombier 	tfree(t->left, ap);
736*7dd7cddfSDavid du Colombier 	tfree(t->right, ap);
737*7dd7cddfSDavid du Colombier 
738*7dd7cddfSDavid du Colombier 	afree((void*)t, ap);
739*7dd7cddfSDavid du Colombier }
740*7dd7cddfSDavid du Colombier 
741*7dd7cddfSDavid du Colombier static	void
iofree(iow,ap)742*7dd7cddfSDavid du Colombier iofree(iow, ap)
743*7dd7cddfSDavid du Colombier 	struct ioword **iow;
744*7dd7cddfSDavid du Colombier 	Area *ap;
745*7dd7cddfSDavid du Colombier {
746*7dd7cddfSDavid du Colombier 	register struct ioword **iop;
747*7dd7cddfSDavid du Colombier 	register struct ioword *p;
748*7dd7cddfSDavid du Colombier 
749*7dd7cddfSDavid du Colombier 	for (iop = iow; (p = *iop++) != NULL; ) {
750*7dd7cddfSDavid du Colombier 		if (p->name != NULL)
751*7dd7cddfSDavid du Colombier 			afree((void*)p->name, ap);
752*7dd7cddfSDavid du Colombier 		if (p->delim != NULL)
753*7dd7cddfSDavid du Colombier 			afree((void*)p->delim, ap);
754*7dd7cddfSDavid du Colombier 		if (p->heredoc != NULL)
755*7dd7cddfSDavid du Colombier 			afree((void*)p->heredoc, ap);
756*7dd7cddfSDavid du Colombier 		afree((void*)p, ap);
757*7dd7cddfSDavid du Colombier 	}
758*7dd7cddfSDavid du Colombier }
759