Interpreter/Simple.l at master · hotTeaFun/Interpreter · GitHub

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
/***************************************************************************
Scanner for the Simple language
***************************************************************************/
%{
/*=========================================================================
C-libraries and Token definitions
=========================================================================*/
#include <string.h>        /* for strdup                       */
/*#include <stdlib.h> */   /* for atoi                         */
#include "Simple.tab.h"    /* for token definitions and yylval */
%}
/*=========================================================================
Token definitions
=========================================================================*/
decimal_constant   [[:digit:]]*
hexadecimal_constant [Oo][xX][[:xdigit:]]+
octal_constant [Oo][0-7]*
dseq      ([[:digit:]]+)
dseq_opt  ([[:digit:]]*)
frac      (({dseq_opt}"."{dseq})|{dseq}".")
_exp       ([eE][+-]?{dseq})
exp_opt   ({_exp}?)
fsuff     [flFL]
fsuff_opt ({fsuff}?)
hpref     (0[xX])
hdseq     ([[:xdigit:]]+)
hdseq_opt ([[:xdigit:]]*)
hfrac     (({hdseq_opt}"."{hdseq})|({hdseq}"."))
bexp      ([pP][+-]?{dseq})
dfc       (({frac}{exp_opt}{fsuff_opt})|({dseq}{exp}{fsuff_opt}))
hfc       (({hpref}{hfrac}{bexp}{fsuff_opt})|({hpref}{hdseq}{bexp}{fsuff_opt}))
c99_floating_point_constant  ({dfc}|{hfc})
ucn        ((\\u([[:xdigit:]]{4}))|(\\U([[:xdigit:]]{8})))
nondigit    [_[:alpha:]]
c99_id     ([_[:alpha:]]|{ucn})([_[:alnum:]]|{ucn})*
/* constants */
/* integers */
0[0-7]*{ILEN}?
[1-9][0-9]*{ILEN}?
0[Xx][0-9a-fA-F]+{ILEN}?
/* decimal float */
([0-9]*\.[0-9]+|[0-9]+\.){EXP}?[flFL]?
[0-9]+{EXP}[flFL]?
/* hex float */
0[Xx]([0-9a-fA-F]*\.[0-9a-fA-F]+|[0-9a-fA-F]+\.?)[Pp][-+]?[0-9]+[flFL]?
/* char const */
\'([^'\\]|\\['"?\\abfnrtv]|\\[0-7]{1,3}|\\[Xx][0-9a-fA-F]+|{UCN})+\'
/* string literal */
L?\"([^"\\]|\\['"?\\abfnrtv]|\\[0-7]{1,3}|\\[Xx][0-9a-fA-F]+|{UCN})*\"
/* continued line */
\\$
/* recognize an include */
^"#"[ \t]*include[ \t]*[\"<] { BEGIN IFILE; }
<IFILE>[^>\"]+ {
{ int c;
while((c = input()) && c != '\n') ;
}
newfile(strdup(yytext));
BEGIN INITIAL;
}
<IFILE>.|\n
<<EOF>>
{ fprintf(stderr, "%s:%d bad include line\n",
curfilename, yylineno);
BEGIN INITIAL;
}
{ if(!popfile()) yyterminate(); }
ID      [a-z][a-z0-9]*
%x COMMENT
/*=========================================================================
REGULAR EXPRESSIONS defining the tokens for the Simple language
=========================================================================*/
%%
do        { return(DO);      }
else      { return(ELSE);    }
if        { return(IF);      }
var       { return(VAR);     }
val       { return(VAl);     }
console   { return(CONSOLE); }
switch    { return(SWITCH);  }
case      { return(case);    }
default   { return(DEFALUT); }
continue  { return(CONTINUE);}
break     { return(BREAK);   }
while     { return(WHILE);   }
for       { return(FOR);     }
function  { return(FUNCTION);}
NAN       { return(NAN);     }
return    { return(RETURN);  }
yield     { return(YIELD);   }
true      { return(_TRUE);   }
false     { return(_FALSE);  }
NULL      { return(_NULL);   }
INFINITY  { return(INFINITY);}
try       { return(TRY);     }
catch     { return(CATCH);   }
throw     { return(THROW);   }
finally   { return(FINALLY); }
import    { return(IMPORT);  }
package   { return(PACKAGE); }
super     { return(SUPER);   }
this      { return(THIS);    }
new       { return(NEW);     }
interface { return(INTERFACE); }
implement { return(IMPLEMENT); }
public    { return(PUBLIC);    }
private   { return(PRIVATE);   }
protected { return(PROTECTED); }
{DIGIT}+ { (*yylval.litreal).flag=_int; (*yylval.litreal).string_value =(char *) strdup(yytext);
           return(LITERAL);  }
{ c99_floating_point_constant } { (*yylval.litreal).flag=_double; (*yylval.litreal).string_value =(char *) strdup(yytext);
           return(LITERAL);     }
{ c99_id }     { yylval.id = (char *) strdup(yytext);
               return(IDENTIFIER);    }
[ \t\n]+ /* eat up whitespace */
"\""
"/*"  { BEGIN(COMMENT); }
<COMMENT>"*/" { BEGIN(INITIAL); }
<COMMENT>([^*]|\n)+|.
<COMMENT><<EOF>> { printf("%d: Unterminated comment\n",yylineno); return 0; }
"//".*\n /* ignore comment */

.        { return(yytext[0]);     }
%%
int yywrap(void){}
/************************** End Scanner File *****************************/