Add Unit Lexer

extlibs/PATCH.md

@@ -0,0 +1,9 @@
+# Patches
+
+Modifications (marked with `AM`) have been made to:
+
+- Squirrel
+  - [sqstdio.cpp](.\squirrel\sqstdlib\sqstdio.cpp)
+  - [sqcompiler.cpp](.\squirrel\squirrel\sqcompiler.cpp)
+  - [sqlexer.cpp](.\squirrel\squirrel\sqlexer.cpp)
+  - [sqlexer.h](.\squirrel\squirrel\sqlexer.h)

extlibs/squirrel/squirrel/sqcompiler.cpp

@@ -612,6 +612,15 @@ class SQCompiler
 		SQInteger pos = Factor();
 		for(;;) {
 			switch(_token) {
+			case TK_IDENTIFIER: // AM+ start
+				if(_lex._unit) {
+					pos = Factor();
+					SQInteger unit = _fs->PopTarget();
+					SQInteger num = _fs->PopTarget();
+					_fs->AddInstruction(_OP_CALL, _fs->PushTarget(), unit, num - 1, 2);
+					break;
+				}
+				return; // AM+ end
 			case _SC('.'):
 				pos = -1;
 				Lex(); 

extlibs/squirrel/squirrel/sqlexer.cpp

@@ -71,6 +71,7 @@ void SQLexer::Init(SQSharedState *ss, SQLEXREADFUNC rg, SQUserPointer up,Compile
 	_lasttokenline = _currentline = 1;
 	_currentcolumn = 0;
 	_prevtoken = -1;
+	_unit = SQFalse; // AM+
 	_reached_eof = SQFalse;
 	Next();
 }
@@ -485,5 +486,6 @@ SQInteger SQLexer::ReadID()
 	if(res == TK_IDENTIFIER || res == TK_CONSTRUCTOR) {
 		_svalue = &_longstr[0];
 	}
+	_unit = (_curtoken == TK_FLOAT || _curtoken == TK_INTEGER ); // AM+
 	return res;
 }

extlibs/squirrel/squirrel/sqlexer.h

@@ -33,6 +33,7 @@ struct SQLexer
 	SQInteger _lasttokenline;
 	SQInteger _currentcolumn;
 	const SQChar *_svalue;
+	SQBool _unit; // AM+
 	SQInteger _nvalue;
 	SQFloat _fvalue;
 	SQLEXREADFUNC _readf;