18 static void 	ptree ARGS((struct op *t, int indent, struct shf *f));
19 static void 	pioact ARGS((struct shf *f, int indent, struct ioword *iop));
22 static void	vfptreef ARGS((struct shf *shf, int indent, const char *fmt, va_list va));
31 ptree(t, indent, shf)  in ptree()  argument
33 	int indent;
47 				fptreef(shf, indent, "%S ", *w++);
49 			fptreef(shf, indent, "#no-vars# ");
52 				fptreef(shf, indent, "%S ", *w++);
54 			fptreef(shf, indent, "#no-args# ");
61 				fptreef(shf, indent, "%S ", *w++);
63 			fptreef(shf, indent, "#no-vars# ");
67 				fptreef(shf, indent, "%s ", *w++);
69 			fptreef(shf, indent, "#no-args# ");
77 		fptreef(shf, indent + 2, "( %T) ", t->left);
80 		fptreef(shf, indent, "%T| ", t->left);
84 		fptreef(shf, indent, "%T%;", t->left);
89 		fptreef(shf, indent, "%T%s %T",
93 		fptreef(shf, indent, "! ");
100 		fptreef(shf, indent, "[[");
102 			fptreef(shf, indent, " %S", t->args[i]);
103 		fptreef(shf, indent, " ]] ");
108 		fptreef(shf, indent, "select %s ", t->str);
113 			fptreef(shf, indent, "for %s ", t->str);
115 			fptreef(shf, indent, "in ");
117 				fptreef(shf, indent, "%S ", *w++);
118 			fptreef(shf, indent, "%;");
120 		fptreef(shf, indent + INDENT, "do%N%T", t->left);
121 		fptreef(shf, indent, "%;done ");
124 		fptreef(shf, indent, "case %S in", t->str);
126 			fptreef(shf, indent, "%N(");
128 				fptreef(shf, indent, "%S%c", *w,
130 			fptreef(shf, indent + INDENT, "%;%T%N;;", t1->left);
132 		fptreef(shf, indent, "%Nesac ");
137 		fptreef(shf, indent + 3, "if %T", t->left);
141 				fptreef(shf, indent, "%;");
142 				fptreef(shf, indent + INDENT, "then%N%T",
148 			fptreef(shf, indent, "%;");
150 			fptreef(shf, indent + 5, "elif %T", t->left);
153 			fptreef(shf, indent, "%;");
154 			fptreef(shf, indent + INDENT, "else%;%T", t->right);
156 		fptreef(shf, indent, "%;fi ");
161 		fptreef(shf, indent + 6, "%s %T",
164 		fptreef(shf, indent, "%;do");
165 		fptreef(shf, indent + INDENT, "%;%T", t->right);
166 		fptreef(shf, indent, "%;done ");
169 		fptreef(shf, indent + INDENT, "{%;%T", t->left);
170 		fptreef(shf, indent, "%;} ");
173 		fptreef(shf, indent, "%T|& ", t->left);
176 		fptreef(shf, indent, "%T& ", t->left);
179 		fptreef(shf, indent,
184 		fptreef(shf, indent, "time %T", t->left);
187 		fptreef(shf, indent, "<botch>");
194 			pioact(shf, indent, *ioact++);
203 				fptreef(shf, indent, "%s",
218 pioact(shf, indent, iop)  in pioact()  argument
220 	int indent;
237 		fptreef(shf, indent, "< ");
241 			fptreef(shf, indent, "<<- ");
243 			fptreef(shf, indent, "<< ");
246 		fptreef(shf, indent, ">> ");
250 			fptreef(shf, indent, ">| ");
252 			fptreef(shf, indent, "> ");
255 		fptreef(shf, indent, "<> ");
259 			fptreef(shf, indent, "<&");
261 			fptreef(shf, indent, ">&");
267 			fptreef(shf, indent, "%S ", iop->delim);
269 		fptreef(shf, indent, (iop->flag & IONAMEXP) ? "%s " : "%S ",
378 fptreef(struct shf *shf, int indent, const char *fmt, ...)  in fptreef()  argument
384   vfptreef(shf, indent, fmt, va);  in fptreef()
406 vfptreef(shf, indent, fmt, va)  in vfptreef()  argument
408 	int indent;
444 			ptree(va_arg(va, struct op *), indent, shf);
456 				for (i = indent; i >= 8; i -= 8)
463 			pioact(shf, indent, va_arg(va, struct ioword *));