iritmaximus/ttk91-compiler
1
0
Fork 0
mirror of https://github.com/iritmaximus/ttk91-compiler.git synced 2026-10-12 19:13:40 +03:00
Code Issues Packages Projects Releases Wiki Activity

fixed a warning about case-insensitivity

Browse Source
This commit is contained in:
Aaro Koivukangas
2024-08-16 12:59:32 +02:00
parent 573f2e041e
commit cf27629b5b
2 changed files with 22 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files
c/src/scanner.flex
+21 -21
View File
@@ -6,34 +6,34 @@
%option yylineno
%%
(" "|\t|\n) /* skip whitespace */
;.*$ { yylval.name = yytext; return TOKEN_COMMENT; }
(" "|\t|\n) /* skip whitespace */
(@|=) { yylval.character = yytext; return TOKEN_ADDR_M; }
\( { return TOKEN_PAREN_L; }
\) { return TOKEN_PAREN_R; }
, { return TOKEN_COMMA; }
;.*$ { return TOKEN_COMMENT; }
(@|=) { yylval.name = yytext; return TOKEN_ADDR_M; }
\( { return TOKEN_PAREN_L; }
\) { return TOKEN_PAREN_R; }
, { return TOKEN_COMMA; }
(LOAD|STORE|IN|OUT) { yylval.name = yytext; return TOKEN_OPER_DATA; } /* TODO, currently only in uppercase */
(ADD|SUB|MUL|DIV|MOD) { yylval.name = yytext; return TOKEN_OPER_AR; }
(AND|OR|XOR|NOT|SHL|SHR|SHRA|COMP) { yylval.name = yytext; return TOKEN_OPER_LOGIC; }
(JUMP|JNEG|JZER|JPOS|JNNEG|JNZER|JNPOS|JLES|JEQU|JGRE|JNLES|JNEQU|JNGRE) { yylval.name = yytext; return TOKEN_OPER_BRANCH; }
(PUSH|POP|PUSHR|POPR) { yylval.name = yytext; return TOKEN_OPER_STACK; }
(CALL|EXIT|SVC|NOP) { yylval.name = yytext; return TOKEN_OPER_SYS; }
(HALT|TIME|DATE|READ|WRITE) { yylval.name = yytext; return TOKEN_SYS_NUM; }
(EQU|DC|DS|DEF) { yylval.name = yytext; return TOKEN_COMP_OPER; }
(?i:LOAD|STORE|IN|OUT) { yylval.name = yytext; return TOKEN_OPER_DATA; } /* TODO, currently only in uppercase */
(?i:ADD|SUB|MUL|DIV|MOD) { yylval.name = yytext; return TOKEN_OPER_AR; }
(?i:AND|OR|XOR|NOT|SHL|SHR|SHRA|COMP) { yylval.name = yytext; return TOKEN_OPER_LOGIC; }
(?i:JUMP|JNEG|JZER|JPOS|JNNEG|JNZER|JNPOS|JLES|JEQU|JGRE|JNLES|JNEQU|JNGRE) { yylval.name = yytext; return TOKEN_OPER_BRANCH; }
(?i:PUSH|POP|PUSHR|POPR) { yylval.name = yytext; return TOKEN_OPER_STACK; }
(?i:CALL|EXIT|SVC|NOP) { yylval.name = yytext; return TOKEN_OPER_SYS; }
(?i:HALT|TIME|DATE|READ|WRITE) { yylval.name = yytext; return TOKEN_SYS_NUM; }
(?i:EQU|DC|DS|DEF) { yylval.name = yytext; return TOKEN_COMP_OPER; }
(SP|FP|PC) { yylval.name = yytext; return TOKEN_STACK_REGISTER; /* TODO possible unnecessary token PC */ }
(?i:SP|FP|PC) { yylval.name = yytext; return TOKEN_STACK_REGISTER; /* TODO possible unnecessary token PC */ }
R[0-8] { yylval.name = yytext; return TOKEN_REGISTER; }
[0-9]+ { yylval.num = atoi(yytext); return TOKEN_NUMBER; }
[a-öA-Ö]([a-öA-Ö0-9_])* { yylval.name = yytext; return TOKEN_LABEL; }
- { return TOKEN_SIGN; }
(?i:R[0-8]) { yylval.name = yytext; return TOKEN_REGISTER; }
[0-9]+ { yylval.num = atoi(yytext); return TOKEN_NUMBER; }
([a-öA-Ö][a-öA-Ö0-9_]*) { yylval.name = yytext; return TOKEN_LABEL; }
- { return TOKEN_SIGN; }
. { yylval.name = yytext; return TOKEN_ERROR; }
. { yylval.name = yytext; return TOKEN_ERROR; }
%%
int yywrap() { return 1; }
int yywrap() { return 1; }