exp.c revision 1.1
1 /*- 2 * Copyright (c) 1980, 1991 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * Redistribution and use in source and binary forms, with or without 6 * modification, are permitted provided that the following conditions 7 * are met: 8 * 1. Redistributions of source code must retain the above copyright 9 * notice, this list of conditions and the following disclaimer. 10 * 2. Redistributions in binary form must reproduce the above copyright 11 * notice, this list of conditions and the following disclaimer in the 12 * documentation and/or other materials provided with the distribution. 13 * 3. All advertising materials mentioning features or use of this software 14 * must display the following acknowledgement: 15 * This product includes software developed by the University of 16 * California, Berkeley and its contributors. 17 * 4. Neither the name of the University nor the names of its contributors 18 * may be used to endorse or promote products derived from this software 19 * without specific prior written permission. 20 * 21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 31 * SUCH DAMAGE. 32 */ 33 34 #ifndef lint 35 static char sccsid[] = "@(#)exp.c 5.11 (Berkeley) 6/8/91"; 36 #endif /* not lint */ 37 38 #include <sys/types.h> 39 #include <sys/stat.h> 40 #include <stdlib.h> 41 #include <unistd.h> 42 #if __STDC__ 43 # include <stdarg.h> 44 #else 45 # include <varargs.h> 46 #endif 47 48 #include "csh.h" 49 #include "extern.h" 50 51 #define IGNORE 1 /* in ignore, it means to ignore value, just parse */ 52 #define NOGLOB 2 /* in ignore, it means not to globone */ 53 54 #define ADDOP 1 55 #define MULOP 2 56 #define EQOP 4 57 #define RELOP 8 58 #define RESTOP 16 59 #define ANYOP 31 60 61 #define EQEQ 1 62 #define GTR 2 63 #define LSS 4 64 #define NOTEQ 6 65 #define EQMATCH 7 66 #define NOTEQMATCH 8 67 68 static int exp1 __P((Char ***, bool)); 69 static int exp2 __P((Char ***, bool)); 70 static int exp2a __P((Char ***, bool)); 71 static int exp2b __P((Char ***, bool)); 72 static int exp2c __P((Char ***, bool)); 73 static Char * exp3 __P((Char ***, bool)); 74 static Char * exp3a __P((Char ***, bool)); 75 static Char * exp4 __P((Char ***, bool)); 76 static Char * exp5 __P((Char ***, bool)); 77 static Char * exp6 __P((Char ***, bool)); 78 static void evalav __P((Char **)); 79 static int isa __P((Char *, int)); 80 static int egetn __P((Char *)); 81 82 #ifdef EDEBUG 83 static void etracc __P((char *, Char *, Char ***)); 84 static void etraci __P((char *, int, Char ***)); 85 #endif 86 87 int 88 exp(vp) 89 register Char ***vp; 90 { 91 return (exp0(vp, 0)); 92 } 93 94 int 95 exp0(vp, ignore) 96 register Char ***vp; 97 bool ignore; 98 { 99 register int p1 = exp1(vp, ignore); 100 101 #ifdef EDEBUG 102 etraci("exp0 p1", p1, vp); 103 #endif 104 if (**vp && eq(**vp, STRor2)) { 105 register int p2; 106 107 (*vp)++; 108 p2 = exp0(vp, (ignore & IGNORE) || p1); 109 #ifdef EDEBUG 110 etraci("exp0 p2", p2, vp); 111 #endif 112 return (p1 || p2); 113 } 114 return (p1); 115 } 116 117 static int 118 exp1(vp, ignore) 119 register Char ***vp; 120 bool ignore; 121 { 122 register int p1 = exp2(vp, ignore); 123 124 #ifdef EDEBUG 125 etraci("exp1 p1", p1, vp); 126 #endif 127 if (**vp && eq(**vp, STRand2)) { 128 register int p2; 129 130 (*vp)++; 131 p2 = exp1(vp, (ignore & IGNORE) || !p1); 132 #ifdef EDEBUG 133 etraci("exp1 p2", p2, vp); 134 #endif 135 return (p1 && p2); 136 } 137 return (p1); 138 } 139 140 static int 141 exp2(vp, ignore) 142 register Char ***vp; 143 bool ignore; 144 { 145 register int p1 = exp2a(vp, ignore); 146 147 #ifdef EDEBUG 148 etraci("exp3 p1", p1, vp); 149 #endif 150 if (**vp && eq(**vp, STRor)) { 151 register int p2; 152 153 (*vp)++; 154 p2 = exp2(vp, ignore); 155 #ifdef EDEBUG 156 etraci("exp3 p2", p2, vp); 157 #endif 158 return (p1 | p2); 159 } 160 return (p1); 161 } 162 163 static int 164 exp2a(vp, ignore) 165 register Char ***vp; 166 bool ignore; 167 { 168 register int p1 = exp2b(vp, ignore); 169 170 #ifdef EDEBUG 171 etraci("exp2a p1", p1, vp); 172 #endif 173 if (**vp && eq(**vp, STRcaret)) { 174 register int p2; 175 176 (*vp)++; 177 p2 = exp2a(vp, ignore); 178 #ifdef EDEBUG 179 etraci("exp2a p2", p2, vp); 180 #endif 181 return (p1 ^ p2); 182 } 183 return (p1); 184 } 185 186 static int 187 exp2b(vp, ignore) 188 register Char ***vp; 189 bool ignore; 190 { 191 register int p1 = exp2c(vp, ignore); 192 193 #ifdef EDEBUG 194 etraci("exp2b p1", p1, vp); 195 #endif 196 if (**vp && eq(**vp, STRand)) { 197 register int p2; 198 199 (*vp)++; 200 p2 = exp2b(vp, ignore); 201 #ifdef EDEBUG 202 etraci("exp2b p2", p2, vp); 203 #endif 204 return (p1 & p2); 205 } 206 return (p1); 207 } 208 209 static int 210 exp2c(vp, ignore) 211 register Char ***vp; 212 bool ignore; 213 { 214 register Char *p1 = exp3(vp, ignore); 215 register Char *p2; 216 register int i; 217 218 #ifdef EDEBUG 219 etracc("exp2c p1", p1, vp); 220 #endif 221 if (i = isa(**vp, EQOP)) { 222 (*vp)++; 223 if (i == EQMATCH || i == NOTEQMATCH) 224 ignore |= NOGLOB; 225 p2 = exp3(vp, ignore); 226 #ifdef EDEBUG 227 etracc("exp2c p2", p2, vp); 228 #endif 229 if (!(ignore & IGNORE)) 230 switch (i) { 231 232 case EQEQ: 233 i = eq(p1, p2); 234 break; 235 236 case NOTEQ: 237 i = !eq(p1, p2); 238 break; 239 240 case EQMATCH: 241 i = Gmatch(p1, p2); 242 break; 243 244 case NOTEQMATCH: 245 i = !Gmatch(p1, p2); 246 break; 247 } 248 xfree((ptr_t) p1); 249 xfree((ptr_t) p2); 250 return (i); 251 } 252 i = egetn(p1); 253 xfree((ptr_t) p1); 254 return (i); 255 } 256 257 static Char * 258 exp3(vp, ignore) 259 register Char ***vp; 260 bool ignore; 261 { 262 register Char *p1, *p2; 263 register int i; 264 265 p1 = exp3a(vp, ignore); 266 #ifdef EDEBUG 267 etracc("exp3 p1", p1, vp); 268 #endif 269 if (i = isa(**vp, RELOP)) { 270 (*vp)++; 271 if (**vp && eq(**vp, STRequal)) 272 i |= 1, (*vp)++; 273 p2 = exp3(vp, ignore); 274 #ifdef EDEBUG 275 etracc("exp3 p2", p2, vp); 276 #endif 277 if (!(ignore & IGNORE)) 278 switch (i) { 279 280 case GTR: 281 i = egetn(p1) > egetn(p2); 282 break; 283 284 case GTR | 1: 285 i = egetn(p1) >= egetn(p2); 286 break; 287 288 case LSS: 289 i = egetn(p1) < egetn(p2); 290 break; 291 292 case LSS | 1: 293 i = egetn(p1) <= egetn(p2); 294 break; 295 } 296 xfree((ptr_t) p1); 297 xfree((ptr_t) p2); 298 return (putn(i)); 299 } 300 return (p1); 301 } 302 303 static Char * 304 exp3a(vp, ignore) 305 register Char ***vp; 306 bool ignore; 307 { 308 register Char *p1, *p2, *op; 309 register int i; 310 311 p1 = exp4(vp, ignore); 312 #ifdef EDEBUG 313 etracc("exp3a p1", p1, vp); 314 #endif 315 op = **vp; 316 if (op && any("<>", op[0]) && op[0] == op[1]) { 317 (*vp)++; 318 p2 = exp3a(vp, ignore); 319 #ifdef EDEBUG 320 etracc("exp3a p2", p2, vp); 321 #endif 322 if (op[0] == '<') 323 i = egetn(p1) << egetn(p2); 324 else 325 i = egetn(p1) >> egetn(p2); 326 xfree((ptr_t) p1); 327 xfree((ptr_t) p2); 328 return (putn(i)); 329 } 330 return (p1); 331 } 332 333 static Char * 334 exp4(vp, ignore) 335 register Char ***vp; 336 bool ignore; 337 { 338 register Char *p1, *p2; 339 register int i = 0; 340 341 p1 = exp5(vp, ignore); 342 #ifdef EDEBUG 343 etracc("exp4 p1", p1, vp); 344 #endif 345 if (isa(**vp, ADDOP)) { 346 register Char *op = *(*vp)++; 347 348 p2 = exp4(vp, ignore); 349 #ifdef EDEBUG 350 etracc("exp4 p2", p2, vp); 351 #endif 352 if (!(ignore & IGNORE)) 353 switch (op[0]) { 354 355 case '+': 356 i = egetn(p1) + egetn(p2); 357 break; 358 359 case '-': 360 i = egetn(p1) - egetn(p2); 361 break; 362 } 363 xfree((ptr_t) p1); 364 xfree((ptr_t) p2); 365 return (putn(i)); 366 } 367 return (p1); 368 } 369 370 static Char * 371 exp5(vp, ignore) 372 register Char ***vp; 373 bool ignore; 374 { 375 register Char *p1, *p2; 376 register int i = 0; 377 378 p1 = exp6(vp, ignore); 379 #ifdef EDEBUG 380 etracc("exp5 p1", p1, vp); 381 #endif 382 if (isa(**vp, MULOP)) { 383 register Char *op = *(*vp)++; 384 385 p2 = exp5(vp, ignore); 386 #ifdef EDEBUG 387 etracc("exp5 p2", p2, vp); 388 #endif 389 if (!(ignore & IGNORE)) 390 switch (op[0]) { 391 392 case '*': 393 i = egetn(p1) * egetn(p2); 394 break; 395 396 case '/': 397 i = egetn(p2); 398 if (i == 0) 399 stderror(ERR_DIV0); 400 i = egetn(p1) / i; 401 break; 402 403 case '%': 404 i = egetn(p2); 405 if (i == 0) 406 stderror(ERR_MOD0); 407 i = egetn(p1) % i; 408 break; 409 } 410 xfree((ptr_t) p1); 411 xfree((ptr_t) p2); 412 return (putn(i)); 413 } 414 return (p1); 415 } 416 417 static Char * 418 exp6(vp, ignore) 419 register Char ***vp; 420 bool ignore; 421 { 422 int ccode, i = 0; 423 register Char *cp, *dp, *ep; 424 425 if (**vp == 0) 426 stderror(ERR_NAME | ERR_EXPRESSION); 427 if (eq(**vp, STRbang)) { 428 (*vp)++; 429 cp = exp6(vp, ignore); 430 #ifdef EDEBUG 431 etracc("exp6 ! cp", cp, vp); 432 #endif 433 i = egetn(cp); 434 xfree((ptr_t) cp); 435 return (putn(!i)); 436 } 437 if (eq(**vp, STRtilde)) { 438 (*vp)++; 439 cp = exp6(vp, ignore); 440 #ifdef EDEBUG 441 etracc("exp6 ~ cp", cp, vp); 442 #endif 443 i = egetn(cp); 444 xfree((ptr_t) cp); 445 return (putn(~i)); 446 } 447 if (eq(**vp, STRLparen)) { 448 (*vp)++; 449 ccode = exp0(vp, ignore); 450 #ifdef EDEBUG 451 etraci("exp6 () ccode", ccode, vp); 452 #endif 453 if (*vp == 0 || **vp == 0 || ***vp != ')') 454 stderror(ERR_NAME | ERR_EXPRESSION); 455 (*vp)++; 456 return (putn(ccode)); 457 } 458 if (eq(**vp, STRLbrace)) { 459 register Char **v; 460 struct command faket; 461 Char *fakecom[2]; 462 463 faket.t_dtyp = NODE_COMMAND; 464 faket.t_dflg = 0; 465 faket.t_dcar = faket.t_dcdr = faket.t_dspr = NULL; 466 faket.t_dcom = fakecom; 467 fakecom[0] = STRfakecom; 468 fakecom[1] = NULL; 469 (*vp)++; 470 v = *vp; 471 for (;;) { 472 if (!**vp) 473 stderror(ERR_NAME | ERR_MISSING, '}'); 474 if (eq(*(*vp)++, STRRbrace)) 475 break; 476 } 477 if (ignore & IGNORE) 478 return (Strsave(STRNULL)); 479 psavejob(); 480 if (pfork(&faket, -1) == 0) { 481 *--(*vp) = 0; 482 evalav(v); 483 exitstat(); 484 } 485 pwait(); 486 prestjob(); 487 #ifdef EDEBUG 488 etraci("exp6 {} status", egetn(value(STRstatus)), vp); 489 #endif 490 return (putn(egetn(value(STRstatus)) == 0)); 491 } 492 if (isa(**vp, ANYOP)) 493 return (Strsave(STRNULL)); 494 cp = *(*vp)++; 495 if (*cp == '-' && any("erwxfdzopls", cp[1])) { 496 struct stat stb; 497 498 if (cp[2] != '\0') 499 stderror(ERR_NAME | ERR_FILEINQ); 500 /* 501 * Detect missing file names by checking for operator in the file name 502 * position. However, if an operator name appears there, we must make 503 * sure that there's no file by that name (e.g., "/") before announcing 504 * an error. Even this check isn't quite right, since it doesn't take 505 * globbing into account. 506 */ 507 if (isa(**vp, ANYOP) && stat(short2str(**vp), &stb)) 508 stderror(ERR_NAME | ERR_FILENAME); 509 510 dp = *(*vp)++; 511 if (ignore & IGNORE) 512 return (Strsave(STRNULL)); 513 ep = globone(dp, G_ERROR); 514 switch (cp[1]) { 515 516 case 'r': 517 i = !access(short2str(ep), R_OK); 518 break; 519 520 case 'w': 521 i = !access(short2str(ep), W_OK); 522 break; 523 524 case 'x': 525 i = !access(short2str(ep), X_OK); 526 break; 527 528 default: 529 if ( 530 #ifdef S_IFLNK 531 cp[1] == 'l' ? lstat(short2str(ep), &stb) : 532 #endif 533 stat(short2str(ep), &stb)) { 534 xfree((ptr_t) ep); 535 return (Strsave(STR0)); 536 } 537 switch (cp[1]) { 538 539 case 'f': 540 i = S_ISREG(stb.st_mode); 541 break; 542 543 case 'd': 544 i = S_ISDIR(stb.st_mode); 545 break; 546 547 case 'p': 548 #ifdef S_ISFIFO 549 i = S_ISFIFO(stb.st_mode); 550 #else 551 i = 0; 552 #endif 553 break; 554 555 case 'l': 556 #ifdef S_ISLNK 557 i = S_ISLNK(stb.st_mode); 558 #else 559 i = 0; 560 #endif 561 break; 562 563 case 's': 564 #ifdef S_ISSOCK 565 i = S_ISSOCK(stb.st_mode); 566 #else 567 i = 0; 568 #endif 569 break; 570 571 case 'z': 572 i = stb.st_size == 0; 573 break; 574 575 case 'e': 576 i = 1; 577 break; 578 579 case 'o': 580 i = stb.st_uid == uid; 581 break; 582 } 583 } 584 #ifdef EDEBUG 585 etraci("exp6 -? i", i, vp); 586 #endif 587 xfree((ptr_t) ep); 588 return (putn(i)); 589 } 590 #ifdef EDEBUG 591 etracc("exp6 default", cp, vp); 592 #endif 593 return (ignore & NOGLOB ? Strsave(cp) : globone(cp, G_ERROR)); 594 } 595 596 static void 597 evalav(v) 598 register Char **v; 599 { 600 struct wordent paraml1; 601 register struct wordent *hp = ¶ml1; 602 struct command *t; 603 register struct wordent *wdp = hp; 604 605 set(STRstatus, Strsave(STR0)); 606 hp->prev = hp->next = hp; 607 hp->word = STRNULL; 608 while (*v) { 609 register struct wordent *new = 610 (struct wordent *) xcalloc(1, sizeof *wdp); 611 612 new->prev = wdp; 613 new->next = hp; 614 wdp->next = new; 615 wdp = new; 616 wdp->word = Strsave(*v++); 617 } 618 hp->prev = wdp; 619 alias(¶ml1); 620 t = syntax(paraml1.next, ¶ml1, 0); 621 if (seterr) 622 stderror(ERR_OLD); 623 execute(t, -1, NULL, NULL); 624 freelex(¶ml1), freesyn(t); 625 } 626 627 static int 628 isa(cp, what) 629 register Char *cp; 630 register int what; 631 { 632 if (cp == 0) 633 return ((what & RESTOP) != 0); 634 if (cp[1] == 0) { 635 if (what & ADDOP && (*cp == '+' || *cp == '-')) 636 return (1); 637 if (what & MULOP && (*cp == '*' || *cp == '/' || *cp == '%')) 638 return (1); 639 if (what & RESTOP && (*cp == '(' || *cp == ')' || *cp == '!' || 640 *cp == '~' || *cp == '^' || *cp == '"')) 641 return (1); 642 } 643 else if (cp[2] == 0) { 644 if (what & RESTOP) { 645 if (cp[0] == '|' && cp[1] == '&') 646 return (1); 647 if (cp[0] == '<' && cp[1] == '<') 648 return (1); 649 if (cp[0] == '>' && cp[1] == '>') 650 return (1); 651 } 652 if (what & EQOP) { 653 if (cp[0] == '=') { 654 if (cp[1] == '=') 655 return (EQEQ); 656 if (cp[1] == '~') 657 return (EQMATCH); 658 } 659 else if (cp[0] == '!') { 660 if (cp[1] == '=') 661 return (NOTEQ); 662 if (cp[1] == '~') 663 return (NOTEQMATCH); 664 } 665 } 666 } 667 if (what & RELOP) { 668 if (*cp == '<') 669 return (LSS); 670 if (*cp == '>') 671 return (GTR); 672 } 673 return (0); 674 } 675 676 static int 677 egetn(cp) 678 register Char *cp; 679 { 680 if (*cp && *cp != '-' && !Isdigit(*cp)) 681 stderror(ERR_NAME | ERR_EXPRESSION); 682 return (getn(cp)); 683 } 684 685 /* Phew! */ 686 687 #ifdef EDEBUG 688 static void 689 etraci(str, i, vp) 690 char *str; 691 int i; 692 Char ***vp; 693 { 694 xprintf("%s=%d\t", str, i); 695 blkpr(*vp); 696 xprintf("\n"); 697 } 698 static void 699 etracc(str, cp, vp) 700 char *str; 701 Char *cp; 702 Char ***vp; 703 { 704 xprintf("%s=%s\t", str, cp); 705 blkpr(*vp); 706 xprintf("\n"); 707 } 708 #endif 709
Indexes created Tue Sep 23 14:10:03 GMT 2025