show.c revision 1.13 1 1.13 tls /* $NetBSD: show.c,v 1.13 1997/01/11 02:04:47 tls Exp $ */
2 1.10 cgd
3 1.1 cgd /*-
4 1.5 jtc * Copyright (c) 1991, 1993
5 1.5 jtc * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * This code is derived from software contributed to Berkeley by
8 1.1 cgd * Kenneth Almquist.
9 1.1 cgd *
10 1.1 cgd * Redistribution and use in source and binary forms, with or without
11 1.1 cgd * modification, are permitted provided that the following conditions
12 1.1 cgd * are met:
13 1.1 cgd * 1. Redistributions of source code must retain the above copyright
14 1.1 cgd * notice, this list of conditions and the following disclaimer.
15 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
16 1.1 cgd * notice, this list of conditions and the following disclaimer in the
17 1.1 cgd * documentation and/or other materials provided with the distribution.
18 1.1 cgd * 3. All advertising materials mentioning features or use of this software
19 1.1 cgd * must display the following acknowledgement:
20 1.1 cgd * This product includes software developed by the University of
21 1.1 cgd * California, Berkeley and its contributors.
22 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
23 1.1 cgd * may be used to endorse or promote products derived from this software
24 1.1 cgd * without specific prior written permission.
25 1.1 cgd *
26 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
27 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
29 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
30 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
31 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
32 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
33 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
34 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
35 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 1.1 cgd * SUCH DAMAGE.
37 1.1 cgd */
38 1.1 cgd
39 1.1 cgd #ifndef lint
40 1.10 cgd #if 0
41 1.11 christos static char sccsid[] = "@(#)show.c 8.3 (Berkeley) 5/4/95";
42 1.10 cgd #else
43 1.13 tls static char rcsid[] = "$NetBSD: show.c,v 1.13 1997/01/11 02:04:47 tls Exp $";
44 1.10 cgd #endif
45 1.1 cgd #endif /* not lint */
46 1.1 cgd
47 1.1 cgd #include <stdio.h>
48 1.11 christos #if __STDC__
49 1.11 christos #include <stdarg.h>
50 1.11 christos #else
51 1.11 christos #include <varargs.h>
52 1.11 christos #endif
53 1.11 christos
54 1.1 cgd #include "shell.h"
55 1.1 cgd #include "parser.h"
56 1.1 cgd #include "nodes.h"
57 1.1 cgd #include "mystring.h"
58 1.11 christos #include "show.h"
59 1.1 cgd
60 1.1 cgd
61 1.1 cgd #ifdef DEBUG
62 1.11 christos static void shtree __P((union node *, int, char *, FILE*));
63 1.11 christos static void shcmd __P((union node *, FILE *));
64 1.11 christos static void sharg __P((union node *, FILE *));
65 1.11 christos static void indent __P((int, char *, FILE *));
66 1.8 cgd static void trstring __P((char *));
67 1.1 cgd
68 1.1 cgd
69 1.11 christos void
70 1.1 cgd showtree(n)
71 1.1 cgd union node *n;
72 1.8 cgd {
73 1.1 cgd trputs("showtree called\n");
74 1.1 cgd shtree(n, 1, NULL, stdout);
75 1.1 cgd }
76 1.1 cgd
77 1.1 cgd
78 1.8 cgd static void
79 1.1 cgd shtree(n, ind, pfx, fp)
80 1.1 cgd union node *n;
81 1.8 cgd int ind;
82 1.1 cgd char *pfx;
83 1.1 cgd FILE *fp;
84 1.8 cgd {
85 1.1 cgd struct nodelist *lp;
86 1.1 cgd char *s;
87 1.1 cgd
88 1.9 christos if (n == NULL)
89 1.9 christos return;
90 1.9 christos
91 1.1 cgd indent(ind, pfx, fp);
92 1.1 cgd switch(n->type) {
93 1.1 cgd case NSEMI:
94 1.1 cgd s = "; ";
95 1.1 cgd goto binop;
96 1.1 cgd case NAND:
97 1.1 cgd s = " && ";
98 1.1 cgd goto binop;
99 1.1 cgd case NOR:
100 1.1 cgd s = " || ";
101 1.1 cgd binop:
102 1.1 cgd shtree(n->nbinary.ch1, ind, NULL, fp);
103 1.1 cgd /* if (ind < 0) */
104 1.1 cgd fputs(s, fp);
105 1.1 cgd shtree(n->nbinary.ch2, ind, NULL, fp);
106 1.1 cgd break;
107 1.1 cgd case NCMD:
108 1.1 cgd shcmd(n, fp);
109 1.1 cgd if (ind >= 0)
110 1.1 cgd putc('\n', fp);
111 1.1 cgd break;
112 1.1 cgd case NPIPE:
113 1.1 cgd for (lp = n->npipe.cmdlist ; lp ; lp = lp->next) {
114 1.1 cgd shcmd(lp->n, fp);
115 1.1 cgd if (lp->next)
116 1.1 cgd fputs(" | ", fp);
117 1.1 cgd }
118 1.1 cgd if (n->npipe.backgnd)
119 1.1 cgd fputs(" &", fp);
120 1.1 cgd if (ind >= 0)
121 1.1 cgd putc('\n', fp);
122 1.1 cgd break;
123 1.1 cgd default:
124 1.1 cgd fprintf(fp, "<node type %d>", n->type);
125 1.1 cgd if (ind >= 0)
126 1.1 cgd putc('\n', fp);
127 1.1 cgd break;
128 1.1 cgd }
129 1.1 cgd }
130 1.1 cgd
131 1.1 cgd
132 1.1 cgd
133 1.8 cgd static void
134 1.1 cgd shcmd(cmd, fp)
135 1.1 cgd union node *cmd;
136 1.1 cgd FILE *fp;
137 1.11 christos {
138 1.1 cgd union node *np;
139 1.1 cgd int first;
140 1.1 cgd char *s;
141 1.1 cgd int dftfd;
142 1.1 cgd
143 1.1 cgd first = 1;
144 1.1 cgd for (np = cmd->ncmd.args ; np ; np = np->narg.next) {
145 1.1 cgd if (! first)
146 1.1 cgd putchar(' ');
147 1.1 cgd sharg(np, fp);
148 1.1 cgd first = 0;
149 1.1 cgd }
150 1.1 cgd for (np = cmd->ncmd.redirect ; np ; np = np->nfile.next) {
151 1.1 cgd if (! first)
152 1.1 cgd putchar(' ');
153 1.1 cgd switch (np->nfile.type) {
154 1.1 cgd case NTO: s = ">"; dftfd = 1; break;
155 1.1 cgd case NAPPEND: s = ">>"; dftfd = 1; break;
156 1.1 cgd case NTOFD: s = ">&"; dftfd = 1; break;
157 1.1 cgd case NFROM: s = "<"; dftfd = 0; break;
158 1.1 cgd case NFROMFD: s = "<&"; dftfd = 0; break;
159 1.11 christos default: s = "*error*"; dftfd = 0; break;
160 1.1 cgd }
161 1.1 cgd if (np->nfile.fd != dftfd)
162 1.1 cgd fprintf(fp, "%d", np->nfile.fd);
163 1.1 cgd fputs(s, fp);
164 1.1 cgd if (np->nfile.type == NTOFD || np->nfile.type == NFROMFD) {
165 1.1 cgd fprintf(fp, "%d", np->ndup.dupfd);
166 1.1 cgd } else {
167 1.1 cgd sharg(np->nfile.fname, fp);
168 1.1 cgd }
169 1.1 cgd first = 0;
170 1.1 cgd }
171 1.1 cgd }
172 1.1 cgd
173 1.1 cgd
174 1.1 cgd
175 1.8 cgd static void
176 1.1 cgd sharg(arg, fp)
177 1.1 cgd union node *arg;
178 1.1 cgd FILE *fp;
179 1.1 cgd {
180 1.1 cgd char *p;
181 1.1 cgd struct nodelist *bqlist;
182 1.1 cgd int subtype;
183 1.1 cgd
184 1.1 cgd if (arg->type != NARG) {
185 1.1 cgd printf("<node type %d>\n", arg->type);
186 1.1 cgd fflush(stdout);
187 1.1 cgd abort();
188 1.1 cgd }
189 1.1 cgd bqlist = arg->narg.backquote;
190 1.1 cgd for (p = arg->narg.text ; *p ; p++) {
191 1.1 cgd switch (*p) {
192 1.1 cgd case CTLESC:
193 1.1 cgd putc(*++p, fp);
194 1.1 cgd break;
195 1.1 cgd case CTLVAR:
196 1.1 cgd putc('$', fp);
197 1.1 cgd putc('{', fp);
198 1.1 cgd subtype = *++p;
199 1.9 christos if (subtype == VSLENGTH)
200 1.9 christos putc('#', fp);
201 1.9 christos
202 1.1 cgd while (*p != '=')
203 1.1 cgd putc(*p++, fp);
204 1.9 christos
205 1.1 cgd if (subtype & VSNUL)
206 1.1 cgd putc(':', fp);
207 1.9 christos
208 1.1 cgd switch (subtype & VSTYPE) {
209 1.1 cgd case VSNORMAL:
210 1.1 cgd putc('}', fp);
211 1.1 cgd break;
212 1.1 cgd case VSMINUS:
213 1.1 cgd putc('-', fp);
214 1.1 cgd break;
215 1.1 cgd case VSPLUS:
216 1.1 cgd putc('+', fp);
217 1.1 cgd break;
218 1.1 cgd case VSQUESTION:
219 1.1 cgd putc('?', fp);
220 1.1 cgd break;
221 1.1 cgd case VSASSIGN:
222 1.1 cgd putc('=', fp);
223 1.9 christos break;
224 1.9 christos case VSTRIMLEFT:
225 1.9 christos putc('#', fp);
226 1.9 christos break;
227 1.9 christos case VSTRIMLEFTMAX:
228 1.9 christos putc('#', fp);
229 1.9 christos putc('#', fp);
230 1.9 christos break;
231 1.9 christos case VSTRIMRIGHT:
232 1.9 christos putc('%', fp);
233 1.9 christos break;
234 1.9 christos case VSTRIMRIGHTMAX:
235 1.9 christos putc('%', fp);
236 1.9 christos putc('%', fp);
237 1.9 christos break;
238 1.9 christos case VSLENGTH:
239 1.1 cgd break;
240 1.1 cgd default:
241 1.1 cgd printf("<subtype %d>", subtype);
242 1.1 cgd }
243 1.1 cgd break;
244 1.1 cgd case CTLENDVAR:
245 1.1 cgd putc('}', fp);
246 1.1 cgd break;
247 1.1 cgd case CTLBACKQ:
248 1.1 cgd case CTLBACKQ|CTLQUOTE:
249 1.1 cgd putc('$', fp);
250 1.1 cgd putc('(', fp);
251 1.1 cgd shtree(bqlist->n, -1, NULL, fp);
252 1.1 cgd putc(')', fp);
253 1.1 cgd break;
254 1.1 cgd default:
255 1.1 cgd putc(*p, fp);
256 1.1 cgd break;
257 1.1 cgd }
258 1.1 cgd }
259 1.1 cgd }
260 1.1 cgd
261 1.1 cgd
262 1.8 cgd static void
263 1.1 cgd indent(amount, pfx, fp)
264 1.8 cgd int amount;
265 1.1 cgd char *pfx;
266 1.1 cgd FILE *fp;
267 1.8 cgd {
268 1.1 cgd int i;
269 1.1 cgd
270 1.1 cgd for (i = 0 ; i < amount ; i++) {
271 1.1 cgd if (pfx && i == amount - 1)
272 1.1 cgd fputs(pfx, fp);
273 1.1 cgd putc('\t', fp);
274 1.1 cgd }
275 1.1 cgd }
276 1.1 cgd #endif
277 1.1 cgd
278 1.1 cgd
279 1.1 cgd
280 1.1 cgd /*
281 1.1 cgd * Debugging stuff.
282 1.1 cgd */
283 1.1 cgd
284 1.1 cgd
285 1.1 cgd FILE *tracefile;
286 1.1 cgd
287 1.1 cgd #if DEBUG == 2
288 1.1 cgd int debug = 1;
289 1.1 cgd #else
290 1.1 cgd int debug = 0;
291 1.1 cgd #endif
292 1.1 cgd
293 1.1 cgd
294 1.12 christos #ifdef DEBUG
295 1.8 cgd void
296 1.12 christos trputc(c)
297 1.8 cgd int c;
298 1.8 cgd {
299 1.1 cgd if (tracefile == NULL)
300 1.1 cgd return;
301 1.1 cgd putc(c, tracefile);
302 1.1 cgd if (c == '\n')
303 1.1 cgd fflush(tracefile);
304 1.12 christos }
305 1.1 cgd #endif
306 1.1 cgd
307 1.11 christos void
308 1.11 christos #if __STDC__
309 1.11 christos trace(const char *fmt, ...)
310 1.11 christos #else
311 1.11 christos trace(va_alist)
312 1.11 christos va_dcl
313 1.11 christos #endif
314 1.11 christos {
315 1.11 christos #ifdef DEBUG
316 1.11 christos va_list va;
317 1.11 christos #if __STDC__
318 1.11 christos va_start(va, fmt);
319 1.11 christos #else
320 1.1 cgd char *fmt;
321 1.11 christos va_start(va);
322 1.11 christos fmt = va_arg(va, char *);
323 1.11 christos #endif
324 1.11 christos if (tracefile != NULL) {
325 1.11 christos (void) vfprintf(tracefile, fmt, va);
326 1.11 christos if (strchr(fmt, '\n'))
327 1.11 christos (void) fflush(tracefile);
328 1.11 christos }
329 1.11 christos va_end(va);
330 1.1 cgd #endif
331 1.1 cgd }
332 1.1 cgd
333 1.1 cgd
334 1.12 christos #ifdef DEBUG
335 1.7 cgd void
336 1.1 cgd trputs(s)
337 1.1 cgd char *s;
338 1.7 cgd {
339 1.1 cgd if (tracefile == NULL)
340 1.1 cgd return;
341 1.1 cgd fputs(s, tracefile);
342 1.1 cgd if (strchr(s, '\n'))
343 1.1 cgd fflush(tracefile);
344 1.1 cgd }
345 1.1 cgd
346 1.1 cgd
347 1.8 cgd static void
348 1.1 cgd trstring(s)
349 1.1 cgd char *s;
350 1.8 cgd {
351 1.13 tls char *p;
352 1.1 cgd char c;
353 1.1 cgd
354 1.1 cgd if (tracefile == NULL)
355 1.1 cgd return;
356 1.1 cgd putc('"', tracefile);
357 1.1 cgd for (p = s ; *p ; p++) {
358 1.1 cgd switch (*p) {
359 1.1 cgd case '\n': c = 'n'; goto backslash;
360 1.1 cgd case '\t': c = 't'; goto backslash;
361 1.1 cgd case '\r': c = 'r'; goto backslash;
362 1.1 cgd case '"': c = '"'; goto backslash;
363 1.1 cgd case '\\': c = '\\'; goto backslash;
364 1.1 cgd case CTLESC: c = 'e'; goto backslash;
365 1.1 cgd case CTLVAR: c = 'v'; goto backslash;
366 1.1 cgd case CTLVAR+CTLQUOTE: c = 'V'; goto backslash;
367 1.1 cgd case CTLBACKQ: c = 'q'; goto backslash;
368 1.1 cgd case CTLBACKQ+CTLQUOTE: c = 'Q'; goto backslash;
369 1.1 cgd backslash: putc('\\', tracefile);
370 1.1 cgd putc(c, tracefile);
371 1.1 cgd break;
372 1.1 cgd default:
373 1.1 cgd if (*p >= ' ' && *p <= '~')
374 1.1 cgd putc(*p, tracefile);
375 1.1 cgd else {
376 1.1 cgd putc('\\', tracefile);
377 1.1 cgd putc(*p >> 6 & 03, tracefile);
378 1.1 cgd putc(*p >> 3 & 07, tracefile);
379 1.1 cgd putc(*p & 07, tracefile);
380 1.1 cgd }
381 1.1 cgd break;
382 1.1 cgd }
383 1.1 cgd }
384 1.1 cgd putc('"', tracefile);
385 1.12 christos }
386 1.1 cgd #endif
387 1.1 cgd
388 1.1 cgd
389 1.7 cgd void
390 1.1 cgd trargs(ap)
391 1.1 cgd char **ap;
392 1.7 cgd {
393 1.1 cgd #ifdef DEBUG
394 1.1 cgd if (tracefile == NULL)
395 1.1 cgd return;
396 1.1 cgd while (*ap) {
397 1.1 cgd trstring(*ap++);
398 1.1 cgd if (*ap)
399 1.1 cgd putc(' ', tracefile);
400 1.1 cgd else
401 1.1 cgd putc('\n', tracefile);
402 1.1 cgd }
403 1.1 cgd fflush(tracefile);
404 1.1 cgd #endif
405 1.1 cgd }
406 1.1 cgd
407 1.1 cgd
408 1.12 christos #ifdef DEBUG
409 1.7 cgd void
410 1.1 cgd opentrace() {
411 1.1 cgd char s[100];
412 1.1 cgd char *getenv();
413 1.11 christos #ifdef O_APPEND
414 1.1 cgd int flags;
415 1.11 christos #endif
416 1.1 cgd
417 1.1 cgd if (!debug)
418 1.1 cgd return;
419 1.5 jtc #ifdef not_this_way
420 1.11 christos {
421 1.11 christos char *p;
422 1.11 christos if ((p = getenv("HOME")) == NULL) {
423 1.11 christos if (geteuid() == 0)
424 1.11 christos p = "/";
425 1.11 christos else
426 1.11 christos p = "/tmp";
427 1.11 christos }
428 1.11 christos scopy(p, s);
429 1.11 christos strcat(s, "/trace");
430 1.1 cgd }
431 1.5 jtc #else
432 1.5 jtc scopy("./trace", s);
433 1.5 jtc #endif /* not_this_way */
434 1.1 cgd if ((tracefile = fopen(s, "a")) == NULL) {
435 1.1 cgd fprintf(stderr, "Can't open %s\n", s);
436 1.1 cgd return;
437 1.1 cgd }
438 1.1 cgd #ifdef O_APPEND
439 1.1 cgd if ((flags = fcntl(fileno(tracefile), F_GETFL, 0)) >= 0)
440 1.1 cgd fcntl(fileno(tracefile), F_SETFL, flags | O_APPEND);
441 1.1 cgd #endif
442 1.1 cgd fputs("\nTracing started.\n", tracefile);
443 1.1 cgd fflush(tracefile);
444 1.12 christos }
445 1.5 jtc #endif /* DEBUG */
446