|
2
|
1 %{
|
|
|
2 #include <cstdlib>
|
|
|
3 #include <errno.h>
|
|
|
4 #include <limits.h>
|
|
|
5 #include <string>
|
|
|
6 #include "compiler.h"
|
|
|
7 #include "script-parser.hh"
|
|
|
8
|
|
|
9 #ifdef _MSC_VER
|
|
|
10 #pragma warning(disable:4018)
|
|
|
11 #pragma warning(disable:4102)
|
|
|
12 #pragma warning(disable:4244)
|
|
|
13 #pragma warning(disable:4267)
|
|
|
14 #pragma warning(disable:4996)
|
|
|
15 #endif
|
|
|
16
|
|
|
17 #undef yywrap
|
|
|
18 #define yywrap() 1
|
|
|
19
|
|
|
20 #define yyterminate() return token::END_OF_FILE
|
|
|
21 %}
|
|
|
22
|
|
|
23 %option noyywrap nounput batch
|
|
|
24 %option never-interactive
|
|
|
25 %option noyy_scan_buffer
|
|
|
26 %option noyy_scan_bytes
|
|
|
27 %option noyy_scan_string
|
|
|
28 %option 8bit
|
|
|
29 %option nounistd
|
|
|
30
|
|
|
31 id [a-zA-Z_][a-zA-Z_0-9]*
|
|
|
32 int [1-9][0-9]*
|
|
|
33 blank [ \t]
|
|
|
34
|
|
|
35 %x COMMENT
|
|
|
36
|
|
|
37 %{
|
|
|
38 #define YY_USER_ACTION yylloc->columns(yyleng);
|
|
|
39 %}
|
|
|
40 %%
|
|
|
41 %{
|
|
|
42 typedef yy::script_parser::token token;
|
|
|
43
|
|
|
44 yylloc->step();
|
|
|
45
|
|
|
46 std::string string_buffer;
|
|
|
47 %}
|
|
|
48 <INITIAL>{
|
|
|
49 "^#" { yylloc->step(); BEGIN(COMMENT); }
|
|
|
50 "'" { yylloc->step(); BEGIN(COMMENT); }
|
|
|
51 "rem" { yylloc->step(); BEGIN(COMMENT); }
|
|
|
52
|
|
|
53 "if" return token::TK_IF;
|
|
|
54 "then" return token::TK_THEN;
|
|
|
55 "else" return token::TK_ELSE;
|
|
|
56 "endif" return token::TK_ENDIF;
|
|
|
57 "for" return token::TK_FOR;
|
|
|
58 "to" return token::TK_TO;
|
|
|
59 "next" return token::TK_NEXT;
|
|
|
60 "while" return token::TK_WHILE;
|
|
|
61 "wend" return token::TK_WEND;
|
|
|
62 "end" return token::TK_END;
|
|
|
63 "rand" return token::TK_RAND;
|
|
|
64 "print" return token::TK_PRINT;
|
|
3
|
65 ":" return token::TK_COLON;
|
|
|
66 "goto" return token::TK_GOTO;
|
|
2
|
67
|
|
|
68 \\\n yylloc->lines();
|
|
|
69
|
|
3
|
70
|
|
2
|
71 \n { yylloc->lines(); return token::TK_NEWLINE; }
|
|
|
72 [-+*/%=,()<>] return yy::script_parser::token_type(yytext[0]);
|
|
|
73
|
|
|
74 "==" return token::TK_EQ;
|
|
|
75 "!=" return token::TK_NE;
|
|
|
76 ">=" return token::TK_GE;
|
|
|
77 "<=" return token::TK_LE;
|
|
|
78
|
|
|
79 {blank}+ yylloc->step();
|
|
|
80 {int} {
|
|
|
81 errno = 0;
|
|
|
82 long n = strtol(yytext, NULL, 10);
|
|
|
83 if (n < LONG_MIN || n > LONG_MAX || errno == ERANGE)
|
|
|
84 driver.error(*yylloc, "整数が範囲外です。");
|
|
|
85 yylval->ival = n;
|
|
|
86 return token::TK_IVAL;
|
|
|
87 }
|
|
|
88 "0" {
|
|
|
89 yylval->ival = 0;
|
|
|
90 return token::TK_IVAL;
|
|
|
91 }
|
|
|
92 {id} {
|
|
|
93 yylval->sval = new std::string(yytext);
|
|
|
94 return token::TK_IDENTIFIER;
|
|
|
95 }
|
|
|
96 . driver.error(*yylloc, "この文字を識別子で使用することはできません。");
|
|
|
97 }
|
|
|
98 <COMMENT>{
|
|
|
99 [^\n]*
|
|
|
100 \n {
|
|
|
101 yylloc->lines();
|
|
|
102 yylloc->step();
|
|
|
103 BEGIN(INITIAL);
|
|
|
104 }
|
|
|
105 }
|
|
|
106 %%
|
|
|
107
|
|
|
108 void compiler::scan_begin()
|
|
|
109 {
|
|
|
110 if ((yyin = fopen(file.c_str(), "r")) == 0)
|
|
|
111 error(file + " がオープンできません。");
|
|
|
112 }
|
|
|
113
|
|
|
114 void compiler::scan_end()
|
|
|
115 {
|
|
|
116 fclose(yyin);
|
|
|
117 yylex_destroy();
|
|
|
118 }
|
