pcmd.c - 9base - revived minimalist port of Plan 9 userland to Unix
(HTM) git clone git://git.suckless.org/9base
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
pcmd.c (2681B)
---
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 }