210 lines
5.2 KiB
Plaintext
210 lines
5.2 KiB
Plaintext
/*
|
|
This file is part of Warzone 2100.
|
|
Copyright (C) 1999-2004 Eidos Interactive
|
|
Copyright (C) 2005-2013 Warzone 2100 Project
|
|
|
|
Warzone 2100 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 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
Warzone 2100 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 Warzone 2100; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
|
|
*/
|
|
%{
|
|
/*
|
|
* ScriptVals.l
|
|
*
|
|
* lexer for loading script variable values
|
|
*
|
|
*/
|
|
#include "lib/framework/frame.h"
|
|
|
|
#include <physfs.h>
|
|
|
|
#include "lib/script/script.h"
|
|
#include "src/scriptvals.h"
|
|
|
|
/* Get the Yacc definitions */
|
|
#if defined (WZ_CC_MSVC)
|
|
#include "scriptvals_parser.hpp"
|
|
#else
|
|
#include "scriptvals_parser.h"
|
|
#endif
|
|
|
|
/* Maximum length for any TEXT value */
|
|
#ifndef YYLMAX
|
|
#define YYLMAX 255
|
|
#endif
|
|
|
|
/* Store for any string values */
|
|
static char aText[TEXT_BUFFERS][YYLMAX];
|
|
static UDWORD currText=0;
|
|
|
|
#include "lib/framework/lexer_input.h"
|
|
|
|
#ifndef yyextra
|
|
# define yyextra yyget_extra()
|
|
#endif
|
|
|
|
#define yylval (&scrv_lval)
|
|
|
|
/* Older GNU Flex versions don't define yyget_extra(), yyset_extra(),
|
|
* yyget_text() and yyget_lineno().
|
|
* (and neither define a subminor version)
|
|
*/
|
|
#if !defined(YY_FLEX_SUBMINOR_VERSION) || (YY_FLEX_SUBMINOR_VERSION < 9)
|
|
# define yyget_extra scrv_get_extra
|
|
# define yyset_extra scrv_set_extra
|
|
# define yyget_lineno scrv_get_lineno
|
|
# define yyget_text scrv_get_text
|
|
extern void yyset_extra(YY_EXTRA_TYPE user_defined);
|
|
extern YY_EXTRA_TYPE yyget_extra(void);
|
|
extern int yyget_lineno(void);
|
|
int yyget_lineno()
|
|
{
|
|
return yylineno;
|
|
}
|
|
|
|
extern char* yyget_text(void);
|
|
char* yyget_text()
|
|
{
|
|
return yytext;
|
|
}
|
|
#elif defined(YY_FLEX_SUBMINOR_VERSION) && YY_FLEX_SUBMINOR_VERSION == 33
|
|
extern YY_EXTRA_TYPE yyget_extra(void);
|
|
extern int scrv_get_lineno(void);
|
|
extern FILE *scrv_get_in(void);
|
|
extern FILE *scrv_get_out(void);
|
|
extern int scrv_get_leng(void);
|
|
extern char *scrv_get_text(void);
|
|
extern void scrv_set_lineno(int line_number);
|
|
extern void scrv_set_in(FILE* in_str);
|
|
extern void scrv_set_out(FILE* out_str);
|
|
extern int scrv_get_debug(void);
|
|
extern void scrv_set_debug(int bdebug);
|
|
extern int scrv_lex_destroy(void);
|
|
extern void scrv_set_extra(YY_EXTRA_TYPE user_defined);
|
|
#endif
|
|
|
|
%}
|
|
|
|
%option yylineno noyywrap nounput never-interactive
|
|
%option warn nodefault
|
|
%option prefix="scrv_"
|
|
|
|
%x COMMENT
|
|
%x SLCOMMENT
|
|
%x QUOTE
|
|
|
|
%%
|
|
|
|
/* Keywords */
|
|
int { yylval->tval = VAL_INT; return TYPE; }
|
|
INT { yylval->tval = VAL_INT; return TYPE; }
|
|
bool { yylval->tval = VAL_BOOL; return TYPE; }
|
|
BOOL { yylval->tval = VAL_BOOL; return TYPE; }
|
|
script return SCRIPT;
|
|
store return STORE;
|
|
run return RUN;
|
|
|
|
true { yylval->bval = true; return BOOLEAN_T; }
|
|
TRUE { yylval->bval = true; return BOOLEAN_T; }
|
|
false { yylval->bval = false; return BOOLEAN_T; }
|
|
FALSE { yylval->bval = false; return BOOLEAN_T; }
|
|
|
|
/* Match text values */
|
|
[a-zA-Z][-0-9_a-zA-Z]* {
|
|
INTERP_TYPE type;
|
|
UDWORD index;
|
|
|
|
/* See if this is a variable id or a type */
|
|
if (scrvLookUpType(yytext, &type))
|
|
{
|
|
yylval->tval = type;
|
|
return TYPE;
|
|
}
|
|
else if (scrvLookUpVar(yytext, &index))
|
|
{
|
|
yylval->vindex = index;
|
|
return VAR;
|
|
}
|
|
else if (scrvLookUpArray(yytext, &index))
|
|
{
|
|
yylval->vindex = index;
|
|
return ARRAY;
|
|
}
|
|
else
|
|
{
|
|
strcpy(aText[currText], yytext);
|
|
yylval->sval = aText[currText];
|
|
currText = (currText + 1) % TEXT_BUFFERS;
|
|
return IDENT;
|
|
}
|
|
}
|
|
|
|
/* Match integer numbers */
|
|
-?[0-9]+ { yylval->ival = atol(yytext); return INTEGER; }
|
|
|
|
/* Match quoted text */
|
|
\" { BEGIN QUOTE; }
|
|
<QUOTE>\" { BEGIN 0; }
|
|
<QUOTE>\n { scrv_error("Unexpected end of line in string"); }
|
|
<QUOTE>[^\"\n]* {
|
|
strcpy(aText[currText], yytext);
|
|
yylval->sval = aText[currText];
|
|
currText = (currText + 1) % TEXT_BUFFERS;
|
|
return QTEXT;
|
|
}
|
|
|
|
/* Skip white space */
|
|
[ \t\n\x0d\x0a] ;
|
|
|
|
/* Strip comments */
|
|
"/*" { BEGIN COMMENT; }
|
|
<COMMENT>"*/" |
|
|
<COMMENT>"*/"\n { BEGIN 0; }
|
|
<COMMENT>. |
|
|
<COMMENT>\n ;
|
|
|
|
/* Strip single line comments */
|
|
"//" { BEGIN SLCOMMENT; }
|
|
<SLCOMMENT>\n { BEGIN 0; }
|
|
<SLCOMMENT>[^\n]* ;
|
|
|
|
/* Match anything that's been missed and pass it as a char */
|
|
. return yytext[0];
|
|
|
|
%%
|
|
|
|
static YY_EXTRA_TYPE pBuffer = NULL;
|
|
|
|
void yyset_extra(YY_EXTRA_TYPE user_defined)
|
|
{
|
|
pBuffer = user_defined;
|
|
}
|
|
|
|
YY_EXTRA_TYPE yyget_extra()
|
|
{
|
|
return pBuffer;
|
|
}
|
|
|
|
/* Older GNU Flex versions don't define yylex_destroy()
|
|
* (and neither define a subminor version)
|
|
*/
|
|
#if !defined(YY_FLEX_SUBMINOR_VERSION) || (YY_FLEX_SUBMINOR_VERSION < 9)
|
|
int scrv_lex_destroy(void)
|
|
{
|
|
/* For non-reentrant C scanner only. */
|
|
yy_delete_buffer(YY_CURRENT_BUFFER);
|
|
yy_init = 1;
|
|
return 0;
|
|
}
|
|
#endif
|