forked from Mirrors/openclonk
Move C4AulParse declaration into separate header
parent
3c267bb7dc
commit
cfdb1142b8
|
@ -1066,6 +1066,7 @@ src/script/C4AulFunc.h
|
||||||
src/script/C4Aul.h
|
src/script/C4Aul.h
|
||||||
src/script/C4AulLink.cpp
|
src/script/C4AulLink.cpp
|
||||||
src/script/C4AulParse.cpp
|
src/script/C4AulParse.cpp
|
||||||
|
src/script/C4AulParse.h
|
||||||
src/script/C4AulScriptFunc.cpp
|
src/script/C4AulScriptFunc.cpp
|
||||||
src/script/C4AulScriptFunc.h
|
src/script/C4AulScriptFunc.h
|
||||||
src/script/C4Effect.cpp
|
src/script/C4Effect.cpp
|
||||||
|
|
|
@ -16,6 +16,7 @@
|
||||||
// parses scripts
|
// parses scripts
|
||||||
|
|
||||||
#include "C4Include.h"
|
#include "C4Include.h"
|
||||||
|
#include "script/C4AulParse.h"
|
||||||
#include <utility>
|
#include <utility>
|
||||||
|
|
||||||
#include "script/C4Aul.h"
|
#include "script/C4Aul.h"
|
||||||
|
@ -114,118 +115,33 @@ enum C4AulTokenType
|
||||||
ATT_EOF // end of file
|
ATT_EOF // end of file
|
||||||
};
|
};
|
||||||
|
|
||||||
class C4AulParse
|
C4AulParse::C4AulParse(C4ScriptHost *a, enum Type Type) :
|
||||||
|
Fn(0), Host(a), pOrgScript(a), Engine(a->Engine),
|
||||||
|
SPos(a->Script.getData()), TokenSPos(SPos),
|
||||||
|
TokenType(ATT_INVALID),
|
||||||
|
Type(Type),
|
||||||
|
ContextToExecIn(NULL),
|
||||||
|
fJump(false),
|
||||||
|
iStack(0),
|
||||||
|
pLoopStack(NULL)
|
||||||
|
{ }
|
||||||
|
|
||||||
|
C4AulParse::C4AulParse(C4AulScriptFunc * Fn, C4AulScriptContext* context, C4AulScriptEngine *Engine) :
|
||||||
|
Fn(Fn), Host(NULL), pOrgScript(NULL), Engine(Engine),
|
||||||
|
SPos(Fn->Script), TokenSPos(SPos),
|
||||||
|
TokenType(ATT_INVALID),
|
||||||
|
Type(C4AulParse::PARSER),
|
||||||
|
ContextToExecIn(context),
|
||||||
|
fJump(false),
|
||||||
|
iStack(0),
|
||||||
|
pLoopStack(NULL)
|
||||||
|
{ }
|
||||||
|
|
||||||
|
C4AulParse::~C4AulParse()
|
||||||
{
|
{
|
||||||
public:
|
while (pLoopStack) PopLoop();
|
||||||
enum Type { PARSER, PREPARSER };
|
ClearToken();
|
||||||
C4AulParse(C4ScriptHost * a, enum Type Type):
|
}
|
||||||
Fn(0), Host(a), pOrgScript(a), Engine(a->Engine),
|
|
||||||
SPos(a->Script.getData()), TokenSPos(SPos),
|
|
||||||
TokenType(ATT_INVALID),
|
|
||||||
Type(Type),
|
|
||||||
ContextToExecIn(NULL),
|
|
||||||
fJump(false),
|
|
||||||
iStack(0),
|
|
||||||
pLoopStack(NULL)
|
|
||||||
{ }
|
|
||||||
C4AulParse(C4AulScriptFunc * Fn, C4AulScriptContext* context, C4AulScriptEngine *Engine):
|
|
||||||
Fn(Fn), Host(NULL), pOrgScript(NULL), Engine(Engine),
|
|
||||||
SPos(Fn->Script), TokenSPos(SPos),
|
|
||||||
TokenType(ATT_INVALID),
|
|
||||||
Type(C4AulParse::PARSER),
|
|
||||||
ContextToExecIn(context),
|
|
||||||
fJump(false),
|
|
||||||
iStack(0),
|
|
||||||
pLoopStack(NULL)
|
|
||||||
{ }
|
|
||||||
~C4AulParse()
|
|
||||||
{ while (pLoopStack) PopLoop(); ClearToken(); }
|
|
||||||
void Parse_DirectExec();
|
|
||||||
void Parse_Script(C4ScriptHost *);
|
|
||||||
|
|
||||||
private:
|
|
||||||
C4AulScriptFunc *Fn; C4ScriptHost * Host; C4ScriptHost * pOrgScript;
|
|
||||||
C4AulScriptEngine *Engine;
|
|
||||||
const char *SPos; // current position in the script
|
|
||||||
const char *TokenSPos; // start of the current token in the script
|
|
||||||
char Idtf[C4AUL_MAX_Identifier]; // current identifier
|
|
||||||
C4AulTokenType TokenType; // current token type
|
|
||||||
int32_t cInt; // current int constant
|
|
||||||
C4String * cStr; // current string constant
|
|
||||||
enum Type Type; // emitting bytecode?
|
|
||||||
C4AulScriptContext* ContextToExecIn;
|
|
||||||
void Parse_Function();
|
|
||||||
void Parse_FuncBody();
|
|
||||||
void Parse_Statement();
|
|
||||||
void Parse_Block();
|
|
||||||
int Parse_Params(int iMaxCnt, const char * sWarn, C4AulFunc * pFunc = 0);
|
|
||||||
void Parse_Array();
|
|
||||||
void Parse_PropList();
|
|
||||||
void Parse_DoWhile();
|
|
||||||
void Parse_While();
|
|
||||||
void Parse_If();
|
|
||||||
void Parse_For();
|
|
||||||
void Parse_ForEach();
|
|
||||||
void Parse_Expression(int iParentPrio = -1);
|
|
||||||
void Parse_Var();
|
|
||||||
void Parse_Local();
|
|
||||||
void Parse_Static();
|
|
||||||
void Parse_Const();
|
|
||||||
C4Value Parse_ConstExpression(C4PropListStatic * parent, C4String * Name);
|
|
||||||
C4Value Parse_ConstPropList(C4PropListStatic * parent, C4String * Name);
|
|
||||||
void Store_Const(C4PropListStatic * parent, C4String * Name, const C4Value & v);
|
|
||||||
|
|
||||||
bool AdvanceSpaces(); // skip whitespaces; return whether script ended
|
|
||||||
int GetOperator(const char* pScript);
|
|
||||||
void ClearToken(); // clear any data held with the current token
|
|
||||||
C4AulTokenType GetNextToken(); // get next token of SPos
|
|
||||||
|
|
||||||
void Shift();
|
|
||||||
void Match(C4AulTokenType TokenType, const char * Expected = NULL);
|
|
||||||
void Check(C4AulTokenType TokenType, const char * Expected = NULL);
|
|
||||||
NORETURN void UnexpectedToken(const char * Expected);
|
|
||||||
static const char * GetTokenName(C4AulTokenType TokenType);
|
|
||||||
|
|
||||||
void Warn(const char *pMsg, ...) GNUC_FORMAT_ATTRIBUTE_O;
|
|
||||||
void Error(const char *pMsg, ...) GNUC_FORMAT_ATTRIBUTE_O;
|
|
||||||
|
|
||||||
bool fJump;
|
|
||||||
int iStack;
|
|
||||||
|
|
||||||
int GetStackValue(C4AulBCCType eType, intptr_t X = 0);
|
|
||||||
int AddBCC(C4AulBCCType eType, intptr_t X = 0);
|
|
||||||
void DebugChunk();
|
|
||||||
void RemoveLastBCC();
|
|
||||||
C4V_Type GetLastRetType(C4V_Type to); // for warning purposes
|
|
||||||
void DumpByteCode();
|
|
||||||
|
|
||||||
C4AulBCC MakeSetter(bool fLeaveValue = false); // Prepares to generate a setter for the last value that was generated
|
|
||||||
|
|
||||||
int JumpHere(); // Get position for a later jump to next instruction added
|
|
||||||
void SetJumpHere(int iJumpOp); // Use the next inserted instruction as jump target for the given jump operation
|
|
||||||
void SetJump(int iJumpOp, int iWhere);
|
|
||||||
void AddJump(C4AulBCCType eType, int iWhere);
|
|
||||||
|
|
||||||
// Keep track of loops and break/continue usages
|
|
||||||
struct Loop
|
|
||||||
{
|
|
||||||
struct Control
|
|
||||||
{
|
|
||||||
bool Break;
|
|
||||||
int Pos;
|
|
||||||
Control *Next;
|
|
||||||
};
|
|
||||||
Control *Controls;
|
|
||||||
int StackSize;
|
|
||||||
Loop *Next;
|
|
||||||
};
|
|
||||||
Loop *pLoopStack;
|
|
||||||
|
|
||||||
void PushLoop();
|
|
||||||
void PopLoop();
|
|
||||||
void AddLoopControl(bool fBreak);
|
|
||||||
friend class C4AulParseError;
|
|
||||||
};
|
|
||||||
|
|
||||||
void C4ScriptHost::Warn(const char *pMsg, ...)
|
void C4ScriptHost::Warn(const char *pMsg, ...)
|
||||||
{
|
{
|
||||||
|
@ -353,20 +269,7 @@ bool C4AulParse::AdvanceSpaces()
|
||||||
}
|
}
|
||||||
|
|
||||||
//=========================== C4Script Operator Map ===================================
|
//=========================== C4Script Operator Map ===================================
|
||||||
struct C4ScriptOpDef
|
const C4ScriptOpDef C4ScriptOpMap[] =
|
||||||
{
|
|
||||||
unsigned short Priority;
|
|
||||||
const char* Identifier;
|
|
||||||
C4AulBCCType Code;
|
|
||||||
bool Postfix;
|
|
||||||
bool Changer; // changes first operand to result, rewrite to "a = a (op) b"
|
|
||||||
bool NoSecondStatement; // no second statement expected (++/-- postfix)
|
|
||||||
C4V_Type RetType; // type returned. ignored by C4V
|
|
||||||
C4V_Type Type1;
|
|
||||||
C4V_Type Type2;
|
|
||||||
};
|
|
||||||
|
|
||||||
static C4ScriptOpDef C4ScriptOpMap[] =
|
|
||||||
{
|
{
|
||||||
// priority postfix
|
// priority postfix
|
||||||
// | identifier | changer
|
// | identifier | changer
|
||||||
|
@ -2152,7 +2055,7 @@ static bool GetPropertyByS(const C4PropList * p, const char * s, C4Value & v)
|
||||||
void C4AulParse::Parse_Expression(int iParentPrio)
|
void C4AulParse::Parse_Expression(int iParentPrio)
|
||||||
{
|
{
|
||||||
int ndx;
|
int ndx;
|
||||||
C4ScriptOpDef * op;
|
const C4ScriptOpDef * op;
|
||||||
C4AulFunc *FoundFn = 0;
|
C4AulFunc *FoundFn = 0;
|
||||||
C4Value val;
|
C4Value val;
|
||||||
switch (TokenType)
|
switch (TokenType)
|
||||||
|
@ -2425,12 +2328,12 @@ void C4AulParse::Parse_Expression(int iParentPrio)
|
||||||
case ATT_OPERATOR:
|
case ATT_OPERATOR:
|
||||||
{
|
{
|
||||||
// expect postfix operator
|
// expect postfix operator
|
||||||
C4ScriptOpDef * op = &C4ScriptOpMap[cInt];
|
const C4ScriptOpDef * op = &C4ScriptOpMap[cInt];
|
||||||
if (!op->Postfix)
|
if (!op->Postfix)
|
||||||
{
|
{
|
||||||
// does an operator with the same name exist?
|
// does an operator with the same name exist?
|
||||||
// when it's a postfix-operator, it can be used instead.
|
// when it's a postfix-operator, it can be used instead.
|
||||||
C4ScriptOpDef * postfixop;
|
const C4ScriptOpDef * postfixop;
|
||||||
for (postfixop = op + 1; postfixop->Identifier; ++postfixop)
|
for (postfixop = op + 1; postfixop->Identifier; ++postfixop)
|
||||||
if (SEqual(op->Identifier, postfixop->Identifier))
|
if (SEqual(op->Identifier, postfixop->Identifier))
|
||||||
if (postfixop->Postfix)
|
if (postfixop->Postfix)
|
||||||
|
@ -2758,7 +2661,7 @@ C4Value C4AulParse::Parse_ConstExpression(C4PropListStatic * parent, C4String *
|
||||||
case ATT_OPERATOR:
|
case ATT_OPERATOR:
|
||||||
{
|
{
|
||||||
// -> must be a prefix operator
|
// -> must be a prefix operator
|
||||||
C4ScriptOpDef * op = &C4ScriptOpMap[cInt];
|
const C4ScriptOpDef * op = &C4ScriptOpMap[cInt];
|
||||||
if (SEqual(op->Identifier, "+"))
|
if (SEqual(op->Identifier, "+"))
|
||||||
{
|
{
|
||||||
Shift();
|
Shift();
|
||||||
|
@ -2800,7 +2703,7 @@ C4Value C4AulParse::Parse_ConstExpression(C4PropListStatic * parent, C4String *
|
||||||
}
|
}
|
||||||
if (TokenType == ATT_OPERATOR)
|
if (TokenType == ATT_OPERATOR)
|
||||||
{
|
{
|
||||||
C4ScriptOpDef * op = &C4ScriptOpMap[cInt];
|
const C4ScriptOpDef * op = &C4ScriptOpMap[cInt];
|
||||||
if (op->Code == AB_BitOr)
|
if (op->Code == AB_BitOr)
|
||||||
{
|
{
|
||||||
Shift();
|
Shift();
|
||||||
|
|
|
@ -0,0 +1,134 @@
|
||||||
|
/*
|
||||||
|
* OpenClonk, http://www.openclonk.org
|
||||||
|
*
|
||||||
|
* Copyright (c) 2001-2009, RedWolf Design GmbH, http://www.clonk.de/
|
||||||
|
* Copyright (c) 2009-2016, The OpenClonk Team and contributors
|
||||||
|
*
|
||||||
|
* Distributed under the terms of the ISC license; see accompanying file
|
||||||
|
* "COPYING" for details.
|
||||||
|
*
|
||||||
|
* "Clonk" is a registered trademark of Matthes Bender, used with permission.
|
||||||
|
* See accompanying file "TRADEMARK" for details.
|
||||||
|
*
|
||||||
|
* To redistribute this file separately, substitute the full license texts
|
||||||
|
* for the above references.
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifndef INC_C4AulParse
|
||||||
|
#define INC_C4AulParse
|
||||||
|
|
||||||
|
#include "script/C4Aul.h"
|
||||||
|
|
||||||
|
enum C4AulBCCType : int;
|
||||||
|
enum C4AulTokenType : int;
|
||||||
|
|
||||||
|
struct C4ScriptOpDef
|
||||||
|
{
|
||||||
|
unsigned short Priority;
|
||||||
|
const char* Identifier;
|
||||||
|
C4AulBCCType Code;
|
||||||
|
bool Postfix;
|
||||||
|
bool Changer; // changes first operand to result, rewrite to "a = a (op) b"
|
||||||
|
bool NoSecondStatement; // no second statement expected (++/-- postfix)
|
||||||
|
C4V_Type RetType; // type returned. ignored by C4V
|
||||||
|
C4V_Type Type1;
|
||||||
|
C4V_Type Type2;
|
||||||
|
};
|
||||||
|
|
||||||
|
extern const C4ScriptOpDef C4ScriptOpMap[];
|
||||||
|
|
||||||
|
class C4AulParse
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
enum Type { PARSER, PREPARSER };
|
||||||
|
C4AulParse(C4ScriptHost * a, enum Type Type);
|
||||||
|
C4AulParse(C4AulScriptFunc * Fn, C4AulScriptContext* context, C4AulScriptEngine *Engine);
|
||||||
|
~C4AulParse();
|
||||||
|
void Parse_DirectExec();
|
||||||
|
void Parse_Script(C4ScriptHost *);
|
||||||
|
|
||||||
|
private:
|
||||||
|
C4AulScriptFunc *Fn; C4ScriptHost * Host; C4ScriptHost * pOrgScript;
|
||||||
|
C4AulScriptEngine *Engine;
|
||||||
|
const char *SPos; // current position in the script
|
||||||
|
const char *TokenSPos; // start of the current token in the script
|
||||||
|
char Idtf[C4AUL_MAX_Identifier]; // current identifier
|
||||||
|
C4AulTokenType TokenType; // current token type
|
||||||
|
int32_t cInt; // current int constant
|
||||||
|
C4String * cStr; // current string constant
|
||||||
|
enum Type Type; // emitting bytecode?
|
||||||
|
C4AulScriptContext* ContextToExecIn;
|
||||||
|
void Parse_Function();
|
||||||
|
void Parse_FuncBody();
|
||||||
|
void Parse_Statement();
|
||||||
|
void Parse_Block();
|
||||||
|
int Parse_Params(int iMaxCnt, const char * sWarn, C4AulFunc * pFunc = 0);
|
||||||
|
void Parse_Array();
|
||||||
|
void Parse_PropList();
|
||||||
|
void Parse_DoWhile();
|
||||||
|
void Parse_While();
|
||||||
|
void Parse_If();
|
||||||
|
void Parse_For();
|
||||||
|
void Parse_ForEach();
|
||||||
|
void Parse_Expression(int iParentPrio = -1);
|
||||||
|
void Parse_Var();
|
||||||
|
void Parse_Local();
|
||||||
|
void Parse_Static();
|
||||||
|
void Parse_Const();
|
||||||
|
C4Value Parse_ConstExpression(C4PropListStatic * parent, C4String * Name);
|
||||||
|
C4Value Parse_ConstPropList(C4PropListStatic * parent, C4String * Name);
|
||||||
|
void Store_Const(C4PropListStatic * parent, C4String * Name, const C4Value & v);
|
||||||
|
|
||||||
|
bool AdvanceSpaces(); // skip whitespaces; return whether script ended
|
||||||
|
int GetOperator(const char* pScript);
|
||||||
|
void ClearToken(); // clear any data held with the current token
|
||||||
|
C4AulTokenType GetNextToken(); // get next token of SPos
|
||||||
|
|
||||||
|
void Shift();
|
||||||
|
void Match(C4AulTokenType TokenType, const char * Expected = NULL);
|
||||||
|
void Check(C4AulTokenType TokenType, const char * Expected = NULL);
|
||||||
|
NORETURN void UnexpectedToken(const char * Expected);
|
||||||
|
static const char * GetTokenName(C4AulTokenType TokenType);
|
||||||
|
|
||||||
|
void Warn(const char *pMsg, ...) GNUC_FORMAT_ATTRIBUTE_O;
|
||||||
|
void Error(const char *pMsg, ...) GNUC_FORMAT_ATTRIBUTE_O;
|
||||||
|
|
||||||
|
bool fJump;
|
||||||
|
int iStack;
|
||||||
|
|
||||||
|
int GetStackValue(C4AulBCCType eType, intptr_t X = 0);
|
||||||
|
int AddBCC(C4AulBCCType eType, intptr_t X = 0);
|
||||||
|
void DebugChunk();
|
||||||
|
void RemoveLastBCC();
|
||||||
|
C4V_Type GetLastRetType(C4V_Type to); // for warning purposes
|
||||||
|
void DumpByteCode();
|
||||||
|
|
||||||
|
C4AulBCC MakeSetter(bool fLeaveValue = false); // Prepares to generate a setter for the last value that was generated
|
||||||
|
|
||||||
|
int JumpHere(); // Get position for a later jump to next instruction added
|
||||||
|
void SetJumpHere(int iJumpOp); // Use the next inserted instruction as jump target for the given jump operation
|
||||||
|
void SetJump(int iJumpOp, int iWhere);
|
||||||
|
void AddJump(C4AulBCCType eType, int iWhere);
|
||||||
|
|
||||||
|
// Keep track of loops and break/continue usages
|
||||||
|
struct Loop
|
||||||
|
{
|
||||||
|
struct Control
|
||||||
|
{
|
||||||
|
bool Break;
|
||||||
|
int Pos;
|
||||||
|
Control *Next;
|
||||||
|
};
|
||||||
|
Control *Controls;
|
||||||
|
int StackSize;
|
||||||
|
Loop *Next;
|
||||||
|
};
|
||||||
|
Loop *pLoopStack;
|
||||||
|
|
||||||
|
void PushLoop();
|
||||||
|
void PopLoop();
|
||||||
|
void AddLoopControl(bool fBreak);
|
||||||
|
friend class C4AulParseError;
|
||||||
|
};
|
||||||
|
|
||||||
|
#endif
|
Loading…
Reference in New Issue