1 /* $NetBSD: calc2.y,v 1.1.1.1 2010/12/23 23:36:30 christos Exp $ */ 2 3 %parse-param { int regs[26] } 4 %parse-param { int *base } 5 6 %lex-param { int *base } 7 8 %{ 9 # include <stdio.h> 10 # include <ctype.h> 11 12 %} 13 14 %start list 15 16 %token DIGIT LETTER 17 18 %left '|' 19 %left '&' 20 %left '+' '-' 21 %left '*' '/' '%' 22 %left UMINUS /* supplies precedence for unary minus */ 23 24 %% /* beginning of rules section */ 25 26 list : /* empty */ 27 | list stat '\n' 28 | list error '\n' 29 { yyerrok ; } 30 ; 31 32 stat : expr 33 { printf("%d\n",$1);} 34 | LETTER '=' expr 35 { regs[$1] = $3; } 36 ; 37 38 expr : '(' expr ')' 39 { $$ = $2; } 40 | expr '+' expr 41 { $$ = $1 + $3; } 42 | expr '-' expr 43 { $$ = $1 - $3; } 44 | expr '*' expr 45 { $$ = $1 * $3; } 46 | expr '/' expr 47 { $$ = $1 / $3; } 48 | expr '%' expr 49 { $$ = $1 % $3; } 50 | expr '&' expr 51 { $$ = $1 & $3; } 52 | expr '|' expr 53 { $$ = $1 | $3; } 54 | '-' expr %prec UMINUS 55 { $$ = - $2; } 56 | LETTER 57 { $$ = regs[$1]; } 58 | number 59 ; 60 61 number: DIGIT 62 { $$ = $1; (*base) = ($1==0) ? 8 : 10; } 63 | number DIGIT 64 { $$ = (*base) * $1 + $2; } 65 ; 66 67 %% /* start of programs */ 68 69 int 70 main (void) 71 { 72 int regs[26]; 73 int base = 10; 74 75 while(!feof(stdin)) { 76 yyparse(regs, &base); 77 } 78 return 0; 79 } 80 81 static void 82 YYERROR_DECL() 83 { 84 fprintf(stderr, "%s\n", s); 85 } 86 87 int 88 yylex(int *base) 89 { 90 /* lexical analysis routine */ 91 /* returns LETTER for a lower case letter, yylval = 0 through 25 */ 92 /* return DIGIT for a digit, yylval = 0 through 9 */ 93 /* all other characters are returned immediately */ 94 95 int c; 96 97 while( (c=getchar()) == ' ' ) { /* skip blanks */ } 98 99 /* c is now nonblank */ 100 101 if( islower( c )) { 102 yylval = c - 'a'; 103 return ( LETTER ); 104 } 105 if( isdigit( c )) { 106 yylval = (c - '0') % (*base); 107 return ( DIGIT ); 108 } 109 return( c ); 110 } 111