302 lines
7.2 KiB
Text
302 lines
7.2 KiB
Text
|
|
%{
|
|
/*
|
|
* lexer for parsing ressource source files (*.src)
|
|
*
|
|
*/
|
|
|
|
|
|
/* enlarge token buffer to tokenize whole strings */
|
|
#undef YYLMAX
|
|
#define YYLMAX 64000
|
|
|
|
/* to enable debug output define LEXDEBUG */
|
|
#define LEXDEBUG 1
|
|
#ifdef LEXDEBUG
|
|
#define OUTPUT fprintf
|
|
#else
|
|
#define OUTPUT(Par1,Par2);
|
|
#endif
|
|
|
|
/* table of possible token ids */
|
|
#include "tokens.h"
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
|
|
#if defined __GNUC__
|
|
#pragma GCC system_header
|
|
#elif defined __SINPRO_CC
|
|
#pragma disable_warn
|
|
#elif defined _MSC_VER
|
|
#pragma warning(push, 1)
|
|
#endif
|
|
|
|
/* external functions (C++ code, declared as extren "C" */
|
|
extern int WorkOnTokenSet( int, char* );
|
|
extern int InitExport( char * , char * );
|
|
extern int Parse( int nTyp, char *pTokenText );
|
|
extern int EndExport();
|
|
extern int SetError();
|
|
extern int GetError();
|
|
extern char *GetOutputFile( int argc, char* argv[]);
|
|
extern FILE *GetNextFile();
|
|
extern int isQuiet();
|
|
extern void Close();
|
|
extern char* getFilename();
|
|
|
|
/* forwards */
|
|
void YYWarning();
|
|
%}
|
|
|
|
%p 24000
|
|
%e 1200
|
|
%n 500
|
|
|
|
%%
|
|
|
|
^[\t ]*"#pragma".* {
|
|
WorkOnTokenSet( PRAGMA, yytext );
|
|
}
|
|
|
|
^[ \t]*\n {
|
|
WorkOnTokenSet( EMPTYLINE, yytext );
|
|
}
|
|
|
|
[\t ]+ |
|
|
^[\t ]*"#include".* |
|
|
^[\t ]*"#undef".* |
|
|
"//".* |
|
|
";" |
|
|
"<" |
|
|
">" |
|
|
\n {
|
|
WorkOnTokenSet( IGNOREDTOKENS, yytext );
|
|
}
|
|
"/*" {
|
|
char c1 = 0, c2 = input();
|
|
char pChar[2];
|
|
pChar[1] = 0x00;
|
|
pChar[0] = c2;
|
|
|
|
WorkOnTokenSet( COMMEND, yytext );
|
|
WorkOnTokenSet( COMMEND, pChar );
|
|
for(;;) {
|
|
if ( c2 == EOF )
|
|
break;
|
|
if ( c1 == '*' && c2 == '/' )
|
|
break;
|
|
c1 = c2;
|
|
c2 = input();
|
|
pChar[0] = c2;
|
|
WorkOnTokenSet( COMMEND, pChar );
|
|
}
|
|
}
|
|
|
|
^[\t ]*"#ifndef".+$ |
|
|
^[\t ]*"#ifdef".+$ |
|
|
^[\t ]*"#if".+$ |
|
|
^[\t ]*"#elif".*$ |
|
|
^[\t ]*"#else".*$ |
|
|
^[\t ]*"#endif".*$ {
|
|
WorkOnTokenSet( CONDITION, yytext );
|
|
}
|
|
|
|
[a-zA-Z]+[\t ]+[^={\n]+[\t ] {
|
|
/* defined Res */
|
|
WorkOnTokenSet( DEFINEDRES, yytext );
|
|
}
|
|
|
|
[a-zA-Z]+[ \t]+[^={;\n]+\n[ \t]*"#".*\n[ \t]*"{" |
|
|
[a-zA-Z]+[ \t]+[^={;\n]+\n?([ \t]*"//".*\n)*[ \t]*"{" {
|
|
/* RESSOURCE // String TTT_XX ... */
|
|
WorkOnTokenSet( RESSOURCE, yytext );
|
|
}
|
|
|
|
^[\t ]*[a-zA-Z_]+[\t ]*"\\"?[\t ]*\n?[ \t]*"{"[\t ]*"\\"? {
|
|
/* SMALRESSOURCE // String ... */
|
|
WorkOnTokenSet( SMALRESSOURCE, yytext );
|
|
}
|
|
|
|
[\t ]*[a-zA-Z0-9_]+[ \t]*("["[ \t]*[a-zA-Z0-9_\-]+[ \t]*"]"[ \t]*)?=[ \t]*L?\".*\".*\n? {
|
|
/* TEXTLINE // TextTyp = "A Text" */
|
|
WorkOnTokenSet( TEXTLINE, yytext );
|
|
}
|
|
|
|
[\t ]*[a-zA-Z0-9_]+[ \t]*("["[ \t]*[a-zA-Z0-9_\-]+[ \t]*"]"[ \t]*)?(\n[ \t]*)?=([ \t]*\n)?(([a-zA-Z0-9_]+)|(\".*\")|([ \t\n]*))*\".*\"(([a-zA-Z0-9_]+)|(\".*\")|([ \t\n]*))*; {
|
|
/* LONGTEXTLINE // TextTyp = "A Text" HHH_XXX "A Text" ZZZ_TTT ... */
|
|
WorkOnTokenSet( LONGTEXTLINE, yytext );
|
|
}
|
|
|
|
\".*\" {
|
|
/* TEXT // "A Text" */
|
|
WorkOnTokenSet( TEXT, yytext );
|
|
}
|
|
|
|
"{"[ \t]*\\? {
|
|
/* LEVELUP */
|
|
WorkOnTokenSet( LEVELUP, yytext );
|
|
}
|
|
|
|
"}"[ \t]*;([ \t]*\\)? {
|
|
/* LEVELDOWN */
|
|
WorkOnTokenSet( LEVELDOWN, yytext );
|
|
}
|
|
|
|
[a-zA-Z0-9_]+[ \t]*"="[ \t]*"MAP_APPFONT"[ \t]*"(".+")".* {
|
|
/* APPFONTMAPPING Typ = MAP_APPFONT( ... ) */
|
|
WorkOnTokenSet( APPFONTMAPPING, yytext );
|
|
}
|
|
|
|
[ \t]*[a-zA-Z0-9_]+[ \t]*=[ \t]*[0123456789]{1,5}[ \t]*";"?\\? {
|
|
/* TEXTREFID // TextTyp = 12345 */
|
|
WorkOnTokenSet( TEXTREFID, yytext );
|
|
}
|
|
|
|
[a-zA-Z0-9_]+[ \t]*"="[\t ]*([ \t]*"//".*\n)*.* |
|
|
[a-zA-Z0-9_]+[ \t]*"=".* {
|
|
/* ASSIGNMENT Typ = ... */
|
|
WorkOnTokenSet( ASSIGNMENT, yytext );
|
|
}
|
|
|
|
|
|
|
|
[a-zA-Z0-9_]+[ \t]*("["[ \t]*[a-zA-Z0-9_\-]+[ \t]*"]"[ \t]*)?"="[ \t]*(\\[ \t]*)?\n?[ \t]*"{"[ \t]*(\\[ \t]*)?\n?[ \t]*"<" {
|
|
/* LISTASSIGNMENT Typ [ ... ] = ... */
|
|
WorkOnTokenSet( LISTASSIGNMENT, yytext );
|
|
}
|
|
|
|
"StringList"+[ \t]*("["[ \t]*[a-zA-Z0-9_\-]+[ \t]*"]"[ \t]*)?"="[ \t]*(\\[ \t]*)?\n?[ \t]*"{"[ \t]*(\\[ \t]*)?\n?[ \t]* {
|
|
/* LISTASSIGNMENT Typ [ ... ] = ... */
|
|
WorkOnTokenSet( LISTASSIGNMENT, yytext );
|
|
}
|
|
|
|
"UIEntries"[ \t]*("["[ \t]*[a-zA-Z0-9_\-]+[ \t]*"]"[ \t]*)?"="[ \t]*(\\[ \t]*)?\n?[ \t]*"{" {
|
|
/* UIENTRIES */
|
|
WorkOnTokenSet( UIENTRIES, yytext );
|
|
}
|
|
|
|
"<"?[ \t]*L?\".*\".*">" {
|
|
/* LISTTEXT */
|
|
WorkOnTokenSet( LISTTEXT, yytext );
|
|
}
|
|
|
|
[ \t]*"#define"[ \t]+[a-zA-Z0-9_]+.*"\\" {
|
|
/* RSCDEFINE #define ... */
|
|
WorkOnTokenSet( RSCDEFINE, yytext );
|
|
}
|
|
|
|
[ \t]*"#define"[ \t]+[a-zA-Z0-9_]+.+ {
|
|
/* #define ... */
|
|
WorkOnTokenSet( NORMDEFINE, yytext );
|
|
}
|
|
|
|
"\\" {
|
|
/* RSCDEFINELEND */
|
|
WorkOnTokenSet( RSCDEFINELEND, yytext );
|
|
}
|
|
|
|
[a-zA-Z0-9_]+[ \t]*; {
|
|
/* allowed other tokens like "49 ;" or "SFX_... ;" */
|
|
WorkOnTokenSet( ANYTOKEN, yytext );
|
|
}
|
|
|
|
. {
|
|
WorkOnTokenSet( UNKNOWNCHAR, yytext );
|
|
/* YYWarning( "Unknown Char" ); */
|
|
}
|
|
|
|
"{"?[ \t]*\".*\"[ \t]*";"[ \t]*"}" {
|
|
/* _LISTTEXT */
|
|
WorkOnTokenSet( _LISTTEXT, yytext );
|
|
}
|
|
|
|
%%
|
|
|
|
/*****************************************************************************/
|
|
int yywrap(void)
|
|
/*****************************************************************************/
|
|
{
|
|
FILE *pFile;
|
|
pFile = GetNextFile();
|
|
if ( pFile ) {
|
|
yyin = pFile;
|
|
yylineno = 0;
|
|
return 0;
|
|
}
|
|
|
|
/* end of input reached */
|
|
return 1;
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
void YYWarning( char *s )
|
|
/*****************************************************************************/
|
|
{
|
|
/* write warning to stderr */
|
|
fprintf( stderr, "Warning: \"%s\" in line %d: \"%s\"\n", s, yylineno, yytext );
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
void yyerror( char *s )
|
|
/*****************************************************************************/
|
|
{
|
|
/* write error to stderr */
|
|
fprintf( stderr, "Error: \"%s\" in line %d: \"%s\"\n", s, yylineno, yytext );
|
|
SetError();
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
int
|
|
#ifdef WNT
|
|
_cdecl
|
|
#endif
|
|
main( int argc, char* argv[])
|
|
/*****************************************************************************/
|
|
{
|
|
/* error level */
|
|
int nRetValue = 0;
|
|
char *pOutput;
|
|
FILE *pFile;
|
|
|
|
pOutput = GetOutputFile( argc, argv );
|
|
|
|
if ( !pOutput ) {
|
|
fprintf( stdout, "Syntax:TRANSEX[-p Prj][-r PrjRoot]-i FileIn...[-o FileOut][-m DataBase][-e][-b][-u][-L l1,l2,...]\n" );
|
|
fprintf( stdout, " Prj: Project\n" );
|
|
fprintf( stdout, " PrjRoot: Path to project root (..\\.. etc.)\n" );
|
|
fprintf( stdout, " FileIn: Source files (*.src)\n" );
|
|
fprintf( stdout, " FileOut: Destination file (*.*)\n" );
|
|
fprintf( stdout, " DataBase: Mergedata (*.sdf)\n" );
|
|
fprintf( stdout, " -QQ: quiet output\n" );
|
|
fprintf( stdout, " -e: Disable writing errorlog\n" );
|
|
fprintf( stdout, " -b: Break when Token \"HelpText\" found in source\n" );
|
|
fprintf( stdout, " -u: [english] and [german] are allowed, Id is Taken from DataBase \n" );
|
|
fprintf( stdout, " -NOUTF8: disable UTF8 as language independent encoding\n" );
|
|
fprintf( stdout, " -L: Restrict the handled languages. l1,l2,... are elements of (de,en-US...)\n" );
|
|
fprintf( stdout, " A fallback language can be defined like this: l1=f1.\n" );
|
|
fprintf( stdout, " f1, f2,... are also elements of (de,en-US...)\n" );
|
|
fprintf( stdout, " Example: -L de,es=en-US\n" );
|
|
fprintf( stdout, " Restriction to de and es, en-US will be fallback for es\n" );
|
|
return 1;
|
|
}
|
|
|
|
InitExport( pOutput , getFilename() );
|
|
pFile = GetNextFile();
|
|
if ( !pFile )
|
|
return 1;
|
|
|
|
yyin = pFile;
|
|
|
|
/* create global instance of class Export */
|
|
|
|
/* start parser */
|
|
yylex();
|
|
Close();
|
|
|
|
/* get error info. and end export */
|
|
nRetValue = GetError();
|
|
EndExport();
|
|
|
|
/* return error level */
|
|
return nRetValue;
|
|
}
|