calc3.y revision eb1a5f8de9f7ea602c373a710f531abbf81141c4
1%pure-parser
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#ifdef YYBISON
13#define YYSTYPE int
14#define YYLEX_PARAM base
15#define YYLEX_DECL() yylex(YYSTYPE *yylval, int *YYLEX_PARAM)
16#define YYERROR_DECL() yyerror(int regs[26], int *base, const char *s)
17int YYLEX_DECL();
18static void YYERROR_DECL();
19#endif
20
21%}
22
23%start list
24
25%token DIGIT LETTER
26
27%left '|'
28%left '&'
29%left '+' '-'
30%left '*' '/' '%'
31%left UMINUS   /* supplies precedence for unary minus */
32
33%% /* beginning of rules section */
34
35list  :  /* empty */
36      |  list stat '\n'
37      |  list error '\n'
38            {  yyerrok ; }
39      ;
40
41stat  :  expr
42            {  printf("%d\n",$1);}
43      |  LETTER '=' expr
44            {  regs[$1] = $3; }
45      ;
46
47expr  :  '(' expr ')'
48            {  $$ = $2; }
49      |  expr '+' expr
50            {  $$ = $1 + $3; }
51      |  expr '-' expr
52            {  $$ = $1 - $3; }
53      |  expr '*' expr
54            {  $$ = $1 * $3; }
55      |  expr '/' expr
56            {  $$ = $1 / $3; }
57      |  expr '%' expr
58            {  $$ = $1 % $3; }
59      |  expr '&' expr
60            {  $$ = $1 & $3; }
61      |  expr '|' expr
62            {  $$ = $1 | $3; }
63      |  '-' expr %prec UMINUS
64            {  $$ = - $2; }
65      |  LETTER
66            {  $$ = regs[$1]; }
67      |  number
68      ;
69
70number:  DIGIT
71         {  $$ = $1; (*base) = ($1==0) ? 8 : 10; }
72      |  number DIGIT
73         {  $$ = (*base) * $1 + $2; }
74      ;
75
76%% /* start of programs */
77
78#ifdef YYBYACC
79extern int YYLEX_DECL();
80#endif
81
82int
83main (void)
84{
85    int regs[26];
86    int base = 10;
87
88    while(!feof(stdin)) {
89	yyparse(regs, &base);
90    }
91    return 0;
92}
93
94static void
95YYERROR_DECL()
96{
97    fprintf(stderr, "%s\n", s);
98}
99
100int
101YYLEX_DECL()
102{
103	/* lexical analysis routine */
104	/* returns LETTER for a lower case letter, yylval = 0 through 25 */
105	/* return DIGIT for a digit, yylval = 0 through 9 */
106	/* all other characters are returned immediately */
107
108    int c;
109
110    while( (c=getchar()) == ' ' )   { /* skip blanks */ }
111
112    /* c is now nonblank */
113
114    if( islower( c )) {
115	*yylval = (c - 'a');
116	return ( LETTER );
117    }
118    if( isdigit( c )) {
119	*yylval = (c - '0') % (*base);
120	return ( DIGIT );
121    }
122    return( c );
123}
124