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 
9 void
10 pdeglob(io *f, char *s)
11 {
12 	while(*s){
13 		if(*s==GLOB)
14 			s++;
15 		pchr(f, *s++);
16 	}
17 }
18 
19 void
20 pcmd(io *f, tree *t)
21 {
22 	if(t==0)
23 		return;
24 	switch(t->type){
25 	default:	pfmt(f, "bad %d %p %p %p", t->type, c0, c1, c2);
26 	break;
27 	case '$':	pfmt(f, "$%t", c0);
28 	break;
29 	case '"':	pfmt(f, "$\"%t", c0);
30 	break;
31 	case '&':	pfmt(f, "%t&", c0);
32 	break;
33 	case '^':	pfmt(f, "%t^%t", c0, c1);
34 	break;
35 	case '`':	pfmt(f, "`%t", c0);
36 	break;
37 	case ANDAND:	pfmt(f, "%t && %t", c0, c1);
38 	break;
39 	case BANG:	pfmt(f, "! %t", c0);
40 	break;
41 	case BRACE:	pfmt(f, "{%t}", c0);
42 	break;
43 	case COUNT:	pfmt(f, "$#%t", c0);
44 	break;
45 	case FN:	pfmt(f, "fn %t %t", c0, c1);
46 	break;
47 	case IF:	pfmt(f, "if%t%t", c0, c1);
48 	break;
49 	case NOT:	pfmt(f, "if not %t", c0);
50 	break;
51 	case OROR:	pfmt(f, "%t || %t", c0, c1);
52 	break;
53 	case PCMD:
54 	case PAREN:	pfmt(f, "(%t)", c0);
55 	break;
56 	case SUB:	pfmt(f, "$%t(%t)", c0, c1);
57 	break;
58 	case SIMPLE:	pfmt(f, "%t", c0);
59 	break;
60 	case SUBSHELL:	pfmt(f, "@ %t", c0);
61 	break;
62 	case SWITCH:	pfmt(f, "switch %t %t", c0, c1);
63 	break;
64 	case TWIDDLE:	pfmt(f, "~ %t %t", c0, c1);
65 	break;
66 	case WHILE:	pfmt(f, "while %t%t", c0, c1);
67 	break;
68 	case ARGLIST:
69 		if(c0==0)
70 			pfmt(f, "%t", c1);
71 		else if(c1==0)
72 			pfmt(f, "%t", c0);
73 		else
74 			pfmt(f, "%t %t", c0, c1);
75 		break;
76 	case ';':
77 		if(c0){
78 			if(c1)
79 				pfmt(f, "%t%c%t", c0, nl, c1);
80 			else pfmt(f, "%t", c0);
81 		}
82 		else pfmt(f, "%t", c1);
83 		break;
84 	case WORDS:
85 		if(c0)
86 			pfmt(f, "%t ", c0);
87 		pfmt(f, "%t", c1);
88 		break;
89 	case FOR:
90 		pfmt(f, "for(%t", c0);
91 		if(c1)
92 			pfmt(f, " in %t", c1);
93 		pfmt(f, ")%t", c2);
94 		break;
95 	case WORD:
96 		if(t->quoted)
97 			pfmt(f, "%Q", t->str);
98 		else pdeglob(f, t->str);
99 		break;
100 	case DUP:
101 		if(t->rtype==DUPFD)
102 			pfmt(f, ">[%d=%d]", t->fd1, t->fd0); /* yes, fd1, then fd0; read lex.c */
103 		else
104 			pfmt(f, ">[%d=]", t->fd0);
105 		pfmt(f, "%t", c1);
106 		break;
107 	case PIPEFD:
108 	case REDIR:
109 		switch(t->rtype){
110 		case HERE:
111 			pchr(f, '<');
112 		case READ:
113 		case RDWR:
114 			pchr(f, '<');
115 			if(t->rtype==RDWR)
116 				pchr(f, '>');
117 			if(t->fd0!=0)
118 				pfmt(f, "[%d]", t->fd0);
119 			break;
120 		case APPEND:
121 			pchr(f, '>');
122 		case WRITE:
123 			pchr(f, '>');
124 			if(t->fd0!=1)
125 				pfmt(f, "[%d]", t->fd0);
126 			break;
127 		}
128 		pfmt(f, "%t", c0);
129 		if(c1)
130 			pfmt(f, " %t", c1);
131 		break;
132 	case '=':
133 		pfmt(f, "%t=%t", c0, c1);
134 		if(c2)
135 			pfmt(f, " %t", c2);
136 		break;
137 	case PIPE:
138 		pfmt(f, "%t|", c0);
139 		if(t->fd1==0){
140 			if(t->fd0!=1)
141 				pfmt(f, "[%d]", t->fd0);
142 		}
143 		else pfmt(f, "[%d=%d]", t->fd0, t->fd1);
144 		pfmt(f, "%t", c1);
145 		break;
146 	}
147 }