9base

revived minimalist port of Plan 9 userland to Unix
git clone git://git.suckless.org/9base
Log | Files | Refs | README | 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 }