blob: a27aae96dcd636615d516c1e5fb4aed4c92aff87 (
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
|
/*
* IB Pseudocode Lexer
*
* Copyright (C) 2024 Runxi Yu <https://runxiyu.org>
* SPDX-License-Identifier: AGPL-3.0-or-later
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Affero General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program. If not, see <https://www.gnu.org/licenses/>.
*/
%{
#include "y.tab.h"
#include <stdio.h>
#include <stdlib.h>
%}
%%
[ \t\r]+ ;
\n return NEWLINE;
"//".* ;
"/*"([^*]*\*+([^/*][^*]*\*+)*)*"*/" ;
"func" return FUNC;
"return" return RETURN;
"end" return END;
"if" return IF;
"else" return ELSE;
"then" return THEN;
"loop" return LOOP;
"while" return WHILE;
"until" return UNTIL;
"from" return FROM;
"to" return TO;
"break" return BREAK;
"continue" return CONTINUE;
"input" return INPUT;
"output" return OUTPUT;
"and" return AND;
"or" return OR;
"not" return NOT;
"null" return NULL_LIT;
"true" return TRUE;
"false" return FALSE;
"==" return EQ;
"!=" return NEQ;
"<=" return LEQ;
">=" return GEQ;
"<" return LT;
">" return GT;
"!" return NOT_OP;
"=" return ASSIGN;
"\\+" return PLUS;
"-" return MINUS;
"\\*" return TIMES;
"/" return DIV;
"div" return INTEGER_DIV;
"mod" return MOD;
"%" return MOD_OP;
"\\(" return LPAREN;
"\\)" return RPAREN;
"-?[0-9]+" { yylval.integer = atoll(yytext); return INTEGER_LIT; }
"-?[0-9]+\\.[0-9]+" { yylval.real = atof(yytext); return REAL_LIT; }
"\"[^\"\n]*\"" { yylval.string = strdup(yytext); return STRING_LIT; }
[A-Z][A-Z0-9_]* { yylval.id = strdup(yytext); return IDENTIFIER; }
%%
int yywrap() {
return 1;
}
|
