diff options
Diffstat (limited to 'src/spell-convert/lexer.lpp')
| -rw-r--r-- | src/spell-convert/lexer.lpp | 136 |
1 files changed, 0 insertions, 136 deletions
diff --git a/src/spell-convert/lexer.lpp b/src/spell-convert/lexer.lpp deleted file mode 100644 index b6c6d76..0000000 --- a/src/spell-convert/lexer.lpp +++ /dev/null @@ -1,136 +0,0 @@ -%{ -/* vim: set ft=lex: */ -//#include "lexer.hpp" -// magic-interpreter-lexer.lpp - Old magic tokenizer -// -// Copyright © 2004-2011 The Mana World Development Team -// Copyright © 2011-2014 Ben Longbons <b.r.longbons@gmail.com> -// -// This file is part of The Mana World (Athena server) -// -// This program is free software: you can redistribute it and/or modify -// it under the terms of the GNU 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 General Public License for more details. -// -// You should have received a copy of the GNU General Public License -// along with this program. If not, see <http://www.gnu.org/licenses/>. - -#include "../strings/rstring.hpp" -#include "../strings/zstring.hpp" - -#include "../io/cxxstdio.hpp" - -#include "../sexpr/lexer.hpp" - -#include "parser.hpp" - -#define yylval spell_converterlval - -RString *str(const char *s) -{ - return new RString(ZString(strings::really_construct_from_a_pointer, s, nullptr)); -} -%} - -%option noyywrap -%option prefix="spell_converter" -%option nounput -%option noinput - -%% - -"S" { yylval.s = str(yytext); return DIR; } -"SW" { yylval.s = str(yytext); return DIR; } -"W" { yylval.s = str(yytext); return DIR; } -"NW" { yylval.s = str(yytext); return DIR; } -"N" { yylval.s = str(yytext); return DIR; } -"NE" { yylval.s = str(yytext); return DIR; } -"E" { yylval.s = str(yytext); return DIR; } -"SE" { yylval.s = str(yytext); return DIR; } -"=" { return '='; } -"==" { return EQ; } -"<>" { return NEQ; } -"!=" { return NEQ; } -">" { return '>'; } -"<" { return '<'; } -">=" { return GTE; } -"<=" { return LTE; } -"(" { return '('; } -")" { return ')'; } -"+" { return '+'; } -"-" { return '-'; } -"*" { return '*'; } -"/" { return '/'; } -"%" { return '%'; } -"&&" { return ANDAND; } -"||" { return OROR; } -";" { return ';'; } -":" { return ':'; } -"," { return ','; } -"@" { return '@'; } -"|" { return '|'; } -"[" { return '['; } -"]" { return ']'; } -"&" { return '&'; } -"^" { return '^'; } -"." { return '.'; } -"<<" { return SHL; } -">>" { return SHR; } -"PROCEDURE" { return PROCEDURE; } -"CALL" { return CALL; } -"OR" { return OR; } -"TO" { return TO; } -"TOWARDS" { return TOWARDS; } -"TELEPORT-ANCHOR" { return TELEPORT_ANCHOR; } -"SILENT" { return SILENT; } -"LOCAL" { return LOCAL; } -"NONMAGIC" { return NONMAGIC; } -"SPELL" { return SPELL; } -"LET" { return LET; } -"IN" { return IN; } -"END" { return END; } -"=>" { return DARROW; } -"STRING" { return STRING_TY; } -"REQUIRE" { return REQUIRE; } -"CATALYSTS" { return CATALYSTS; } -"COMPONENTS" { return COMPONENTS; } -"MANA" { return MANA; } -"CASTTIME" { return CASTTIME; } -"SKIP" { return SKIP; } -"ABORT" { return ABORT; } -"BREAK" { return BREAK; } -"EFFECT" { return EFFECT_; } -"ATEND" { return ATEND; } -"ATTRIGGER" { return ATTRIGGER; } -"CONST" { return CONST; } -"PC" { return PC_F; } -"NPC" { return NPC_F; } -"MOB" { return MOB_F; } -"ENTITY" { return ENTITY_F; } -"TARGET" { return TARGET_F; } -"IF" { return IF; } -"THEN" { return THEN; } -"ELSE" { return ELSE; } -"FOREACH" { return FOREACH; } -"FOR" { return FOR; } -"DO" { return DO; } -"WAIT" { return SLEEP; } - -\{([^\}]|\\.)*\} { yylval.s = str(yytext); return SCRIPT_DATA; } -\"([^\"]|\\.)*\" { yylval.s = str(yytext); return STRING; } -"-"?[0-9]+ { yylval.s = str(yytext); return INT; } -"0x"[0-9a-fA-F]+ { yylval.s = str(yytext); return INT; } -[a-zA-Z][-_a-zA-Z0-9]* { yylval.s = str(yytext); return ID; } -"#".*$ { PRINTF("%s\n", sexpr::escape(*str(yytext + 1))); } -"//".*$ { PRINTF("%s\n", sexpr::escape(*str(yytext + 2))); } -[ \n\t\r] /* ignore whitespace */ -. { abort(); } - -%% -// nothing to see here, move along |