blob: 2513433212bfea545d9f99f6d52e0a24fad0d537 (
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
|
%{
#define YYSTYPE double
#include "cal_tab.h"
int c;
extern YYSTYPE yylval;
double translate(int type);
void count(void);
void setLastVar(void);
int lookup(int *typeOfObject);
struct lextab *lexswitch(struct lextab *lp);
#define INTCONST 1
#define DBLCONST 2
#define HEXCONST 3
#define VARIABLE 4
#define OTHER 5
%}
digit = [0-9];
letter = [a-zA-Z_];
hex = [a-fA-F0-9];
/* -- */
space = [\40];
/*number = (digit* | "-" digit*);*/
number = digit*;
exp = [Ee] number;
doubl = number "." (digit* | digit* exp);
%%
hex hex* [hH] { count(); yylval = translate(HEXCONST); return VALUE; }
digit* { count(); yylval = translate(INTCONST); return VALUE; }
digit digit* [Dd] { count(); yylval = translate(INTCONST); return VALUE; }
doubl { count(); yylval = translate(DBLCONST); return VALUE; }
letter* { count(); { int typeOfObject; setLastVar(); yylval = lookup(&typeOfObject); return typeOfObject; }}
letter (letter|digit)* { count(); { int typeOfObject; setLastVar(); yylval = lookup(&typeOfObject); return typeOfObject; }}
'+' { count(); return '+'; }
'-' { count(); return '-'; }
'*' { count(); return '*'; }
'/' { count(); return '/'; }
'%' { count(); return '%'; }
'&' { count(); return '&'; }
'|' { count(); return '|'; }
'(' { count(); return '('; }
')' { count(); return ')'; }
'=' { count(); return '='; }
',' { count(); return ','; }
';' { count(); return ';'; }
[ \t\v\f] { count(); }
. { count(); }
%%
|
