blob: a22f231ef60ae224875a781be7e365a34e97424f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
%pure_parser
%parse_param { int regs[26] }
%parse_param { int *base }
%lex_param { int *base }
%{
# include <stdio.h>
# include <ctype.h>
#ifdef YYBISON
#define YYSTYPE int
#define YYLEX_PARAM base
#define YYLEX_DECL() yylex(YYSTYPE *yylval, int *YYLEX_PARAM)
#define YYERROR_DECL() yyerror(int regs[26], int *base, const char *s)
int YYLEX_DECL();
static void YYERROR_DECL();
#endif
%}
%start list
%token DIGIT LETTER
%token OCT1 '\177'
%token HEX1 '\xff'
%token HEX2 '\xFF'
%token HEX3 '\x7f'
%token STR1 "\x7f\177\\\n"
%token STR2 "\x7f\
\177\\\n"
%token BELL '\a'
%token BS '\b'
%token NL '\n'
%token LF '\f'
%token CR '\r'
%token TAB '\t'
%token VT '\v'
%union
{
char * cval;
int ival;
double dval;
}
%0 '@'
%2 '~'
%> '^'
%< '#'
%left '|'
%left '&'
%left '+' '-'
%left '*' '/' '%'
%left UMINUS /* supplies precedence for unary minus */
%% /* beginning of rules section */
list : /* empty */
| list stat '\n'
| list error '\n'
{ yyerrok ; }
;
stat : expr
{ printf("%d\n",$<ival>1);}
| LETTER '=' expr
{ regs[$<ival>1] = $<ival>3; }
;
expr : '(' expr ')'
{ $<ival>$ = $<ival>2; }
| expr '+' expr
{ $<ival>$ = $<ival>1 + $<ival>3; }
| expr '-' expr
{ $<ival>$ = $<ival>1 - $<ival>3; }
| expr '*' expr
{ $<ival>$ = $<ival>1 * $<ival>3; }
| expr '/' expr
{ $<ival>$ = $<ival>1 / $<ival>3; }
| expr '%' expr
{ $<ival>$ = $<ival>1 % $<ival>3; }
| expr '&' expr
{ $<ival>$ = $<ival>1 & $<ival>3; }
| expr '|' expr
{ $<ival>$ = $<ival>1 | $<ival>3; }
| '-' expr %prec UMINUS
{ $<ival>$ = - $<ival>2; }
| LETTER
{ $<ival>$ = regs[$<ival>1]; }
| number
;
number: DIGIT
{ $<ival>$ = $<ival>1; (*base) = ($<ival>1==0) ? 8 : 10; }
| number DIGIT
{ $<ival>$ = (*base) * $<ival>1 + $<ival>2; }
;
%% /* start of programs */
#ifdef YYBYACC
extern int YYLEX_DECL();
#endif
int
main (void)
{
int regs[26];
int base = 10;
while(!feof(stdin)) {
yyparse(regs, &base);
}
return 0;
}
#define UNUSED(x) ((void)(x))
static void
YYERROR_DECL()
{
UNUSED(regs); /* %parse-param regs is not actually used here */
UNUSED(base); /* %parse-param base is not actually used here */
fprintf(stderr, "%s\n", s);
}
int
YYLEX_DECL()
{
/* lexical analysis routine */
/* returns LETTER for a lower case letter, yylval = 0 through 25 */
/* return DIGIT for a digit, yylval = 0 through 9 */
/* all other characters are returned immediately */
int c;
while( (c=getchar()) == ' ' ) { /* skip blanks */ }
/* c is now nonblank */
if( islower( c )) {
yylval->ival = (c - 'a');
return ( LETTER );
}
if( isdigit( c )) {
yylval->ival = (c - '0') % (*base);
return ( DIGIT );
}
return( c );
}
|
