guus
/
reman3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
reman3/Rayman_X/cpa/tempgrp/TIA/Src/EdIRFlx.cpp

4781 lines
141 KiB
C++
Raw Blame History

#define YY_CHAR char
/* added by Xavier Billault */
#include "Defines.hpp"
#ifdef D_ED_IR_ACTIVE
/* end added by Xavier Billault*/
/* A lexical scanner generated by flex */
/* scanner skeleton version:
* $Header: /usr/fsys/odin/a/vern/flex/RCS/flex.skel,v 2.16 90/08/03 14:09:36 vern Exp $
*/
/* MODIFIED FOR C++ CLASS BY Alain Coetmeur: coetmeur(at)icdc.fr */
/* Note that (at) mean the 'at' symbol that I cannot write */
/* because it is expanded to the class name */
/* made at Informatique-CDC, Research&development department */
/* company from the Caisse Des Depots et Consignations */
/* institutional financial group (say 'Cat Doc Cad') */
/* theses symbols are added before this file */
/* #define YY_CHAR 'unsigned char' if 8bit or 'char' if 7bit */
/* #define FLEX_DEBUG if debug mode */
#define FLEX_SCANNER
/* cfront 1.2 defines "c_plusplus" instead of "__cplusplus" */
#ifdef c_plusplus
#ifndef __cplusplus
#define __cplusplus
#endif
#endif
#ifdef __cplusplus /*added by Xavier Billault*/
#ifndef YY_USE_CLASS /*added by Xavier Billault*/
#define YY_USE_CLASS /*added by Xavier Billault*/
#endif /*added by Xavier Billault*/
#endif /*added by Xavier Billault*/
/* Old MSC, before c7 */
#ifdef MSDOS
#ifndef _MSDOS
#define _MSDOS
#endif
#endif
/* turboc */
#ifdef __MSDOS__
#ifndef _MSDOS
#define _MSDOS
#endif
#endif
#ifdef __cplusplus
#include <stdlib.h>
#define YY_USE_CONST
#define YY_USE_PROTOS
#ifndef _MSDOS
//#include <osfcn.h>
#endif
#else /* ! __cplusplus */
#ifdef __STDC__
#ifdef __GNUC__
#include <stddef.h>
void *malloc( size_t );
void free( void* );
int read();
#else
#include <stdlib.h>
#endif /* __GNUC__ */
#define YY_USE_PROTOS
#define YY_USE_CONST
#endif /* __STDC__ */
#endif /* ! __cplusplus */
#ifdef __TURBOC__
#define YY_USE_CONST
#endif
#include <stdio.h>
/*********************************************/
/* COMPILER DEPENDENT MACROS */
/*********************************************/
/* use prototypes in function declarations */
/* the "const" storage-class-modifier is valid */
#ifndef YY_USE_CONST
#define const
#endif
/* use prototypes in function declarations */
#ifndef YY_PROTO
#ifdef YY_USE_PROTOS
#define YY_PROTO(proto) proto
#else
#define YY_PROTO(proto) ()
#endif
#endif
/*********************/
/* parameters */
/* amount of stuff to slurp up with each read */
#ifndef YY_READ_BUF_SIZE
#define YY_READ_BUF_SIZE 8192
#endif
/* size of default input buffer */
#ifndef YY_BUF_SIZE
#define YY_BUF_SIZE (YY_READ_BUF_SIZE * 2)
#endif
/***********************************/
/* to be redefined for application */
/* returned upon end-of-file */
#define YY_END_TOK 0
/* no semi-colon after return; correct usage is to write "yyterminate();" -
* we don't want an extra ';' after the "return" because that will cause
* some compilers to complain about unreachable statements.
*/
#define yyterminate() return ( YY_NULL )
/* code executed at the end of each rule */
#define YY_BREAK break;
/* #define YY_USER_ACTION */
/* #define YY_USER_INIT */
#ifndef YY_USE_CLASS
/* copy whatever the last rule matched to the standard output */
/* cast to (char *) is because for 8-bit chars, yy___text is (unsigned char *) */
/* this used to be an fputs(), but since the string might contain NUL's,
* we now use fwrite()
*/
#define ECHO (void) fwrite( (char *) yy___text, yy___leng, 1, yy___out )
/* gets input and stuffs it into "buf". number of characters read, or YY_NULL,
* is returned in "result".
*/
#ifdef _MSDOS
#define YY_INPUT(buf,result,max_size) \
if ( (result = fread(buf,1,max_size,yy___in)) < 0 ) \
YY_FATAL_ERROR( "fread() in flex scanner failed" );
#else
#define YY_INPUT(buf,result,max_size) \
if ( (result = read( fileno(yy___in), (char *) buf, max_size )) < 0 ) \
YY_FATAL_ERROR( "read() in flex scanner failed" );
#endif
/* report a fatal error */
/* The funky do-while is used to turn this macro definition into
* a single C statement (which needs a semi-colon terminator).
* This avoids problems with code like:
*
* if ( something_happens )
* YY_FATAL_ERROR( "oops, the something happened" );
* else
* everything_okay();
*
* Prior to using the do-while the compiler would get upset at the
* "else" because it interpreted the "if" statement as being all
* done when it reached the ';' after the YY_FATAL_ERROR() call.
*/
#define YY_FATAL_ERROR(msg) \
do \
{ \
(void) fputs( msg, stderr ); \
(void) putc( '\n', stderr ); \
exit( 1 ); \
} \
while ( 0 )
/* default yywrap function - always treat EOF as an EOF */
#define yywrap() 1
/* default declaration of generated scanner - a define so the user can
* easily add parameters
*/
#define YY_DECL int yylex YY_PROTO(( void ))
#else
/* c++ */
#define ECHO yy___echo()
#define YY_INPUT(buf,result,max_size) \
if ( yy___input((char *)buf, result,max_size) < 0 ) \
YY_FATAL_ERROR( "YY_INPUT() in flex scanner failed" );
#define YY_FATAL_ERROR(msg) yy___fatal_error(msg)
#define yywrap() yy___wrap()
#endif
/***********************************/
/* not to be changed */
#define YY_NULL 0
#define YY_END_OF_BUFFER_CHAR 0
/* special action meaning "start processing a new file" */
#define YY_NEW_FILE yy___newfile
/* enter a start condition. This macro really ought to take a parameter,
* but we do it the disgusting crufty way forced on us by the ()-less
* definition of BEGIN
*/
#define BEGIN yy_start = 1 + 2 *
/* action number for EOF rule of a given start state */
#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
/* % section 1 definitions go here */
#define INITIAL 0
#include <io.h> //for read()
#include "EdIRbis.hpp"
#include "EdIRDVLs.hpp"
#include "EdIRMacL.hpp"
#include "EdIRFrm.hpp"
#include "EdIRIRD.hpp"
#include "EdIRBeEn.hpp"
#include "EdIRBeha.hpp"
#include "EdIR2Eng.hpp"
#include "EdIRGlob.hpp"
#include "EdIRDict.hpp"
#include "EdIRIAWd.hpp"
#include "EdIRStrg.hpp"
#include "ai_intf.hpp" //for g_pclAIInterface
#include "CPA_NLL.hpp"
#include "EDACModl.hpp"
extern long gl_MacroAddress;
#include "GAM.h"
#if 0
///////////////////////////////////////////////////////////////////////////
//TEMPORAIRE A ENLEVER LE PLUS RAPIDEMENT POSSIBLE
//#include "GAM\GamInven.h"
#endif //0
#include "IPT.h"
#include "x:\cpa\main\inc\_EditID.h"
#include "TLS/LPSconst.hpp"
#include "GMT.h"
#include "TFA.h"
#include "incAI.h"
#include "_Actors.hpp"
#define YY_USE_CLASS
//ANNECY CB
CString gcsGlob;
//END
//ROMTEAM Optimisation (Ionut Grozea 24/04/98)
CString cs_params;
int iCount;
long l_id;
//END ROMTEAM Optimisation (Ionut Grozea 24/04/98)
/**********/
/* Macros */
/**********/
#define M_COMPUTE_POSITION() if(!m_bIsInMacro && !m_bIsInDefine) \
{ \
m_lOldIndex=m_lIndexWithoutSpaceAndTab; \
m_lIndex+=yyleng; \
m_lIndexWithoutSpaceAndTab=m_lIndex; \
}
#define M_COMPUTE_ALL() M_COMPUTE_POSITION(); \
g_clParse.yylval.csInitial=yytext
#define M_COMPUTE_ALL_4_KW() M_COMPUTE_ALL(); \
long lIndex=fn_lGetKeyWordIdFromEditorName(yytext); \
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eKeyWord,lIndex); \
if(M_ID_IS_INVALID(lIndex)) \
{ \
g_clParse.m_csMsgError="Unknown KeyWord"; \
return CParse::SYNTAXERROR; \
}
#define M_COMPUTE_ALL_4_OP() M_COMPUTE_ALL(); \
long lIndex=fn_lGetOperatorIdFromEditorName(yytext); \
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eOperator,lIndex); \
if(M_ID_IS_INVALID(lIndex)) \
{ \
g_clParse.m_csMsgError="Unknown Operator"; \
return CParse::SYNTAXERROR; \
}
#define M_COMPUTE_ALL_4_OPC() M_COMPUTE_ALL(); \
long lIndex=fn_lGetConditionIdFromEditorName(yytext); \
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eCondition,lIndex); \
if(M_ID_IS_INVALID(lIndex)) \
{ \
g_clParse.m_csMsgError="Unknown Condition"; \
return CParse::SYNTAXERROR; \
}
#define M_COMPUTE_ALL_4_BOOL(a) M_COMPUTE_ALL(); \
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eConstant,(long)(a))
#define M_COMPUTE_ALL_4_COND() M_COMPUTE_ALL(); \
if(!fn_bIsCondition(yytext,&(g_clParse.yylval))) \
{ \
g_clParse.m_csMsgError="Unknown Condition"; \
return CParse::SYNTAXERROR; \
}
//BEGIN ROMTEAM Cristi Petrescu 98-04-
#define M_EXPAND_DEFINE() CString csDefineText; \
if (m_clDefineList . Lookup (yytext, csDefineText)) \
{ \
m_bIsInDefine = TRUE; \
m_fn_vEnterContext ((char *) (LPCSTR) (csDefineText)); \
return yylex (); \
}
//END ROMTEAM Cristi Petrescu 98-04-
/*************/
/* Functions */
/*************/
//MetaAction
//ANNECY CB
BOOL fn_bIsMetaAction(CString&,stReturn *);
//BOOL fn_bIsMetaAction(CString,stReturn *);
BOOL fn_bIsMetaAction(char *,stReturn *);
//END
//Condition
//ANNECY CB
BOOL fn_bIsCondition(CString&,stReturn *);
//BOOL fn_bIsCondition(CString,stReturn *);
BOOL fn_bIsCondition(char *,stReturn *);
//END
//Designer Variable
//ANNECY CB
BOOL fn_bIsDesignerVariable(CString&,stReturn *);
//BOOL fn_bIsDesignerVariable(CString,stReturn *);
BOOL fn_bIsDesignerVariable(char *,stReturn *);
//END
//ConstantInt
//ANNECY CB
BOOL fn_bIsAConstantInt(CString&,stReturn *);
//BOOL fn_bIsAConstantInt(CString,stReturn *);
BOOL fn_bIsAConstantInt(char *,stReturn *);
//END
//ConstantReal
//ANNECY CB
BOOL fn_bIsAConstantReal(CString&,stReturn *);
//BOOL fn_bIsAConstantReal(CString,stReturn *);
BOOL fn_bIsAConstantReal(char *,stReturn *);
//END
//Type
//ANNECY CB
BOOL fn_bIsAType(CString&,stReturn *);
//BOOL fn_bIsAType(CString,stReturn *);
BOOL fn_bIsAType(char *,stReturn *);
//END
//Function
//ANNECY CB
BOOL fn_bIsFunction(CString&,stReturn *);
//BOOL fn_bIsFunction(CString,stReturn *);
BOOL fn_bIsFunction(char *,stReturn *);
//END
//Procedure
//ANNECY CB
BOOL fn_bIsProcedure(CString&,stReturn *);
//BOOL fn_bIsProcedure(CString,stReturn *);
BOOL fn_bIsProcedure(char *,stReturn *);
//END
//BEGIN ROMTEAM Cristi Petrescu 98-04-
//Subr
BOOL fn_bIsSubr(CString&,stReturn *);
BOOL fn_bIsSubr(char *,stReturn *);
//END ROMTEAM Cristi Petrescu 98-04-
//Field
//ANNECY CB
BOOL fn_bIsField(CString&,stReturn *);
//BOOL fn_bIsField(CString,stReturn *);
BOOL fn_bIsField(char *,stReturn *);
//END
//Perso (and Always)
//ANNECY CB
BOOL fn_bIsAPerso(CString&,stReturn *);
//BOOL fn_bIsAPerso(CString,stReturn *);
BOOL fn_bIsAPerso(char *,stReturn *);
//END
//ZDD
//ANNECY CB
long fn_lIsAZdd(CString&,stReturn *);
//long fn_lIsAZdd(CString,stReturn *);
long fn_lIsAZdd(char *,stReturn *);
//END
//ZDE
//ANNECY CB
long fn_lIsAZde(CString&,stReturn *);
//long fn_lIsAZde(CString,stReturn *);
long fn_lIsAZde(char *,stReturn *);
//END
//ZDM
//ANNECY CB
long fn_lIsAZdm(CString&,stReturn *);
//long fn_lIsAZdm(CString,stReturn *);
long fn_lIsAZdm(char *,stReturn *);
//END
//ZDR
//ANNECY CB
long fn_lIsAZdr(CString&,stReturn *);
//long fn_lIsAZdr(CString,stReturn *);
long fn_lIsAZdr(char *,stReturn *);
//END
//Action
//ANNECY CB
BOOL fn_bIsAnAction(CString&,stReturn *);
//BOOL fn_bIsAnAction(CString,stReturn *);
BOOL fn_bIsAnAction(char *,stReturn *);
//END
//WayPoint
//ANNECY CB
BOOL fn_bIsAWayPoint(CString&,stReturn *);
//BOOL fn_bIsAWayPoint(CString,stReturn *);
BOOL fn_bIsAWayPoint(char *,stReturn *);
//END
//Channel
//ANNECY CB
BOOL fn_bIsAChannel(CString&,stReturn *);
//BOOL fn_bIsAChannel(CString,stReturn *);
BOOL fn_bIsAChannel(char *,stReturn *);
//END
//Surface
//ANNECY CB
BOOL fn_bIsASurface(CString&,stReturn *);
//BOOL fn_bIsASurface(CString,stReturn *);
BOOL fn_bIsASurface(char *,stReturn *);
//END
//Environment
//ANNECY CB
BOOL fn_bIsAEnvironment(CString&,stReturn *);
//BOOL fn_bIsAEnvironment(CString,stReturn *);
BOOL fn_bIsAEnvironment(char *,stReturn *);
//END
//LipSynchro
//ANNECY CB
BOOL fn_bIsALipSynchro(CString&,stReturn *);
//BOOL fn_bIsALipSynchro(CString,stReturn *);
BOOL fn_bIsALipSynchro(char *,stReturn *);
//END
//Sector
//ANNECY CB
BOOL fn_bIsASector(CString&,stReturn *);
//BOOL fn_bIsASector(CString,stReturn *);
BOOL fn_bIsASector(char *,stReturn *);
//END
//SuperObject
//ANNECY CB
BOOL fn_bIsASuperObject(CString&,stReturn *);
//BOOL fn_bIsASuperObject(CString,stReturn *);
BOOL fn_bIsASuperObject(char *,stReturn *);
//END
//ObjectTable
//ANNECY CB
BOOL fn_bIsAObjectTable(CString&,stReturn *);
//BOOL fn_bIsAObjectTable(CString,stReturn *);
BOOL fn_bIsAObjectTable(char *,stReturn *);
//END
//Family
//ANNECY CB
BOOL fn_bIsAFamily(CString&,stReturn *);
//BOOL fn_bIsAFamily(CString,stReturn *);
BOOL fn_bIsAFamily(char *,stReturn *);
//END
//Model
//ANNECY CB
BOOL fn_bIsAModel(CString&,stReturn *);
//BOOL fn_bIsAModel(CString,stReturn *);
BOOL fn_bIsAModel(char *,stReturn *);
//END
//SoundEvent
//ANNECY CB
BOOL fn_bIsASoundEvent(CString&,stReturn *);
//BOOL fn_bIsASoundEvent(CString,stReturn *);
BOOL fn_bIsASoundEvent(char *,stReturn *);
//END
//GameMaterial
//ANNECY CB
BOOL fn_bIsAGameMaterial(CString&,stReturn *);
//BOOL fn_bIsAGameMaterial(CString,stReturn *);
BOOL fn_bIsAGameMaterial(char *,stReturn *);
//END
//Light
//ANNECY CB
BOOL fn_bIsALight(CString&,stReturn *);
//BOOL fn_bIsALight(CString,stReturn *);
BOOL fn_bIsALight(char *,stReturn *);
//END
//Capabilities
//ANNECY CB
BOOL fn_bIsACaps(CString&,stReturn *);
//BOOL fn_bIsACaps(CString,stReturn *);
BOOL fn_bIsACaps(char *,stReturn *);
//END
//Graph
//ANNECY CB
BOOL fn_bIsAGraph(CString&,stReturn *);
//BOOL fn_bIsAGraph(CString,stReturn *);
BOOL fn_bIsAGraph(char *,stReturn *);
//END
//Reflex Behaviour
//ANNECY CB
BOOL fn_bIsAReflexBehaviour(CString&,stReturn *);
//BOOL fn_bIsAReflexBehaviour(CString,stReturn *);
BOOL fn_bIsAReflexBehaviour(char *,stReturn *);
//END
//Intelligence Behaviour
//ANNECY CB
BOOL fn_bIsAIntelligenceBehaviour(CString&,stReturn *);
//BOOL fn_bIsAIntelligenceBehaviour(CString,stReturn *);
BOOL fn_bIsAIntelligenceBehaviour(char *,stReturn *);
//END
//Reflex Behaviour (for me)
//ANNECY CB
BOOL fn_bIsMyReflexBehaviour(CString&,stReturn *);
//BOOL fn_bIsMyReflexBehaviour(CString,stReturn *);
BOOL fn_bIsMyReflexBehaviour(char *,stReturn *);
//END
//Intelligence Behaviour (for me)
//ANNECY CB
BOOL fn_bIsMyIntelligenceBehaviour(CString&,stReturn *);
//BOOL fn_bIsMyIntelligenceBehaviour(CString,stReturn *);
BOOL fn_bIsMyIntelligenceBehaviour(char *,stReturn *);
//END
//KeyButton
//ANNECY CB
BOOL fn_bIsAKeyButton(CString&,stReturn *);
//BOOL fn_bIsAKeyButton(CString,stReturn *);
BOOL fn_bIsAKeyButton(char *,stReturn *);
//END
//Mask Type
//ANNECY CB
BOOL fn_bIsAMaskType(CString&,stReturn *);
//BOOL fn_bIsAMaskType(CString,stReturn *);
BOOL fn_bIsAMaskType(char *,stReturn *);
//END
#if 0
//Power
//ANNECY CB
BOOL fn_bIsAPower(CString&,stReturn *);
//BOOL fn_bIsAPower(CString,stReturn *);
BOOL fn_bIsAPower(char *,stReturn *);
//END
#endif //0 car inutilise dans RM 2
//Text
//ANNECY CB
BOOL fn_bIsAText(CString&,stReturn *);
//BOOL fn_bIsAText(CString,stReturn *);
BOOL fn_bIsAText(char *,stReturn *);
//END
//ParticleGenerator
//ANNECY CB
BOOL fn_bIsAParticleGenerator(CString&,stReturn *);
//BOOL fn_bIsAParticleGenerator(CString,stReturn *);
BOOL fn_bIsAParticleGenerator(char *,stReturn *);
//END
//State
//ANNECY CB
BOOL fn_bIsAState(CString&,stReturn *);
//BOOL fn_bIsAState(CString,stReturn *);
BOOL fn_bIsAState(char *,stReturn *);
//END
//Init IntermediateCode Node
void fn_vInitNode(stReturn *,long,tdeNodeType,long,CPA_Actor *pclModel=NULL);
void fn_vInitNode(stReturn *,long,tdeNodeType,double);
void fn_vInitNode(stReturn *,long,tdeNodeType,CString);
#define YY_CLex_FLEX_SCANNER
#define ENGLISH 1
#define FRENCH 2
#define DECL_DSG_VAR 3
#define DEFINE 4
#define DEFINE_TEXT 5
/*<ENGLISH>world {M_COMPUTE_ALL_4_KW();return CParse::WORLD;}*/
/*<FRENCH>monde {M_COMPUTE_ALL_4_KW();return CParse::WORLD;}*/
#include "..\Inc\EdIRflx.hpp"
#define yy___text YY_CLex_TEXT
#define yy___leng YY_CLex_LENG
#define yy___in YY_CLex_IN
#define yy___out YY_CLex_OUT
#define yy___newfile \
do \
{ \
YY_CLex_INIT_BUFFER( yy_current_buffer, yy___in ); \
YY_CLex_LOAD_BUFFER_STATE(); \
} \
while ( 0 )
#if YY_CLex_DEBUG != 0
#define yy___flex_debug YY_CLex_DEBUG_FLAG
#endif
#ifdef YY_USE_CLASS
#define yy___echo YY_CLex_ECHO
#define yy___input YY_CLex_INPUT
#define yy___fatal_error YY_CLex_FATAL_ERROR
#define yy___wrap YY_CLex_WRAP
#endif
/* done after the current pattern has been matched and before the
* corresponding action - sets up yy___text
*/
#define YY_DO_BEFORE_ACTION \
yy___text = yy_bp; \
/* % code to fiddle yy___text and yy___leng for yymore() goes here */ \
yy___leng = yy_cp - yy_bp; \
yy_hold_char = *yy_cp; \
*yy_cp = '\0'; \
yy_c_buf_p = yy_cp;
#define EOB_ACT_CONTINUE_SCAN 0
#define EOB_ACT_END_OF_FILE 1
#define EOB_ACT_LAST_MATCH 2
/* return all but the first 'n' matched characters back to the input stream */
#define yyless(n) \
do \
{ \
/* undo effects of setting up yy___text */ \
*yy_cp = yy_hold_char; \
yy_c_buf_p = yy_cp = yy_bp + n; \
YY_DO_BEFORE_ACTION; /* set up yy___text again */ \
} \
while ( 0 )
#define unput(c) yyunput( c, yy___text )
struct yy_buffer_state
{
FILE *yy_input_file;
YY_CLex_CHAR *yy_ch_buf; /* input buffer */
YY_CLex_CHAR *yy_buf_pos; /* current position in input buffer */
/* size of input buffer in bytes, not including room for EOB characters */
int yy_buf_size;
/* number of characters read into yy_ch_buf, not including EOB characters */
int yy_n_chars;
int yy_eof_status; /* whether we've seen an EOF on this buffer */
#define EOF_NOT_SEEN 0
/* "pending" happens when the EOF has been seen but there's still
* some text process
*/
#define EOF_PENDING 1
#define EOF_DONE 2
};
/* we provide macros for accessing buffer states in case in the
* future we want to put the buffer states in a more general
* "scanner state"
*/
#ifndef YY_USE_CLASS
#if YY_CLex_DEBUG != 0
int YY_CLex_DEBUG_FLAG=YY_CLex_DEBUG_INIT;
#endif
#define YY_CURRENT_BUFFER yy_current_buffer
static YY_BUFFER_STATE yy_current_buffer;
/* yy_hold_char holds the character lost when yy___text is formed */
static YY_CLex_CHAR yy_hold_char;
static int yy_n_chars; /* number of characters read into yy_ch_buf */
/* GLOBAL */
YY_CLex_CHAR *yy___text;
int yy___leng;
FILE *yy___in = (FILE *) 0, *yy___out = (FILE *) 0;
#ifdef __cplusplus
static int yyinput YY_PROTO(( void ));
#else
static int input YY_PROTO(( void ));
#endif
/* these variables are all declared out here so that section 3 code can
* manipulate them
*/
/* points to current character in buffer */
static YY_CLex_CHAR *yy_c_buf_p = (YY_CLex_CHAR *) 0;
static int yy_init = 1; /* whether we need to initialize */
static int yy_start = 0; /* start state number */
/* flag which is used to allow yywrap()'s to do buffer switches
* instead of setting up a fresh yy___in. A bit of a hack ...
*/
static int yy_did_buffer_switch_on_eof;
static int yy_get_next_buffer YY_PROTO(( void ));
static void yyunput YY_PROTO(( YY_CLex_CHAR c, YY_CLex_CHAR *buf_ptr ));
#else
/* c++ */
#ifndef YY_CLex_ECHO_NOCODE
void YY_CLex_CLASS::yy___echo()
{YY_CLex_ECHO_CODE
}
#endif
#ifndef YY_CLex_INPUT_NOCODE
int YY_CLex_CLASS::yy___input(char * buffer,int &result,int max_size)
{YY_CLex_INPUT_CODE
}
#endif
#ifndef YY_CLex_FATAL_ERROR_NOCODE
void YY_CLex_CLASS::yy___fatal_error(char *msg)
{YY_CLex_FATAL_ERROR_CODE
}
#endif
#ifndef YY_CLex_WRAP_NOCODE
int YY_CLex_CLASS::yy___wrap()
{YY_CLex_WRAP_CODE
}
#endif
void YY_CLex_CLASS::yy_initialize()
{
yy___in=0;yy___out=0;yy_init = 1;
yy_start=0;
yy___text=0;yy___leng=0;
yy_current_buffer=0;
yy_did_buffer_switch_on_eof=0;
yy_c_buf_p=0;yy_hold_char=0;yy_n_chars=0;
#if YY_CLex_DEBUG != 0
YY_CLex_DEBUG_FLAG=YY_CLex_DEBUG_INIT;
#endif
}
YY_CLex_CLASS::YY_CLex_CLASS(YY_CLex_CONSTRUCTOR_PARAM) YY_CLex_CONSTRUCTOR_INIT
{yy_initialize();
YY_CLex_CONSTRUCTOR_CODE;
}
#endif
#ifndef YY_USER_ACTION
#define YY_USER_ACTION
#endif
#ifndef YY_USER_INIT
#define YY_USER_INIT
#endif
/* % data tables for the DFA go here */
#define YY_END_OF_BUFFER 116
typedef int yy_state_type;
static const short int yy_accept[718] =
{ 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 116, 115, 115, 115, 115, 115, 115, 115,
115, 79, 82, 78, 99, 99, 99, 105, 106, 106,
105, 105, 105, 105, 105, 105, 103, 105, 1, 79,
82, 78, 99, 105, 99, 99, 99, 99, 99, 99,
99, 99, 99, 99, 99, 99, 99, 105, 105, 99,
99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
99, 105, 105, 105, 100, 100, 100, 100, 100, 100,
100, 100, 100, 105, 114, 111, 112, 112, 113, 0,
101, 87, 92, 85, 93, 86, 0, 0, 0, 88,
94, 84, 81, 83, 80, 99, 0, 99, 99, 103,
104, 0, 0, 99, 99, 99, 99, 99, 99, 99,
18, 99, 99, 2, 99, 12, 99, 99, 99, 99,
99, 99, 0, 0, 0, 99, 99, 99, 99, 50,
99, 99, 99, 99, 99, 99, 48, 99, 99, 99,
54, 99, 99, 99, 99, 0, 0, 102, 100, 100,
100, 100, 100, 100, 100, 100, 100, 100, 100, 100,
100, 100, 100, 0, 111, 112, 95, 0, 96, 0,
97, 0, 98, 99, 99, 104, 0, 0, 14, 99,
99, 99, 99, 99, 99, 99, 19, 20, 21, 99,
99, 99, 99, 99, 99, 99, 99, 99, 99, 15,
99, 99, 99, 99, 99, 99, 13, 0, 0, 0,
99, 99, 99, 99, 99, 99, 99, 38, 51, 99,
99, 99, 99, 99, 99, 55, 56, 57, 99, 99,
99, 99, 99, 99, 99, 0, 100, 100, 100, 100,
100, 100, 100, 100, 100, 100, 100, 100, 100, 100,
100, 100, 100, 100, 100, 100, 0, 89, 90, 91,
99, 99, 0, 0, 99, 99, 27, 99, 99, 99,
22, 99, 99, 99, 99, 99, 99, 99, 99, 99,
99, 99, 99, 99, 26, 16, 99, 0, 0, 0,
99, 99, 99, 99, 53, 99, 99, 99, 99, 99,
99, 99, 58, 99, 99, 99, 99, 99, 99, 52,
0, 100, 100, 100, 100, 53, 100, 100, 100, 100,
100, 100, 100, 100, 100, 100, 100, 100, 16, 100,
52, 0, 99, 99, 0, 0, 99, 99, 99, 28,
17, 99, 25, 99, 31, 99, 99, 99, 99, 99,
99, 99, 99, 99, 99, 0, 0, 0, 99, 62,
99, 99, 64, 67, 99, 99, 99, 99, 99, 99,
99, 99, 99, 63, 61, 99, 99, 99, 0, 100,
100, 100, 100, 17, 100, 100, 100, 100, 100, 100,
100, 100, 100, 100, 100, 100, 100, 100, 100, 100,
0, 99, 99, 0, 0, 0, 99, 99, 99, 99,
99, 99, 99, 99, 4, 99, 99, 99, 99, 99,
99, 33, 0, 0, 0, 99, 99, 99, 99, 99,
99, 99, 99, 99, 99, 99, 99, 99, 99, 99,
99, 0, 100, 100, 100, 100, 100, 4, 100, 100,
100, 100, 100, 100, 100, 77, 100, 100, 100, 100,
100, 100, 0, 99, 99, 0, 0, 0, 99, 99,
99, 23, 99, 99, 99, 99, 99, 11, 99, 7,
99, 99, 109, 0, 0, 99, 99, 99, 99, 99,
99, 99, 99, 99, 99, 99, 59, 99, 99, 99,
69, 108, 100, 100, 100, 100, 100, 100, 11, 100,
7, 100, 100, 76, 100, 100, 100, 100, 100, 100,
110, 99, 75, 0, 0, 0, 10, 99, 99, 24,
99, 99, 9, 99, 99, 29, 99, 0, 0, 99,
46, 99, 99, 99, 40, 99, 99, 99, 99, 99,
60, 99, 99, 99, 10, 46, 100, 100, 9, 100,
100, 100, 40, 100, 100, 100, 100, 100, 100, 99,
37, 0, 0, 99, 6, 99, 3, 8, 99, 99,
0, 0, 99, 99, 43, 99, 99, 99, 99, 47,
99, 99, 42, 99, 100, 6, 8, 100, 43, 100,
100, 47, 100, 42, 100, 74, 0, 36, 99, 99,
99, 32, 0, 0, 0, 99, 99, 49, 99, 45,
99, 99, 68, 99, 100, 100, 45, 100, 100, 100,
0, 99, 99, 99, 0, 0, 0, 99, 65, 99,
99, 99, 99, 100, 100, 100, 100, 100, 35, 99,
99, 99, 0, 0, 0, 99, 99, 99, 99, 99,
100, 100, 100, 100, 100, 99, 30, 5, 0, 0,
73, 99, 99, 99, 99, 99, 100, 5, 100, 100,
100, 34, 0, 0, 99, 99, 99, 41, 99, 34,
100, 41, 100, 0, 72, 39, 99, 99, 70, 100,
70, 71, 99, 44, 44, 66, 0
} ;
static const YY_CHAR yy_ec[128] =
{ 0,
1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
1, 1, 2, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 2, 1, 4, 5, 1, 1, 1, 1, 1,
1, 6, 7, 1, 8, 9, 10, 11, 12, 13,
11, 14, 11, 15, 11, 16, 11, 17, 18, 19,
20, 21, 1, 1, 22, 22, 22, 22, 22, 22,
22, 22, 22, 22, 22, 22, 22, 22, 22, 22,
22, 22, 22, 22, 22, 22, 22, 22, 22, 22,
23, 1, 24, 1, 25, 1, 26, 27, 28, 29,
30, 31, 32, 33, 34, 35, 22, 36, 37, 38,
39, 40, 41, 42, 43, 44, 45, 46, 47, 48,
49, 50, 1, 1, 1, 1, 1
} ;
static const YY_CHAR yy_meta[51] =
{ 0,
1, 1, 2, 1, 1, 1, 1, 3, 1, 1,
4, 4, 4, 4, 4, 4, 5, 1, 1, 3,
1, 6, 1, 1, 7, 6, 6, 6, 6, 6,
6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
6, 6, 6, 6, 6, 6, 6, 6, 6, 6
} ;
static const short int yy_base[729] =
{ 0,
0, 0, 50, 1319, 78, 1318, 126, 1317, 176, 0,
100, 108, 1321, 1325, 1316, 1299, 220, 99, 180, 1298,
214, 93, 1325, 1297, 1299, 215, 216, 1325, 1325, 1325,
1311, 1294, 228, 229, 193, 1293, 244, 219, 1325, 226,
1325, 1292, 1294, 223, 227, 221, 245, 250, 246, 247,
251, 235, 233, 252, 256, 253, 262, 1281, 255, 274,
273, 275, 277, 278, 279, 283, 290, 291, 288, 299,
306, 1280, 1304, 326, 0, 304, 1270, 1280, 270, 302,
1279, 304, 315, 1275, 1325, 0, 0, 0, 1325, 1299,
1325, 1325, 1325, 1325, 1325, 1325, 1285, 1284, 1283, 1325,
1325, 1325, 1325, 1325, 1325, 1282, 1281, 318, 332, 351,
340, 1258, 1252, 341, 342, 289, 351, 352, 354, 355,
361, 359, 367, 1278, 387, 1277, 363, 362, 368, 364,
369, 370, 1263, 1256, 1252, 376, 371, 383, 385, 1273,
388, 389, 390, 394, 391, 399, 407, 400, 404, 405,
432, 422, 409, 423, 415, 1259, 1284, 1325, 0, 1247,
1248, 1245, 402, 426, 1248, 1241, 1248, 1254, 1242, 1231,
1233, 1249, 1250, 1245, 0, 0, 1325, 1254, 1325, 1253,
1325, 1252, 1325, 433, 88, 463, 1233, 1231, 1252, 438,
439, 451, 442, 446, 445, 470, 1251, 1250, 1249, 454,
472, 473, 449, 475, 476, 477, 478, 479, 480, 1248,
481, 482, 484, 485, 488, 483, 1247, 1232, 1223, 1223,
489, 490, 498, 492, 491, 493, 503, 1243, 1242, 505,
512, 513, 514, 516, 520, 1241, 1240, 1239, 517, 523,
525, 521, 526, 527, 531, 1224, 1228, 1210, 1208, 1208,
1202, 1221, 1209, 1208, 1204, 1200, 1211, 1207, 1199, 1195,
1204, 1196, 1194, 1207, 1192, 1201, 1203, 1325, 1325, 1325,
529, 532, 1190, 1192, 535, 536, 1214, 537, 538, 544,
1213, 549, 540, 547, 551, 555, 558, 562, 560, 561,
565, 566, 571, 568, 1212, 1211, 575, 1193, 1185, 1198,
576, 577, 578, 584, 1207, 581, 586, 582, 589, 587,
592, 601, 1206, 607, 593, 594, 591, 602, 618, 1205,
1187, 600, 1176, 1170, 1188, 0, 1173, 1187, 1178, 1188,
1173, 1182, 1181, 1171, 1183, 1174, 613, 1177, 0, 1176,
0, 1171, 599, 623, 1160, 612, 626, 629, 630, 1186,
1185, 632, 635, 636, 1184, 640, 641, 642, 643, 644,
646, 645, 647, 648, 652, 1162, 1154, 1162, 653, 1180,
649, 655, 1179, 1178, 650, 664, 665, 668, 669, 671,
656, 679, 682, 1177, 684, 687, 688, 690, 1155, 1147,
1161, 1164, 1145, 0, 1154, 1138, 1146, 1145, 1154, 1141,
1142, 1143, 1136, 1151, 1150, 1138, 1134, 1130, 1128, 1128,
1134, 689, 691, 1132, 1132, 1124, 692, 699, 695, 694,
702, 696, 701, 697, 1151, 703, 705, 704, 713, 714,
722, 1150, 1136, 1139, 1125, 723, 706, 727, 730, 732,
734, 735, 736, 737, 738, 741, 743, 742, 744, 745,
748, 1133, 1126, 1119, 1122, 1129, 1119, 0, 1118, 1123,
1113, 1124, 1127, 1114, 1121, 0, 1106, 1112, 1122, 1107,
1112, 1103, 1114, 750, 752, 1103, 1110, 1105, 751, 753,
759, 1123, 768, 766, 769, 767, 772, 1122, 776, 1121,
779, 777, 1325, 1099, 1095, 775, 781, 782, 783, 778,
786, 784, 785, 787, 793, 796, 1118, 815, 801, 805,
813, 1325, 1098, 1094, 1088, 1083, 1092, 1087, 0, 1089,
0, 1085, 1096, 0, 1091, 1084, 1083, 1092, 1092, 1092,
1325, 806, 1102, 1094, 1083, 1086, 1098, 807, 814, 1097,
819, 820, 1096, 821, 822, 1095, 823, 1067, 1065, 825,
1092, 827, 826, 833, 1091, 830, 829, 834, 838, 835,
1090, 828, 839, 837, 0, 0, 1060, 1061, 0, 1060,
1076, 1058, 0, 1062, 1061, 1066, 1056, 1067, 1057, 840,
1325, 1057, 1070, 855, 1076, 857, 1075, 1074, 858, 861,
289, 1064, 863, 864, 1072, 865, 866, 867, 869, 1071,
870, 872, 1070, 875, 1056, 0, 0, 1050, 0, 1046,
1041, 0, 1043, 0, 1043, 1063, 1049, 1325, 878, 871,
873, 1061, 1038, 1046, 1037, 890, 877, 1057, 880, 1056,
881, 883, 1055, 895, 1043, 1040, 0, 1025, 1041, 1024,
1042, 897, 898, 900, 1021, 1032, 1019, 902, 1045, 904,
907, 909, 906, 1017, 1032, 1029, 1023, 1013, 1325, 912,
910, 913, 1025, 1012, 1017, 914, 915, 916, 918, 926,
991, 982, 985, 962, 965, 922, 972, 969, 940, 954,
1325, 930, 925, 928, 929, 942, 940, 0, 951, 933,
938, 958, 932, 948, 943, 944, 945, 954, 946, 0,
932, 0, 924, 589, 1325, 448, 948, 949, 443, 281,
0, 1325, 950, 259, 0, 106, 1325, 993, 1000, 1004,
1009, 1013, 1017, 1021, 1028, 1035, 1042, 1049
} ;
static const short int yy_def[729] =
{ 0,
717, 1, 717, 3, 3, 5, 717, 7, 717, 9,
718, 718, 717, 717, 719, 717, 717, 717, 717, 717,
717, 717, 717, 717, 720, 720, 720, 717, 717, 717,
719, 717, 717, 721, 717, 717, 717, 717, 717, 717,
717, 717, 720, 717, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 717, 717, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 717, 722, 717, 723, 723, 723, 723, 723, 723,
723, 723, 723, 717, 717, 724, 725, 725, 717, 719,
717, 717, 717, 717, 717, 717, 726, 727, 728, 717,
717, 717, 717, 717, 717, 720, 717, 720, 720, 717,
717, 717, 717, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 717, 717, 717, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
121, 720, 720, 720, 720, 717, 722, 717, 723, 723,
723, 723, 723, 723, 723, 723, 723, 723, 723, 723,
723, 723, 723, 717, 724, 725, 717, 717, 717, 717,
717, 717, 717, 720, 720, 717, 717, 717, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 717, 717, 717,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 717, 723, 723, 723, 723,
723, 723, 723, 723, 723, 723, 723, 723, 723, 723,
723, 723, 723, 723, 723, 723, 717, 717, 717, 717,
720, 720, 717, 717, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 717, 717, 717,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
717, 723, 723, 723, 723, 723, 723, 723, 723, 723,
723, 723, 723, 723, 723, 723, 723, 723, 723, 723,
723, 717, 720, 720, 717, 717, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 717, 717, 717, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 717, 723,
723, 723, 723, 723, 723, 723, 723, 723, 723, 723,
723, 723, 723, 723, 723, 723, 723, 723, 723, 723,
717, 720, 720, 717, 717, 717, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 717, 717, 717, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 717, 723, 723, 723, 723, 723, 723, 723, 723,
723, 723, 723, 723, 723, 723, 723, 723, 723, 723,
723, 723, 717, 720, 720, 717, 717, 717, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 717, 717, 717, 720, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 717, 723, 723, 723, 723, 723, 723, 723, 723,
723, 723, 723, 723, 723, 723, 723, 723, 723, 723,
717, 720, 720, 717, 717, 717, 720, 720, 720, 720,
720, 720, 720, 720, 720, 720, 720, 717, 717, 720,
720, 720, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 723, 723, 723, 723, 723, 723,
723, 723, 723, 723, 723, 723, 723, 723, 723, 720,
717, 717, 717, 720, 720, 720, 720, 720, 720, 720,
717, 717, 720, 720, 720, 720, 720, 720, 720, 720,
720, 720, 720, 720, 723, 723, 723, 723, 723, 723,
723, 723, 723, 723, 723, 720, 717, 717, 720, 720,
720, 720, 717, 717, 717, 720, 720, 720, 720, 720,
720, 720, 720, 720, 723, 723, 723, 723, 723, 723,
717, 720, 720, 720, 717, 717, 717, 720, 720, 720,
720, 720, 720, 723, 723, 723, 723, 723, 717, 720,
720, 720, 717, 717, 717, 720, 720, 720, 720, 720,
723, 723, 723, 723, 723, 720, 720, 720, 717, 717,
717, 720, 720, 720, 720, 720, 723, 723, 723, 723,
723, 720, 717, 717, 720, 720, 720, 720, 720, 723,
723, 723, 723, 717, 717, 720, 720, 720, 720, 723,
723, 717, 720, 720, 723, 720, 0, 717, 717, 717,
717, 717, 717, 717, 717, 717, 717, 717
} ;
static const short int yy_nxt[1376] =
{ 0,
14, 14, 14, 15, 14, 16, 17, 18, 19, 20,
14, 14, 14, 14, 14, 14, 21, 14, 22, 23,
24, 25, 14, 14, 25, 25, 26, 25, 25, 27,
25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
25, 25, 25, 25, 25, 25, 25, 25, 25, 25,
28, 29, 30, 31, 28, 32, 33, 34, 35, 36,
37, 37, 37, 37, 37, 37, 38, 39, 40, 41,
42, 43, 44, 28, 43, 45, 46, 47, 43, 48,
49, 43, 43, 50, 43, 43, 51, 52, 53, 43,
43, 43, 54, 55, 43, 56, 43, 57, 43, 43,
59, 88, 89, 60, 107, 61, 95, 62, 63, 88,
89, 43, 103, 104, 64, 65, 66, 67, 96, 68,
69, 70, 107, 71, 272, 43, 28, 29, 30, 73,
28, 28, 28, 74, 28, 28, 37, 37, 37, 37,
37, 37, 28, 39, 28, 28, 28, 75, 28, 28,
75, 75, 75, 76, 75, 77, 78, 75, 75, 75,
75, 75, 75, 79, 75, 80, 75, 75, 81, 82,
75, 83, 75, 75, 75, 75, 14, 85, 85, 14,
14, 14, 14, 14, 14, 14, 14, 14, 14, 14,
14, 14, 14, 14, 14, 14, 14, 86, 14, 14,
86, 86, 86, 86, 86, 86, 86, 86, 86, 86,
86, 86, 86, 86, 86, 86, 86, 86, 86, 86,
86, 86, 86, 86, 86, 86, 93, 97, 98, 99,
101, 107, 107, 102, 93, 101, 95, 107, 102, 94,
97, 98, 99, 107, 108, 103, 104, 94, 96, 107,
108, 107, 111, 109, 110, 110, 110, 110, 110, 110,
112, 107, 107, 107, 114, 113, 107, 107, 107, 107,
115, 120, 107, 125, 126, 107, 123, 121, 107, 127,
124, 134, 131, 116, 122, 117, 118, 119, 129, 107,
107, 107, 135, 107, 107, 107, 128, 130, 138, 107,
132, 136, 141, 143, 107, 107, 107, 107, 164, 137,
142, 139, 109, 150, 165, 107, 144, 145, 140, 148,
149, 151, 107, 146, 715, 623, 191, 147, 153, 160,
624, 166, 152, 170, 107, 154, 110, 110, 110, 110,
110, 110, 161, 167, 172, 171, 168, 155, 107, 184,
186, 186, 186, 186, 186, 186, 173, 107, 107, 111,
185, 110, 110, 110, 110, 110, 110, 107, 107, 189,
107, 107, 196, 197, 198, 107, 199, 107, 107, 107,
107, 190, 194, 107, 107, 107, 107, 107, 213, 200,
195, 193, 107, 192, 203, 212, 216, 214, 201, 107,
204, 107, 202, 107, 107, 107, 107, 107, 215, 222,
107, 217, 205, 206, 207, 107, 107, 227, 208, 221,
107, 107, 223, 107, 224, 107, 226, 228, 229, 209,
210, 107, 225, 211, 230, 233, 231, 250, 107, 107,
245, 232, 234, 235, 236, 237, 251, 238, 242, 107,
244, 252, 253, 254, 107, 107, 243, 255, 107, 107,
239, 107, 107, 275, 107, 107, 271, 107, 256, 240,
107, 241, 257, 186, 186, 186, 186, 186, 186, 279,
277, 276, 272, 282, 281, 278, 107, 280, 107, 107,
285, 107, 107, 107, 107, 107, 107, 107, 107, 107,
107, 107, 284, 287, 107, 107, 107, 107, 107, 107,
283, 293, 286, 292, 107, 288, 289, 296, 301, 107,
290, 107, 295, 303, 291, 294, 297, 304, 107, 107,
107, 302, 107, 107, 313, 306, 107, 107, 305, 107,
308, 107, 107, 107, 307, 107, 314, 107, 107, 311,
316, 107, 107, 107, 107, 310, 107, 344, 312, 309,
107, 315, 317, 107, 320, 107, 343, 107, 350, 318,
319, 107, 347, 351, 107, 352, 107, 107, 107, 348,
356, 107, 107, 353, 107, 349, 360, 107, 354, 355,
358, 107, 107, 107, 107, 362, 359, 107, 107, 363,
107, 357, 107, 107, 361, 107, 364, 107, 107, 107,
107, 375, 712, 365, 373, 107, 376, 107, 107, 370,
369, 378, 372, 107, 374, 377, 379, 371, 380, 386,
384, 387, 381, 383, 107, 412, 385, 390, 405, 107,
406, 415, 107, 382, 407, 107, 107, 388, 107, 391,
413, 107, 107, 416, 418, 408, 107, 107, 107, 107,
107, 107, 107, 107, 107, 107, 107, 423, 107, 107,
417, 107, 107, 419, 424, 428, 420, 422, 437, 421,
107, 107, 426, 427, 107, 107, 429, 107, 438, 439,
425, 430, 431, 432, 436, 107, 443, 445, 107, 440,
107, 442, 441, 107, 107, 107, 107, 107, 107, 444,
107, 107, 107, 107, 474, 107, 483, 107, 107, 107,
107, 107, 107, 446, 481, 482, 447, 479, 448, 107,
107, 449, 475, 450, 451, 486, 480, 488, 107, 107,
484, 487, 490, 107, 485, 489, 107, 497, 107, 491,
107, 107, 107, 107, 107, 499, 508, 107, 107, 107,
107, 107, 496, 505, 107, 492, 107, 107, 107, 107,
498, 501, 502, 504, 507, 107, 500, 532, 510, 503,
506, 540, 107, 107, 107, 107, 537, 509, 107, 511,
533, 107, 107, 107, 107, 107, 538, 107, 107, 107,
107, 107, 107, 107, 543, 541, 539, 542, 546, 107,
547, 552, 107, 544, 545, 555, 550, 107, 557, 551,
554, 107, 107, 107, 553, 560, 558, 556, 561, 107,
107, 107, 559, 563, 562, 107, 107, 107, 107, 107,
564, 107, 107, 107, 107, 107, 107, 580, 589, 107,
107, 107, 584, 107, 107, 107, 107, 585, 593, 597,
590, 587, 586, 594, 588, 602, 596, 598, 603, 595,
600, 107, 599, 107, 107, 604, 601, 107, 616, 107,
107, 107, 107, 107, 619, 107, 107, 107, 107, 107,
622, 107, 621, 107, 107, 628, 107, 107, 620, 107,
626, 633, 644, 627, 630, 642, 107, 629, 632, 652,
631, 107, 634, 107, 107, 643, 107, 648, 107, 649,
107, 650, 107, 107, 651, 107, 107, 662, 107, 107,
107, 107, 107, 661, 107, 666, 668, 653, 107, 677,
660, 107, 107, 669, 107, 107, 107, 685, 667, 670,
676, 686, 684, 682, 683, 695, 678, 697, 107, 107,
107, 107, 107, 692, 107, 107, 107, 711, 696, 710,
107, 705, 698, 704, 107, 703, 702, 707, 706, 699,
701, 700, 708, 694, 693, 107, 713, 716, 107, 709,
691, 690, 714, 87, 87, 87, 87, 87, 87, 87,
90, 90, 90, 90, 90, 90, 90, 106, 106, 106,
106, 110, 110, 157, 157, 157, 157, 157, 157, 157,
159, 689, 159, 159, 175, 688, 175, 175, 176, 687,
176, 176, 176, 176, 176, 177, 177, 177, 177, 177,
681, 177, 179, 179, 179, 179, 179, 680, 179, 181,
181, 181, 181, 181, 679, 181, 675, 674, 673, 672,
671, 107, 665, 664, 663, 659, 658, 657, 656, 655,
654, 107, 107, 107, 647, 646, 645, 107, 641, 107,
640, 639, 638, 637, 636, 635, 107, 107, 107, 625,
107, 107, 107, 618, 617, 615, 614, 613, 612, 611,
610, 609, 608, 607, 606, 605, 107, 107, 107, 592,
591, 107, 107, 107, 107, 583, 582, 581, 107, 579,
578, 577, 576, 575, 574, 573, 572, 571, 570, 569,
568, 567, 566, 565, 107, 549, 548, 107, 107, 107,
536, 535, 534, 531, 530, 529, 528, 527, 526, 525,
524, 523, 522, 521, 520, 519, 518, 517, 516, 515,
514, 513, 512, 495, 494, 493, 107, 107, 478, 477,
476, 473, 472, 471, 470, 469, 468, 467, 466, 465,
464, 463, 462, 461, 460, 459, 458, 457, 456, 455,
454, 453, 452, 107, 107, 107, 107, 435, 434, 433,
107, 107, 107, 414, 411, 410, 409, 404, 403, 402,
401, 400, 399, 398, 397, 396, 395, 394, 393, 392,
389, 107, 107, 107, 368, 367, 366, 107, 107, 107,
107, 346, 345, 342, 341, 340, 339, 338, 337, 336,
335, 334, 333, 332, 331, 330, 329, 328, 327, 326,
325, 324, 323, 322, 321, 107, 107, 107, 107, 107,
300, 299, 298, 107, 107, 107, 107, 107, 107, 274,
273, 270, 269, 268, 267, 266, 265, 264, 263, 262,
261, 260, 259, 258, 249, 248, 247, 158, 246, 107,
220, 219, 218, 107, 107, 188, 187, 183, 107, 182,
180, 178, 91, 174, 169, 163, 162, 158, 156, 133,
107, 105, 100, 92, 91, 107, 105, 100, 92, 91,
717, 84, 72, 58, 13, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717
} ;
static const short int yy_chk[1376] =
{ 0,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
5, 11, 11, 5, 185, 5, 18, 5, 5, 12,
12, 5, 22, 22, 5, 5, 5, 5, 18, 5,
5, 5, 716, 5, 185, 5, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 17, 19, 19, 19,
21, 26, 27, 21, 33, 38, 34, 46, 38, 17,
35, 35, 35, 45, 26, 40, 40, 33, 34, 53,
46, 52, 37, 27, 37, 37, 37, 37, 37, 37,
44, 47, 49, 50, 45, 44, 48, 51, 54, 56,
47, 49, 55, 52, 53, 714, 51, 50, 57, 54,
51, 59, 56, 47, 50, 48, 48, 48, 55, 61,
60, 62, 59, 63, 64, 65, 54, 55, 61, 66,
57, 60, 63, 64, 69, 116, 67, 68, 79, 60,
63, 62, 62, 69, 79, 70, 64, 65, 62, 67,
68, 69, 71, 65, 710, 591, 116, 66, 70, 76,
591, 80, 69, 82, 108, 71, 74, 74, 74, 74,
74, 74, 76, 80, 83, 82, 80, 71, 109, 108,
111, 111, 111, 111, 111, 111, 83, 114, 115, 110,
109, 110, 110, 110, 110, 110, 110, 117, 118, 114,
119, 120, 121, 121, 121, 122, 121, 121, 128, 127,
130, 115, 119, 123, 129, 131, 132, 137, 128, 121,
120, 118, 136, 117, 123, 127, 131, 129, 121, 138,
123, 139, 122, 125, 141, 142, 143, 145, 130, 137,
144, 132, 125, 125, 125, 146, 148, 143, 125, 136,
149, 150, 138, 147, 139, 153, 142, 144, 145, 125,
125, 155, 141, 125, 146, 149, 147, 163, 152, 154,
155, 148, 150, 151, 151, 151, 163, 151, 152, 184,
154, 164, 164, 164, 190, 191, 153, 164, 193, 709,
151, 195, 194, 190, 706, 203, 184, 192, 164, 151,
200, 151, 164, 186, 186, 186, 186, 186, 186, 194,
192, 191, 194, 200, 196, 193, 196, 195, 201, 202,
203, 204, 205, 206, 207, 208, 209, 211, 212, 216,
213, 214, 202, 205, 215, 221, 222, 225, 224, 226,
201, 212, 204, 211, 223, 206, 207, 215, 221, 227,
208, 230, 214, 223, 209, 213, 216, 224, 231, 232,
233, 222, 234, 239, 235, 226, 235, 242, 225, 240,
230, 241, 243, 244, 227, 271, 239, 245, 272, 233,
241, 275, 276, 278, 279, 232, 283, 272, 234, 231,
280, 240, 242, 284, 245, 282, 271, 285, 279, 243,
244, 286, 275, 280, 287, 282, 289, 290, 288, 276,
286, 291, 292, 283, 294, 278, 290, 293, 284, 285,
288, 297, 301, 302, 303, 292, 289, 306, 308, 293,
304, 287, 307, 310, 291, 309, 294, 317, 311, 315,
316, 308, 704, 297, 306, 343, 309, 312, 318, 302,
301, 311, 304, 314, 307, 310, 312, 303, 312, 317,
315, 318, 312, 314, 319, 343, 316, 322, 337, 344,
337, 346, 347, 312, 337, 348, 349, 319, 352, 322,
344, 353, 354, 346, 348, 337, 356, 357, 358, 359,
360, 362, 361, 363, 364, 371, 375, 356, 365, 369,
347, 372, 381, 349, 357, 361, 352, 354, 371, 353,
376, 377, 359, 360, 378, 379, 362, 380, 372, 375,
358, 363, 364, 365, 369, 382, 379, 381, 383, 376,
385, 378, 377, 386, 387, 412, 388, 413, 417, 380,
420, 419, 422, 424, 412, 418, 421, 423, 421, 426,
428, 427, 437, 382, 419, 420, 383, 417, 385, 429,
430, 386, 413, 387, 388, 424, 418, 427, 431, 436,
422, 426, 429, 438, 423, 428, 439, 437, 440, 430,
441, 442, 443, 444, 445, 439, 448, 446, 448, 447,
449, 450, 436, 445, 451, 431, 474, 479, 475, 480,
438, 441, 442, 444, 447, 481, 440, 474, 450, 443,
446, 483, 484, 486, 483, 485, 479, 449, 487, 451,
475, 496, 489, 492, 500, 491, 480, 497, 498, 499,
502, 503, 501, 504, 486, 484, 481, 485, 491, 505,
492, 498, 506, 487, 489, 501, 496, 509, 503, 497,
500, 510, 532, 538, 499, 506, 504, 502, 508, 511,
539, 508, 505, 510, 509, 541, 542, 544, 545, 547,
511, 550, 553, 552, 562, 557, 556, 532, 545, 554,
558, 560, 538, 564, 559, 563, 580, 539, 550, 556,
547, 542, 541, 552, 544, 562, 554, 557, 563, 553,
559, 584, 558, 586, 589, 564, 560, 590, 580, 593,
594, 596, 597, 598, 584, 599, 601, 620, 602, 621,
590, 604, 589, 627, 619, 596, 629, 631, 586, 632,
593, 602, 621, 594, 598, 619, 626, 597, 601, 632,
599, 634, 604, 642, 643, 620, 644, 626, 648, 627,
650, 629, 653, 651, 631, 652, 661, 644, 660, 662,
666, 667, 668, 643, 669, 648, 651, 634, 676, 661,
642, 683, 670, 652, 684, 685, 682, 669, 650, 653,
660, 670, 668, 666, 667, 682, 662, 684, 686, 695,
696, 697, 699, 676, 707, 708, 713, 703, 683, 701,
698, 694, 685, 693, 692, 691, 690, 696, 695, 686,
689, 687, 697, 680, 679, 678, 707, 713, 677, 699,
675, 674, 708, 718, 718, 718, 718, 718, 718, 718,
719, 719, 719, 719, 719, 719, 719, 720, 720, 720,
720, 721, 721, 722, 722, 722, 722, 722, 722, 722,
723, 673, 723, 723, 724, 672, 724, 724, 725, 671,
725, 725, 725, 725, 725, 726, 726, 726, 726, 726,
665, 726, 727, 727, 727, 727, 727, 664, 727, 728,
728, 728, 728, 728, 663, 728, 658, 657, 656, 655,
654, 649, 647, 646, 645, 641, 640, 639, 638, 636,
635, 633, 630, 628, 625, 624, 623, 622, 617, 616,
615, 613, 611, 610, 608, 605, 603, 600, 595, 592,
588, 587, 585, 583, 582, 579, 578, 577, 576, 575,
574, 572, 571, 570, 568, 567, 561, 555, 551, 549,
548, 546, 543, 540, 537, 536, 535, 534, 533, 530,
529, 528, 527, 526, 525, 523, 522, 520, 518, 517,
516, 515, 514, 513, 507, 495, 494, 490, 488, 482,
478, 477, 476, 473, 472, 471, 470, 469, 468, 467,
465, 464, 463, 462, 461, 460, 459, 457, 456, 455,
454, 453, 452, 435, 434, 433, 432, 425, 416, 415,
414, 411, 410, 409, 408, 407, 406, 405, 404, 403,
402, 401, 400, 399, 398, 397, 396, 395, 393, 392,
391, 390, 389, 384, 374, 373, 370, 368, 367, 366,
355, 351, 350, 345, 342, 340, 338, 336, 335, 334,
333, 332, 331, 330, 329, 328, 327, 325, 324, 323,
321, 320, 313, 305, 300, 299, 298, 296, 295, 281,
277, 274, 273, 267, 266, 265, 264, 263, 262, 261,
260, 259, 258, 257, 256, 255, 254, 253, 252, 251,
250, 249, 248, 247, 246, 238, 237, 236, 229, 228,
220, 219, 218, 217, 210, 199, 198, 197, 189, 188,
187, 182, 180, 178, 174, 173, 172, 171, 170, 169,
168, 167, 166, 165, 162, 161, 160, 157, 156, 140,
135, 134, 133, 126, 124, 113, 112, 107, 106, 99,
98, 97, 90, 84, 81, 78, 77, 73, 72, 58,
43, 42, 36, 32, 31, 25, 24, 20, 16, 15,
13, 8, 6, 4, 717, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717, 717, 717, 717, 717, 717,
717, 717, 717, 717, 717
} ;
static yy_state_type yy_last_accepting_state;
static YY_CHAR *yy_last_accepting_cpos;
#if YY_CLex_DEBUG != 0
static const short int yy_rule_linenum[115] =
{ 0,
499, 514, 515, 516, 517, 518, 519, 520, 521, 522,
526, 531, 532, 533, 534, 535, 536, 538, 539, 540,
541, 542, 543, 544, 545, 546, 547, 548, 550, 559,
561, 562, 564, 565, 567, 574, 581, 588, 589, 590,
591, 593, 594, 595, 596, 597, 601, 606, 607, 608,
609, 610, 611, 613, 614, 615, 616, 617, 618, 619,
620, 621, 622, 623, 625, 634, 636, 637, 639, 640,
642, 649, 656, 663, 672, 687, 694, 701, 702, 703,
704, 705, 706, 707, 708, 709, 710, 711, 712, 713,
714, 715, 716, 718, 721, 725, 729, 733, 739, 840,
859, 1171, 1203, 1210, 1217, 1222, 1226, 1232, 1244, 1256,
1268, 1280, 1291, 1312
} ;
#endif
/* the intent behind this definition is that it'll catch
* any uses of REJECT which flex missed
*/
#define REJECT reject_used_but_not_detected
#define yymore() yymore_used_but_not_detected
#define YY_MORE_ADJ 0
#ifndef YY_USE_CLASS
static yy_state_type yy_get_previous_state YY_PROTO(( void ));
static yy_state_type yy_try_NUL_trans YY_PROTO(( yy_state_type current_state ));
#else
#define yy_get_previous_state() ((yy_state_type)(yy_get_previous_state_()))
#define yy_try_NUL_trans(c) ((yy_state_type)(yy_try_NUL_trans_(c)))
#endif
#ifndef YY_USE_CLASS
#ifdef YY_CLex_LEX_DEFINED
YY_CLex_LEX_RETURN YY_CLex_LEX ( YY_CLex_LEX_PARAM )
YY_CLex_LEX_PARAM_DEF
#else
YY_DECL
#endif
#else
YY_CLex_LEX_RETURN YY_CLex_CLASS::YY_CLex_LEX ( YY_CLex_LEX_PARAM)
#endif
{
register yy_state_type yy_current_state;
register YY_CLex_CHAR *yy_cp, *yy_bp;
register int yy_act;
/* % user's declarations go here */
/* % end of prolog */
if ( yy_init )
{
{
YY_USER_INIT;
}
if ( ! yy_start )
yy_start = 1; /* first start state */
if ( ! yy___in )
yy___in = stdin;
if ( ! yy___out )
yy___out = stdout;
if ( yy_current_buffer )
YY_CLex_INIT_BUFFER( yy_current_buffer, yy___in );
else
yy_current_buffer = YY_CLex_CREATE_BUFFER( yy___in, YY_BUF_SIZE );
YY_CLex_LOAD_BUFFER_STATE();
yy_init=0;
}
while ( 1 ) /* loops until end-of-file is reached */
{
/* % yymore()-related code goes here */
yy_cp = yy_c_buf_p;
/* support of yy___text */
*yy_cp = yy_hold_char;
/* yy_bp points to the position in yy_ch_buf of the start of the
* current run.
*/
yy_bp = yy_cp;
/* % code to set up and find next match goes here */
yy_current_state = yy_start;
if ( yy_bp[-1] == '\n' )
++yy_current_state;
yy_match:
do
{
register YY_CHAR yy_c = yy_ec[*yy_cp];
if ( yy_accept[yy_current_state] )
{
yy_last_accepting_state = yy_current_state;
yy_last_accepting_cpos = yy_cp;
}
while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
{
yy_current_state = yy_def[yy_current_state];
if ( yy_current_state >= 718 )
yy_c = yy_meta[yy_c];
}
yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
++yy_cp;
}
while ( yy_current_state != 717 );
yy_cp = yy_last_accepting_cpos;
yy_current_state = yy_last_accepting_state;
yy_find_action:
/* % code to find the action number goes here */
yy_act = yy_accept[yy_current_state];
YY_DO_BEFORE_ACTION;
YY_USER_ACTION;
do_action: /* this label is used only to access EOF actions */
#if YY_CLex_DEBUG != 0
if ( yy___flex_debug )
{
if ( yy_act == 0 )
fprintf( stderr, "--scanner backtracking\n" );
else if ( yy_act < YY_END_OF_BUFFER -1 )
fprintf( stderr,
"--accepting rule at line %d (\"%s\")\n",
yy_rule_linenum[yy_act], yy___text );
else if ( yy_act == YY_END_OF_BUFFER -1 )
fprintf( stderr,
"--accepting default rule (\"%s\")\n",
yy___text );
else if ( yy_act == YY_END_OF_BUFFER )
fprintf( stderr, "--(end of buffer or a NUL)\n" );
else
fprintf( stderr, "--EOF\n" );
}
#endif
switch ( yy_act )
{
/* % actions go here */
case 0: /* must backtrack */
/* undo the effects of YY_DO_BEFORE_ACTION */
*yy_cp = yy_hold_char;
yy_cp = yy_last_accepting_cpos;
yy_current_state = yy_last_accepting_state;
goto yy_find_action;
case 1:
{
int c;
//for ";" char
M_COMPUTE_ALL();
while((c=yyinput())!='\xd' && c!=EOF)
{
M_COMPUTE_ALL();
}
//for "enter" char
M_COMPUTE_ALL();
}
YY_BREAK
case 2:
{M_COMPUTE_ALL_4_KW();return CParse::ME;}
YY_BREAK
case 3:
{M_COMPUTE_ALL_4_KW();return CParse::MAINACTOR;}
YY_BREAK
case 4:
{M_COMPUTE_ALL_4_KW();return CParse::NOBODY;}
YY_BREAK
case 5:
{M_COMPUTE_ALL_4_KW();return CParse::NOSUPEROBJECT;}
YY_BREAK
case 6:
{M_COMPUTE_ALL_4_KW();return CParse::EMPTYTEXT;}
YY_BREAK
case 7:
{M_COMPUTE_ALL_4_KW();return CParse::NOWHERE;}
YY_BREAK
case 8:
{M_COMPUTE_ALL_4_KW();return CParse::NOCOMPORT;}
YY_BREAK
case 9:
{M_COMPUTE_ALL_4_KW();return CParse::NOACTION;}
YY_BREAK
case 10:
{
M_COMPUTE_ALL_4_KW();
return CParse::CAPSNULL;
}
YY_BREAK
case 11:
{
M_COMPUTE_ALL_4_KW();
return CParse::NOGRAPH;
}
YY_BREAK
case 12:
{M_COMPUTE_ALL_4_COND();return CParse::OR;}
YY_BREAK
case 13:
{M_COMPUTE_ALL_4_COND();return CParse::XOR;}
YY_BREAK
case 14:
{M_COMPUTE_ALL_4_COND();return CParse::AND;}
YY_BREAK
case 15:
{M_COMPUTE_ALL_4_COND();return CParse::NOT;}
YY_BREAK
case 16:
{M_COMPUTE_ALL_4_BOOL(1);return CParse::BOOLEAN;}
YY_BREAK
case 17:
{M_COMPUTE_ALL_4_BOOL(0);return CParse::BOOLEAN;}
YY_BREAK
case 18:
{M_COMPUTE_ALL_4_KW();return CParse::IF;}
YY_BREAK
case 19:
{M_COMPUTE_ALL_4_KW();return CParse::IF2;}
YY_BREAK
case 20:
{M_COMPUTE_ALL_4_KW();return CParse::IF4;}
YY_BREAK
case 21:
{M_COMPUTE_ALL_4_KW();return CParse::IF8;}
YY_BREAK
case 22:
{M_COMPUTE_ALL_4_KW();return CParse::IF16;}
YY_BREAK
case 23:
{M_COMPUTE_ALL_4_KW();return CParse::IFDEBUG;}
YY_BREAK
case 24:
{M_COMPUTE_ALL_4_KW();return CParse::IFNOTU64;}
YY_BREAK
case 25:
{M_COMPUTE_ALL_4_KW();return CParse::IFNOT;}
YY_BREAK
case 26:
{M_COMPUTE_ALL_4_KW();return CParse::THEN;}
YY_BREAK
case 27:
{M_COMPUTE_ALL_4_KW();return CParse::ELSE;}
YY_BREAK
case 28:
{M_COMPUTE_ALL_4_KW();return CParse::ENDIF;}
YY_BREAK
case 29:
{
if(m_eTypeText!=ReflexText)
{
M_COMPUTE_ALL_4_KW();
return CParse::SCHEDULE;
}
else
return CParse::SYNTAXERROR;
}
YY_BREAK
case 30:
{M_COMPUTE_ALL_4_KW();return CParse::ITRULES;}
YY_BREAK
case 31:
{M_COMPUTE_ALL();return CParse::MACRO;}
YY_BREAK
case 32:
{M_COMPUTE_ALL();return CParse::SUBROUTINE;}
YY_BREAK
case 33:
{M_COMPUTE_ALL_4_KW();return CParse::VECTOR;}
YY_BREAK
case 34:
{M_COMPUTE_ALL_4_KW();return CParse::CONSTVECTOR;}
YY_BREAK
case 35:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eStopEngine,(long)C_ACTION_ENGINE_STOP);
return CParse::STOPENGINE;
}
YY_BREAK
case 36:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eStopRule,(long)C_ACTION_ENGINE_STOP_RULE);
return CParse::STOPRULE;
}
YY_BREAK
case 37:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eNonStop,(long)C_ACTION_ENGINE_CONTINUE);
return CParse::NONSTOP;
}
YY_BREAK
case 38:
{M_COMPUTE_ALL_4_KW();return CParse::ME;}
YY_BREAK
case 39:
{M_COMPUTE_ALL_4_KW();return CParse::MAINACTOR;}
YY_BREAK
case 40:
{M_COMPUTE_ALL_4_KW();return CParse::NOBODY;}
YY_BREAK
case 41:
{M_COMPUTE_ALL_4_KW();return CParse::NOSUPEROBJECT;}
YY_BREAK
case 42:
{M_COMPUTE_ALL_4_KW();return CParse::EMPTYTEXT;}
YY_BREAK
case 43:
{M_COMPUTE_ALL_4_KW();return CParse::NOWHERE;}
YY_BREAK
case 44:
{M_COMPUTE_ALL_4_KW();return CParse::NOCOMPORT;}
YY_BREAK
case 45:
{M_COMPUTE_ALL_4_KW();return CParse::NOACTION;}
YY_BREAK
case 46:
{
M_COMPUTE_ALL_4_KW();
return CParse::CAPSNULL;
}
YY_BREAK
case 47:
{
M_COMPUTE_ALL_4_KW();
return CParse::NOGRAPH;
}
YY_BREAK
case 48:
{M_COMPUTE_ALL_4_COND();return CParse::OR;}
YY_BREAK
case 49:
{M_COMPUTE_ALL_4_COND();return CParse::XOR;}
YY_BREAK
case 50:
{M_COMPUTE_ALL_4_COND();return CParse::AND;}
YY_BREAK
case 51:
{M_COMPUTE_ALL_4_COND();return CParse::NOT;}
YY_BREAK
case 52:
{M_COMPUTE_ALL_4_BOOL(1);return CParse::BOOLEAN;}
YY_BREAK
case 53:
{M_COMPUTE_ALL_4_BOOL(0);return CParse::BOOLEAN;}
YY_BREAK
case 54:
{M_COMPUTE_ALL_4_KW();return CParse::IF;}
YY_BREAK
case 55:
{M_COMPUTE_ALL_4_KW();return CParse::IF2;}
YY_BREAK
case 56:
{M_COMPUTE_ALL_4_KW();return CParse::IF4;}
YY_BREAK
case 57:
{M_COMPUTE_ALL_4_KW();return CParse::IF8;}
YY_BREAK
case 58:
{M_COMPUTE_ALL_4_KW();return CParse::IF16;}
YY_BREAK
case 59:
{M_COMPUTE_ALL_4_KW();return CParse::IFDEBUG;}
YY_BREAK
case 60:
{M_COMPUTE_ALL_4_KW();return CParse::IFNOTU64;}
YY_BREAK
case 61:
{M_COMPUTE_ALL_4_KW();return CParse::IFNOT;}
YY_BREAK
case 62:
{M_COMPUTE_ALL_4_KW();return CParse::THEN;}
YY_BREAK
case 63:
{M_COMPUTE_ALL_4_KW();return CParse::ELSE;}
YY_BREAK
case 64:
{M_COMPUTE_ALL_4_KW();return CParse::ENDIF;}
YY_BREAK
case 65:
{
if(m_eTypeText!=ReflexText)
{
M_COMPUTE_ALL_4_KW();
return CParse::SCHEDULE;
}
else
return CParse::SYNTAXERROR;
}
YY_BREAK
case 66:
{M_COMPUTE_ALL_4_KW();return CParse::ITRULES;}
YY_BREAK
case 67:
{M_COMPUTE_ALL();return CParse::MACRO;}
YY_BREAK
case 68:
{M_COMPUTE_ALL();return CParse::SUBROUTINE;}
YY_BREAK
case 69:
{M_COMPUTE_ALL_4_KW();return CParse::VECTOR;}
YY_BREAK
case 70:
{M_COMPUTE_ALL_4_KW();return CParse::CONSTVECTOR;}
YY_BREAK
case 71:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eStopEngine,(long)C_ACTION_ENGINE_STOP);
return CParse::STOPENGINE;
}
YY_BREAK
case 72:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eStopRule,(long)C_ACTION_ENGINE_STOP_RULE);
return CParse::STOPRULE;
}
YY_BREAK
case 73:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eNonStop,(long)C_ACTION_ENGINE_CONTINUE);
return CParse::NONSTOP;
}
YY_BREAK
case 74:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eBeginMacro,0L);
// BEGIN ROMTEAM Cristi Petrescu 98-08-
// see fn_vPostProcessIA
//m_bIsInMacro=TRUE;
// END ROMTEAM Cristi Petrescu 98-08-
return CParse::BEGINMACRO;
}
YY_BREAK
case 75:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eEndMacro,0L);
// BEGIN ROMTEAM Cristi Petrescu 98-08-
// see fn_vPostProcessIA
//m_lOldIndex=m_lOldMacroIndex;
//m_lIndexWithoutSpaceAndTab=m_lOldMacroIndex;
//m_lIndex=m_lOldMacroIndex;
//m_bIsInMacro=FALSE;
// END ROMTEAM Cristi Petrescu 98-08-
return CParse::ENDMACRO;
}
YY_BREAK
case 76:
{
//BEGIN ROMTEAM Cristi Petrescu 98-05-
M_COMPUTE_ALL();
return CParse::DVQUALIFIER;
//END ROMTEAM Cristi Petrescu 98-05-
}
YY_BREAK
case 77:
{
//BEGIN ROMTEAM Cristi Petrescu 98-05-
M_COMPUTE_ALL();
return CParse::DVQUALIFIER;
//END ROMTEAM Cristi Petrescu 98-05-
}
YY_BREAK
case 78:
{M_COMPUTE_ALL_4_OPC();return CParse::OPCOND;}
YY_BREAK
case 79:
{M_COMPUTE_ALL_4_OPC();return CParse::OPCOND;}
YY_BREAK
case 80:
{M_COMPUTE_ALL_4_OPC();return CParse::OPCOND;}
YY_BREAK
case 81:
{M_COMPUTE_ALL_4_OPC();return CParse::OPCOND;}
YY_BREAK
case 82:
{M_COMPUTE_ALL_4_OPC();return CParse::OPCOND;}
YY_BREAK
case 83:
{M_COMPUTE_ALL_4_OPC();return CParse::OPCOND;}
YY_BREAK
case 84:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH2PARMS;}
YY_BREAK
case 85:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH2PARMS;}
YY_BREAK
case 86:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH2PARMS;}
YY_BREAK
case 87:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH2PARMS;}
YY_BREAK
case 88:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH2PARMS;}
YY_BREAK
case 89:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH2PARMS;}
YY_BREAK
case 90:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH2PARMS;}
YY_BREAK
case 91:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH2PARMS;}
YY_BREAK
case 92:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH1PARM;}
YY_BREAK
case 93:
{M_COMPUTE_ALL_4_OP();return CParse::OPWITH1PARM;}
YY_BREAK
case 94:
{}
YY_BREAK
case 95:
{
unput(yytext[yyleng-1]);
M_COMPUTE_ALL_4_OP();
return CParse::OPGETCOMPO;}
YY_BREAK
case 96:
{
unput(yytext[yyleng-1]);
M_COMPUTE_ALL_4_OP();
return CParse::OPGETCOMPO;}
YY_BREAK
case 97:
{
unput(yytext[yyleng-1]);
M_COMPUTE_ALL_4_OP();
return CParse::OPGETCOMPO;}
YY_BREAK
case 98:
*yy_cp = yy_hold_char; /* undo effects of setting up yytext */
yy_c_buf_p = yy_cp -= 2;
YY_DO_BEFORE_ACTION; /* set up yytext again */
{
l_id = fn_lGetProcedureIdFromEditorName(yytext);
cs_params = fn_csGetProcedureParams(l_id);
if (cs_params != "")
iCount = 0;
}
YY_BREAK
case 99:
{
//Stefan Dumitrean 20-05-98
M_COMPUTE_ALL();
//End Stefan Dumitrean
// before all, check for #defines...
//BEGIN ROMTEAM Cristi Petrescu 98-04-
M_EXPAND_DEFINE();
//END ROMTEAM Cristi Petrescu 98-04-
//Stefan Dumitrean 20-05-98
// M_COMPUTE_ALL();
//End Stefan Dumitrean
if(fn_bIsProcedure(yytext,&(g_clParse.yylval)))
{
//ROMTEAM Optimisation (Ionut Grozea 24/04/98)
l_id = fn_lGetProcedureIdFromEditorName(yytext);
cs_params = fn_csGetProcedureParams(l_id);
iCount = 0;
//END ROMTEAM Optimisation (Ionut Grozea 24/04/98)
return CParse::PROCEDURE;
}
//ROMTEAM Optimisation (Ionut Grozea 24/04/98)
if (cs_params.GetLength()!=0 && iCount< cs_params.GetLength())
{
switch(cs_params[iCount])
{
case 'X':
{
iCount++;
if(fn_bIsFunction(yytext,&(g_clParse.yylval)))
return CParse::FUNCTION;
if(fn_bIsDesignerVariable(yytext,&(g_clParse.yylval)))
return CParse::DESVAR;
break;
}
case 'A':
iCount++;
if(fn_bIsMetaAction(yytext,&(g_clParse.yylval)))
return CParse::METAACTION;
break;
case 'L':
iCount++;
if(fn_bIsDesignerVariable(yytext,&(g_clParse.yylval)))
return CParse::DESVAR;
break;
case 'V':
iCount++;
if(fn_bIsDesignerVariable(yytext,&(g_clParse.yylval)))
return CParse::DESVAR;
break;
case 'P':
iCount++;
if(fn_bIsAType(yytext,&(g_clParse.yylval)))
return CParse::DVTYPE;
break;
default:
// iCount++;
break;
}
}
//END ROMTEAM Optimisation (Ionut Grozea 24/04/98)
if(fn_bIsFunction(yytext,&(g_clParse.yylval)))
return CParse::FUNCTION;
if(fn_bIsCondition(yytext,&(g_clParse.yylval)))
return CParse::CONDITION;
//ANNECY CB
// if(fn_bIsMetaAction(yytext,&(g_clParse.yylval)))
// return CParse::METAACTION;
//END
if(fn_bIsAType(yytext,&(g_clParse.yylval)))
return CParse::DVTYPE;
if(fn_bIsField(yytext,&(g_clParse.yylval)))
return CParse::FIELD;
if(fn_bIsAConstantInt(yytext,&(g_clParse.yylval)))
return CParse::CONSTANTINT;
if(fn_bIsAConstantReal(yytext,&(g_clParse.yylval)))
return CParse::CONSTANTREAL;
//ANNECY CB
if(fn_bIsMetaAction(yytext,&(g_clParse.yylval)))
return CParse::METAACTION;
//BEGIN ROMTEAM Cristi Petrescu 98-04-
if (fn_bIsSubr (yytext, & (g_clParse.yylval)))
return CParse::SUBRREF;
//END ROMTEAM Cristi Petrescu 98-04-
//END
//YOU MUST CALL THIS FUNCTION AT THE END
if(fn_bIsDesignerVariable(yytext,&(g_clParse.yylval)))
return CParse::DESVAR;
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eString,yytext);
return CParse::STRING;
}
YY_BREAK
case 100:
{
//Stefan Dumitrean 20-05-98
M_COMPUTE_ALL();
//End Stefan Dumitrean
// before all, check for #defines...
//BEGIN ROMTEAM Cristi Petrescu 98-04-
M_EXPAND_DEFINE ();
//END ROMTEAM Cristi Petrescu 98-04-
//Stefan Dumitrean 20-05-98
// M_COMPUTE_ALL();
//End Stefan Dumitrean
if(fn_bIsAType(yytext,&(g_clParse.yylval)))
return CParse::DVTYPE;
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eString,yytext);
return CParse::STRING;
}
YY_BREAK
case 101:
{
M_COMPUTE_ALL();
if(strcmp(yytext,"\"\"")==0)
return CParse::STRING;
//Skips first " and last "
yytext[strlen(yytext)-1]=0;
yytext++;
//ROMTEAM Optimisation (Ionut Grozea 24/04/98)
if (cs_params.GetLength()!=0 && iCount< cs_params.GetLength())
{
switch(cs_params[iCount])
{
case 'X':
iCount++;
if(fn_bIsFunction(yytext,&(g_clParse.yylval)))
return CParse::FUNCTION;
break;
case 'A':
iCount++;
if(fn_bIsAnAction(yytext,&(g_clParse.yylval)))
return CParse::ACTION;
break;
case '2':
iCount++;
if(fn_bIsMyIntelligenceBehaviour(yytext,&(g_clParse.yylval)))
return CParse::MYBEHAV;
break;
case '1':
iCount++;
if(fn_bIsMyReflexBehaviour(yytext,&(g_clParse.yylval)))
return CParse::MYREFLEX;
break;
case '6':
iCount++;
if(fn_bIsAKeyButton(yytext,&(g_clParse.yylval)))
return CParse::KEYBUTTON;
break;
case 'P':
iCount++;
if(fn_bIsAPerso(yytext,&(g_clParse.yylval)))
return CParse::PERSO;
break;
case '!':
iCount++;
if(fn_bIsAPerso(yytext,&(g_clParse.yylval)))
return CParse::PERSO;
break;
case '4':
{
iCount++;
if(fn_bIsAIntelligenceBehaviour(yytext,&(g_clParse.yylval)))
return CParse::BEHAV;
break;
}
case 'Z':
{
iCount++;
long lZdd=fn_lIsAZdd(yytext,&(g_clParse.yylval));
if(lZdd==1)
return CParse::ZDD;
else
if(lZdd>1)
return CParse::SYNTAXERROR;
break;
}
case 'E':
{
iCount++;
long lZde=fn_lIsAZde(yytext,&(g_clParse.yylval));
if(lZde==1)
return CParse::ZDE;
else
if(lZde>1)
return CParse::SYNTAXERROR;
break;
}
case 'U':
{
iCount++;
long lZdm=fn_lIsAZdm(yytext,&(g_clParse.yylval));
if(lZdm==1)
return CParse::ZDM;
else
if(lZdm>1)
return CParse::SYNTAXERROR;
break;
}
case 'W':
iCount++;
if(fn_bIsAWayPoint(yytext,&(g_clParse.yylval)))
return CParse::WAYPOINT;
break;
case '3':
iCount++;
if(fn_bIsAReflexBehaviour(yytext,&(g_clParse.yylval)))
return CParse::REFLEX;
break;
case 'M':
iCount++;
if(fn_bIsAChannel(yytext,&(g_clParse.yylval)))
return CParse::CHANNEL;
break;
case 'R':
iCount++;
if(fn_bIsASector(yytext,&(g_clParse.yylval)))
return CParse::SECTOR;
break;
case 'o':
iCount++;
if(fn_bIsALipSynchro(yytext,&(g_clParse.yylval)))
return CParse::LIPSYNCHRO;
break;
case 'J':
iCount++;
if(fn_bIsAObjectTable(yytext,&(g_clParse.yylval)))
return CParse::OBJECTTABLE;
break;
case 'G':
iCount++;
if(fn_bIsAFamily(yytext,&(g_clParse.yylval)))
return CParse::FAMILY;
break;
case 'C':
iCount++;
if(fn_bIsAGameMaterial(yytext,&(g_clParse.yylval)))
return CParse::GAMEMATERIAL;
break;
// case 'C':
// iCount++;
// if(fn_bIsALight(yytext,&(g_clParse.yylval)))
// return CParse::LIGHT;
// break;
case '$':
iCount++;
if(fn_bIsAGraph(yytext,&(g_clParse.yylval)))
return CParse::GRAPH;
break;
case '#':
iCount++;
if(fn_bIsACaps(yytext,&(g_clParse.yylval)))
return CParse::CAPS;
break;
#if 0
case 'N':
iCount++;
if(fn_bIsAPower(yytext,&(g_clParse.yylval)))
return CParse::POWER;
break;
#endif //0 car inutilise dans RM 2
case 'K':
iCount++;
if(fn_bIsAMaskType(yytext,&(g_clParse.yylval)))
return CParse::MASKTYPE;
break;
case 'T':
iCount++;
if(fn_bIsAText(yytext,&(g_clParse.yylval)))
return CParse::TEXT;
break;
case 'F':
iCount++;
if(fn_bIsASurface(yytext,&(g_clParse.yylval)))
return CParse::SURFACE;
break;
case 'H':
iCount++;
if(fn_bIsAEnvironment(yytext,&(g_clParse.yylval)))
return CParse::ENVIRONMENT;
break;
default:
iCount++;
break;
}
}
//END ROMTEAM Optimisation (Ionut Grozea 24/04/98)
if(fn_bIsAnAction(yytext,&(g_clParse.yylval)))
return CParse::ACTION;
//ANNECY CB
if(fn_bIsMyIntelligenceBehaviour(yytext,&(g_clParse.yylval)))
return CParse::MYBEHAV;
//END
if(fn_bIsMyReflexBehaviour(yytext,&(g_clParse.yylval)))
return CParse::MYREFLEX;
//ANNECY CB
if(fn_bIsAKeyButton(yytext,&(g_clParse.yylval)))
return CParse::KEYBUTTON;
//END
//ANNECY CB
// if(fn_bIsMyIntelligenceBehaviour(yytext,&(g_clParse.yylval)))
// return CParse::MYBEHAV;
//END
if(fn_bIsAPerso(yytext,&(g_clParse.yylval)))
return CParse::PERSO;
//ANNECY CB
if(fn_bIsAIntelligenceBehaviour(yytext,&(g_clParse.yylval)))
return CParse::BEHAV;
//END
//ANNECY CB
// if(fn_bIsAReflexBehaviour(yytext,&(g_clParse.yylval)))
// return CParse::REFLEX;
//END
//ANNECY CB
// if(fn_bIsAIntelligenceBehaviour(yytext,&(g_clParse.yylval)))
// return CParse::BEHAV;
//END
long lZdd=fn_lIsAZdd(yytext,&(g_clParse.yylval));
if(lZdd==1)
return CParse::ZDD;
else
if(lZdd>1)
return CParse::SYNTAXERROR;
long lZde=fn_lIsAZde(yytext,&(g_clParse.yylval));
if(lZde==1)
return CParse::ZDE;
else
if(lZde>1)
return CParse::SYNTAXERROR;
long lZdm=fn_lIsAZdm(yytext,&(g_clParse.yylval));
if(lZdm==1)
return CParse::ZDM;
else
if(lZdm>1)
return CParse::SYNTAXERROR;
long lZdr=fn_lIsAZdm(yytext,&(g_clParse.yylval));
if(lZdr==1)
return CParse::ZDR;
else
if(lZdr>1)
return CParse::SYNTAXERROR;
if(fn_bIsAWayPoint(yytext,&(g_clParse.yylval)))
return CParse::WAYPOINT;
//ANNECY CB
if(fn_bIsAReflexBehaviour(yytext,&(g_clParse.yylval)))
return CParse::REFLEX;
//END
if(fn_bIsAChannel(yytext,&(g_clParse.yylval)))
return CParse::CHANNEL;
//ANNECY CB
// if(fn_bIsASurface(yytext,&(g_clParse.yylval)))
// return CParse::SURFACE;
// if(fn_bIsAEnvironment(yytext,&(g_clParse.yylval)))
// return CParse::ENVIRONMENT;
//END
if(fn_bIsASector(yytext,&(g_clParse.yylval)))
return CParse::SECTOR;
if(fn_bIsASuperObject(yytext,&(g_clParse.yylval)))
return CParse::SUPEROBJECT;
if(fn_bIsALipSynchro(yytext,&(g_clParse.yylval)))
return CParse::LIPSYNCHRO;
if(fn_bIsAObjectTable(yytext,&(g_clParse.yylval)))
return CParse::OBJECTTABLE;
if(fn_bIsAFamily(yytext,&(g_clParse.yylval)))
return CParse::FAMILY;
if(fn_bIsAModel(yytext,&(g_clParse.yylval)))
return CParse::MODEL;
if(fn_bIsASoundEvent(yytext,&(g_clParse.yylval)))
return CParse::SOUNDEVENT;
if(fn_bIsAGameMaterial(yytext,&(g_clParse.yylval)))
return CParse::GAMEMATERIAL;
if(fn_bIsALight(yytext,&(g_clParse.yylval)))
return CParse::LIGHT;
if(fn_bIsACaps(yytext,&(g_clParse.yylval)))
return CParse::CAPS;
if(fn_bIsAGraph(yytext,&(g_clParse.yylval)))
return CParse::GRAPH;
//ANNECY CB
// if(fn_bIsAKeyButton(yytext,&(g_clParse.yylval)))
// return CParse::KEYBUTTON;
//END
if(fn_bIsAMaskType(yytext,&(g_clParse.yylval)))
return CParse::MASKTYPE;
#if 0
if(fn_bIsAPower(yytext,&(g_clParse.yylval)))
return CParse::POWER;
#endif //0 car inutilise dans RM 2
if(fn_bIsAText(yytext,&(g_clParse.yylval)))
return CParse::TEXT;
if(fn_bIsAParticleGenerator(yytext,&(g_clParse.yylval)))
return CParse::PARTGEN;
if(fn_bIsAState(yytext,&(g_clParse.yylval)))
return CParse::STATE;
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eString,yytext);
return CParse::STRING;
}
YY_BREAK
case 102:
{
if(strcmp(yytext,"\"\"")==0)
return CParse::STRING;
M_COMPUTE_ALL();
//Skips first " and last "
yytext[strlen(yytext)-1]=0;
yytext++;
if(fn_bIsAnAction(yytext,&(g_clParse.yylval)))
return CParse::ACTION;
if(fn_bIsAPerso(yytext,&(g_clParse.yylval)))
return CParse::PERSO;
if(fn_bIsAWayPoint(yytext,&(g_clParse.yylval)))
return CParse::WAYPOINT;
if(fn_bIsACaps(yytext,&(g_clParse.yylval)))
return CParse::CAPS;
if(fn_bIsAGraph(yytext,&(g_clParse.yylval)))
return CParse::GRAPH;
if(fn_bIsAText(yytext,&(g_clParse.yylval)))
return CParse::TEXT;
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eString,yytext);
return CParse::STRING;
}
YY_BREAK
case 103:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eConstant,atol(yytext));
return CParse::INT;
}
YY_BREAK
case 104:
{
M_COMPUTE_ALL();
fn_vInitNode(&(g_clParse.yylval),m_lIndex,eReal,atof(yytext));
return CParse::REAL;
}
YY_BREAK
case 105:
{
M_COMPUTE_ALL();
return *yytext;
}
YY_BREAK
case 106:
{
m_lIndex+=yyleng;
}
YY_BREAK
case 107:
{
/*printf("!! %s\n",yytext);*/
return *yytext;
}
YY_BREAK
case 108:
{
//BEGIN ROMTEAM Cristi Petrescu 98-04-
//Stefan Dumitrean 20-05-98
M_COMPUTE_ALL();
//End Stefan Dumitrean
// trick to remember the initial state
m_eBegin = begin_french;
//yy_start_old = yy_start;
BEGIN (DEFINE);
//END ROMTEAM Cristi Petrescu 98-04-
}
YY_BREAK
case 109:
{
//BEGIN ROMTEAM Cristi Petrescu 98-04-
//Stefan Dumitrean 20-05-98
M_COMPUTE_ALL();
//End Stefan Dumitrean
// trick to remember the initial state
m_eBegin = begin_english;
//yy_start_old = yy_start;
BEGIN (DEFINE);
//END ROMTEAM Cristi Petrescu 98-04-
}
YY_BREAK
case 110:
{
//BEGIN ROMTEAM Cristi Petrescu 98-04-
//Stefan Dumitrean 20-05-98
M_COMPUTE_ALL();
//End Stefan Dumitrean
// trick to remember the initial state
m_eBegin = begin_dsgvar;
//yy_start_old = yy_start;
BEGIN (DEFINE);
//END ROMTEAM Cristi Petrescu 98-04-
}
YY_BREAK
case 111:
{
//BEGIN ROMTEAM Cristi Petrescu 98-04-
//Stefan Dumitrean 20-05-98
M_COMPUTE_ALL();
//End Stefan Dumitrean
// get the definiton name
m_csDefineName = yytext;
// and get the text, too
BEGIN (DEFINE_TEXT);
//END ROMTEAM Cristi Petrescu 98-04-
}
YY_BREAK
case 112:
{
//BEGIN ROMTEAM Cristi Petrescu 98-04-
//Stefan Dumitrean 20-05-98
M_COMPUTE_ALL();
//End Stefan Dumitrean
// add the define into the table
CString csDefineText = yytext;
m_clDefineList . SetAt (m_csDefineName, csDefineText);
//END ROMTEAM Cristi Petrescu 98-04-
}
YY_BREAK
case 113:
{
//BEGIN ROMTEAM Cristi Petrescu 98-04-
//Stefan Dumitrean 20-05-98
m_lIndex+=yyleng;
//End Stefan Dumitrean
// go back
//yy_start = yy_start_old;
switch (m_eBegin)
{
case begin_french:
BEGIN (FRENCH);
break;
case begin_english:
BEGIN (ENGLISH);
break;
case begin_dsgvar:
BEGIN (DECL_DSG_VAR);
break;
}
//END ROMTEAM Cristi Petrescu 98-04-
}
YY_BREAK
case 114:
{
//Stefan Dumitrean 20-05-98
m_lIndex+=yyleng;
//End Stefan Dumitrean
}
YY_BREAK
case 115:
ECHO;
YY_BREAK
case YY_STATE_EOF(INITIAL):
case YY_STATE_EOF(ENGLISH):
case YY_STATE_EOF(FRENCH):
case YY_STATE_EOF(DECL_DSG_VAR):
case YY_STATE_EOF(DEFINE):
case YY_STATE_EOF(DEFINE_TEXT):
yyterminate();
case YY_END_OF_BUFFER:
{
/* amount of text matched not including the EOB char */
int yy_amount_of_matched_text = yy_cp - yy___text - 1;
/* undo the effects of YY_DO_BEFORE_ACTION */
*yy_cp = yy_hold_char;
/* note that here we test for yy_c_buf_p "<=" to the position
* of the first EOB in the buffer, since yy_c_buf_p will
* already have been incremented past the NUL character
* (since all states make transitions on EOB to the end-
* of-buffer state). Contrast this with the test in yyinput().
*/
if ( yy_c_buf_p <= &yy_current_buffer->yy_ch_buf[yy_n_chars] )
/* this was really a NUL */
{
yy_state_type yy_next_state;
yy_c_buf_p = yy___text + yy_amount_of_matched_text;
yy_current_state = yy_get_previous_state();
/* okay, we're now positioned to make the
* NUL transition. We couldn't have
* yy_get_previous_state() go ahead and do it
* for us because it doesn't know how to deal
* with the possibility of jamming (and we
* don't want to build jamming into it because
* then it will run more slowly)
*/
yy_next_state = yy_try_NUL_trans( yy_current_state );
yy_bp = yy___text + YY_MORE_ADJ;
if ( yy_next_state )
{
/* consume the NUL */
yy_cp = ++yy_c_buf_p;
yy_current_state = yy_next_state;
goto yy_match;
}
else
{
/* % code to do backtracking for compressed tables and set up yy_cp goes here */
yy_cp = yy_last_accepting_cpos;
yy_current_state = yy_last_accepting_state;
goto yy_find_action;
}
}
else switch ( yy_get_next_buffer() )
{
case EOB_ACT_END_OF_FILE:
{
yy_did_buffer_switch_on_eof = 0;
if ( yywrap() )
{
/* note: because we've taken care in
* yy_get_next_buffer() to have set up yy___text,
* we can now set up yy_c_buf_p so that if some
* total hoser (like flex itself) wants
* to call the scanner after we return the
* YY_NULL, it'll still work - another YY_NULL
* will get returned.
*/
yy_c_buf_p = yy___text + YY_MORE_ADJ;
yy_act = YY_STATE_EOF((yy_start - 1) / 2);
goto do_action;
}
else
{
if ( ! yy_did_buffer_switch_on_eof )
YY_NEW_FILE;
}
}
break;
case EOB_ACT_CONTINUE_SCAN:
yy_c_buf_p = yy___text + yy_amount_of_matched_text;
yy_current_state = yy_get_previous_state();
yy_cp = yy_c_buf_p;
yy_bp = yy___text + YY_MORE_ADJ;
goto yy_match;
case EOB_ACT_LAST_MATCH:
yy_c_buf_p =
&yy_current_buffer->yy_ch_buf[yy_n_chars];
yy_current_state = yy_get_previous_state();
yy_cp = yy_c_buf_p;
yy_bp = yy___text + YY_MORE_ADJ;
goto yy_find_action;
}
break;
}
default:
#if YY_CLex_DEBUG != 0
fprintf(stderr, "action # %d\n", yy_act );
#endif
YY_FATAL_ERROR(
"fatal flex scanner internal error--no action found" );
}
}
yyterminate();/* avoid the no return value error message on MS-C7/dos */
}
/* yy_get_next_buffer - try to read in a new buffer
*
* synopsis
* int yy_get_next_buffer();
*
* returns a code representing an action
* EOB_ACT_LAST_MATCH -
* EOB_ACT_CONTINUE_SCAN - continue scanning from current position
* EOB_ACT_END_OF_FILE - end of file
*/
#ifndef YY_USE_CLASS
static int yy_get_next_buffer()
#else
int YY_CLex_CLASS::yy_get_next_buffer()
#endif
{
register YY_CLex_CHAR *dest = yy_current_buffer->yy_ch_buf;
register YY_CLex_CHAR *source = yy___text - 1; /* copy prev. char, too */
register int number_to_move, i;
int ret_val;
if ( yy_c_buf_p > &yy_current_buffer->yy_ch_buf[yy_n_chars + 1] )
YY_FATAL_ERROR(
"fatal flex scanner internal error--end of buffer missed" );
/* try to read more data */
/* first move last chars to start of buffer */
number_to_move = yy_c_buf_p - yy___text;
for ( i = 0; i < number_to_move; ++i )
*(dest++) = *(source++);
if ( yy_current_buffer->yy_eof_status != EOF_NOT_SEEN )
/* don't do the read, it's not guaranteed to return an EOF,
* just force an EOF
*/
yy_n_chars = 0;
else
{
int num_to_read = yy_current_buffer->yy_buf_size - number_to_move - 1;
if ( num_to_read > YY_READ_BUF_SIZE )
num_to_read = YY_READ_BUF_SIZE;
else if ( num_to_read <= 0 )
YY_FATAL_ERROR( "fatal error - scanner input buffer overflow" );
/* read in more data */
YY_INPUT( (&yy_current_buffer->yy_ch_buf[number_to_move]),
yy_n_chars, num_to_read );
}
if ( yy_n_chars == 0 )
{
if ( number_to_move - YY_MORE_ADJ == 1 )
{
ret_val = EOB_ACT_END_OF_FILE;
yy_current_buffer->yy_eof_status = EOF_DONE;
}
else
{
ret_val = EOB_ACT_LAST_MATCH;
yy_current_buffer->yy_eof_status = EOF_PENDING;
}
}
else
ret_val = EOB_ACT_CONTINUE_SCAN;
yy_n_chars += number_to_move;
yy_current_buffer->yy_ch_buf[yy_n_chars] = YY_END_OF_BUFFER_CHAR;
yy_current_buffer->yy_ch_buf[yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
/* yy___text begins at the second character in yy_ch_buf; the first
* character is the one which preceded it before reading in the latest
* buffer; it needs to be kept around in case it's a newline, so
* yy_get_previous_state() will have with '^' rules active
*/
yy___text = &yy_current_buffer->yy_ch_buf[1];
return ( ret_val );
}
/* yy_get_previous_state - get the state just before the EOB char was reached
*
* synopsis
* yy_state_type yy_get_previous_state();
*/
#ifndef YY_USE_CLASS
static yy_state_type yy_get_previous_state()
#else
long YY_CLex_CLASS::yy_get_previous_state_()
#endif
{
register yy_state_type yy_current_state;
register YY_CLex_CHAR *yy_cp;
/* % code to get the start state into yy_current_state goes here */
register YY_CHAR *yy_bp = yy___text;
yy_current_state = yy_start;
if ( yy_bp[-1] == '\n' )
++yy_current_state;
for ( yy_cp = yy___text + YY_MORE_ADJ; yy_cp < yy_c_buf_p; ++yy_cp )
{
/* % code to find the next state goes here */
register YY_CHAR yy_c = (*yy_cp ? yy_ec[*yy_cp] : 1);
if ( yy_accept[yy_current_state] )
{
yy_last_accepting_state = yy_current_state;
yy_last_accepting_cpos = yy_cp;
}
while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
{
yy_current_state = yy_def[yy_current_state];
if ( yy_current_state >= 718 )
yy_c = yy_meta[yy_c];
}
yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
}
#ifndef YY_USE_CLASS
return ( yy_current_state );
#else
return (long)( yy_current_state );
#endif
}
/* yy_try_NUL_trans - try to make a transition on the NUL character
*
* synopsis
* next_state = yy_try_NUL_trans( current_state );
*/
#ifndef YY_USE_CLASS
#ifdef YY_USE_PROTOS
static yy_state_type yy_try_NUL_trans( register yy_state_type yy_current_state )
#else
static yy_state_type yy_try_NUL_trans( yy_current_state )
register yy_state_type yy_current_state;
#endif
#else
long YY_CLex_CLASS::yy_try_NUL_trans_(long yy_current_state_)
#endif
{
#ifndef YY_USE_CLASS
#else
yy_state_type yy_current_state=(yy_state_type)yy_current_state_;
#endif
register int yy_is_jam;
/* % code to find the next state, and perhaps do backtracking, goes here */
register YY_CHAR *yy_cp = yy_c_buf_p;
register YY_CHAR yy_c = 1;
if ( yy_accept[yy_current_state] )
{
yy_last_accepting_state = yy_current_state;
yy_last_accepting_cpos = yy_cp;
}
while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
{
yy_current_state = yy_def[yy_current_state];
if ( yy_current_state >= 718 )
yy_c = yy_meta[yy_c];
}
yy_current_state = yy_nxt[yy_base[yy_current_state] + yy_c];
yy_is_jam = (yy_current_state == 717);
#ifndef YY_USE_CLASS
return ( yy_is_jam ? 0 : yy_current_state );
#else
return (long)( yy_is_jam ? 0 : yy_current_state );
#endif
}
#ifndef YY_USE_CLASS
#ifdef YY_USE_PROTOS
static void yyunput( YY_CLex_CHAR c, register YY_CLex_CHAR *yy_bp )
#else
static void yyunput( c, yy_bp )
YY_CLex_CHAR c;
register YY_CLex_CHAR *yy_bp;
#endif
#else
void YY_CLex_CLASS::yyunput( YY_CLex_CHAR c, YY_CLex_CHAR *yy_bp )
#endif
{
register YY_CLex_CHAR *yy_cp = yy_c_buf_p;
/* undo effects of setting up yy___text */
*yy_cp = yy_hold_char;
if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
{ /* need to shift things up to make room */
register int number_to_move = yy_n_chars + 2; /* +2 for EOB chars */
register YY_CLex_CHAR *dest =
&yy_current_buffer->yy_ch_buf[yy_current_buffer->yy_buf_size + 2];
register YY_CLex_CHAR *source =
&yy_current_buffer->yy_ch_buf[number_to_move];
while ( source > yy_current_buffer->yy_ch_buf )
*--dest = *--source;
yy_cp += dest - source;
yy_bp += dest - source;
yy_n_chars = yy_current_buffer->yy_buf_size;
if ( yy_cp < yy_current_buffer->yy_ch_buf + 2 )
YY_FATAL_ERROR( "flex scanner push-back overflow" );
}
if ( yy_cp > yy_bp && yy_cp[-1] == '\n' )
yy_cp[-2] = '\n';
*--yy_cp = c;
/* note: the formal parameter *must* be called "yy_bp" for this
* macro to now work correctly
*/
YY_DO_BEFORE_ACTION; /* set up yy___text again */
}
#ifndef YY_USE_CLASS
#ifdef __cplusplus
static int yyinput()
#else
static int input()
#endif
#else
int YY_CLex_CLASS::input()
#endif
{
int c;
YY_CLex_CHAR *yy_cp = yy_c_buf_p;
*yy_cp = yy_hold_char;
if ( *yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
{
/* yy_c_buf_p now points to the character we want to return.
* If this occurs *before* the EOB characters, then it's a
* valid NUL; if not, then we've hit the end of the buffer.
*/
if ( yy_c_buf_p < &yy_current_buffer->yy_ch_buf[yy_n_chars] )
/* this was really a NUL */
*yy_c_buf_p = '\0';
else
{ /* need more input */
yy___text = yy_c_buf_p;
++yy_c_buf_p;
switch ( yy_get_next_buffer() )
{
case EOB_ACT_END_OF_FILE:
{
if ( yywrap() )
{
yy_c_buf_p = yy___text + YY_MORE_ADJ;
return ( EOF );
}
YY_NEW_FILE;
#ifndef YY_USE_CLASS
#ifdef __cplusplus
return ( yyinput() );
#else
return ( input() );
#endif
#else
return ( input() );
#endif
}
break;
case EOB_ACT_CONTINUE_SCAN:
yy_c_buf_p = yy___text + YY_MORE_ADJ;
break;
case EOB_ACT_LAST_MATCH:
#ifndef YY_USE_CLASS
#ifdef __cplusplus
YY_FATAL_ERROR( "unexpected last match in yyinput()" );
#else
YY_FATAL_ERROR( "unexpected last match in input()" );
#endif
#else
YY_FATAL_ERROR( "unexpected last match in YY_CLex_CLASS::input()" );
#endif
}
}
}
c = *yy_c_buf_p;
yy_hold_char = *++yy_c_buf_p;
return ( c );
}
#ifndef YY_USE_CLASS
#ifdef YY_USE_PROTOS
void YY_CLex_RESTART( FILE *input_file )
#else
void YY_CLex_RESTART( input_file )
FILE *input_file;
#endif
#else
void YY_CLex_CLASS::YY_CLex_RESTART ( FILE *input_file )
#endif
{
YY_CLex_INIT_BUFFER( yy_current_buffer, input_file );
YY_CLex_LOAD_BUFFER_STATE();
}
#ifndef YY_USE_CLASS
#ifdef YY_USE_PROTOS
void YY_CLex_SWITCH_TO_BUFFER( YY_BUFFER_STATE new_buffer )
#else
void YY_CLex_SWITCH_TO_BUFFER( new_buffer )
YY_BUFFER_STATE new_buffer;
#endif
#else
void YY_CLex_CLASS::YY_CLex_SWITCH_TO_BUFFER( YY_BUFFER_STATE new_buffer )
#endif
{
if ( yy_current_buffer == new_buffer )
return;
if ( yy_current_buffer )
{
/* flush out information for old buffer */
*yy_c_buf_p = yy_hold_char;
yy_current_buffer->yy_buf_pos = yy_c_buf_p;
yy_current_buffer->yy_n_chars = yy_n_chars;
}
yy_current_buffer = new_buffer;
YY_CLex_LOAD_BUFFER_STATE();
/* we don't actually know whether we did this switch during
* EOF (yywrap()) processing, but the only time this flag
* is looked at is after yywrap() is called, so it's safe
* to go ahead and always set it.
*/
yy_did_buffer_switch_on_eof = 1;
}
#ifndef YY_USE_CLASS
#ifdef YY_USE_PROTOS
void YY_CLex_LOAD_BUFFER_STATE( void )
#else
void YY_CLex_LOAD_BUFFER_STATE()
#endif
#else
void YY_CLex_CLASS::YY_CLex_LOAD_BUFFER_STATE( )
#endif
{
yy_n_chars = yy_current_buffer->yy_n_chars;
yy___text = yy_c_buf_p = yy_current_buffer->yy_buf_pos;
yy___in = yy_current_buffer->yy_input_file;
yy_hold_char = *yy_c_buf_p;
}
#ifndef YY_USE_CLASS
#ifdef YY_USE_PROTOS
YY_BUFFER_STATE YY_CLex_CREATE_BUFFER( FILE *file, int size )
#else
YY_BUFFER_STATE YY_CLex_CREATE_BUFFER( file, size )
FILE *file;
int size;
#endif
#else
YY_BUFFER_STATE YY_CLex_CLASS::YY_CLex_CREATE_BUFFER( FILE *file, int size )
#endif
{
YY_BUFFER_STATE b;
b = (YY_BUFFER_STATE) malloc( sizeof( struct yy_buffer_state ) );
if ( ! b )
YY_FATAL_ERROR( "out of dynamic memory in YY_CLex_CREATE_BUFFER()" );
b->yy_buf_size = size;
/* yy_ch_buf has to be 2 characters longer than the size given because
* we need to put in 2 end-of-buffer characters.
*/
b->yy_ch_buf = (YY_CLex_CHAR *) malloc( (unsigned) (b->yy_buf_size + 2) );
if ( ! b->yy_ch_buf )
YY_FATAL_ERROR( "out of dynamic memory in YY_CLex_CREATE_BUFFER()" );
YY_CLex_INIT_BUFFER( b, file );
return ( b );
}
#ifndef YY_USE_CLASS
#ifdef YY_USE_PROTOS
void YY_CLex_DELETE_BUFFER( YY_BUFFER_STATE b )
#else
void YY_CLex_DELETE_BUFFER( b )
YY_BUFFER_STATE b;
#endif
#else
void YY_CLex_CLASS::YY_CLex_DELETE_BUFFER( YY_BUFFER_STATE b )
#endif
{
if ( b == yy_current_buffer )
yy_current_buffer = (YY_BUFFER_STATE) 0;
free( (char *) b->yy_ch_buf );
free( (char *) b );
}
#ifndef YY_USE_CLASS
#ifdef YY_USE_PROTOS
void YY_CLex_INIT_BUFFER( YY_BUFFER_STATE b, FILE *file )
#else
void YY_CLex_INIT_BUFFER( b, file )
YY_BUFFER_STATE b;
FILE *file;
#endif
#else
void YY_CLex_CLASS::YY_CLex_INIT_BUFFER( YY_BUFFER_STATE b, FILE *file)
#endif
{
b->yy_input_file = file;
/* we put in the '\n' and start reading from [1] so that an
* initial match-at-newline will be true.
*/
b->yy_ch_buf[0] = '\n';
b->yy_n_chars = 1;
/* we always need two end-of-buffer characters. The first causes
* a transition to the end-of-buffer state. The second causes
* a jam in that state.
*/
b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
b->yy_ch_buf[2] = YY_END_OF_BUFFER_CHAR;
b->yy_buf_pos = &b->yy_ch_buf[1];
b->yy_eof_status = EOF_NOT_SEEN;
}
//Some useful macros
#define M_MAKECHAR(a) ((char *)(LPCTSTR(a)))
//ANNECY CB
#define CSTRING_EQ(cs, psz)\
{\
cs= psz;\
}
//END
//MetaAction
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsMetaAction(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsMetaAction(CString csString,stReturn *pstReturn)
//END
{
long lIndex=fn_lGetMetaActionIdFromEditorName(csString);
if(M_ID_IS_VALID(lIndex))
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eMetaAction,lIndex);
return TRUE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsMetaAction(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsMetaAction(gcsGlob,pstReturn);
}
//END
//Condition
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsCondition(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsCondition(CString csString,stReturn *pstReturn)
//END
{
long lIndex=fn_lGetConditionIdFromEditorName(csString);
if(M_ID_IS_VALID(lIndex))
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eCondition,lIndex);
return TRUE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsCondition(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsCondition(gcsGlob,pstReturn);
}
//END
//Designer Variable
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsDesignerVariable(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsDesignerVariable(CString csString,stReturn *pstReturn)
//END
{
//First looks in current dsg var list
//ANNECY CB
long lIndex = g_clDsgVarList.m_fn_bIsADesignerVariable(csString) - 1;
if(lIndex >= 0)
// if(g_clDsgVarList.m_fn_bIsADesignerVariable(csString))
{
// long lIndex=g_clDsgVarList.m_fn_lGetIndexOfADesignerVariable(csString);
//END
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eDsgVar,lIndex,g_pclCurrentModel);
CPA_EdIR_IntermediateCode *pclIntermediateCode=pstReturn->clIntermediateCodeList.GetTail();
pclIntermediateCode->m_fn_vSetString(csString);
return TRUE;
}
else
{
//Looks in all models
CPA_List<CPA_BaseObject> clModelsList;
g_pclAIInterface->GetMainWorld()->fn_lFindObjects(&clModelsList,"",C_szActorModelTypeName,NO_CRITERIA);
POSITION pos=clModelsList.GetHeadPosition();
BOOL bFound=FALSE;
long lNoDsgVar=0;
CPA_Actor *pclModel=NULL;
while(pos!=NULL && !bFound)
{
CPA_Actor *pclActor=(CPA_Actor *)(clModelsList.GetNext(pos));
if(pclActor->fn_bIsAvailable())
{
pclModel=pclActor;
if(pclModel!=g_pclCurrentModel)
{
CPA_EdIR_Brain *pclBrain=((EdActors_EditorActorModel *)pclModel->m_fn_pclGetEditorActor())->m_pclBrain;
CString csIn;
if(!pclBrain->m_clListOfDeclarations.IsEmpty())
{
//Gets Designer Variable MainBehaviour (first element in the list)
CPA_EdIR_MainBehaviour *pclMainBehaviour=pclBrain->m_clListOfDeclarations.GetHead();
//Gets text declaraition
if(pclMainBehaviour->m_pclBehaviour!=NULL)
csIn=pclMainBehaviour->m_pclBehaviour->m_fn_csGetRules();
else
csIn=pclMainBehaviour->m_csText;
csIn=fn_csGetCodeWithoutComments(csIn);
//Looks for dsg var in this text
long lCurrentIndex=0;
CString csWord=fn_csGetNextWord(csIn,lCurrentIndex);
lNoDsgVar=0;
while(!csWord.IsEmpty() && !bFound)
{
BOOL bPublic = TRUE;
// skip private & public
if (fn_bIsDsgVarQualifier(csWord))
{
bPublic = csWord.CompareNoCase("private");
csWord=fn_csGetNextWord(csIn,lCurrentIndex);
}
//Gets Type
tdeDsgVarTypeId eDsgVarTypeId=(tdeDsgVarTypeId)fn_lGetDsgVarTypeIdFromEditorName(csWord);
//Gets Name
csWord=fn_csGetNextWord(csIn,lCurrentIndex);
if(csWord.CompareNoCase(csString)==0)
bFound=TRUE;
else
{
//Skips Value
fn_csGetNextWord(csIn,lCurrentIndex);
if(eDsgVarTypeId==eDsgVarType_Vector)
{
//Skips x,y,z components
fn_csGetNextWord(csIn,lCurrentIndex);
fn_csGetNextWord(csIn,lCurrentIndex);
fn_csGetNextWord(csIn,lCurrentIndex);
}
//Skips type
csWord=fn_csGetNextWord(csIn,lCurrentIndex);
lNoDsgVar++;
}
}
}
}
}
}
long lIndex=lNoDsgVar;
if(bFound)
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eDsgVar,lIndex,pclModel);
CPA_EdIR_IntermediateCode *pclIntermediateCode=pstReturn->clIntermediateCodeList.GetTail();
pclIntermediateCode->m_fn_vSetString(csString);
}
return bFound;
}
}
//ANNECY CB
BOOL fn_bIsDesignerVariable(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsDesignerVariable(gcsGlob,pstReturn);
}
//END
//ConstantInt
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAConstantInt(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAConstantInt(CString csString,stReturn *pstReturn)
//END
{
CPA_EdIR_Frame *pclMainFrame=g_pclAIInterface->m_pclIRMainFrame;
if(pclMainFrame!=NULL)
{
if(pclMainFrame->m_clConstantList.m_fn_bIsAConstant(csString))
{
CString csValue=pclMainFrame->m_clConstantList.m_fn_csGetValueOfAConstant(csString);
if(pclMainFrame->m_clConstantList.m_fn_csGetTypeOfAConstant(csString)==g_c_csInteger)
{
long lValue=atol(M_MAKECHAR(csValue));
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eConstantInt,lValue);
CPA_EdIR_IntermediateCode *pclIntermediateCode=pstReturn->clIntermediateCodeList.GetTail();
pclIntermediateCode->m_fn_vSetString(csString);
return TRUE;
}
else
return FALSE;
}
else
return FALSE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsAConstantInt(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAConstantInt(gcsGlob,pstReturn);
}
//END
//ConstantReal
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAConstantReal(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAConstantReal(CString csString,stReturn *pstReturn)
//END
{
CPA_EdIR_Frame *pclMainFrame=g_pclAIInterface->m_pclIRMainFrame;
if(pclMainFrame!=NULL)
{
if(pclMainFrame->m_clConstantList.m_fn_bIsAConstant(csString))
{
CString csValue=pclMainFrame->m_clConstantList.m_fn_csGetValueOfAConstant(csString);
if(pclMainFrame->m_clConstantList.m_fn_csGetTypeOfAConstant(csString)==g_c_csDecimal)
{
double dfValue=atof(M_MAKECHAR(csValue));
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eConstantReal,dfValue);
CPA_EdIR_IntermediateCode *pclIntermediateCode=pstReturn->clIntermediateCodeList.GetTail();
pclIntermediateCode->m_fn_vSetString(csString);
return TRUE;
}
else
return FALSE;
}
else
return FALSE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsAConstantReal(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAConstantReal(gcsGlob,pstReturn);
}
//END
//Type
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAType(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAType(CString csString,stReturn *pstReturn)
//END
{
long lIndex=fn_lGetDsgVarTypeIdFromEditorName(csString);
if(M_ID_IS_VALID(lIndex))
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eCreateDsgVar,lIndex);
return TRUE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsAType(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAType(gcsGlob,pstReturn);
}
//END
//Function
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsFunction(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsFunction(CString csString,stReturn *pstReturn)
//END
{
long lIndex=fn_lGetFunctionIdFromEditorName(csString);
if(M_ID_IS_VALID(lIndex))
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eFunction,lIndex);
return TRUE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsFunction(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsFunction(gcsGlob,pstReturn);
}
//END
//Procedure
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsProcedure(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsProcedure(CString csString,stReturn *pstReturn)
//END
{
long lIndex=fn_lGetProcedureIdFromEditorName(csString);
if(M_ID_IS_VALID(lIndex))
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eProcedure,lIndex);
return TRUE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsProcedure(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsProcedure(gcsGlob,pstReturn);
}
//END
//BEGIN ROMTEAM Cristi Petrescu 98-04-
//Subr
/****************************************************************************/
BOOL fn_bIsSubr(CString &csString,stReturn *pstReturn)
{
if (g_pclListOfSubrs -> m_fn_bIsInList (csString))
{
CPA_EdIR_MainBehaviour *pclMainBehaviour = g_pclListOfSubrs -> m_fn_pclGetMainBehaviour(csString);
//Keeps the editor pointer
//Converts it to a engine pointer before engine start
long lIndex = (long) pclMainBehaviour;
fn_vInitNode (pstReturn, g_clLex . m_lIndex, eSubrRef, lIndex);
return TRUE;
}
return FALSE;
//return g_pclListOfSubrs -> m_fn_bIsInList (csString);
}
BOOL fn_bIsSubr(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsSubr(gcsGlob,pstReturn);
}
//END ROMTEAM Cristi Petrescu 98-04-
//Field
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsField(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsField(CString csString,stReturn *pstReturn)
//END
{
long lIndex=fn_lGetFieldIdFromEditorName(csString);
if(M_ID_IS_VALID(lIndex))
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eField,lIndex);
return TRUE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsField(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsField(gcsGlob,pstReturn);
}
//END
//Known editor object
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAKnownEditorObject(CString &csString,stReturn *pstReturn,char *csTypeName,tdeNodeType eNodeType)
//BOOL fn_bIsAKnownEditorObject(CString csString,stReturn *pstReturn,CString csTypeName,tdeNodeType eNodeType)
//END
{
CPA_BaseObject *pclBaseObject;
pclBaseObject=g_pclAIInterface->GetMainWorld()->fn_p_oFindObject(M_MAKECHAR(csString),csTypeName);
if(pclBaseObject!=NULL)
{
if(pclBaseObject->fn_bIsAvailable()==FALSE)
pclBaseObject->GetEditor()->fn_bLoadBaseObject(pclBaseObject);
long lIndex=long(pclBaseObject->GetData());
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eNodeType,lIndex);
}
return (pclBaseObject!=NULL);
}
//Perso (and Always)
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAPerso(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAPerso(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szActorInstanceTypeName,ePerso);
}
//ANNECY CB
BOOL fn_bIsAPerso(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAPerso(gcsGlob,pstReturn);
}
//END
//For ZDD ZDM ZDE ZDR and WAY
/****************************************************************************/
//ANNECY CB
long fn_lIsAZdxOrAWay(CString &csString,long &lIndex,CString &csObjectType)
//long fn_lIsAZdxOrAWay(CString csString,long &lIndex,CString &csObjectType)
//END
{
stIndexOfNameInfo stInfo;
stInfo.csNameOfObject=csString;
CPA_DLLBase *pclActorDLL=(CPA_DLLBase*)(g_pclAIInterface->GetMainWorld()->GetObjectDLLWithName(C_szDLLActorName));
long lResultIndex=pclActorDLL->OnQueryAction(g_pclAIInterface,C_uiActor_GetIndexOfName,(long)&stInfo);
csObjectType=stInfo.csObjectType;
CPA_Actor *pclModel=stInfo.pclModel;
switch (lResultIndex)
{
case C_wNoNameFound:
return 0;
case C_wMultipleNamesFound:
AfxMessageBox("Conflict with "+csString+"\nTry to use ListName@ObjectName");
return 2;
case C_wNoNameListFound:
return 0;
case C_wMultipleNameListsFound:
AfxMessageBox("Conflict with "+csString+"\nTry to use FamilyName@ListName@ObjectName");
return 2;
case C_wNoFamilyFound:
return 0;
case C_wMultipleFamiliesFound:
AfxMessageBox("PB : FamilyName are not unique !!!");
return 2;
default:
lIndex=lResultIndex;
return 1;
}
}
//ZDD
/****************************************************************************/
//ANNECY CB
long fn_lIsAZdd(CString &csString,stReturn *pstReturn)
//long fn_lIsAZdd(CString csString,stReturn *pstReturn)
//END
{
CString csObjectType;
long lIndex;
long lResult=fn_lIsAZdxOrAWay(csString,lIndex,csObjectType);
if(lResult!=1)
return lResult;
else
if(csObjectType==C_szZDdNameListType)
{
lIndex++;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eZdd,lIndex);
return 1;
}
else
return 0;
}
//ANNECY CB
long fn_lIsAZdd(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_lIsAZdd(gcsGlob,pstReturn);
}
//END
//ZDE
/****************************************************************************/
//ANNECY CB
long fn_lIsAZde(CString &csString,stReturn *pstReturn)
//long fn_lIsAZde(CString csString,stReturn *pstReturn)
//END
{
CString csObjectType;
long lIndex;
long lResult=fn_lIsAZdxOrAWay(csString,lIndex,csObjectType);
if(lResult!=1)
return lResult;
else
if(csObjectType==C_szZDeNameListType)
{
lIndex++;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eZde,lIndex);
return 1;
}
else
return 0;
}
//ANNECY CB
long fn_lIsAZde(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_lIsAZde(gcsGlob,pstReturn);
}
//END
//ZDM
/****************************************************************************/
//ANNECY CB
long fn_lIsAZdm(CString &csString,stReturn *pstReturn)
//long fn_lIsAZdm(CString csString,stReturn *pstReturn)
//END
{
CString csObjectType;
long lIndex;
long lResult=fn_lIsAZdxOrAWay(csString,lIndex,csObjectType);
if(lResult!=1)
return lResult;
else
if(csObjectType==C_szZDmNameListType)
{
lIndex++;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eZdm,lIndex);
return 1;
}
else
return 0;
}
//ANNECY CB
long fn_lIsAZdm(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_lIsAZdm(gcsGlob,pstReturn);
}
//END
//ZDM
/****************************************************************************/
//ANNECY CB
long fn_lIsAZdr(CString &csString,stReturn *pstReturn)
//long fn_lIsAZdr(CString csString,stReturn *pstReturn)
//END
{
CString csObjectType;
long lIndex;
long lResult=fn_lIsAZdxOrAWay(csString,lIndex,csObjectType);
if(lResult!=1)
return lResult;
else
if(csObjectType==C_szZDrNameListType)
{
lIndex++;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eZdr,lIndex);
return 1;
}
else
return 0;
}
//ANNECY CB
long fn_lIsAZdr(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_lIsAZdr(gcsGlob,pstReturn);
}
//END
//***********************************************************************
void fn_vSplitName(CString csName,CString &csOwner,CString &csObject)
{
int iPos;
// extract object
iPos = csName.ReverseFind('@');
if (iPos != -1)
{
csObject = csName.Right(csName.GetLength()-iPos-1);
csOwner = csName.Left(iPos);
}
else
{
csObject = csName;
}
}
//Action
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAnAction(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAnAction(CString csString,stReturn *pstReturn)
//END
{
//Looks if it is a action of the current family
long lIndex=long(((EdActors_EditorActorModel *)g_pclCurrentModel->m_fn_pclGetEditorActor())->m_pclBrain->m_fn_pvGetStateHandle(csString));
if(lIndex!=NULL)
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eAction,lIndex);
return TRUE;
}
else
{
CPA_BaseObject *pclOwner=NO_CRITERIA;
//Try to split action name
CString csFamily;
CString csAction;
fn_vSplitName(csString,csFamily,csAction);
if(!csFamily.IsEmpty())
pclOwner=g_pclAIInterface->GetMainWorld()->fn_p_oFindObject(M_MAKECHAR(csFamily),C_szFamilyTypeName);
//Looks in other family
CPA_List<CPA_BaseObject> clObjectLists;
long lNumActions=g_pclAIInterface->GetMainWorld()->fn_lFindObjects(&clObjectLists,M_MAKECHAR(csAction),C_szActionTypeName,pclOwner);
CPA_BaseObject *pclBaseObject=NULL;
if(lNumActions==1)
{
pclBaseObject=clObjectLists.GetHead();
if(pclBaseObject!=NULL)
{
if(pclBaseObject->fn_bIsAvailable()==FALSE)
pclBaseObject->GetEditor()->fn_bLoadBaseObject(pclBaseObject);
CPA_Action *pclAction=(CPA_Action *)pclBaseObject;
if(pclAction->mfn_p_oGetDefaultState()!=NULL)
{
lIndex=long(pclAction->mfn_p_oGetDefaultState()->GetData());
}
else
{
AfxMessageBox("The action \""+pclAction->GetName()+"\" has no Initial State !!!!");
return FALSE;
}
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eAction,lIndex);
}
}
else
if(lNumActions>1)
{
AfxMessageBox("Conflict with "+csString+"\nTry to use FamilyName@ActionName");
}
return (pclBaseObject!=NULL);
}
}
//ANNECY CB
BOOL fn_bIsAnAction(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAnAction(gcsGlob,pstReturn);
}
//END
//WayPoint
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAWayPoint(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAWayPoint(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szWayPointTypeName,eWayPoint);
}
//ANNECY CB
BOOL fn_bIsAWayPoint(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAWayPoint(gcsGlob,pstReturn);
}
//END
//Channel
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAChannel(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAChannel(CString csString,stReturn *pstReturn)
//END
{
CPA_DLLBase *pclFamilyDLL=(CPA_DLLBase*)(g_pclAIInterface->GetMainWorld()->GetToolDLLWithName(C_szDLLFamilyName));
if(pclFamilyDLL!=NULL)
{
CString csFamilyName;
CString csChannelName;
fn_vSplitName(csString,csFamilyName,csChannelName);
tdstChannelInfoSearch stChannelInfo;
if(!csFamilyName.IsEmpty())
stChannelInfo.p_oFamily=(CPA_Family *)g_pclAIInterface->GetMainWorld()->fn_p_oFindObject(M_MAKECHAR(csFamilyName),C_szFamilyTypeName);
else
stChannelInfo.p_oFamily=NULL;
stChannelInfo.szChannel=(char *)LPCTSTR(csChannelName);
stChannelInfo.lIndexOfChannel=0;
if(pclFamilyDLL->OnQueryAction(g_pclAIInterface,C_uiGetChannel,(LPARAM)&stChannelInfo)==1)
{
long lIndex=stChannelInfo.lIndexOfChannel;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eModule,lIndex);
return TRUE;
}
else
if(pclFamilyDLL->OnQueryAction(g_pclAIInterface,C_uiGetChannel,(LPARAM)&stChannelInfo)==2)
{
AfxMessageBox("Conflict with "+csString+"\nTry to use FamilyName@ObjectName");
}
else
return FALSE;
}
return FALSE;
}
//ANNECY CB
BOOL fn_bIsAChannel(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAChannel(gcsGlob,pstReturn);
}
//END
//Surface
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsASurface(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsASurface(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szSurfaceTypeName,eSurface);
}
//ANNECY CB
BOOL fn_bIsASurface(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsASurface(gcsGlob,pstReturn);
}
//END
//Environment
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAEnvironment(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAEnvironment(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szEnvironmentTypeName,eEnvironment);
}
//ANNECY CB
BOOL fn_bIsAEnvironment(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAEnvironment(gcsGlob,pstReturn);
}
//END
//LipSynchro
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsALipSynchro(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsALipSynchro(CString csString,stReturn *pstReturn)
//END
{
CPA_DLLBase *pclTLSDLL=(CPA_DLLBase*)(g_pclAIInterface->GetMainWorld()->GetToolDLLWithName(C_szLipSyncDLLName));
if(pclTLSDLL!=NULL)
{
csString+=".SYN";
tdstLipSyn_Info stLipSyn_Info;
stLipSyn_Info.pFamily=g_pclCurrentModel->m_pub_fn_pclGetFamily();
stLipSyn_Info.csName=csString;
CPA_SaveObject *pclLipSynchro;
pclLipSynchro=(CPA_SaveObject *)pclTLSDLL->OnQueryAction(g_pclAIInterface,C_uiLoadLipSynchro,(LPARAM)&stLipSyn_Info);
if(pclLipSynchro!=NULL)
{
long lIndex=long(pclLipSynchro->GetData());
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eLipSynchro,lIndex);
}
return (pclLipSynchro!=NULL);
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsALipSynchro(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsALipSynchro(gcsGlob,pstReturn);
}
//END
//Sector
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsASector(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsASector(CString csString,stReturn *pstReturn)
//END
{
CPA_List<CPA_SuperObject> *pclList;
pclList=g_pclAIInterface->GetMainWorld()->GetInterface()->GetObjectListByType(C_szSectorTypeName);
CPA_SuperObject *pclSector=NULL;
BOOL bFound=FALSE;
if(pclList!=NULL)
{
POSITION pos=pclList->GetHeadPosition();
while(pos!=NULL && !bFound)
{
pclSector=pclList->GetNext(pos);
bFound=(pclSector->GetObject()->GetName().CompareNoCase(csString)==0);
}
if(bFound)
{
long lIndex=long(pclSector->GetData());
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eSector,lIndex);
}
}
return (bFound);
}
//ANNECY CB
BOOL fn_bIsASector(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsASector(gcsGlob,pstReturn);
}
//END
//SuperObject
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsASuperObject(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsASuperObject(CString csString,stReturn *pstReturn)
//END
{
//ANNECY VL 26/03/98{
//CPA_SuperObject *pclSuperObject=g_pclAIInterface->GetMainWorld()->GetInterface()->GetSuperObject("All Types",csString);
CPA_SuperObject *pclSuperObject = (CPA_SuperObject *) g_pclAIInterface->GetMainWorld()->fn_p_oFindObject( csString, "SuperObject" );
//ENDANNECY VL}
if(pclSuperObject!=NULL)
{
long lIndex=long(pclSuperObject->GetData());
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eSuperObject,lIndex);
}
return (pclSuperObject!=NULL);
}
//ANNECY CB
BOOL fn_bIsASuperObject(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsASuperObject(gcsGlob,pstReturn);
}
//END
//ObjectTable
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAObjectTable(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAObjectTable(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szObjectTableTypeName,eObjectTable);
}
//ANNECY CB
BOOL fn_bIsAObjectTable(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAObjectTable(gcsGlob,pstReturn);
}
//END
//Family
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAFamily(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAFamily(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szFamilyTypeName,eFamily);
}
//ANNECY CB
BOOL fn_bIsAFamily(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAFamily(gcsGlob,pstReturn);
}
//END
//Model
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAModel(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAModel(CString csString,stReturn *pstReturn)
//END
{
CPA_BaseObject *pclBaseObject;
pclBaseObject=g_pclAIInterface->GetMainWorld()->fn_p_oFindObject(M_MAKECHAR(csString),C_szActorModelTypeName);
if(pclBaseObject!=NULL)
{
if(pclBaseObject->fn_bIsAvailable()==FALSE)
pclBaseObject->GetEditor()->fn_bLoadBaseObject(pclBaseObject);
//Keeps the editor pointer
//Converts it to a engine pointer before engine start
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eModel,(long)pclBaseObject);
}
return (pclBaseObject!=NULL);
}
//ANNECY CB
BOOL fn_bIsAModel(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAModel(gcsGlob,pstReturn);
}
//END
//SoundEvent
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsASoundEvent(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsASoundEvent(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szSoundEventTypeName,eSoundEvent);
}
//ANNECY CB
BOOL fn_bIsASoundEvent(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsASoundEvent(gcsGlob,pstReturn);
}
//END
//GameMaterial
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAGameMaterial(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAGameMaterial(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szGameMaterialTypeName,eGameMaterial);
}
//ANNECY CB
BOOL fn_bIsAGameMaterial(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAGameMaterial(gcsGlob,pstReturn);
}
//END
//Light
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsALight(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsALight(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szLightTypeName,eLight);
}
//ANNECY CB
BOOL fn_bIsALight(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsALight(gcsGlob,pstReturn);
}
//END
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsACaps(CString &csString, stReturn *pstReturn)
//BOOL fn_bIsACaps(CString csString, stReturn *pstReturn)
//END
{
long lStringLength = csString.GetLength();
if (lStringLength > 32)
return FALSE;
for (int i = 0 ; i < lStringLength ; i ++)
{
char cCharAt = csString.GetAt(i);
if ( (cCharAt != '0') && (cCharAt != '1') )
return FALSE;
}
char* dummy;
unsigned long ulData = strtoul(csString, &dummy, 2);
fn_vInitNode(pstReturn, g_clLex.m_lIndex, eCaps, (long)ulData);
return TRUE;
}
//ANNECY CB
BOOL fn_bIsACaps(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsACaps(gcsGlob,pstReturn);
}
//END
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAGraph(CString &csString, stReturn *pstReturn)
//BOOL fn_bIsAGraph(CString csString, stReturn *pstReturn)
//END
{
WP_tdHandleOfGraph hGraph = WPG_fn_hGetGraph(csString.GetBuffer(255));
if (hGraph != NULL)
{
fn_vInitNode(pstReturn, g_clLex.m_lIndex, eGraph, (long)hGraph);
}
return (hGraph != NULL);
}
//ANNECY CB
BOOL fn_bIsAGraph(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAGraph(gcsGlob,pstReturn);
}
//END
//
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsThisBehaviourIsUnique(CString &csString,CString &csBehaviourName,CPA_BaseObject **ppclModel)
//BOOL fn_bIsThisBehaviourIsUnique(CString csString,CString &csBehaviourName,CPA_BaseObject **ppclModel)
//END
{
//Checks for multiple name
CString csModelName;
fn_vSplitName(csString,csModelName,csBehaviourName);
*ppclModel=NO_CRITERIA;
if(!csModelName.IsEmpty())
{
*ppclModel=g_pclAIInterface->GetMainWorld()->fn_p_oFindObject(M_MAKECHAR(csModelName),C_szActorModelTypeName);
if(*ppclModel==NULL)
return FALSE;
}
CPA_List<CPA_BaseObject> clBehavioursList;
long lNumberOfBehaviours;
lNumberOfBehaviours=g_pclAIInterface->GetMainWorld()->fn_lFindObjects(&clBehavioursList,csBehaviourName,C_szIABehaviourTypeName,*ppclModel);
if(lNumberOfBehaviours==0)
return FALSE;
if(lNumberOfBehaviours>1)
{
if(csModelName.IsEmpty())
AfxMessageBox("Conflict with "+csString+"\nTry to use ModelName@BehaviourName");
return FALSE;
}
if(*ppclModel==NO_CRITERIA)
*ppclModel=NULL;
return TRUE;
}
//Reflex Behaviour
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAReflexBehaviour(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAReflexBehaviour(CString csString,stReturn *pstReturn)
//END
{
CPA_BaseObject *pclModel;
//Checks for multiple name
CString csBehaviourName;
if(fn_bIsThisBehaviourIsUnique(csString,csBehaviourName,&pclModel))
{
//Checks if it is a reflex behaviour
if(pclModel!=NULL)
{
//The model is known
CPA_Actor *pclActorModel=(CPA_Actor *)pclModel;
CPA_EdIR_Brain *pclBrain=((EdActors_EditorActorModel *)pclActorModel->m_fn_pclGetEditorActor())->m_pclBrain;
CPA_EdIR_MainBehaviourList *pclReflexList=&(pclBrain->m_clListOfReflexBehaviours);
if(pclReflexList->m_fn_bIsInList(csBehaviourName))
{
CPA_EdIR_MainBehaviour *pclMainBehaviour=pclReflexList->m_fn_pclGetMainBehaviour(csBehaviourName);
//Keeps the editor pointer
//Converts it to a engine pointer before engine start
long lIndex=(long)pclMainBehaviour;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eRfxBehaviour,lIndex);
return TRUE;
}
else
return FALSE;
}
else
{
//Gets all models
CPA_List<CPA_BaseObject> clModelsList;
g_pclAIInterface->GetMainWorld()->fn_lFindObjects(&clModelsList,"",C_szActorModelTypeName,NO_CRITERIA);
POSITION pos=clModelsList.GetHeadPosition();
long lIndex=-1;
while(pos!=NULL && lIndex==-1)
{
CPA_Actor *pclModel=(CPA_Actor *)(clModelsList.GetNext(pos));
CPA_EdIR_Brain *pclBrain=((EdActors_EditorActorModel *)pclModel->m_fn_pclGetEditorActor())->m_pclBrain;
CPA_EdIR_MainBehaviourList *pclReflexList=&(pclBrain->m_clListOfReflexBehaviours);
if(pclReflexList->m_fn_bIsInList(csBehaviourName))
{
CPA_EdIR_MainBehaviour *pclMainBehaviour=pclReflexList->m_fn_pclGetMainBehaviour(csBehaviourName);
//Keeps the editor pointer
//Converts it to a engine pointer before engine start
lIndex=(long)pclMainBehaviour;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eRfxBehaviour,lIndex);
}
}
return (lIndex!=-1);
}
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsAReflexBehaviour(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAReflexBehaviour(gcsGlob,pstReturn);
}
//END
//Intelligence Behaviour
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAIntelligenceBehaviour(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAIntelligenceBehaviour(CString csString,stReturn *pstReturn)
//END
{
CPA_BaseObject *pclModel;
//Checks for multiple name
CString csBehaviourName;
if(fn_bIsThisBehaviourIsUnique(csString,csBehaviourName,&pclModel))
{
//Checks if it is a reflex behaviour
if(pclModel!=NULL)
{
//The model is known
CPA_Actor *pclActorModel=(CPA_Actor *)pclModel;
CPA_EdIR_Brain *pclBrain=((EdActors_EditorActorModel *)pclActorModel->m_fn_pclGetEditorActor())->m_pclBrain;
CPA_EdIR_MainBehaviourList *pclIntelligenceList=&(pclBrain->m_clListOfIntelligenceBehaviours);
if(pclIntelligenceList->m_fn_bIsInList(csBehaviourName))
{
CPA_EdIR_MainBehaviour *pclMainBehaviour=pclIntelligenceList->m_fn_pclGetMainBehaviour(csBehaviourName);
//Keeps the editor pointer
//Converts it to a engine pointer before engine start
long lIndex=(long)pclMainBehaviour;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eIABehaviour,lIndex);
return TRUE;
}
else
return FALSE;
}
else
{
//Gets all models
CPA_List<CPA_BaseObject> clModelsList;
g_pclAIInterface->GetMainWorld()->fn_lFindObjects(&clModelsList,"",C_szActorModelTypeName,NO_CRITERIA);
POSITION pos=clModelsList.GetHeadPosition();
long lIndex=-1;
while(pos!=NULL && lIndex==-1)
{
CPA_Actor *pclModel=(CPA_Actor *)(clModelsList.GetNext(pos));
CPA_EdIR_Brain *pclBrain=((EdActors_EditorActorModel *)pclModel->m_fn_pclGetEditorActor())->m_pclBrain;
CPA_EdIR_MainBehaviourList *pclIntelligenceList=&(pclBrain->m_clListOfIntelligenceBehaviours);
if(pclIntelligenceList->m_fn_bIsInList(csBehaviourName))
{
CPA_EdIR_MainBehaviour *pclMainBehaviour=pclIntelligenceList->m_fn_pclGetMainBehaviour(csBehaviourName);
//Keeps the editor pointer
//Converts it to a engine pointer before engine start
lIndex=(long)pclMainBehaviour;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eIABehaviour,lIndex);
}
}
return (lIndex!=-1);
}
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsAIntelligenceBehaviour(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAIntelligenceBehaviour(gcsGlob,pstReturn);
}
//END
//Reflex Behaviour (for me)
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsMyReflexBehaviour(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsMyReflexBehaviour(CString csString,stReturn *pstReturn)
//END
{
CPA_BaseObject *pclModel;
//Checks for multiple name
CString csBehaviourName;
if(fn_bIsThisBehaviourIsUnique(csString,csBehaviourName,&pclModel))
{
CPA_Actor *pclModel=g_pclCurrentModel;
CPA_EdIR_Brain *pclBrain=((EdActors_EditorActorModel *)pclModel->m_fn_pclGetEditorActor())->m_pclBrain;
CPA_EdIR_MainBehaviourList *pclReflexList=&(pclBrain->m_clListOfReflexBehaviours);
if(pclReflexList->m_fn_bIsInList(csBehaviourName))
{
CPA_EdIR_MainBehaviour *pclMainBehaviour=pclReflexList->m_fn_pclGetMainBehaviour(csBehaviourName);
//Keeps the editor pointer
//Converts it to a engine pointer before engine start
long lIndex=(long)pclMainBehaviour;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eRfxBehaviour,lIndex);
return TRUE;
}
else
return FALSE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsMyReflexBehaviour(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsMyReflexBehaviour(gcsGlob,pstReturn);
}
//END
//Intelligence Behaviour (for me)
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsMyIntelligenceBehaviour(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsMyIntelligenceBehaviour(CString csString,stReturn *pstReturn)
//END
{
CPA_BaseObject *pclModel;
//Checks for multiple name
CString csBehaviourName;
if(fn_bIsThisBehaviourIsUnique(csString,csBehaviourName,&pclModel))
{
CPA_Actor *pclModel=g_pclCurrentModel;
CPA_EdIR_Brain *pclBrain=((EdActors_EditorActorModel *)pclModel->m_fn_pclGetEditorActor())->m_pclBrain;
CPA_EdIR_MainBehaviourList *pclIntelligenceList=&(pclBrain->m_clListOfIntelligenceBehaviours);
if(pclIntelligenceList->m_fn_bIsInList(csBehaviourName))
{
CPA_EdIR_MainBehaviour *pclMainBehaviour=pclIntelligenceList->m_fn_pclGetMainBehaviour(csBehaviourName);
//Keeps the editor pointer
//Converts it to a engine pointer before engine start
long lIndex=(long)pclMainBehaviour;
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eIABehaviour,lIndex);
return TRUE;
}
else
return FALSE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsMyIntelligenceBehaviour(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsMyIntelligenceBehaviour(gcsGlob,pstReturn);
}
//END
//KeyButton
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAKeyButton(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAKeyButton(CString csString,stReturn *pstReturn)
//END
{
long lIndex=(long)IPT_fn_hGetEntryActionHandle(M_MAKECHAR(csString));
if(IPT_fn_bIsAValidEntryActionHandle((IPT_tdxHandleToEntryElement)lIndex))
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eKeyButton,lIndex);
return TRUE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsAKeyButton(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAKeyButton(gcsGlob,pstReturn);
}
//END
//Mask Type
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAMaskType(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAMaskType(CString csString,stReturn *pstReturn)
//END
{
CPA_BaseObject *pclMaskType;
pclMaskType=g_pclAIInterface->GetMainWorld()->fn_p_oFindObject(M_MAKECHAR(csString),C_szMaterialColName);
if(pclMaskType!=NULL)
{
if(pclMaskType->fn_bIsAvailable()==FALSE)
pclMaskType->GetEditor()->fn_bLoadBaseObject(pclMaskType);
long lIndex=(long)(*(unsigned char *)(pclMaskType->GetData()));
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eMaskType,lIndex);
}
return (pclMaskType!=NULL);
}
//ANNECY CB
BOOL fn_bIsAMaskType(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAMaskType(gcsGlob,pstReturn);
}
//END
#if 0
//Power
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAPower(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAPower(CString csString,stReturn *pstReturn)
//END
{
long lIndex=fn_uwGetPowerValueFromString(M_MAKECHAR(csString));
if(lIndex!=INV_C_uwNotValid)
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,ePower,lIndex);
return TRUE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsAPower(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAPower(gcsGlob,pstReturn);
}
//END
#endif //0 car inutilise dans RM2
//Text
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAText(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAText(CString csString,stReturn *pstReturn)
//END
{
FON_tdxHandleOfText hText = FON_fn_hGetTextHandleWithoutWarning(M_MAKECHAR(csString));
if ( hText != FON_C_xInvalidTextHandle )
{
fn_vInitNode(pstReturn,g_clLex.m_lIndex,eText,hText);
return TRUE;
}
else
return FALSE;
}
//ANNECY CB
BOOL fn_bIsAText(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAText(gcsGlob,pstReturn);
}
//END
//ParticleGenerator
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAParticleGenerator(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAParticleGenerator(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szPartGenGeneratorName,eParticleGenerator);
}
//ANNECY CB
BOOL fn_bIsAParticleGenerator(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAParticleGenerator(gcsGlob,pstReturn);
}
//END
//State
/****************************************************************************/
//ANNECY CB
BOOL fn_bIsAState(CString &csString,stReturn *pstReturn)
//BOOL fn_bIsAState(CString csString,stReturn *pstReturn)
//END
{
return fn_bIsAKnownEditorObject(csString,pstReturn,C_szStateTypeName,eState);
}
//ANNECY CB
BOOL fn_bIsAState(char *csString,stReturn *pstReturn)
{
CSTRING_EQ(gcsGlob, csString);
return fn_bIsAState(gcsGlob,pstReturn);
}
//END
/****************************************************************************/
void fn_vInitNode(stReturn *pstReturn,long lOffset,tdeNodeType eNodeType,long lIndex,CPA_Actor *pclModel)
{
pstReturn->clIntermediateCodeList=new CPA_EdIR_IntermediateCode(lOffset,eNodeType,lIndex,pclModel);
}
/****************************************************************************/
void fn_vInitNode(stReturn *pstReturn,long lOffset,tdeNodeType eNodeType,double dfValue)
{
pstReturn->clIntermediateCodeList=new CPA_EdIR_IntermediateCode(lOffset,eNodeType,dfValue);
}
/****************************************************************************/
void fn_vInitNode(stReturn *pstReturn,long lOffset,tdeNodeType eNodeType,CString csString)
{
pstReturn->clIntermediateCodeList=new CPA_EdIR_IntermediateCode(lOffset,eNodeType,csString);
}
/****************************************************************************/
CLex::~CLex()
{
if(yy_current_buffer)
yy_delete_buffer(yy_current_buffer);
}
/****************************************************************************/
void CLex::yyinit(char *szStringToParse,tdeTypeText eTypeText)
{
m_lIndex=0;
m_lOldIndex=0;
m_lIndexWithoutSpaceAndTab=0;
m_lOldMacroIndex=0;
m_bIsInMacro=FALSE;
//BEGIN ROMTEAM Cristi Petrescu 98-04-
m_bIsInDefine = FALSE;
m_clDefineList . RemoveAll ();
m_clDefineContextStack . m_fn_vDestroyAndRemoveAllEntries ();
//END ROMTEAM Cristi Petrescu 98-04-
m_eTypeText=eTypeText;
if(yy_current_buffer)
yyrestart(NULL);
m_pcIndex=szStringToParse;
if(m_eTypeText==DsgVarText)
BEGIN(DECL_DSG_VAR);
else
if(g_pclAIInterface->M_GetMainWorld()->GetInterface()->fn_csGetCurrentLanguage()=="French")
BEGIN(FRENCH);
else
BEGIN(ENGLISH);
}
//BEGIN ROMTEAM Cristi Petrescu 98-04-
void CPA_EdIR_DefineContextStack :: m_fn_vDestroyAndRemoveAllEntries (void)
{
POSITION pos=GetHeadPosition();
while(pos!=NULL)
delete GetNext(pos);
RemoveAll();
}
void CLex :: m_fn_vEnterContext (char *szStringToParse)
{
// get the current context
CPA_EdIR_DefineContext *pCurrentDefineContext = new CPA_EdIR_DefineContext ();
pCurrentDefineContext -> m_pcIndex = m_pcIndex;
pCurrentDefineContext -> m_bufLexContext = yy_current_buffer;
// push the current context
m_clDefineContextStack . AddTail (pCurrentDefineContext);
// build the new state
YY_BUFFER_STATE bufNewContext = yy_create_buffer (NULL, YY_BUF_SIZE);
// and activate it
m_pcIndex = szStringToParse;
yy_switch_to_buffer (bufNewContext);
}
void CLex :: m_fn_vExitContext (void)
{
// cleanup the current state
yy_delete_buffer (yy_current_buffer);
// pop the old context
CPA_EdIR_DefineContext *pOldDefineContext = m_clDefineContextStack . RemoveTail ();
// activate it
m_pcIndex = pOldDefineContext -> m_pcIndex;
yy_switch_to_buffer (pOldDefineContext -> m_bufLexContext);
// and clean
delete pOldDefineContext;
}
//END ROMTEAM Cristi Petrescu 98-04-
#endif //D_ED_IR_ACTIVE
Reference in New Issue View Git Blame Copy Permalink