NODETYPE_CAST, //!< Cast a value to another (Uniop)
NODETYPE_RETURN, //!< Return from a function (reserved word)
+ NODETYPE_BREAK, //!< Break out of a loop
+ NODETYPE_CONTINUE, //!< Next loop iteration
NODETYPE_ASSIGN, //!< Variable assignment operator
NODETYPE_POSTINC, //!< Post-increment (i++) - Uniop
NODETYPE_POSTDEC, //!< Post-decrement (i--) - Uniop
struct sAST_Function
{
tAST_Function *Next; //!< Next function in list
+ int ReturnType;
tAST_Node *Code; //!< Function Code
tAST_Node *Arguments; // HACKJOB (Only NODETYPE_DEFVAR is allowed)
tAST_Node *Arguments_Last;
const char *File;
int Line;
+ void *BlockState; //!< BlockState pointer (for cache integrity)
+ int BlockIdent; //!< Ident (same as above)
+ void *ValueCache; //!< Cached value / pointer
+
union
{
struct {
tAST_Node *Condition;
tAST_Node *Increment;
tAST_Node *Code;
+ char Tag[];
} For;
/**
- * \note Used for \a NODETYPE_VARIABLE, \a NODETYPE_CONSTANT and
- * \a NODETYPE_SCOPE
+ * \note Used for \a NODETYPE_VARIABLE and \a NODETYPE_CONSTANT
*/
struct {
char _unused; // Shut GCC up
int DataType;
tAST_Node *LevelSizes;
tAST_Node *LevelSizes_Last;
+ tAST_Node *InitialValue;
char Name[];
} DefVar;
tAST_Node *Value;
} Cast;
- struct {
- int Length;
- char Data[];
- } String;
-
- uint64_t Integer;
- double Real;
+ // Used for NODETYPE_REAL, NODETYPE_INTEGER and NODETYPE_STRING
+ tSpiderValue Constant;
};
};
tSpiderValue *RetVal;
tSpiderNamespace *BaseNamespace; //!< Base namespace (for entire block)
tSpiderNamespace *CurNamespace; //!< Currently selected namespace
+ int Ident; //!< ID number used for variable lookup caching
+ const char *BreakTarget;
+ int BreakType;
};
struct sAST_Variable
extern size_t AST_WriteScript(void *Buffer, tAST_Script *Script);
extern size_t AST_WriteNode(void *Buffer, size_t Offset, tAST_Node *Node);
-extern tAST_Function *AST_AppendFunction(tAST_Script *Script, const char *Name);
+extern tAST_Function *AST_AppendFunction(tAST_Script *Script, const char *Name, int ReturnType);
extern void AST_AppendFunctionArg(tAST_Function *Function, tAST_Node *Arg);
extern void AST_SetFunctionCode(tAST_Function *Function, tAST_Node *Root);
extern void AST_AppendNode(tAST_Node *Parent, tAST_Node *Child);
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);
+extern tAST_Node *AST_NewLoop(tParser *Parser, const char *Tag, tAST_Node *Init, int bPostCheck, tAST_Node *Condition, tAST_Node *Increment, tAST_Node *Code);
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);
+extern tAST_Node *AST_NewBreakout(tParser *Parser, int Type, const char *DestTag);
extern tAST_Node *AST_NewScopeDereference(tParser *Parser, const char *Name, tAST_Node *Child);
extern void AST_FreeNode(tAST_Node *Node);