1 #include "rc.h"
2 #include "io.h"
3 #include "fns.h"
4 char nl='\n';		/* change to semicolon for bourne-proofing */
5 #define	c0	t->child[0]
6 #define	c1	t->child[1]
7 #define	c2	t->child[2]
8 void pdeglob(io *f, char *s)
9 {
10 	while(*s){
11 		if(*s==GLOB) s++;
12 		pchr(f, *s++);
13 	}
14 }
15 void pcmd(io *f, tree *t)
16 {
17 	if(t==0) return;
18 	switch(t->type){
19 	default:	pfmt(f, "bad %d %p %p %p", t->type, c0, c1, c2); break;
20 	case '$':	pfmt(f, "$%t", c0); break;
21 	case '"':	pfmt(f, "$\"%t", c0); break;
22 	case '&':	pfmt(f, "%t&", c0); break;
23 	case '^':	pfmt(f, "%t^%t", c0, c1); break;
24 	case '`':	pfmt(f, "`%t", c0); break;
25 	case ANDAND:	pfmt(f, "%t && %t", c0, c1); break;
26 	case BANG:	pfmt(f, "! %t", c0); break;
27 	case BRACE:	pfmt(f, "{%t}", c0); break;
28 	case COUNT:	pfmt(f, "$#%t", c0); break;
29 	case FN:	pfmt(f, "fn %t %t", c0, c1); break;
30 	case IF:	pfmt(f, "if%t%t", c0, c1); break;
31 	case NOT:	pfmt(f, "if not %t", c0); break;
32 	case OROR:	pfmt(f, "%t || %t", c0, c1); break;
33 	case PCMD:
34 	case PAREN:	pfmt(f, "(%t)", c0); break;
35 	case SUB:	pfmt(f, "$%t(%t)", c0, c1); break;
36 	case SIMPLE:	pfmt(f, "%t", c0); break;
37 	case SUBSHELL:	pfmt(f, "@ %t", c0); break;
38 	case SWITCH:	pfmt(f, "switch %t %t", c0, c1); break;
39 	case TWIDDLE:	pfmt(f, "~ %t %t", c0, c1); break;
40 	case WHILE:	pfmt(f, "while %t%t", c0, c1); break;
41 	case ARGLIST:
42 		if(c0==0)
43 			pfmt(f, "%t", c1);
44 		else if(c1==0)
45 			pfmt(f, "%t", c0);
46 		else
47 			pfmt(f, "%t %t", c0, c1);
48 		break;
49 	case ';':
50 		if(c0){
51 			if(c1) pfmt(f, "%t%c%t", c0, nl, c1);
52 			else pfmt(f, "%t", c0);
53 		}
54 		else pfmt(f, "%t", c1);
55 		break;
56 	case WORDS:
57 		if(c0) pfmt(f, "%t ", c0);
58 		pfmt(f, "%t", c1);
59 		break;
60 	case FOR:
61 		pfmt(f, "for(%t", c0);
62 		if(c1) pfmt(f, " in %t", c1);
63 		pfmt(f, ")%t", c2);
64 		break;
65 	case WORD:
66 		if(t->quoted) pfmt(f, "%Q", t->str);
67 		else pdeglob(f, t->str);
68 		break;
69 	case DUP:
70 		if(t->rtype==DUPFD)
71 			pfmt(f, ">[%d=%d]", t->fd1, t->fd0); /* yes, fd1, then fd0; read lex.c */
72 		else
73 			pfmt(f, ">[%d=]", t->fd0);
74 		pfmt(f, "%t", c1);
75 		break;
76 	case PIPEFD:
77 	case REDIR:
78 		switch(t->rtype){
79 		case HERE:
80 			pchr(f, '<');
81 		case READ:
82 			pchr(f, '<');
83 			if(t->fd0!=0) pfmt(f, "[%d]", t->fd0);
84 			break;
85 		case APPEND:
86 			pchr(f, '>');
87 		case WRITE:
88 			pchr(f, '>');
89 			if(t->fd0!=1) pfmt(f, "[%d]", t->fd0);
90 			break;
91 		}
92 		pfmt(f, "%t", c0);
93 		if(c1) pfmt(f, " %t", c1);
94 		break;
95 	case '=':
96 		pfmt(f, "%t=%t", c0, c1);
97 		if(c2) pfmt(f, " %t", c2);
98 		break;
99 	case PIPE:
100 		pfmt(f, "%t|", c0);
101 		if(t->fd1==0){
102 			if(t->fd0!=1) pfmt(f, "[%d]", t->fd0);
103 		}
104 		else pfmt(f, "[%d=%d]", t->fd0, t->fd1);
105 		pfmt(f, "%t", c1);
106 		break;
107 	}
108 }