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