6 #include <spiderscript.h>
9 typedef enum eAST_NodeTypes tAST_NodeType;
10 typedef struct sAST_Script tAST_Script;
11 typedef struct sAST_Function tAST_Function;
12 typedef struct sAST_Node tAST_Node;
13 typedef struct sAST_BlockState tAST_BlockState;
14 typedef struct sAST_Variable tAST_Variable;
23 NODETYPE_BLOCK, //!< Node Block
25 NODETYPE_VARIABLE, //!< Variable
26 NODETYPE_CONSTANT, //!< Runtime Constant
27 NODETYPE_STRING, //!< String Constant
28 NODETYPE_INTEGER, //!< Integer Constant
29 NODETYPE_REAL, //!< Real Constant
31 NODETYPE_DEFVAR, //!< Define a variable (Variable)
32 NODETYPE_SCOPE, //!< Dereference a Namespace/Class static
33 NODETYPE_ELEMENT, //!< Reference a class attribute
34 NODETYPE_CAST, //!< Cast a value to another (Uniop)
36 NODETYPE_RETURN, //!< Return from a function (reserved word)
37 NODETYPE_ASSIGN, //!< Variable assignment operator
38 NODETYPE_POSTINC, //!< Post-increment (i++) - Uniop
39 NODETYPE_POSTDEC, //!< Post-decrement (i--) - Uniop
40 NODETYPE_FUNCTIONCALL, //!< Call a function
41 NODETYPE_METHODCALL, //!< Call a class method
42 NODETYPE_CREATEOBJECT, //!< Create an object
44 NODETYPE_IF, //!< Conditional
45 NODETYPE_LOOP, //!< Looping Construct
47 NODETYPE_INDEX, //!< Index into an array
49 NODETYPE_LOGICALNOT, //!< Logical NOT operator
50 NODETYPE_LOGICALAND, //!< Logical AND operator
51 NODETYPE_LOGICALOR, //!< Logical OR operator
52 NODETYPE_LOGICALXOR, //!< Logical XOR operator
54 NODETYPE_EQUALS, //!< Comparison Equals
55 NODETYPE_LESSTHAN, //!< Comparison Less Than
56 NODETYPE_LESSTHANEQUAL, //!< Comparison Less Than or Equal
57 NODETYPE_GREATERTHAN, //!< Comparison Greater Than
58 NODETYPE_GREATERTHANEQUAL, //!< Comparison Greater Than or Equal
60 NODETYPE_BWNOT, //!< Bitwise NOT
61 NODETYPE_BWAND, //!< Bitwise AND
62 NODETYPE_BWOR, //!< Bitwise OR
63 NODETYPE_BWXOR, //!< Bitwise XOR
65 NODETYPE_BITSHIFTLEFT, //!< Bitwise Shift Left (Grow)
66 NODETYPE_BITSHIFTRIGHT, //!< Bitwise Shift Right (Shrink)
67 NODETYPE_BITROTATELEFT, //!< Bitwise Rotate Left (Grow)
69 NODETYPE_NEGATE, //!< Negagte
70 NODETYPE_ADD, //!< Add
71 NODETYPE_SUBTRACT, //!< Subtract
72 NODETYPE_MULTIPLY, //!< Multiply
73 NODETYPE_DIVIDE, //!< Divide
74 NODETYPE_MODULO, //!< Modulus
79 tSpiderVariant *Variant;
81 char *CurNamespace; //!< Current namespace prefix (NULL = Root) - No trailing .
86 // TODO: Namespaces and Classes
87 tAST_Function *Functions;
88 tAST_Function *LastFunction;
93 tAST_Function *Next; //!< Next function in list
94 tAST_Node *Code; //!< Function Code
95 tAST_Node *Arguments; // HACKJOB (Only NODETYPE_DEFVAR is allowed)
96 tAST_Node *Arguments_Last;
97 char Name[]; //!< Function Name
102 tAST_Node *NextSibling;
108 void *BlockState; //!< BlockState pointer (for cache integrity)
109 int BlockIdent; //!< Ident (same as above)
110 void *ValueCache; //!< Cached value / pointer
115 tAST_Node *FirstChild;
116 tAST_Node *LastChild;
143 tAST_Node *Condition;
151 tAST_Node *Condition;
152 tAST_Node *Increment;
157 * \note Used for \a NODETYPE_VARIABLE, \a NODETYPE_CONSTANT and
161 char _unused; // Shut GCC up
168 } Scope; // Used by NODETYPE_SCOPE and NODETYPE_ELEMENT
172 tAST_Node *LevelSizes;
173 tAST_Node *LevelSizes_Last;
182 // Used for NODETYPE_REAL, NODETYPE_INTEGER and NODETYPE_STRING
183 tSpiderValue Constant;
188 * \brief Code Block state (stores local variables)
190 struct sAST_BlockState
192 tAST_BlockState *Parent;
193 tSpiderScript *Script; //!< Script
194 tAST_Variable *FirstVar; //!< First variable in the list
195 tSpiderValue *RetVal;
196 tSpiderNamespace *BaseNamespace; //!< Base namespace (for entire block)
197 tSpiderNamespace *CurNamespace; //!< Currently selected namespace
204 int Type; // Only used for static typing
205 tSpiderValue *Object;
210 extern tAST_Script *AST_NewScript(void);
211 extern size_t AST_WriteScript(void *Buffer, tAST_Script *Script);
212 extern size_t AST_WriteNode(void *Buffer, size_t Offset, tAST_Node *Node);
214 extern tAST_Function *AST_AppendFunction(tAST_Script *Script, const char *Name);
215 extern void AST_AppendFunctionArg(tAST_Function *Function, tAST_Node *Arg);
216 extern void AST_SetFunctionCode(tAST_Function *Function, tAST_Node *Root);
218 extern tAST_Node *AST_NewNop(tParser *Parser);
220 extern tAST_Node *AST_NewString(tParser *Parser, const char *String, int Length);
221 extern tAST_Node *AST_NewInteger(tParser *Parser, int64_t Value);
222 extern tAST_Node *AST_NewReal(tParser *Parser, double Value);
223 extern tAST_Node *AST_NewVariable(tParser *Parser, const char *Name);
224 extern tAST_Node *AST_NewDefineVar(tParser *Parser, int Type, const char *Name);
225 extern tAST_Node *AST_NewConstant(tParser *Parser, const char *Name);
226 extern tAST_Node *AST_NewClassElement(tParser *Parser, tAST_Node *Object, const char *Name);
228 extern tAST_Node *AST_NewFunctionCall(tParser *Parser, const char *Name);
229 extern tAST_Node *AST_NewCreateObject(tParser *Parser, const char *Name);
230 extern tAST_Node *AST_NewMethodCall(tParser *Parser, tAST_Node *Object, const char *Name);
231 extern void AST_AppendFunctionCallArg(tAST_Node *Node, tAST_Node *Arg);
233 extern tAST_Node *AST_NewCodeBlock(tParser *Parser);
234 extern void AST_AppendNode(tAST_Node *Parent, tAST_Node *Child);
236 extern tAST_Node *AST_NewIf(tParser *Parser, tAST_Node *Condition, tAST_Node *True, tAST_Node *False);
237 extern tAST_Node *AST_NewLoop(tParser *Parser, tAST_Node *Init, int bPostCheck, tAST_Node *Condition, tAST_Node *Increment, tAST_Node *Code);
239 extern tAST_Node *AST_NewAssign(tParser *Parser, int Operation, tAST_Node *Dest, tAST_Node *Value);
240 extern tAST_Node *AST_NewCast(tParser *Parser, int Target, tAST_Node *Value);
241 extern tAST_Node *AST_NewBinOp(tParser *Parser, int Operation, tAST_Node *Left, tAST_Node *Right);
242 extern tAST_Node *AST_NewUniOp(tParser *Parser, int Operation, tAST_Node *Value);
243 extern tAST_Node *AST_NewScopeDereference(tParser *Parser, const char *Name, tAST_Node *Child);
245 extern void AST_FreeNode(tAST_Node *Node);
248 extern void Object_Dereference(tSpiderValue *Object);
249 extern void Object_Reference(tSpiderValue *Object);
250 extern tSpiderValue *AST_ExecuteNode(tAST_BlockState *Block, tAST_Node *Node);