1 %token ARITH_NUM ARITH_LPAREN ARITH_RPAREN 2 3 %left ARITH_OR 4 %left ARITH_AND 5 %left ARITH_BOR 6 %left ARITH_BXOR 7 %left ARITH_BAND 8 %left ARITH_EQ ARITH_NE 9 %left ARITH_LT ARITH_GT ARITH_GE ARITH_LE 10 %left ARITH_LSHIFT ARITH_RSHIFT 11 %left ARITH_ADD ARITH_SUB 12 %left ARITH_MUL ARITH_DIV ARITH_REM 13 %left ARITH_UNARYMINUS ARITH_UNARYPLUS ARITH_NOT ARITH_BNOT 14 %% 15 16 exp: expr = { 17 return ($1); 18 } 19 ; 20 21 22 expr: ARITH_LPAREN expr ARITH_RPAREN = { $$ = $2; } 23 | expr ARITH_OR expr = { $$ = $1 ? $1 : $3 ? $3 : 0; } 24 | expr ARITH_AND expr = { $$ = $1 ? ( $3 ? $3 : 0 ) : 0; } 25 | expr ARITH_BOR expr = { $$ = $1 | $3; } 26 | expr ARITH_BXOR expr = { $$ = $1 ^ $3; } 27 | expr ARITH_BAND expr = { $$ = $1 & $3; } 28 | expr ARITH_EQ expr = { $$ = $1 == $3; } 29 | expr ARITH_GT expr = { $$ = $1 > $3; } 30 | expr ARITH_GE expr = { $$ = $1 >= $3; } 31 | expr ARITH_LT expr = { $$ = $1 < $3; } 32 | expr ARITH_LE expr = { $$ = $1 <= $3; } 33 | expr ARITH_NE expr = { $$ = $1 != $3; } 34 | expr ARITH_LSHIFT expr = { $$ = $1 << $3; } 35 | expr ARITH_RSHIFT expr = { $$ = $1 >> $3; } 36 | expr ARITH_ADD expr = { $$ = $1 + $3; } 37 | expr ARITH_SUB expr = { $$ = $1 - $3; } 38 | expr ARITH_MUL expr = { $$ = $1 * $3; } 39 | expr ARITH_DIV expr = { 40 if ($3 == 0) 41 yyerror("division by zero"); 42 $$ = $1 / $3; 43 } 44 | expr ARITH_REM expr = { 45 if ($3 == 0) 46 yyerror("division by zero"); 47 $$ = $1 % $3; 48 } 49 | ARITH_NOT expr = { $$ = !($2); } 50 | ARITH_BNOT expr = { $$ = ~($2); } 51 | ARITH_SUB expr %prec ARITH_UNARYMINUS = { $$ = -($2); } 52 | ARITH_ADD expr %prec ARITH_UNARYPLUS = { $$ = $2; } 53 | ARITH_NUM 54 ; 55 %% 56 /*- 57 * Copyright (c) 1993 58 * The Regents of the University of California. All rights reserved. 59 * 60 * This code is derived from software contributed to Berkeley by 61 * Kenneth Almquist. 62 * 63 * %sccs.include.redist.c% 64 */ 65 66 #ifndef lint 67 static char sccsid[] = "@(#)arith.y 8.2 (Berkeley) 04/27/95"; 68 #endif /* not lint */ 69 70 #include "shell.h" 71 #include "error.h" 72 #include "output.h" 73 #include "memalloc.h" 74 75 char *arith_buf, *arith_startbuf; 76 77 arith(s) 78 char *s; 79 { 80 long result; 81 82 arith_buf = arith_startbuf = s; 83 84 INTOFF; 85 result = yyparse(); 86 arith_lex_reset(); /* reprime lex */ 87 INTON; 88 89 return (result); 90 } 91 92 yyerror(s) 93 char *s; 94 { 95 extern yytext, yylval; 96 97 yyerrok; 98 yyclearin; 99 arith_lex_reset(); /* reprime lex */ 100 error("arithmetic expression: %s: \"%s\"", s, arith_startbuf); 101 } 102 103 /* 104 * The exp(1) builtin. 105 */ 106 expcmd(argc, argv) 107 char **argv; 108 { 109 char *p; 110 char *concat; 111 char **ap; 112 long i; 113 114 if (argc > 1) { 115 p = argv[1]; 116 if (argc > 2) { 117 /* 118 * concatenate arguments 119 */ 120 STARTSTACKSTR(concat); 121 ap = argv + 2; 122 for (;;) { 123 while (*p) 124 STPUTC(*p++, concat); 125 if ((p = *ap++) == NULL) 126 break; 127 STPUTC(' ', concat); 128 } 129 STPUTC('\0', concat); 130 p = grabstackstr(concat); 131 } 132 } else 133 p = ""; 134 135 i = arith(p); 136 137 out1fmt("%d\n", i); 138 return (! i); 139 } 140 141 /*************************/ 142 #ifdef TEST_ARITH 143 #include <stdio.h> 144 main(argc, argv) 145 char *argv[]; 146 { 147 printf("%d\n", exp(argv[1])); 148 } 149 error(s) 150 char *s; 151 { 152 fprintf(stderr, "exp: %s\n", s); 153 exit(1); 154 } 155 #endif 156