tree.c revision 1.6
1 /* $NetBSD: tree.c,v 1.6 2005/06/26 19:09:00 christos Exp $ */ 2 3 /* 4 * command tree climbing 5 */ 6 #include <sys/cdefs.h> 7 8 #ifndef lint 9 __RCSID("$NetBSD: tree.c,v 1.6 2005/06/26 19:09:00 christos Exp $"); 10 #endif 11 12 13 #include "sh.h" 14 15 #define INDENT 4 16 17 #define tputc(c, shf) shf_putchar(c, shf); 18 static void ptree ARGS((struct op *t, int indent, struct shf *f)); 19 static void pioact ARGS((struct shf *f, int indent, struct ioword *iop)); 20 static void tputC ARGS((int c, struct shf *shf)); 21 static void tputS ARGS((char *wp, struct shf *shf)); 22 static void vfptreef ARGS((struct shf *shf, int indent, const char *fmt, va_list va)); 23 static struct ioword **iocopy ARGS((struct ioword **iow, Area *ap)); 24 static void iofree ARGS((struct ioword **iow, Area *ap)); 25 26 /* 27 * print a command tree 28 */ 29 30 static void 31 ptree(t, indent, shf) 32 register struct op *t; 33 int indent; 34 register struct shf *shf; 35 { 36 register char **w; 37 struct ioword **ioact; 38 struct op *t1; 39 40 Chain: 41 if (t == NULL) 42 return; 43 switch (t->type) { 44 case TCOM: 45 if (t->vars) 46 for (w = t->vars; *w != NULL; ) 47 fptreef(shf, indent, "%S ", *w++); 48 else 49 fptreef(shf, indent, "#no-vars# "); 50 if (t->args) 51 for (w = t->args; *w != NULL; ) 52 fptreef(shf, indent, "%S ", *w++); 53 else 54 fptreef(shf, indent, "#no-args# "); 55 break; 56 case TEXEC: 57 #if 0 /* ?not useful - can't be called? */ 58 /* Print original vars */ 59 if (t->left->vars) 60 for (w = t->left->vars; *w != NULL; ) 61 fptreef(shf, indent, "%S ", *w++); 62 else 63 fptreef(shf, indent, "#no-vars# "); 64 /* Print expanded vars */ 65 if (t->args) 66 for (w = t->args; *w != NULL; ) 67 fptreef(shf, indent, "%s ", *w++); 68 else 69 fptreef(shf, indent, "#no-args# "); 70 /* Print original io */ 71 t = t->left; 72 #else 73 t = t->left; 74 goto Chain; 75 #endif 76 case TPAREN: 77 fptreef(shf, indent + 2, "( %T) ", t->left); 78 break; 79 case TPIPE: 80 fptreef(shf, indent, "%T| ", t->left); 81 t = t->right; 82 goto Chain; 83 case TLIST: 84 fptreef(shf, indent, "%T%;", t->left); 85 t = t->right; 86 goto Chain; 87 case TOR: 88 case TAND: 89 fptreef(shf, indent, "%T%s %T", 90 t->left, (t->type==TOR) ? "||" : "&&", t->right); 91 break; 92 case TBANG: 93 fptreef(shf, indent, "! "); 94 t = t->right; 95 goto Chain; 96 case TDBRACKET: 97 { 98 int i; 99 100 fptreef(shf, indent, "[["); 101 for (i = 0; t->args[i]; i++) 102 fptreef(shf, indent, " %S", t->args[i]); 103 fptreef(shf, indent, " ]] "); 104 break; 105 } 106 #ifdef KSH 107 case TSELECT: 108 fptreef(shf, indent, "select %s ", t->str); 109 /* fall through */ 110 #endif /* KSH */ 111 case TFOR: 112 if (t->type == TFOR) 113 fptreef(shf, indent, "for %s ", t->str); 114 if (t->vars != NULL) { 115 fptreef(shf, indent, "in "); 116 for (w = t->vars; *w; ) 117 fptreef(shf, indent, "%S ", *w++); 118 fptreef(shf, indent, "%;"); 119 } 120 fptreef(shf, indent + INDENT, "do%N%T", t->left); 121 fptreef(shf, indent, "%;done "); 122 break; 123 case TCASE: 124 fptreef(shf, indent, "case %S in", t->str); 125 for (t1 = t->left; t1 != NULL; t1 = t1->right) { 126 fptreef(shf, indent, "%N("); 127 for (w = t1->vars; *w != NULL; w++) 128 fptreef(shf, indent, "%S%c", *w, 129 (w[1] != NULL) ? '|' : ')'); 130 fptreef(shf, indent + INDENT, "%;%T%N;;", t1->left); 131 } 132 fptreef(shf, indent, "%Nesac "); 133 break; 134 case TIF: 135 case TELIF: 136 /* 3 == strlen("if ") */ 137 fptreef(shf, indent + 3, "if %T", t->left); 138 for (;;) { 139 t = t->right; 140 if (t->left != NULL) { 141 fptreef(shf, indent, "%;"); 142 fptreef(shf, indent + INDENT, "then%N%T", 143 t->left); 144 } 145 if (t->right == NULL || t->right->type != TELIF) 146 break; 147 t = t->right; 148 fptreef(shf, indent, "%;"); 149 /* 5 == strlen("elif ") */ 150 fptreef(shf, indent + 5, "elif %T", t->left); 151 } 152 if (t->right != NULL) { 153 fptreef(shf, indent, "%;"); 154 fptreef(shf, indent + INDENT, "else%;%T", t->right); 155 } 156 fptreef(shf, indent, "%;fi "); 157 break; 158 case TWHILE: 159 case TUNTIL: 160 /* 6 == strlen("while"/"until") */ 161 fptreef(shf, indent + 6, "%s %T", 162 (t->type==TWHILE) ? "while" : "until", 163 t->left); 164 fptreef(shf, indent, "%;do"); 165 fptreef(shf, indent + INDENT, "%;%T", t->right); 166 fptreef(shf, indent, "%;done "); 167 break; 168 case TBRACE: 169 fptreef(shf, indent + INDENT, "{%;%T", t->left); 170 fptreef(shf, indent, "%;} "); 171 break; 172 case TCOPROC: 173 fptreef(shf, indent, "%T|& ", t->left); 174 break; 175 case TASYNC: 176 fptreef(shf, indent, "%T& ", t->left); 177 break; 178 case TFUNCT: 179 fptreef(shf, indent, 180 t->u.ksh_func ? "function %s %T" : "%s() %T", 181 t->str, t->left); 182 break; 183 case TTIME: 184 fptreef(shf, indent, "time %T", t->left); 185 break; 186 default: 187 fptreef(shf, indent, "<botch>"); 188 break; 189 } 190 if ((ioact = t->ioact) != NULL) { 191 int need_nl = 0; 192 193 while (*ioact != NULL) 194 pioact(shf, indent, *ioact++); 195 /* Print here documents after everything else... */ 196 for (ioact = t->ioact; *ioact != NULL; ) { 197 struct ioword *iop = *ioact++; 198 199 /* heredoc is 0 when tracing (set -x) */ 200 if ((iop->flag & IOTYPE) == IOHERE && iop->heredoc) { 201 tputc('\n', shf); 202 shf_puts(iop->heredoc, shf); 203 fptreef(shf, indent, "%s", 204 evalstr(iop->delim, 0)); 205 need_nl = 1; 206 } 207 } 208 /* Last delimiter must be followed by a newline (this often 209 * leads to an extra blank line, but its not worth worrying 210 * about) 211 */ 212 if (need_nl) 213 tputc('\n', shf); 214 } 215 } 216 217 static void 218 pioact(shf, indent, iop) 219 register struct shf *shf; 220 int indent; 221 register struct ioword *iop; 222 { 223 int flag = iop->flag; 224 int type = flag & IOTYPE; 225 int expected; 226 227 expected = (type == IOREAD || type == IORDWR || type == IOHERE) ? 0 228 : (type == IOCAT || type == IOWRITE) ? 1 229 : (type == IODUP && (iop->unit == !(flag & IORDUP))) ? 230 iop->unit 231 : iop->unit + 1; 232 if (iop->unit != expected) 233 tputc('0' + iop->unit, shf); 234 235 switch (type) { 236 case IOREAD: 237 fptreef(shf, indent, "< "); 238 break; 239 case IOHERE: 240 if (flag&IOSKIP) 241 fptreef(shf, indent, "<<- "); 242 else 243 fptreef(shf, indent, "<< "); 244 break; 245 case IOCAT: 246 fptreef(shf, indent, ">> "); 247 break; 248 case IOWRITE: 249 if (flag&IOCLOB) 250 fptreef(shf, indent, ">| "); 251 else 252 fptreef(shf, indent, "> "); 253 break; 254 case IORDWR: 255 fptreef(shf, indent, "<> "); 256 break; 257 case IODUP: 258 if (flag & IORDUP) 259 fptreef(shf, indent, "<&"); 260 else 261 fptreef(shf, indent, ">&"); 262 break; 263 } 264 /* name/delim are 0 when printing syntax errors */ 265 if (type == IOHERE) { 266 if (iop->delim) 267 fptreef(shf, indent, "%S ", iop->delim); 268 } else if (iop->name) 269 fptreef(shf, indent, (iop->flag & IONAMEXP) ? "%s " : "%S ", 270 iop->name); 271 } 272 273 274 /* 275 * variants of fputc, fputs for ptreef and snptreef 276 */ 277 278 static void 279 tputC(c, shf) 280 register int c; 281 register struct shf *shf; 282 { 283 if ((c&0x60) == 0) { /* C0|C1 */ 284 tputc((c&0x80) ? '$' : '^', shf); 285 tputc(((c&0x7F)|0x40), shf); 286 } else if ((c&0x7F) == 0x7F) { /* DEL */ 287 tputc((c&0x80) ? '$' : '^', shf); 288 tputc('?', shf); 289 } else 290 tputc(c, shf); 291 } 292 293 static void 294 tputS(wp, shf) 295 register char *wp; 296 register struct shf *shf; 297 { 298 register int c, quoted=0; 299 300 /* problems: 301 * `...` -> $(...) 302 * 'foo' -> "foo" 303 * could change encoding to: 304 * OQUOTE ["'] ... CQUOTE ["'] 305 * COMSUB [(`] ...\0 (handle $ ` \ and maybe " in `...` case) 306 */ 307 while (1) 308 switch ((c = *wp++)) { 309 case EOS: 310 return; 311 case CHAR: 312 tputC(*wp++, shf); 313 break; 314 case QCHAR: 315 c = *wp++; 316 if (!quoted || (c == '"' || c == '`' || c == '$')) 317 tputc('\\', shf); 318 tputC(c, shf); 319 break; 320 case COMSUB: 321 tputc('$', shf); 322 tputc('(', shf); 323 while (*wp != 0) 324 tputC(*wp++, shf); 325 tputc(')', shf); 326 wp++; 327 break; 328 case EXPRSUB: 329 tputc('$', shf); 330 tputc('(', shf); 331 tputc('(', shf); 332 while (*wp != 0) 333 tputC(*wp++, shf); 334 tputc(')', shf); 335 tputc(')', shf); 336 wp++; 337 break; 338 case OQUOTE: 339 quoted = 1; 340 tputc('"', shf); 341 break; 342 case CQUOTE: 343 quoted = 0; 344 tputc('"', shf); 345 break; 346 case OSUBST: 347 tputc('$', shf); 348 if (*wp++ == '{') 349 tputc('{', shf); 350 while ((c = *wp++) != 0) 351 tputC(c, shf); 352 break; 353 case CSUBST: 354 if (*wp++ == '}') 355 tputc('}', shf); 356 break; 357 #ifdef KSH 358 case OPAT: 359 tputc(*wp++, shf); 360 tputc('(', shf); 361 break; 362 case SPAT: 363 tputc('|', shf); 364 break; 365 case CPAT: 366 tputc(')', shf); 367 break; 368 #endif /* KSH */ 369 } 370 } 371 372 /* 373 * this is the _only_ way to reliably handle 374 * variable args with an ANSI compiler 375 */ 376 /* VARARGS */ 377 int 378 #ifdef HAVE_PROTOTYPES 379 fptreef(struct shf *shf, int indent, const char *fmt, ...) 380 #else 381 fptreef(shf, indent, fmt, va_alist) 382 struct shf *shf; 383 int indent; 384 const char *fmt; 385 va_dcl 386 #endif 387 { 388 va_list va; 389 390 SH_VA_START(va, fmt); 391 392 vfptreef(shf, indent, fmt, va); 393 va_end(va); 394 return 0; 395 } 396 397 /* VARARGS */ 398 char * 399 #ifdef HAVE_PROTOTYPES 400 snptreef(char *s, int n, const char *fmt, ...) 401 #else 402 snptreef(s, n, fmt, va_alist) 403 char *s; 404 int n; 405 const char *fmt; 406 va_dcl 407 #endif 408 { 409 va_list va; 410 struct shf shf; 411 412 shf_sopen(s, n, SHF_WR | (s ? 0 : SHF_DYNAMIC), &shf); 413 414 SH_VA_START(va, fmt); 415 vfptreef(&shf, 0, fmt, va); 416 va_end(va); 417 418 return shf_sclose(&shf); /* null terminates */ 419 } 420 421 static void 422 vfptreef(shf, indent, fmt, va) 423 register struct shf *shf; 424 int indent; 425 const char *fmt; 426 register va_list va; 427 { 428 register int c; 429 430 while ((c = *fmt++)) 431 if (c == '%') { 432 register long n; 433 register char *p; 434 int neg; 435 436 switch ((c = *fmt++)) { 437 case 'c': 438 tputc(va_arg(va, int), shf); 439 break; 440 case 's': 441 p = va_arg(va, char *); 442 while (*p) 443 tputc(*p++, shf); 444 break; 445 case 'S': /* word */ 446 p = va_arg(va, char *); 447 tputS(p, shf); 448 break; 449 case 'd': case 'u': /* decimal */ 450 n = (c == 'd') ? va_arg(va, int) 451 : va_arg(va, unsigned int); 452 neg = c=='d' && n<0; 453 p = ulton((neg) ? -n : n, 10); 454 if (neg) 455 *--p = '-'; 456 while (*p) 457 tputc(*p++, shf); 458 break; 459 case 'T': /* format tree */ 460 ptree(va_arg(va, struct op *), indent, shf); 461 break; 462 case ';': /* newline or ; */ 463 case 'N': /* newline or space */ 464 if (shf->flags & SHF_STRING) { 465 if (c == ';') 466 tputc(';', shf); 467 tputc(' ', shf); 468 } else { 469 int i; 470 471 tputc('\n', shf); 472 for (i = indent; i >= 8; i -= 8) 473 tputc('\t', shf); 474 for (; i > 0; --i) 475 tputc(' ', shf); 476 } 477 break; 478 case 'R': 479 pioact(shf, indent, va_arg(va, struct ioword *)); 480 break; 481 default: 482 tputc(c, shf); 483 break; 484 } 485 } else 486 tputc(c, shf); 487 } 488 489 /* 490 * copy tree (for function definition) 491 */ 492 493 struct op * 494 tcopy(t, ap) 495 register struct op *t; 496 Area *ap; 497 { 498 register struct op *r; 499 register char **tw, **rw; 500 501 if (t == NULL) 502 return NULL; 503 504 r = (struct op *) alloc(sizeof(struct op), ap); 505 506 r->type = t->type; 507 r->u.evalflags = t->u.evalflags; 508 509 r->str = t->type == TCASE ? wdcopy(t->str, ap) : str_save(t->str, ap); 510 511 if (t->vars == NULL) 512 r->vars = NULL; 513 else { 514 for (tw = t->vars; *tw++ != NULL; ) 515 ; 516 rw = r->vars = (char **) 517 alloc((tw - t->vars + 1) * sizeof(*tw), ap); 518 for (tw = t->vars; *tw != NULL; ) 519 *rw++ = wdcopy(*tw++, ap); 520 *rw = NULL; 521 } 522 523 if (t->args == NULL) 524 r->args = NULL; 525 else { 526 for (tw = t->args; *tw++ != NULL; ) 527 ; 528 rw = r->args = (char **) 529 alloc((tw - t->args + 1) * sizeof(*tw), ap); 530 for (tw = t->args; *tw != NULL; ) 531 *rw++ = wdcopy(*tw++, ap); 532 *rw = NULL; 533 } 534 535 r->ioact = (t->ioact == NULL) ? NULL : iocopy(t->ioact, ap); 536 537 r->left = tcopy(t->left, ap); 538 r->right = tcopy(t->right, ap); 539 r->lineno = t->lineno; 540 541 return r; 542 } 543 544 char * 545 wdcopy(wp, ap) 546 const char *wp; 547 Area *ap; 548 { 549 size_t len = wdscan(wp, EOS) - wp; 550 return memcpy(alloc(len, ap), wp, len); 551 } 552 553 /* return the position of prefix c in wp plus 1 */ 554 char * 555 wdscan(wp, c) 556 register const char *wp; 557 register int c; 558 { 559 register int nest = 0; 560 561 while (1) 562 switch (*wp++) { 563 case EOS: 564 return (char *) __UNCONST(wp); 565 case CHAR: 566 case QCHAR: 567 wp++; 568 break; 569 case COMSUB: 570 case EXPRSUB: 571 while (*wp++ != 0) 572 ; 573 break; 574 case OQUOTE: 575 case CQUOTE: 576 break; 577 case OSUBST: 578 nest++; 579 while (*wp++ != '\0') 580 ; 581 break; 582 case CSUBST: 583 wp++; 584 if (c == CSUBST && nest == 0) 585 return (char *) __UNCONST(wp); 586 nest--; 587 break; 588 #ifdef KSH 589 case OPAT: 590 nest++; 591 wp++; 592 break; 593 case SPAT: 594 case CPAT: 595 if (c == wp[-1] && nest == 0) 596 return (char *) __UNCONST(wp); 597 if (wp[-1] == CPAT) 598 nest--; 599 break; 600 #endif /* KSH */ 601 default: 602 internal_errorf(0, 603 "wdscan: unknown char 0x%x (carrying on)", 604 wp[-1]); 605 } 606 } 607 608 /* return a copy of wp without any of the mark up characters and 609 * with quote characters (" ' \) stripped. 610 * (string is allocated from ATEMP) 611 */ 612 char * 613 wdstrip(wp) 614 const char *wp; 615 { 616 struct shf shf; 617 int c; 618 619 shf_sopen((char *) 0, 32, SHF_WR | SHF_DYNAMIC, &shf); 620 621 /* problems: 622 * `...` -> $(...) 623 * x${foo:-"hi"} -> x${foo:-hi} 624 * x${foo:-'hi'} -> x${foo:-hi} 625 */ 626 while (1) 627 switch ((c = *wp++)) { 628 case EOS: 629 return shf_sclose(&shf); /* null terminates */ 630 case CHAR: 631 case QCHAR: 632 shf_putchar(*wp++, &shf); 633 break; 634 case COMSUB: 635 shf_putchar('$', &shf); 636 shf_putchar('(', &shf); 637 while (*wp != 0) 638 shf_putchar(*wp++, &shf); 639 shf_putchar(')', &shf); 640 break; 641 case EXPRSUB: 642 shf_putchar('$', &shf); 643 shf_putchar('(', &shf); 644 shf_putchar('(', &shf); 645 while (*wp != 0) 646 shf_putchar(*wp++, &shf); 647 shf_putchar(')', &shf); 648 shf_putchar(')', &shf); 649 break; 650 case OQUOTE: 651 break; 652 case CQUOTE: 653 break; 654 case OSUBST: 655 shf_putchar('$', &shf); 656 if (*wp++ == '{') 657 shf_putchar('{', &shf); 658 while ((c = *wp++) != 0) 659 shf_putchar(c, &shf); 660 break; 661 case CSUBST: 662 if (*wp++ == '}') 663 shf_putchar('}', &shf); 664 break; 665 #ifdef KSH 666 case OPAT: 667 shf_putchar(*wp++, &shf); 668 shf_putchar('(', &shf); 669 break; 670 case SPAT: 671 shf_putchar('|', &shf); 672 break; 673 case CPAT: 674 shf_putchar(')', &shf); 675 break; 676 #endif /* KSH */ 677 } 678 } 679 680 static struct ioword ** 681 iocopy(iow, ap) 682 register struct ioword **iow; 683 Area *ap; 684 { 685 register struct ioword **ior; 686 register int i; 687 688 for (ior = iow; *ior++ != NULL; ) 689 ; 690 ior = (struct ioword **) alloc((ior - iow + 1) * sizeof(*ior), ap); 691 692 for (i = 0; iow[i] != NULL; i++) { 693 register struct ioword *p, *q; 694 695 p = iow[i]; 696 q = (struct ioword *) alloc(sizeof(*p), ap); 697 ior[i] = q; 698 *q = *p; 699 if (p->name != (char *) 0) 700 q->name = wdcopy(p->name, ap); 701 if (p->delim != (char *) 0) 702 q->delim = wdcopy(p->delim, ap); 703 if (p->heredoc != (char *) 0) 704 q->heredoc = str_save(p->heredoc, ap); 705 } 706 ior[i] = NULL; 707 708 return ior; 709 } 710 711 /* 712 * free tree (for function definition) 713 */ 714 715 void 716 tfree(t, ap) 717 register struct op *t; 718 Area *ap; 719 { 720 register char **w; 721 722 if (t == NULL) 723 return; 724 725 if (t->str != NULL) 726 afree((void*)t->str, ap); 727 728 if (t->vars != NULL) { 729 for (w = t->vars; *w != NULL; w++) 730 afree((void*)*w, ap); 731 afree((void*)t->vars, ap); 732 } 733 734 if (t->args != NULL) { 735 for (w = t->args; *w != NULL; w++) 736 afree((void*)*w, ap); 737 afree((void*)t->args, ap); 738 } 739 740 if (t->ioact != NULL) 741 iofree(t->ioact, ap); 742 743 tfree(t->left, ap); 744 tfree(t->right, ap); 745 746 afree((void*)t, ap); 747 } 748 749 static void 750 iofree(iow, ap) 751 struct ioword **iow; 752 Area *ap; 753 { 754 register struct ioword **iop; 755 register struct ioword *p; 756 757 for (iop = iow; (p = *iop++) != NULL; ) { 758 if (p->name != NULL) 759 afree((void*)p->name, ap); 760 if (p->delim != NULL) 761 afree((void*)p->delim, ap); 762 if (p->heredoc != NULL) 763 afree((void*)p->heredoc, ap); 764 afree((void*)p, ap); 765 } 766 } 767
Indexes created Fri Sep 26 08:10:20 GMT 2025