X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=Usermode%2FLibraries%2Flibspiderscript.so_src%2Fast.h;h=565c94aabdd09736d00948246ed7fa6ef8501d3c;hb=fe313c1dda9bd0e062f5ce88c3d990199799aa1b;hp=820167bd11daa77a6443f55e41cb6b6396fc1d76;hpb=efa38e0d56b1b620b6f4e5c4f91abc483a3065e2;p=tpg%2Facess2.git diff --git a/Usermode/Libraries/libspiderscript.so_src/ast.h b/Usermode/Libraries/libspiderscript.so_src/ast.h index 820167bd..565c94aa 100644 --- a/Usermode/Libraries/libspiderscript.so_src/ast.h +++ b/Usermode/Libraries/libspiderscript.so_src/ast.h @@ -4,11 +4,14 @@ #define _AST_H_ #include +#include "tokens.h" +typedef enum eAST_NodeTypes tAST_NodeType; typedef struct sAST_Script tAST_Script; typedef struct sAST_Function tAST_Function; typedef struct sAST_Node tAST_Node; -typedef enum eAST_NodeTypes tAST_NodeType; +typedef struct sAST_BlockState tAST_BlockState; +typedef struct sAST_Variable tAST_Variable; /** * \brief Node Types @@ -25,10 +28,18 @@ enum eAST_NodeTypes NODETYPE_INTEGER, //!< Integer Constant NODETYPE_REAL, //!< Real Constant + NODETYPE_DEFVAR, //!< Define a variable (Variable) + NODETYPE_CAST, //!< Cast a value to another (Uniop) + NODETYPE_RETURN, //!< Return from a function (reserved word) NODETYPE_ASSIGN, //!< Variable assignment operator NODETYPE_FUNCTIONCALL, //!< Call a function + NODETYPE_IF, //!< Conditional + NODETYPE_LOOP, //!< Looping Construct + + NODETYPE_INDEX, //!< Index into an array + NODETYPE_LOGICALAND, //!< Logical AND operator NODETYPE_LOGICALOR, //!< Logical OR operator NODETYPE_LOGICALXOR, //!< Logical XOR operator @@ -56,6 +67,7 @@ struct sSpiderScript { tSpiderVariant *Variant; tAST_Script *Script; + char *CurNamespace; //!< Current namespace prefix (NULL = Root) - No trailing . }; struct sAST_Script @@ -66,10 +78,11 @@ struct sAST_Script struct sAST_Function { - tAST_Function *Next; - char *Name; - tAST_Node *Code; - tAST_Node *Arguments; // HACKJOB (Only NODETYPE_VARIABLE is allowed) + tAST_Function *Next; //!< Next function in list + tAST_Node *Code; //!< Function Code + tAST_Node *Arguments; // HACKJOB (Only NODETYPE_DEFVAR is allowed) + tAST_Node *Arguments_Last; + char Name[]; //!< Function Name }; struct sAST_Node @@ -77,6 +90,9 @@ struct sAST_Node tAST_Node *NextSibling; tAST_NodeType Type; + const char *File; + int Line; + union { struct { @@ -99,17 +115,26 @@ struct sAST_Node tAST_Node *Right; } BinOp; - struct { - int Length; - char Data[]; - } String; - struct { tAST_Node *FirstArg; tAST_Node *LastArg; char Name[]; } FunctionCall; + struct { + tAST_Node *Condition; + tAST_Node *True; + tAST_Node *False; + } If; + + struct { + tAST_Node *Init; + int bCheckAfter; + tAST_Node *Condition; + tAST_Node *Increment; + tAST_Node *Code; + } For; + /** * \note Used for \a NODETYPE_VARIABLE and \a NODETYPE_CONSTANT */ @@ -118,32 +143,78 @@ struct sAST_Node char Name[]; } Variable; + struct { + int DataType; + int Depth; + tAST_Node *LevelSizes; + tAST_Node *LevelSizes_Last; + char Name[]; + } DefVar; + + struct { + int DataType; + tAST_Node *Value; + } Cast; + + struct { + int Length; + char Data[]; + } String; + uint64_t Integer; double Real; }; }; +/** + * \brief Code Block state (stores local variables) + */ +struct sAST_BlockState +{ + tAST_BlockState *Parent; + tSpiderScript *Script; //!< Script + tAST_Variable *FirstVar; //!< First variable in the list + tSpiderValue *RetVal; +}; + +struct sAST_Variable +{ + tAST_Variable *Next; + int Type; // Only used for static typing + tSpiderValue *Object; + char Name[]; +}; + // === FUNCTIONS === -tAST_Script *AST_NewScript(void); +extern tAST_Script *AST_NewScript(void); + +extern tAST_Function *AST_AppendFunction(tAST_Script *Script, const char *Name); +extern void AST_AppendFunctionArg(tAST_Function *Function, tAST_Node *Arg); +extern void AST_SetFunctionCode(tAST_Function *Function, tAST_Node *Root); +extern tAST_Node *AST_NewString(tParser *Parser, const char *String, int Length); +extern tAST_Node *AST_NewInteger(tParser *Parser, uint64_t Value); +extern tAST_Node *AST_NewVariable(tParser *Parser, const char *Name); +extern tAST_Node *AST_NewDefineVar(tParser *Parser, int Type, const char *Name); +extern tAST_Node *AST_NewConstant(tParser *Parser, const char *Name); +extern tAST_Node *AST_NewFunctionCall(tParser *Parser, const char *Name); +extern void AST_AppendFunctionCallArg(tAST_Node *Node, tAST_Node *Arg); -tAST_Function *AST_AppendFunction(tAST_Script *Script, const char *Name); -void AST_AppendFunctionArg(tAST_Function *Function, int Type, tAST_Node *Arg); -void AST_SetFunctionCode(tAST_Function *Function, tAST_Node *Root); +extern tAST_Node *AST_NewCodeBlock(void); +extern void AST_AppendNode(tAST_Node *Parent, tAST_Node *Child); -tAST_Node *AST_NewString(const char *String, int Length); -tAST_Node *AST_NewInteger(uint64_t Value); -tAST_Node *AST_NewVariable(const char *Name); -tAST_Node *AST_NewConstant(const char *Name); -tAST_Node *AST_NewFunctionCall(const char *Name); -void AST_AppendFunctionCallArg(tAST_Node *Node, tAST_Node *Arg); +extern tAST_Node *AST_NewIf(tParser *Parser, tAST_Node *Condition, tAST_Node *True, tAST_Node *False); +extern tAST_Node *AST_NewLoop(tParser *Parser, tAST_Node *Init, int bPostCheck, tAST_Node *Condition, tAST_Node *Increment, tAST_Node *Code); -tAST_Node *AST_NewCodeBlock(void); -void AST_AppendNode(tAST_Node *Parent, tAST_Node *Child); -tAST_Node *AST_NewAssign(int Operation, tAST_Node *Dest, tAST_Node *Value); -tAST_Node *AST_NewBinOp(int Operation, tAST_Node *Left, tAST_Node *Right); +extern tAST_Node *AST_NewAssign(tParser *Parser, int Operation, tAST_Node *Dest, tAST_Node *Value); +extern tAST_Node *AST_NewCast(tParser *Parser, int Target, tAST_Node *Value); +extern tAST_Node *AST_NewBinOp(tParser *Parser, int Operation, tAST_Node *Left, tAST_Node *Right); +extern tAST_Node *AST_NewUniOp(tParser *Parser, int Operation, tAST_Node *Value); -void AST_FreeNode(tAST_Node *Node); +extern void AST_FreeNode(tAST_Node *Node); -tSpiderVariable *AST_ExecuteNode(tSpiderScript *Script, tAST_Node *Node); +// exec_ast.h +extern void Object_Dereference(tSpiderValue *Object); +extern void Object_Reference(tSpiderValue *Object); +extern tSpiderValue *AST_ExecuteNode(tAST_BlockState *Block, tAST_Node *Node); #endif