-/* see copyright notice in squirrel.h */
-#ifndef _SQLEXER_H_
-#define _SQLEXER_H_
-
-#define MAX_STRING 2024
-
-struct SQLexer
-{
- SQLexer();
- ~SQLexer();
- void Init(SQSharedState *ss,SQLEXREADFUNC rg,SQUserPointer up);
- int Lex();
- SQObjectPtr Tok2Str(int tok);
-private:
- int GetIDType(SQChar *s);
- int ReadString(int ndelim,bool verbatim);
- int ReadNumber();
- void LexBlockComment();
- int ReadID();
- void Next();
- int _curtoken;
- SQTable *_keywords;
-public:
- int _prevtoken;
- int _currentline;
- int _lasttokenline;
- int _currentcolumn;
- const SQChar *_svalue;
- SQInteger _nvalue;
- SQFloat _fvalue;
- SQLEXREADFUNC _readf;
- SQUserPointer _up;
-#ifdef _UNICODE
- SQChar _currdata;
-#else
- unsigned char _currdata;
-#endif
- SQSharedState *_sharedstate;
- sqvector<SQChar> _longstr;
-};
-
-#endif
+/* see copyright notice in squirrel.h */\r
+#ifndef _SQLEXER_H_\r
+#define _SQLEXER_H_\r
+\r
+#define MAX_STRING 2024\r
+\r
+\r
+\r
+struct SQLexer\r
+{\r
+ SQLexer();\r
+ ~SQLexer();\r
+ void Init(SQSharedState *ss,SQLEXREADFUNC rg,SQUserPointer up,CompilerErrorFunc efunc,void *ed);\r
+ void Error(const SQChar *err);\r
+ SQInteger Lex();\r
+ const SQChar *Tok2Str(SQInteger tok);\r
+private:\r
+ SQInteger GetIDType(SQChar *s);\r
+ SQInteger ReadString(SQInteger ndelim,bool verbatim);\r
+ SQInteger ReadNumber();\r
+ void LexBlockComment();\r
+ SQInteger ReadID();\r
+ void Next();\r
+ SQInteger _curtoken;\r
+ SQTable *_keywords;\r
+public:\r
+ SQInteger _prevtoken;\r
+ SQInteger _currentline;\r
+ SQInteger _lasttokenline;\r
+ SQInteger _currentcolumn;\r
+ const SQChar *_svalue;\r
+ SQInteger _nvalue;\r
+ SQFloat _fvalue;\r
+ SQLEXREADFUNC _readf;\r
+ SQUserPointer _up;\r
+#ifdef _UNICODE\r
+ SQChar _currdata;\r
+#else\r
+ unsigned char _currdata;\r
+#endif\r
+ SQSharedState *_sharedstate;\r
+ sqvector<SQChar> _longstr;\r
+ CompilerErrorFunc _errfunc;\r
+ void *_errtarget;\r
+};\r
+\r
+#endif\r