Initial commit

engines/twp/squirrel/sqlexer.h

@@ -0,0 +1,46 @@
+/*  see copyright notice in squirrel.h */
+#ifndef _SQLEXER_H_
+#define _SQLEXER_H_
+
+typedef unsigned char LexChar;
+
+struct SQLexer
+{
+    SQLexer();
+    ~SQLexer();
+    void Init(SQSharedState *ss,SQLEXREADFUNC rg,SQUserPointer up,CompilerErrorFunc efunc,void *ed);
+    void Error(const SQChar *err);
+    SQInteger Lex();
+    const SQChar *Tok2Str(SQInteger tok);
+private:
+    SQInteger GetIDType(const SQChar *s,SQInteger len);
+    SQInteger ReadString(SQInteger ndelim,bool verbatim);
+    SQInteger ReadNumber();
+    void LexBlockComment();
+    void LexLineComment();
+    SQInteger ReadID();
+    void Next();
+
+    SQInteger AddUTF8(SQUnsignedInteger ch);
+    SQInteger ProcessStringHexEscape(SQChar *dest, SQInteger maxdigits);
+    SQInteger _curtoken = 0;
+    SQTable *_keywords = nullptr;
+    SQBool _reached_eof = SQFalse;
+public:
+    SQInteger _prevtoken = 0;
+    SQInteger _currentline = 0;
+    SQInteger _lasttokenline = 0;
+    SQInteger _currentcolumn = 0;
+    const SQChar *_svalue = nullptr;
+    SQInteger _nvalue = 0;
+    SQFloat _fvalue = 0.f;
+    SQLEXREADFUNC _readf = nullptr;
+    SQUserPointer _up = nullptr;
+    LexChar _currdata = 0;
+    SQSharedState *_sharedstate = nullptr;
+    sqvector<SQChar> _longstr;
+    CompilerErrorFunc _errfunc = nullptr;
+    void *_errtarget = nullptr;
+};
+
+#endif