engine/console/compiler.h

//-----------------------------------------------------------------------------
// V12 Engine
// 
// Copyright (c) 2001 GarageGames.Com
// Portions Copyright (c) 2001 by Sierra Online, Inc.
//-----------------------------------------------------------------------------

enum CompiledInstructions
{
   OP_FUNC_DECL,
   OP_CREATE_OBJECT,
   OP_CREATE_DATABLOCK,
   
   OP_NAME_OBJECT,
   OP_ADD_OBJECT,
   OP_END_OBJECT,
   OP_JMPIFFNOT,
   OP_JMPIFNOT,
   OP_JMPIFF,
   OP_JMPIF,
   OP_JMPIFNOT_NP,
   OP_JMPIF_NP,
   OP_JMP,
   OP_RETURN,
   OP_CMPEQ,
   OP_CMPGR,
   OP_CMPGE,
   OP_CMPLT,
   OP_CMPLE,
   OP_CMPNE,
   OP_XOR,
   OP_MOD,
   OP_BITAND,
   OP_BITOR,
   OP_NOT,
   OP_NOTF,
   OP_ONESCOMPLEMENT,

   OP_SHR,
   OP_SHL,
   OP_AND,
   OP_OR,

   OP_ADD,
   OP_SUB,
   OP_MUL,
   OP_DIV,
   OP_NEG,

   OP_SETCURVAR,
   OP_SETCURVAR_CREATE,
   OP_SETCURVAR_ARRAY,
   OP_SETCURVAR_ARRAY_CREATE,

   OP_LOADVAR_UINT,
   OP_LOADVAR_FLT,
   OP_LOADVAR_STR,

   OP_SAVEVAR_UINT,
   OP_SAVEVAR_FLT,
   OP_SAVEVAR_STR,

   OP_SETCUROBJECT,
   OP_SETCUROBJECT_NEW,

   OP_SETCURFIELD,
   OP_SETCURFIELD_ARRAY,

   OP_LOADFIELD_UINT,
   OP_LOADFIELD_FLT,
   OP_LOADFIELD_STR,

   OP_SAVEFIELD_UINT,
   OP_SAVEFIELD_FLT,
   OP_SAVEFIELD_STR,

   OP_STR_TO_UINT,
   OP_STR_TO_FLT,
   OP_STR_TO_NONE,
   OP_FLT_TO_UINT,
   OP_FLT_TO_STR,
   OP_FLT_TO_NONE,
   OP_UINT_TO_FLT,
   OP_UINT_TO_STR,
   OP_UINT_TO_NONE,

   OP_LOADIMMED_UINT,
   OP_LOADIMMED_FLT,
   OP_TAG_TO_STR,
   OP_LOADIMMED_STR,
   OP_LOADIMMED_IDENT,
   
   OP_CALLFUNC_RESOLVE,
   OP_CALLFUNC,
   OP_PROCESS_ARGS,
   
   OP_ADVANCE_STR,
   OP_ADVANCE_STR_APPENDCHAR,
   OP_ADVANCE_STR_COMMA,
   OP_ADVANCE_STR_NUL,
   OP_REWIND_STR,
   OP_TERMINATE_REWIND_STR,
   OP_COMPARE_STR,
   
   OP_PUSH,
   OP_PUSH_FRAME,
   
   OP_BREAK,
   
   OP_INVALID
};


// DON'T CHANGE THESE LINES!
// DON'T CHANGE THESE LINES!
// The script updateConsoleVersion.pl in //Dev/environment/usr/bin/ depends on them
//  being exactly as follows
//
enum {
   ConsoleDSOVersion = 33
};
//
// DON'T CHANGE THESE LINES!
// DON'T CHANGE THESE LINES!
// DON'T CHANGE THESE LINES!

class Stream;

class CodeBlock
{
public:
   StringTableEntry name;
   
   char *globalStrings;
   char *functionStrings;
   
   F64 *globalFloats;
   F64 *functionFloats;
   
   U32 codeSize;
   U32 *code;

   U32 refCount;
   U32 lineBreakPairCount;
   U32 *lineBreakPairs;
   U32 breakListSize;
   U32 *breakList;
   CodeBlock *nextFile;

   static CodeBlock *find(StringTableEntry);
   CodeBlock();
   ~CodeBlock();
   
   void addToCodeList();
   void removeFromCodeList();
   void calcBreakList();
   void clearAllBreaks();
   void setAllBreaks();
   void clearBreakpoint(U32 lineNumber);
   void setBreakpoint(U32 lineNumber);
   void findBreakLine(U32 ip, U32 &line, U32 &instruction);
   const char *getFileLine(U32 ip);
   
   bool read(StringTableEntry fileName, Stream &st);
   bool compile(const char *dsoName, StringTableEntry fileName, const char *script);
      
   void incRefCount();
   void decRefCount();
   const char *compileExec(StringTableEntry fileName, const char *script, bool noCalls);
   const char *exec(U32 offset, const char *fnName, Namespace *ns, U32 argc, const char **argv, bool noCalls);
};
extern CodeBlock *codeBlockList;

extern F64 consoleStringToNumber(const char *str, StringTableEntry file = 0, U32 line = 0);
extern U32 precompileBlock(StmtNode *block, U32 loopCount);
extern U32 compileBlock(StmtNode *block, U32 *codeStream, U32 ip, U32 continuePoint, U32 breakPoint);

struct CompilerIdentTable
{
   struct Entry
   {
      U32 offset;
      U32 ip;
      Entry *next;
      Entry *nextIdent;
   };
   Entry *list;
   void add(StringTableEntry ste, U32 ip);
   void reset();
   void write(Stream &st);
};

struct CompilerStringTable
{
   U32 totalLen;
   struct Entry
   {
      char *string;
      U32 start;
      U32 len;
      bool tag;
      Entry *next;
   };
   Entry *list;
   
   char buf[256];
   
   U32 add(const char *str, bool caseSens = true, bool tag = false);
   U32 addIntString(U32 value);
   U32 addFloatString(F64 value);
   void reset();
   char *build();
   void write(Stream &st);
};

extern CompilerStringTable *currentStringTable;
extern CompilerStringTable gGlobalStringTable;
extern CompilerStringTable gFunctionStringTable;

//------------------------------------------------------------

struct CompilerFloatTable
{
   struct Entry
   {
      F64 val;
      Entry *next;
   };
   U32 count;
   Entry *list;
   
   U32 add(F64 value);
   void reset();
   F64 *build();
   void write(Stream &st);
};

extern CompilerFloatTable *currentFloatTable, gGlobalFloatTable, gFunctionFloatTable;

extern U32 (*STEtoU32)(StringTableEntry ste, U32 ip);

inline StringTableEntry U32toSTE(U32 u)
{
   return *((StringTableEntry *) &u);
}