ref: 12e226ac6798412271020d42645f69138715c519
dir: /utils/rcsh/pcmd.c/
#include "rc.h" #include "y.tab.h" char nl='\n'; /* change to semicolon for bourne-proofing */ #define c0 t->child[0] #define c1 t->child[1] #define c2 t->child[2] void pdeglob(Io *f, char *s) { while(*s){ if(*s==GLOB) s++; pchr(f, *s++); } } void pcmd(Io *f, Tree *t) { if(t==0) return; switch(t->type){ default: pfmt(f, "bad %d %p %p %p", t->type, c0, c1, c2); break; case '$': pfmt(f, "$%t", c0); break; case '"': pfmt(f, "$\"%t", c0); break; case '&': pfmt(f, "%t&", c0); break; case '^': pfmt(f, "%t^%t", c0, c1); break; case '`': pfmt(f, "`%t", c0); break; case ANDAND: pfmt(f, "%t && %t", c0, c1); break; case ARGLIST: pfmt(f, "%t %t", c0, c1); break; case BANG: pfmt(f, "! %t", c0); break; case BRACE: pfmt(f, "{%t}", c0); break; case COUNT: pfmt(f, "$#%t", c0); break; case FN: pfmt(f, "fn %t %t", c0, c1); break; case IF: pfmt(f, "if%t%t", c0, c1); break; case NOT: pfmt(f, "if not %t", c0); break; case OROR: pfmt(f, "%t || %t", c0, c1); break; case PCMD: case PAREN: pfmt(f, "(%t)", c0); break; case SUB: pfmt(f, "$%t(%t)", c0, c1); break; case SIMPLE: pfmt(f, "%t", c0); break; case SUBSHELL: pfmt(f, "@ %t", c0); break; case SWITCH: pfmt(f, "switch %t %t", c0, c1); break; case TWIDDLE: pfmt(f, "~ %t %t", c0, c1); break; case WHILE: pfmt(f, "while %t%t", c0, c1); break; case ';': if(c0){ if(c1) pfmt(f, "%t%c%t", c0, nl, c1); else pfmt(f, "%t", c0); } else pfmt(f, "%t", c1); break; case WORDS: if(c0) pfmt(f, "%t ", c0); pfmt(f, "%t", c1); break; case FOR: pfmt(f, "for(%t", c0); if(c1) pfmt(f, " in %t", c1); pfmt(f, ")%t", c2); break; case WORD: if(t->quoted) pfmt(f, "%Q", t->str); else pdeglob(f, t->str); break; case DUP: pfmt(f, ">[%d=", t->fd0); if(t->rtype==DUPFD) pfmt(f, "%d", t->fd1); /* else t->rtype == CLOSE */ pchr(f, ']'); break; case PIPEFD: case REDIR: switch(t->rtype){ case HERE: pchr(f, '<'); case READ: pchr(f, '<'); if(t->fd0!=0) pfmt(f, "[%d]", t->fd0); break; case APPEND: pchr(f, '>'); case WRITE: pchr(f, '>'); if(t->fd0!=1) pfmt(f, "[%d]", t->fd0); break; } pfmt(f, "%t", c0); if(c1) pfmt(f, " %t", c1); break; case '=': pfmt(f, "%t=%t", c0, c1); if(c2) pfmt(f, " %t", c2); break; case PIPE: pfmt(f, "%t|", c0); if(t->fd1==0){ if(t->fd0!=1) pfmt(f, "[%d]", t->fd0); } else pfmt(f, "[%d=%d]", t->fd0, t->fd1); pfmt(f, "%t", c1); break; } }