initial

vscript/languages/squirrel/testSqPlus/Makefile

@@ -0,0 +1,16 @@
+SQUIRREL= ..
+
+OUT= ./testSqPlus
+INCDIRS= -I$(SQUIRREL)/include -I. -I$(SQUIRREL)/sqlibs -I$(SQUIRREL)/sqplus
+LIBDIR= -L$(SQUIRREL)/lib 
+LIBS= -lsqplus -lsquirrel -lsqstdlib 
+
+SRCS= testSqPlus.cpp
+
+all: testSqPlus
+
+FORCE: ;
+	
+testSqPlus: FORCE
+	#g++ -fno-rtti -o $(OUT) $(SRCS) $(INCDIRS) $(LIBDIR) $(LIBS)
+	g++ -O3 -fno-rtti -Os -o $(OUT) $(SRCS) $(INCDIRS) $(LIBDIR) $(LIBS)

vscript/languages/squirrel/testSqPlus/testSqPlus.cbp

@@ -0,0 +1,126 @@
+<?xml version="1.0"?>
+<!DOCTYPE CodeBlocks_project_file>
+<CodeBlocks_project_file>
+	<FileVersion major="1" minor="1"/>
+	<Project>
+		<Option title="testSqPlus"/>
+		<Option makefile="Makefile"/>
+		<Option makefile_is_custom="0"/>
+		<Option compiler="0"/>
+		<Build>
+			<Target title="Debug">
+				<Option output="Debug\testSqPlus.exe"/>
+				<Option working_dir="."/>
+				<Option object_output="Debug"/>
+				<Option deps_output=".deps"/>
+				<Option external_deps="..\lib\libsqdbglibD.a;..\lib\libsquirrelD.a;..\lib\libsqstdlibD.a;..\lib\libsqplusD.a;"/>
+				<Option type="1"/>
+				<Option compiler="0"/>
+				<Option projectResourceIncludeDirsRelation="1"/>
+				<Compiler>
+					<Add option="-W"/>
+					<Add option="-O0"/>
+					<Add option="-DWIN32"/>
+					<Add option="-D_DEBUG"/>
+					<Add option="-D_CONSOLE"/>
+					<Add option="-D_CRT_SECURE_NO_DEPRECATE"/>
+					<Add directory="..\include"/>
+					<Add directory="..\sqplus"/>
+				</Compiler>
+				<Linker>
+					<Add library="..\lib\libsqplusD.a"/>
+					<Add library="..\lib\libsquirrelD.a"/>
+					<Add library="..\lib\libsqstdlibD.a"/>
+					<Add library="..\lib\libsqdbglibD.a"/>
+				</Linker>
+			</Target>
+			<Target title="Release">
+				<Option output="Release\testSqPlus.exe"/>
+				<Option working_dir="."/>
+				<Option object_output="Release"/>
+				<Option deps_output=".deps"/>
+				<Option external_deps="..\lib\libsqdbglib.a;..\lib\libsquirrel.a;..\lib\libsqstdlib.a;..\lib\libsqplus.a;"/>
+				<Option type="1"/>
+				<Option compiler="0"/>
+				<Option projectResourceIncludeDirsRelation="1"/>
+				<Compiler>
+					<Add option="-W"/>
+					<Add option="-g"/>
+					<Add option="-DWIN32"/>
+					<Add option="-DNDEBUG"/>
+					<Add option="-D_CONSOLE"/>
+					<Add option="-D_CRT_SECURE_NO_DEPRECATE"/>
+					<Add directory="..\include"/>
+					<Add directory="..\sqplus"/>
+				</Compiler>
+				<Linker>
+					<Add library="..\lib\libsqplus.a"/>
+					<Add library="..\lib\libsquirrel.a"/>
+					<Add library="..\lib\libsqstdlib.a"/>
+					<Add library="..\lib\libsqdbglib.a"/>
+				</Linker>
+			</Target>
+			<Target title="Debug - Unicode">
+				<Option output="Debug - Unicode\testSqPlus.exe"/>
+				<Option working_dir="."/>
+				<Option object_output="Debug - Unicode"/>
+				<Option deps_output=".deps"/>
+				<Option external_deps="..\lib\libsqdbglibDU.a;..\lib\libsquirrelDU.a;..\lib\libsqstdlibDU.a;..\lib\libsqplusDU.a;"/>
+				<Option type="1"/>
+				<Option compiler="0"/>
+				<Option projectResourceIncludeDirsRelation="1"/>
+				<Compiler>
+					<Add option="-W"/>
+					<Add option="-O0"/>
+					<Add option="-DWIN32"/>
+					<Add option="-D_DEBUG"/>
+					<Add option="-D_CONSOLE"/>
+					<Add option="-D_CRT_SECURE_NO_DEPRECATE"/>
+					<Add option="-D_CRT_NON_CONFORMING_SWPRINTFS"/>
+					<Add directory="..\include"/>
+					<Add directory="..\sqplus"/>
+				</Compiler>
+				<Linker>
+					<Add library="..\lib\libsqplusDU.a"/>
+					<Add library="..\lib\libsquirrelDU.a"/>
+					<Add library="..\lib\libsqstdlibDU.a"/>
+					<Add library="..\lib\libsqdbglibDU.a"/>
+				</Linker>
+			</Target>
+			<Target title="Release - Unicode">
+				<Option output="Release - Unicode\testSqPlus.exe"/>
+				<Option working_dir="."/>
+				<Option object_output="Release - Unicode"/>
+				<Option deps_output=".deps"/>
+				<Option external_deps="..\lib\libsqdbglibU.a;..\lib\libsquirrelU.a;..\lib\libsqstdlibU.a;..\lib\libsqplusU.a;"/>
+				<Option type="1"/>
+				<Option compiler="0"/>
+				<Option projectResourceIncludeDirsRelation="1"/>
+				<Compiler>
+					<Add option="-W"/>
+					<Add option="-g"/>
+					<Add option="-DWIN32"/>
+					<Add option="-DNDEBUG"/>
+					<Add option="-D_CONSOLE"/>
+					<Add option="-D_CRT_SECURE_NO_DEPRECATE"/>
+					<Add option="-D_CRT_NON_CONFORMING_SWPRINTFS"/>
+					<Add directory="..\include"/>
+					<Add directory="..\sqplus"/>
+				</Compiler>
+				<Linker>
+					<Add library="..\lib\libsqplusU.a"/>
+					<Add library="..\lib\libsquirrelU.a"/>
+					<Add library="..\lib\libsqstdlibU.a"/>
+					<Add library="..\lib\libsqdbglibU.a"/>
+				</Linker>
+			</Target>
+		</Build>
+		<Unit filename="testSqPlus.cpp">
+			<Option compilerVar="CPP"/>
+			<Option target="Debug"/>
+			<Option target="Release"/>
+			<Option target="Debug - Unicode"/>
+			<Option target="Release - Unicode"/>
+		</Unit>
+	</Project>
+</CodeBlocks_project_file>

vscript/languages/squirrel/testSqPlus/testSqPlus.cpp

@@ -0,0 +1,804 @@
+// testSqPlus.cpp
+// Created by John Schultz 9/5/2005
+// Free for any use.
+
+#include <stdarg.h> 
+#include <stdio.h>
+#include "sqplus.h"
+
+using namespace SqPlus;
+
+struct CTestObj {
+  float x;
+  float y;
+  float z;
+  CTestObj() {
+    x = y = z = 0.f;
+  }
+  void update(float t) {
+    x += t;
+  } // update
+  void print(void) {
+    SQChar buff[256];
+    scsprintf(buff,_T("x: %f\n"),x);
+//    OutputDebugString(buff);
+    SCPUTS(buff);
+  } // print
+};
+
+_DECL_CLASS(TestObj);
+
+_IMPL_NATIVE_CONSTRUCTION(TestObj,CTestObj);
+
+_MEMBER_FUNCTION_IMPL(TestObj,constructor) {
+  CTestObj * newv = NULL;
+  StackHandler sa(v);
+  int nparams = sa.GetParamCount();
+  newv = new CTestObj();
+  return construct_TestObj(newv);
+}
+
+_MEMBER_FUNCTION_IMPL(TestObj,_set) {
+  StackHandler sa(v);
+  _CHECK_SELF(CTestObj,TestObj);
+  const SQChar *s = sa.GetString(2);
+  int index = s?s[0]:sa.GetInt(2);
+  switch(index) {
+  case 0: case 'x': case 'r':
+    return sa.Return(self->x = sa.GetFloat(3));
+    break;
+  case 1: case 'y': case 'g':
+    return sa.Return(self->y = sa.GetFloat(3));
+    break;
+  case 2: case 'z': case 'b':
+    return sa.Return(self->z = sa.GetFloat(3));
+    break;
+  } // switch
+  return SQ_ERROR;
+}
+
+_MEMBER_FUNCTION_IMPL(TestObj,_get) {
+  StackHandler sa(v);
+  _CHECK_SELF(CTestObj,TestObj);
+  const SQChar *s = sa.GetString(2);
+  if(s && (s[1] != 0)) return SQ_ERROR;
+  int index = s && (s[1] == 0)?s[0]:sa.GetInt(2);
+  switch(index) {
+  case 0: case 'x': case 'r': return sa.Return(self->x); break;
+  case 1: case 'y': case 'g':	return sa.Return(self->y); break;
+  case 2: case 'z': case 'b': return sa.Return(self->z); break;
+  } // switch
+  return SQ_ERROR;
+}
+
+_MEMBER_FUNCTION_IMPL(TestObj,update) {
+  StackHandler sa(v);
+  _CHECK_SELF(CTestObj,TestObj);
+  SQObjectType type = (SQObjectType)sa.GetType(2);
+  if (type == OT_FLOAT || type == OT_INTEGER) {
+    float t = sa.GetFloat(2);
+    self->update(t);
+  } else {
+    SQChar buff[256];
+    scsprintf(buff,_T("Invalid type for CTestObj::update(float): type %d\n"),type);
+//    OutputDebugString(buff);
+    SCPUTS(buff);
+  } // if
+  return SQ_OK;;
+}
+
+_MEMBER_FUNCTION_IMPL(TestObj,print) {
+  StackHandler sa(v);
+  _CHECK_SELF(CTestObj,TestObj);
+  SQChar buff[256];
+  scsprintf(buff,_T("x: %f y: %f z: %f\n"),self->x,self->y,self->z);
+//  OutputDebugString(buff);
+  SCPUTS(buff);
+//  return sa.ThrowError(_SC("Error initializing the device"));
+  return SQ_OK;;
+}
+
+_MEMBER_FUNCTION_IMPL(TestObj,_print) {
+  _CHECK_SELF(CTestObj,TestObj);
+  SCPUTS(_T("_print: "));
+  return __TestObj_print(v);
+}
+
+_BEGIN_CLASS(TestObj)
+_MEMBER_FUNCTION(TestObj,constructor,1,_T("x")) // x = instance ('self/this' not yet created), no arguments.
+_MEMBER_FUNCTION(TestObj,_set,3,_T("xs|n"))     // x = instance, string, or int/float, as .x, .y, .z, or [0], [1], [2].
+_MEMBER_FUNCTION(TestObj,_get,2,_T("xs|n"))     // x = instance, string, or int/float, as .x, .y, .z, or [0], [1], [2].
+_MEMBER_FUNCTION(TestObj,update,2,_T("xn"))     // x = instance (this), n = int or float.
+_MEMBER_FUNCTION(TestObj,print,1,_T("x"))       // x = instance (this).
+_MEMBER_FUNCTION(TestObj,_print,1,_T("x"))      // x = instance (this).
+_END_CLASS(TestObj)
+
+#ifdef SQUNICODE 
+#define scvprintf vwprintf 
+#else 
+#define scvprintf vprintf 
+#endif 
+
+void printfunc(HSQUIRRELVM v,const SQChar *s,...) { 
+  va_list arglist;
+  va_start(arglist, s);
+  scvprintf(s, arglist);
+  va_end(arglist);
+}
+
+int testFunc(HSQUIRRELVM v) {
+  StackHandler sa(v);
+  int paramCount = sa.GetParamCount();
+  scprintf(_T("testFunc: numParams[%d]\n"),paramCount);
+  for (int i=1; i <= paramCount; i++) {
+    scprintf(_T("param[%d]: "),i);
+    switch(sa.GetType(i)) {
+    case OT_TABLE:   scprintf(_T("OT_TABLE[0x%x]\n"),sa.GetObjectHandle(i)); break;
+    case OT_INTEGER: scprintf(_T("OT_INTEGER[%d]\n"),sa.GetInt(i));    break;
+    case OT_FLOAT:   scprintf(_T("OT_FLOAT[%f]\n"),sa.GetFloat(i));    break;
+    case OT_STRING:  scprintf(_T("OT_STRING[%s]\n"),sa.GetString(i));  break;
+    default:
+      scprintf(_T("TYPEID[%d]\n"),sa.GetType(i));
+    } // switch
+  } // for
+  return SQ_OK;
+} // testFunc
+
+// === BEGIN User Pointer version ===
+#if 0
+
+int setVarFunc2(HSQUIRRELVM v) {
+  StackHandler sa(v);
+  if (sa.GetType(1) == OT_TABLE) {
+    HSQOBJECT htable = sa.GetObjectHandle(1);
+    SquirrelObject table(htable);
+    const SQChar * el = sa.GetString(2);
+    SquirrelObject upValMapPtr  = table.GetValue(_T("_uvp"));
+    SquirrelObject upValMapType = table.GetValue(_T("_uvt"));
+    if (!upValMapType.Exists(el)) {
+      return SQ_ERROR;
+    } // if
+    int vType = upValMapType.GetInt(el);
+    switch (vType) {
+    case TypeInfo<int>::TypeID: {
+      int * val = (int *)upValMapPtr.GetUserPointer(el);
+      if (val) {
+        *val = sa.GetInt(3);
+        return sa.Return(*val);
+      } else {
+        return sa.Return(-1);
+      } // if
+    } // case
+    case TypeInfo<float>::TypeID: {
+      float * val = (float *)upValMapPtr.GetUserPointer(el);
+      if (val) {
+        *val = sa.GetFloat(3);
+        return sa.Return(*val);
+      } else {
+        return sa.Return(-1);
+      } // if
+    } // case
+    case TypeInfo<bool>::TypeID: {
+      bool * val = (bool *)upValMapPtr.GetUserPointer(el);
+      if (val) {
+        *val = sa.GetBool(3) ? true : false;
+        return sa.Return(*val);
+      } else {
+        return sa.Return(-1);
+      } // if
+    } // case
+    } // switch
+  } // if
+  return SQ_ERROR;
+} // setVarFunc2
+
+int getVarFunc2(HSQUIRRELVM v) {
+  StackHandler sa(v);
+  if (sa.GetType(1) == OT_TABLE) {
+    HSQOBJECT htable = sa.GetObjectHandle(1);
+    SquirrelObject table(htable);
+    int type = sa.GetType(2);
+    const SQChar * el = sa.GetString(2);
+    SquirrelObject upValMap     = table.GetValue(_T("_uvp"));
+    SquirrelObject upValMapType = table.GetValue(_T("_uvt"));
+    if (!upValMapType.Exists(el)) {
+      return SQ_ERROR;
+    } // if
+    int vType = upValMapType.GetInt(el);
+    switch (vType) {
+    case TypeInfo<int>::TypeID: {
+      int * val = (int *)upValMap.GetUserPointer(el);
+      if (val) {
+        return sa.Return(*val);
+      } else {
+        return sa.Return(-1);
+      } // if
+    } // case
+    case TypeInfo<float>::TypeID: {
+      float * val = (float *)upValMap.GetUserPointer(el);
+      if (val) {
+        return sa.Return(*val);
+      } else {
+        return sa.Return(-1);
+      } // if
+    } // case
+    case TypeInfo<bool>::TypeID: {
+      bool * val = (bool *)upValMap.GetUserPointer(el);
+      if (val) {
+        return sa.Return(*val);
+      } else {
+        return sa.Return(-1);
+      } // if
+    } // case
+    } // switch
+  } // if
+  return SQ_ERROR;
+} // getVarFunc2
+
+template<typename T>
+void bindVariable2(SquirrelObject & so,T & var,const SQChar * scriptVarName) {
+  SquirrelObject __upValMapPtr;
+  SquirrelObject __upValMapType;
+
+  if (so.Exists(_T("_uvp"))) {
+    __upValMapPtr  = so.GetValue(_T("_uvp"));
+    __upValMapType = so.GetValue(_T("_uvt"));
+  } else {
+    __upValMapPtr  = SquirrelVM::CreateTable();
+    __upValMapType = SquirrelVM::CreateTable();
+  } // if
+
+  int varType = TypeInfo<T>::TypeID;
+  __upValMapPtr.SetUserPointer(scriptVarName,&var);
+  __upValMapType.SetValue(scriptVarName,varType);
+
+  so.SetValue(_T("_uvp"),__upValMapPtr);
+  so.SetValue(_T("_uvt"),__upValMapType);
+
+  SquirrelObject delegate = so.GetDelegate();
+  if (!delegate.Exists(_T("_set"))) {
+    delegate = SquirrelVM::CreateTable();
+    SquirrelVM::CreateFunction(delegate,"_set",setVarFunc2,_T("sn|b")); // String var name = number(int or float) or bool.
+    SquirrelVM::CreateFunction(delegate,"_get",getVarFunc2,_T("s"));    // String var name.
+    so.SetDelegate(delegate);
+  } // if
+
+} // bindVariable2
+#endif
+
+// === BEGIN Old, initial test versions. ===
+
+int setIntFunc(HSQUIRRELVM v) {
+  StackHandler sa(v);
+  if (sa.GetType(1) == OT_TABLE) {
+    HSQOBJECT htable = sa.GetObjectHandle(1);
+    SquirrelObject table(htable);
+    const SQChar * el = sa.GetString(2);
+    SquirrelObject upValMap = table.GetValue(_T("upValMap"));
+    int * val = (int *)upValMap.GetUserPointer(el);
+    if (val) {
+      *val = sa.GetInt(3);
+      return sa.Return(*val);
+    } else {
+      return sa.Return(-1);
+    } // if
+  } // if
+  return SQ_ERROR;
+} // setIntFunc
+
+int getIntFunc(HSQUIRRELVM v) {
+  StackHandler sa(v);
+  if (sa.GetType(1) == OT_TABLE) {
+    HSQOBJECT htable = sa.GetObjectHandle(1);
+    SquirrelObject table(htable);
+    int type = sa.GetType(2);
+    const SQChar * el = sa.GetString(2);
+    SquirrelObject upValMap = table.GetValue(_T("upValMap"));
+    int * val = (int *)upValMap.GetUserPointer(el);
+    if (val) {
+      return sa.Return(*val);
+    } else {
+      return sa.Return(-1);
+    } // if
+  } // if
+  return SQ_ERROR;
+} // getIntFunc
+
+// === END Old, initial tests versions. ===
+
+_DECL_STATIC_NAMESPACE(GB); // Globals
+
+_MEMBER_FUNCTION_IMPL(GB,Update) {
+  StackHandler sa(v);
+  scprintf(_T("GB.Update()\n"));
+  return sa.Return(true);
+}
+
+enum {TEST_CONST=123};
+
+_BEGIN_NAMESPACE(GB)
+_MEMBER_FUNCTION(GB,Update,0,0)
+_BEGIN_NAMESPACE_CONSTANTS(GB)
+_CONSTANT_IMPL(TEST_CONST,OT_INTEGER)
+_END_NAMESPACE(GB,NULL)
+
+#if 0
+int getVarName(HSQUIRRELVM v) {
+  StackHandler sa(v);
+  const SQChar * varName = sq_getlocal(v,1,0);
+  return sa.Return(varName);
+} // getVarName
+#endif
+
+void newtest(void) {
+  scprintf(_T("NewTest\n"));
+}
+
+SQChar * newtestR1(const SQChar * inString) {
+  scprintf(_T("NewTestR1: %s\n"),inString);
+  return _T("Returned String");
+}
+
+struct NewTestObj {
+  ScriptStringVar64 s1;
+  ScriptStringVar32 s2;
+  int pad;
+  int val;
+  int c1;
+  ScriptStringVar8 c2; // 8 char plus null (max string is 8 printable chars).
+  NewTestObj() : val(777) {
+    s1 = _T("s1");
+    s2 = _T("s2");
+    c1 = 996;
+    c2 = _T("It's a 997"); // Prints: "It's a 9", as only 8 chars in static buffer (plus null).
+  }
+  void newtest(void) {
+    scprintf(_T("NewTest: %d\n"),val);
+  }
+  SQChar * newtestR1(const SQChar * inString) {
+    scprintf(_T("NewTestR1: Member var val is %d, function arg is %s\n"),val,inString);
+    return _T("Returned String");
+  }
+
+  int multiArgs(HSQUIRRELVM v) {
+    StackHandler sa(v);
+    int paramCount = sa.GetParamCount();
+    int p1 = sa.GetInt(2);
+    int p2 = sa.GetInt(3);
+    int p3 = sa.GetInt(4);
+    return 0;
+  } // multiArgs
+
+  int _set(HSQUIRRELVM v) {
+    StackHandler sa(v);
+    int paramCount = sa.GetParamCount();
+    const SQChar * el = sa.GetString(2);
+    val = sa.GetInt(3);
+    return sa.Return(val);
+//    return setInstanceVarFunc(v);
+  }
+
+  int _get(HSQUIRRELVM v) {
+    StackHandler sa(v);
+    int paramCount = sa.GetParamCount();
+//    return getInstanceVarFunc(v);
+    return sa.Return(val);
+  }
+
+};
+
+struct CustomTestObj {
+  ScriptStringVar128 name;
+  int val;
+  bool state;
+  CustomTestObj() : val(0), state(false) { name = _T("empty"); }
+  CustomTestObj(const SQChar * _name,int _val,bool _state) : val(_val), state(_state) {
+    name = _name;
+  }
+  static int construct(HSQUIRRELVM v) {
+    StackHandler sa(v);
+    int paramCount = sa.GetParamCount();
+    if (paramCount == 1) {
+      return PostConstruct(v,new CustomTestObj(),release);
+    } if (paramCount == 4) {
+      return PostConstruct(v,new CustomTestObj(sa.GetString(2),sa.GetInt(3),sa.GetBool(4)?true:false),release);
+    } // if
+    return sq_throwerror(v,_T("Invalid Constructor arguments"));
+  } // construct
+
+  SQ_DECLARE_RELEASE(CustomTestObj)
+
+  // Member function that handles variable types.
+  int varArgTypes(HSQUIRRELVM v) {
+    StackHandler sa(v);
+    int paramCount = sa.GetParamCount();
+    if (sa.GetType(2) == OT_INTEGER) {
+      val = sa.GetInt(2);
+    } // if
+    if (sa.GetType(2) == OT_STRING) {
+      name = sa.GetString(2);
+    } // if
+    if (sa.GetType(3) == OT_INTEGER) {
+      val = sa.GetInt(3);
+    } // if
+    if (sa.GetType(3) == OT_STRING) {
+      name = sa.GetString(3);
+    } // if
+    return 0;
+  } // varArgTypes
+
+  // Member function that handles variable types and has variable return types+count.
+  int varArgTypesAndCount(HSQUIRRELVM v) {
+    StackHandler sa(v);
+    int paramCount = sa.GetParamCount();
+    SQObjectType type1 = (SQObjectType)sa.GetType(1); // Always OT_INSTANCE
+    SQObjectType type2 = (SQObjectType)sa.GetType(2);
+    SQObjectType type3 = (SQObjectType)sa.GetType(3);
+    SQObjectType type4 = (SQObjectType)sa.GetType(4);
+    int returnCount = 0;
+    if (paramCount == 3) {
+      sq_pushinteger(v,val);
+      returnCount = 1;
+    } else if (paramCount == 4) {
+      sq_pushinteger(v,val);
+      sq_pushstring(v,name,-1);
+      returnCount = 2;
+    } // if
+    return returnCount;
+  } //
+
+  int noArgsVariableReturn(HSQUIRRELVM v) {
+    if (val == 123) {
+      val++;
+      return 0; // This will print (null).
+    } else if (val == 124) {
+      sq_pushinteger(v,val); // Will return int:124.
+      val++;
+      return 1;
+    } else if (val == 125) {
+      sq_pushinteger(v,val);
+      name = _T("Case 125");
+      sq_pushstring(v,name,-1);
+      val = 123; // reset
+      return 2;
+    } // if
+    return 0;
+  } // noArgsVariableReturn
+
+  // Registered with func() instead of funcVarArgs(): fixed (single) return type.
+  const SQChar * variableArgsFixedReturnType(HSQUIRRELVM v) {
+    StackHandler sa(v);
+    int paramCount = sa.GetParamCount();
+    SQObjectType type1 = (SQObjectType)sa.GetType(1); // Always OT_INSTANCE
+    SQObjectType type2 = (SQObjectType)sa.GetType(2);
+    SQObjectType type3 = (SQObjectType)sa.GetType(3);
+    if (paramCount == 1) {
+      return _T("No Args");
+    } else if (paramCount == 2) {
+      return _T("One Arg");
+    } else if (paramCount == 3) {
+      return _T("Two Args");
+    } // if
+    return _T("More than two args");
+  } // variableArgsFixedReturnType
+
+  void manyArgs(int i,float f,bool b,const SQChar * s) {
+    scprintf(_T("i: %d, f: %f, b: %s, s: %s\n"),i,f,b?_T("true"):_T("false"),s);
+  } // manyArgs
+
+  float manyArgsR1(int i,float f,bool b,const SQChar * s)  {
+    manyArgs(i,f,b,s);
+    return i+f;
+  } // manyArgsR1
+
+};
+
+#if 0
+struct Base {
+  int val1;
+  ScriptStringVar16 nameBase;
+  Base() : nameBase(_T("Base")) {
+    val1 = 123;
+  }
+  void funcBase(void) {
+    scprintf(_T("Val1: %d, Name: %s\n"),val1,nameBase.s);
+  }
+};
+
+struct Derived {
+  int val2;
+  ScriptStringVar16 nameDerived;
+  Derived() : nameDerived(_T("Derived")), val2(456) {
+    val2 = 456;
+  }
+  void funcDerived(void) {
+    scprintf(_T("Val2: %d, Name: %s\n"),val2,nameDerived.s);
+  }
+};
+#endif
+
+//SQ_DECLARE_CLASS(NewTestObj);
+
+class TestSqPlus {
+public:
+  void init(void) {
+    SquirrelVM::Init();
+//    sq_setprintfunc(SquirrelVM::GetVMPtr(),printfunc); //sets the print function.
+    _INIT_CLASS(TestObj);
+    _INIT_STATIC_NAMESPACE(GB);
+  } // if
+
+  TestSqPlus() {
+    init();
+
+    try {
+      HSQUIRRELVM v = SquirrelVM::GetVMPtr();
+
+      // === BEGIN Global Function binding tests ===
+
+      // Implemented as SquirrelVM::CreateFunction(rootTable,func,name,typeMask);
+      SquirrelVM::CreateFunctionGlobal(&testFunc,_T("testFunc0"));
+      SquirrelVM::CreateFunctionGlobal(&testFunc,_T("testFuncN"),_T("n"));
+      SquirrelVM::CreateFunctionGlobal(&testFunc,_T("testFuncS"),_T("s"));
+
+      // === Register Standard Functions ===
+
+      RegisterGlobal(v,&newtest,_T("test"));
+      RegisterGlobal(v,&newtestR1,_T("testR1"));
+
+      // === Register Member Functions to existing classes (as opposed to instances of classes) ===
+
+      NewTestObj t1,t2,t3;
+      t1.val = 123;
+      t2.val = 456;
+      t3.val = 789;
+      RegisterGlobal(v,t1,&NewTestObj::newtest,_T("testObj_newtest1"));
+      RegisterGlobal(v,t2,&NewTestObj::newtest,_T("testObj_newtest2")); // Register newtest() again with different name and object pointer.
+      SquirrelObject tr = SquirrelVM::GetRootTable(); // Can be any object supporting closures (functions).
+      Register(v,tr.GetObjectHandle(),t3,&NewTestObj::newtestR1,_T("testObj_newtestR1")); // Return value version.
+
+      // === END Global Function binding tests ===
+
+      // === BEGIN Class Instance tests ===
+
+#if 0
+      SQClassDef<NewTestObj> sqClass(_T("NewTestObj"));
+      sqClass.func(&NewTestObj::newtestR1,_T("newtestR1"));
+      sqClass.var(&NewTestObj::val,_T("val"));
+      sqClass.var(&NewTestObj::s1,_T("s1"));
+      sqClass.var(&NewTestObj::s2,_T("s2"));
+      sqClass.var(&NewTestObj::c1,_T("c1"),VAR_ACCESS_READ_ONLY);
+      sqClass.var(&NewTestObj::c2,_T("c2"),VAR_ACCESS_READ_ONLY);
+      sqClass.funcVarArgs(&NewTestObj::multiArgs,_T("multiArgs"));
+#else
+      SQClassDef<NewTestObj>(_T("NewTestObj")).
+        func(&NewTestObj::newtestR1,_T("newtestR1")).
+        var(&NewTestObj::val,_T("val")).
+        var(&NewTestObj::s1,_T("s1")).
+        var(&NewTestObj::s2,_T("s2")).
+        var(&NewTestObj::c1,_T("c1"),VAR_ACCESS_READ_ONLY).
+        var(&NewTestObj::c2,_T("c2"),VAR_ACCESS_READ_ONLY).
+        funcVarArgs(&NewTestObj::multiArgs,_T("multiArgs"));
+#endif
+
+      SQClassDef<CustomTestObj> customClass(_T("CustomTestObj"));
+      customClass.staticFuncVarArgs(&CustomTestObj::construct,_T("constructor"),_T("snb"));            // string, number, bool (all types must match).
+      customClass.funcVarArgs(&CustomTestObj::varArgTypes,_T("varArgTypes"),_T("s|ns|ns|ns|n"));       // string or number + string or number.
+      customClass.funcVarArgs(&CustomTestObj::varArgTypesAndCount,_T("varArgTypesAndCount"),_T("*"));  // "*"): no type or count checking.
+      customClass.funcVarArgs(&CustomTestObj::noArgsVariableReturn,_T("noArgsVariableReturn"));        // No type string means no arguments allowed.
+      customClass.func(&CustomTestObj::variableArgsFixedReturnType,_T("variableArgsFixedReturnType")); // Variables args, fixed return type.
+      customClass.func(&CustomTestObj::manyArgs,_T("manyArgs"));                                       // Many args, type checked.
+      customClass.func(&CustomTestObj::manyArgsR1,_T("manyArgsR1"));                                   // Many args, type checked, one return value.
+
+// Old macro-based method. Must use SQ_DECLARE_CLASS() macro above.
+#if 0
+      SquirrelObject newClass = SQ_REGISTER_CLASS(NewTestObj);
+      SQ_REGISTER_INSTANCE(newClass,NewTestObj,newtestR1);
+// Currently, can use either automatic variable handling OR manual handling (but not both at once).
+#if 1
+      SQ_REGISTER_INSTANCE_VARIABLE(newClass,NewTestObj,val); // _set/_get will be defined to use automatic methods for val.
+#else
+      SQ_REGISTER_INSTANCE_VARARGS(newClass,NewTestObj,_set); // _set is now defined and won't be overridden.
+      SQ_REGISTER_INSTANCE_VARARGS(newClass,NewTestObj,_get);
+      SQ_REGISTER_INSTANCE_VARIABLE(newClass,NewTestObj,val); // Access will be through _set/_get member functions above, not automatic methods.
+#endif
+
+#if 1
+      // With an HSQUIRRELVM argument, can handle variable args, and when registered this way can return multiple values.
+      SQ_REGISTER_INSTANCE_VARARGS(newClass,NewTestObj,multiArgs);
+#else
+      // With an HSQUIRRELVM argument, can handle variable args, but can only return one value (defined by the function definition).
+      SQ_REGISTER_INSTANCE(newClass,NewTestObj,multiArgs); 
+#endif
+#endif
+
+#if 1
+      SquirrelObject testReg0 = SquirrelVM::CompileBuffer(_T(" co <- CustomTestObj(\"hello\",123,true); co.varArgTypes(\"str\",123,123,\"str\"); co.varArgTypes(123,\"str\",\"str\",123); "));
+      SquirrelVM::RunScript(testReg0);
+
+      SquirrelObject testReg0a = SquirrelVM::CompileBuffer(_T(" print(co.varArgTypesAndCount(1,true)); print(co.varArgTypesAndCount(2,false,3.)); print(\"\\n\"); "));
+      SquirrelVM::RunScript(testReg0a);
+
+      SquirrelObject testReg0b = SquirrelVM::CompileBuffer(_T(" print(co.noArgsVariableReturn()); print(co.noArgsVariableReturn()); print(co.noArgsVariableReturn()); print(\"\\n\"); "));
+      SquirrelVM::RunScript(testReg0b);
+
+      SquirrelObject testReg0c = SquirrelVM::CompileBuffer(_T(" print(co.variableArgsFixedReturnType(1)); print(co.variableArgsFixedReturnType(1,2)); print(co.variableArgsFixedReturnType(1,2,3)); print(\"\\n\"); "));
+      SquirrelVM::RunScript(testReg0c);
+
+      SquirrelObject testReg0d = SquirrelVM::CompileBuffer(_T(" co.manyArgs(111,222.2,true,\"Hello\"); print(co.manyArgsR1(333,444.3,false,\"World\")); print(\"\\n\"); "));
+      SquirrelVM::RunScript(testReg0d);
+#endif
+
+// Inheriting from an existing base class in this way is not currently supported.
+// Requires either a Squirrel language/behavior change, or extra code at the interface
+// layer to allocate memory and call constructor of parent class (and perhaps
+// handle constructor args) store pointer in UserData, and handle proper variable access
+// (get correct class/struct pointer) and member function calls (store class
+// type/id in function up-var and search/hash for actual 'this' pointer for function call).
+#if 0
+      SQClassDef<Base>(_T("Base")).
+        var(&Base::nameBase,_T("nameBase")).
+        func(&Base::funcBase,_T("funcBase"));
+
+      SQClassDef<Derived>("Derived",_T("Base")).
+        var(&Derived::nameDerived,_T("nameDerived")).
+        func(&Derived::funcDerived,_T("funcDerived"));
+
+//      SquirrelObject testBaseDerived = SquirrelVM::CompileBuffer(_T(" local base = Base(); print(base.nameBase); local derived = Derived(); print(\"NameBase: \"+derived.nameBase+\" NameDerived: \"+derived.nameDerived); derived.funcBase(); "));
+      SquirrelObject testBaseDerived = SquirrelVM::CompileBuffer(_T(" local derived = Derived(); print(\"NameBase: \"+derived.nameBase+\" NameDerived: \"+derived.nameDerived); derived.funcBase(); "));
+      SquirrelVM::RunScript(testBaseDerived);
+#endif
+
+#if 1
+      SquirrelObject testReg1a = SquirrelVM::CompileBuffer(_T(" co <- CustomTestObj(\"hello\",123,true); co.noArgsVariableReturn(); local t = NewTestObj(); print(\"C1: \"+t.c1); print(\"C2: \"+t.c2); // t.c1 = 123; "));
+      SquirrelVM::RunScript(testReg1a);
+
+      // Constant test (read only var). Var can change on C++ side, but not on script side.
+      try {
+        SquirrelObject testRegConstant = SquirrelVM::CompileBuffer(_T(" local t = NewTestObj(); t.c1 = 123; "));
+        SquirrelVM::RunScript(testRegConstant);
+      } // try
+      catch (SquirrelError & e) {
+        SQChar buff[256];
+        scsprintf(buff,_T("Error: %s, %s\n"),e.desc,_T("Squirrel::TestConstant"));
+        //      OutputDebugString(buff);
+        SCPUTS(buff);
+      } // catch
+
+      SquirrelObject testReg1 = SquirrelVM::CompileBuffer(_T(" local t = NewTestObj(); t.newtestR1(\"Hello\"); t.val = 789; print(t.val); print(t.s1); print(t.s2); t.s1 = \"New S1\"; print(t.s1); "));
+      SquirrelVM::RunScript(testReg1);
+
+      SquirrelObject testReg2 = SquirrelVM::CompileBuffer(_T(" local t = NewTestObj(); t.val = 789; print(t.val); t.val = 876; print(t.val); t.multiArgs(1,2,3); t.multiArgs(1,2,3,4); "));
+      SquirrelVM::RunScript(testReg2);
+      SquirrelObject testReg3 = SquirrelVM::CompileBuffer(_T(" test(); local rv = testR1(\"Hello\"); print(rv); "));
+      SquirrelVM::RunScript(testReg3);     
+      SquirrelObject testReg4 = SquirrelVM::CompileBuffer(_T(" print(\"\\nMembers:\"); testObj_newtest1(); testObj_newtest2(); print(testObj_newtestR1(\"Hello Again\")); "));
+      SquirrelVM::RunScript(testReg4);
+
+      SquirrelObject defCallFunc = SquirrelVM::CompileBuffer(_T(" function callMe(var) { print(\"I was called by: \"+var); return 123; }"));
+      SquirrelVM::RunScript(defCallFunc);
+
+      SquirrelObject root = SquirrelVM::GetRootTable();
+
+      // Get a function from the root table and call it.
+      SquirrelFunction<int> callFunc(_T("callMe"));
+      int ival = callFunc(_T("Squirrel"));
+      scprintf(_T("IVal: %d\n"),ival);
+      ival = 0;
+      // Get a function from any table.
+      SquirrelFunction<int> callFunc2(root.GetObjectHandle(),_T("callMe"));
+      ival = callFunc(456); // Argument count is checked; type is not.
+
+      // === END Class Instance tests ===
+
+      // === BEGIN macro-only class-registrated tests ===
+//      SquirrelVM::CreateFunctionGlobal(_T("getName",getVarName,"*")); // * = any type.
+//      SquirrelObject main = SquirrelVM::CompileBuffer(_T("local testObj = TestObj(); testObj.print(); testObj.update(\"ab\"); testObj.print()"));
+//      SquirrelObject main = SquirrelVM::CompileBuffer(_T("local LF = \"\\n\"; local testObj = TestObj(); testObj.print(); testObj.update(1.5); testObj.print(); testObj.y += 10.; testObj.z = -1.; print(testObj.y+LF); print(\"Array: \"+testObj[0]+LF); print(testObj); print(LF); "));
+//      SquirrelObject main = SquirrelVM::CompileBuffer(_T("local testObj = TestObj(); testObj.z = -1.; print(testObj); testFunc(); testFunc0(); testFuncN(1.); testFuncS(\"Hello\"); "));
+//      SquirrelObject main = SquirrelVM::CompileBuffer(_T("testFunc0(); testFuncN(1); testFuncN(1.23); testFuncS(\"Hello\");"));
+
+      SquirrelObject main = SquirrelVM::CompileBuffer(_T("table1 <- {key1=\"keyVal\",key2 = 123};\n if (\"key1\" in table1)\n print(\"Sq: Found it\");\n else\n print(\"Sq: Not found\");"));
+      SquirrelVM::RunScript(main);
+      SquirrelObject table1 = root.GetValue(_T("table1"));
+      if (table1.Exists(_T("key1"))) {
+        scprintf(_T("C++: Found it.\n"));
+      } else {
+        scprintf(_T("C++: Did not find it.\n"));
+      } // if
+
+      // === BEGIN Simple variable binding tests ===
+
+      int iVar = 777;
+      float fVar = 88.99f;
+      bool bVar = true;
+      BindVariable(root,&iVar,_T("iVar"));
+      BindVariable(root,&fVar,_T("fVar"));
+      BindVariable(root,&bVar,_T("bVar"));
+
+      static ScriptStringVar128 testString;
+      scsprintf(testString,_T("This is a test string"));
+      BindVariable(root,&testString,_T("testString"));
+
+      // === END Simple variable binding tests ===
+
+      // === BEGIN Array Tests ===
+
+      SquirrelObject array = SquirrelVM::CreateArray(10);
+      int i;
+      for (i = 0; i < 10; i++) array.SetValue(i,i);
+      array.ArrayAppend(123);          // int
+      array.ArrayAppend(true);         // bool (must use bool and not SQBool (SQBool is treated as INT by compiler).
+      array.ArrayAppend(false);        // bool (must use bool and not SQBool (SQBool is treated as INT by compiler).
+      array.ArrayAppend(123.456f);     // float
+      array.ArrayAppend(_T("string")); // string
+      array.ArrayAppend(456);          // Will be popped and thrown away (below).
+
+      // Pop 3 items from array:
+      array.ArrayPop(SQFalse);                 // Don't retrieve the popped value (int:123).
+      SquirrelObject so1 = array.ArrayPop();   // Retrieve the popped value.
+      const SQChar * val1 = so1.ToString();    // Get string.
+      float val2 = array.ArrayPop().ToFloat(); // Pop and get float.
+      scprintf(_T("[Popped values] Val1: %s, Val2: %f\n"),val1,val2);
+
+      int startIndex = array.Len();
+      array.ArrayExtend(10); // Implemented as: ArrayResize(Len()+amount).
+      for (i = startIndex; i < array.Len(); i++) array.SetValue(i,i*10);
+      root.SetValue(_T("array"),array);
+
+      SquirrelObject arrayr = array.Clone(); // Get a copy as opposed to another reference.
+      arrayr.ArrayReverse();
+      root.SetValue(_T("arrayr"),arrayr);
+
+      // === END Array Tests ===
+
+//      SquirrelObject test = SquirrelVM::CompileBuffer(_T(" print(iVar); print(fVar); print(bVar); iVar += 1; fVar += 100.; bVar = false; print(iVar); print(fVar); print(bVar); xVar = 1; ")); // Test for xVar error.
+//      SquirrelObject test = SquirrelVM::CompileBuffer(_T(" print(iVar); print(fVar); print(bVar); iVar += 1; fVar += 100.; bVar = false; print(iVar); print(fVar); print(bVar); print(testString); testString = \"New string value\"; print(testString);"));
+      SquirrelObject define_printArray = SquirrelVM::CompileBuffer(_T(" function printArray(name,array) { print(name+\".len() = \"+array.len()); foreach(i, v in array) if (v != null) { if (typeof v == \"bool\") v = v ? \"true\" : \"false\"; print(\"[\"+i+\"]: \"+v); } } "));
+      SquirrelVM::RunScript(define_printArray);
+      SquirrelObject test = SquirrelVM::CompileBuffer(_T(" printArray(\"array\",array); printArray(\"arrayr\",arrayr); "));
+
+//      SquirrelObject test = SquirrelVM::CompileBuffer(_T(" iVar = 1; print(iVar); "));
+//      SquirrelObject test = SquirrelVM::CompileBuffer(_T(" print(\"GB:\"+GB.TEST_CONST); GB.TEST_CONST += 1; GB.Update(); print(\"GB2:\"+GB.TEST_CONST); \n"));
+
+      SquirrelVM::RunScript(test);
+#endif
+
+    } // try
+    catch (SquirrelError & e) {
+//      SquirrelVM::DumpStack();
+      SQChar buff[256];
+      scsprintf(buff,_T("Error: %s, %s\n"),e.desc,_T("Squirrel::TestObj"));
+//      OutputDebugString(buff);
+      SCPUTS(buff);
+    } // catch
+
+  }
+
+  ~TestSqPlus() {
+    SquirrelVM::Shutdown();
+  }
+
+};
+
+void doTest(void) {
+  TestSqPlus testSqPlus;
+} // doTest
+
+int main(int argc,char * argv[]) {
+
+  // Run twice to make sure cleanup/shutdown works OK.
+  SCPUTS(_T("Start Pass 1\n"));
+  doTest();
+#if 0
+  SCPUTS(_T("Start Pass 2\n"));
+  doTest();
+#endif
+  SCPUTS(_T("Done.\n"));
+
+  scprintf(_T("Press RETURN to exit."));
+  getchar();
+
+	return 0;
+}
+

vscript/languages/squirrel/testSqPlus/testSqPlus.vcproj

@@ -0,0 +1,352 @@
+<?xml version="1.0" encoding="Windows-1252"?>
+<VisualStudioProject
+	ProjectType="Visual C++"
+	Version="8.00"
+	Name="testSqPlus"
+	ProjectGUID="{11D3B7F7-3870-426F-8EC2-19E16D4F0DCC}"
+	Keyword="Win32Proj"
+	>
+	<Platforms>
+		<Platform
+			Name="Win32"
+		/>
+	</Platforms>
+	<ToolFiles>
+	</ToolFiles>
+	<Configurations>
+		<Configuration
+			Name="Debug|Win32"
+			OutputDirectory="$(ConfigurationName)"
+			IntermediateDirectory="$(ConfigurationName)"
+			ConfigurationType="1"
+			InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
+			CharacterSet="2"
+			>
+			<Tool
+				Name="VCPreBuildEventTool"
+			/>
+			<Tool
+				Name="VCCustomBuildTool"
+			/>
+			<Tool
+				Name="VCXMLDataGeneratorTool"
+			/>
+			<Tool
+				Name="VCWebServiceProxyGeneratorTool"
+			/>
+			<Tool
+				Name="VCMIDLTool"
+			/>
+			<Tool
+				Name="VCCLCompilerTool"
+				Optimization="0"
+				AdditionalIncludeDirectories="../include;../sqplus"
+				PreprocessorDefinitions="WIN32;_DEBUG;_CONSOLE;_CRT_SECURE_NO_DEPRECATE"
+				MinimalRebuild="true"
+				BasicRuntimeChecks="3"
+				RuntimeLibrary="1"
+				UsePrecompiledHeader="0"
+				WarningLevel="3"
+				Detect64BitPortabilityProblems="true"
+				DebugInformationFormat="4"
+			/>
+			<Tool
+				Name="VCManagedResourceCompilerTool"
+			/>
+			<Tool
+				Name="VCResourceCompilerTool"
+			/>
+			<Tool
+				Name="VCPreLinkEventTool"
+			/>
+			<Tool
+				Name="VCLinkerTool"
+				OutputFile="$(OutDir)/testSqPlus.exe"
+				LinkIncremental="2"
+				GenerateDebugInformation="true"
+				ProgramDatabaseFile="$(OutDir)/testSqPlus.pdb"
+				SubSystem="1"
+				TargetMachine="1"
+			/>
+			<Tool
+				Name="VCALinkTool"
+			/>
+			<Tool
+				Name="VCManifestTool"
+			/>
+			<Tool
+				Name="VCXDCMakeTool"
+			/>
+			<Tool
+				Name="VCBscMakeTool"
+			/>
+			<Tool
+				Name="VCFxCopTool"
+			/>
+			<Tool
+				Name="VCAppVerifierTool"
+			/>
+			<Tool
+				Name="VCWebDeploymentTool"
+			/>
+			<Tool
+				Name="VCPostBuildEventTool"
+			/>
+		</Configuration>
+		<Configuration
+			Name="Release|Win32"
+			OutputDirectory="$(ConfigurationName)"
+			IntermediateDirectory="$(ConfigurationName)"
+			ConfigurationType="1"
+			InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
+			CharacterSet="2"
+			>
+			<Tool
+				Name="VCPreBuildEventTool"
+			/>
+			<Tool
+				Name="VCCustomBuildTool"
+			/>
+			<Tool
+				Name="VCXMLDataGeneratorTool"
+			/>
+			<Tool
+				Name="VCWebServiceProxyGeneratorTool"
+			/>
+			<Tool
+				Name="VCMIDLTool"
+			/>
+			<Tool
+				Name="VCCLCompilerTool"
+				AdditionalIncludeDirectories="../include;../sqplus"
+				PreprocessorDefinitions="WIN32;NDEBUG;_CONSOLE;_CRT_SECURE_NO_DEPRECATE"
+				RuntimeLibrary="0"
+				UsePrecompiledHeader="0"
+				WarningLevel="3"
+				Detect64BitPortabilityProblems="true"
+				DebugInformationFormat="3"
+			/>
+			<Tool
+				Name="VCManagedResourceCompilerTool"
+			/>
+			<Tool
+				Name="VCResourceCompilerTool"
+			/>
+			<Tool
+				Name="VCPreLinkEventTool"
+			/>
+			<Tool
+				Name="VCLinkerTool"
+				OutputFile="$(OutDir)/testSqPlus.exe"
+				LinkIncremental="1"
+				GenerateDebugInformation="true"
+				SubSystem="1"
+				OptimizeReferences="2"
+				EnableCOMDATFolding="2"
+				TargetMachine="1"
+			/>
+			<Tool
+				Name="VCALinkTool"
+			/>
+			<Tool
+				Name="VCManifestTool"
+			/>
+			<Tool
+				Name="VCXDCMakeTool"
+			/>
+			<Tool
+				Name="VCBscMakeTool"
+			/>
+			<Tool
+				Name="VCFxCopTool"
+			/>
+			<Tool
+				Name="VCAppVerifierTool"
+			/>
+			<Tool
+				Name="VCWebDeploymentTool"
+			/>
+			<Tool
+				Name="VCPostBuildEventTool"
+			/>
+		</Configuration>
+		<Configuration
+			Name="Debug - Unicode|Win32"
+			OutputDirectory="$(ConfigurationName)"
+			IntermediateDirectory="$(ConfigurationName)"
+			ConfigurationType="1"
+			InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
+			CharacterSet="1"
+			>
+			<Tool
+				Name="VCPreBuildEventTool"
+			/>
+			<Tool
+				Name="VCCustomBuildTool"
+			/>
+			<Tool
+				Name="VCXMLDataGeneratorTool"
+			/>
+			<Tool
+				Name="VCWebServiceProxyGeneratorTool"
+			/>
+			<Tool
+				Name="VCMIDLTool"
+			/>
+			<Tool
+				Name="VCCLCompilerTool"
+				Optimization="0"
+				AdditionalIncludeDirectories="../include;../sqplus"
+				PreprocessorDefinitions="WIN32;_DEBUG;_CONSOLE;_CRT_SECURE_NO_DEPRECATE;_CRT_NON_CONFORMING_SWPRINTFS"
+				MinimalRebuild="true"
+				BasicRuntimeChecks="3"
+				RuntimeLibrary="1"
+				UsePrecompiledHeader="0"
+				WarningLevel="3"
+				Detect64BitPortabilityProblems="true"
+				DebugInformationFormat="4"
+			/>
+			<Tool
+				Name="VCManagedResourceCompilerTool"
+			/>
+			<Tool
+				Name="VCResourceCompilerTool"
+			/>
+			<Tool
+				Name="VCPreLinkEventTool"
+			/>
+			<Tool
+				Name="VCLinkerTool"
+				OutputFile="$(OutDir)/testSqPlus.exe"
+				LinkIncremental="2"
+				GenerateDebugInformation="true"
+				ProgramDatabaseFile="$(OutDir)/testSqPlus.pdb"
+				SubSystem="1"
+				TargetMachine="1"
+			/>
+			<Tool
+				Name="VCALinkTool"
+			/>
+			<Tool
+				Name="VCManifestTool"
+			/>
+			<Tool
+				Name="VCXDCMakeTool"
+			/>
+			<Tool
+				Name="VCBscMakeTool"
+			/>
+			<Tool
+				Name="VCFxCopTool"
+			/>
+			<Tool
+				Name="VCAppVerifierTool"
+			/>
+			<Tool
+				Name="VCWebDeploymentTool"
+			/>
+			<Tool
+				Name="VCPostBuildEventTool"
+			/>
+		</Configuration>
+		<Configuration
+			Name="Release - Unicode|Win32"
+			OutputDirectory="$(ConfigurationName)"
+			IntermediateDirectory="$(ConfigurationName)"
+			ConfigurationType="1"
+			InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
+			CharacterSet="1"
+			>
+			<Tool
+				Name="VCPreBuildEventTool"
+			/>
+			<Tool
+				Name="VCCustomBuildTool"
+			/>
+			<Tool
+				Name="VCXMLDataGeneratorTool"
+			/>
+			<Tool
+				Name="VCWebServiceProxyGeneratorTool"
+			/>
+			<Tool
+				Name="VCMIDLTool"
+			/>
+			<Tool
+				Name="VCCLCompilerTool"
+				AdditionalIncludeDirectories="../include;../sqplus"
+				PreprocessorDefinitions="WIN32;NDEBUG;_CONSOLE;_CRT_SECURE_NO_DEPRECATE;_CRT_NON_CONFORMING_SWPRINTFS"
+				RuntimeLibrary="0"
+				UsePrecompiledHeader="0"
+				WarningLevel="3"
+				Detect64BitPortabilityProblems="true"
+				DebugInformationFormat="3"
+			/>
+			<Tool
+				Name="VCManagedResourceCompilerTool"
+			/>
+			<Tool
+				Name="VCResourceCompilerTool"
+			/>
+			<Tool
+				Name="VCPreLinkEventTool"
+			/>
+			<Tool
+				Name="VCLinkerTool"
+				OutputFile="$(OutDir)/testSqPlus.exe"
+				LinkIncremental="1"
+				GenerateDebugInformation="true"
+				SubSystem="1"
+				OptimizeReferences="2"
+				EnableCOMDATFolding="2"
+				TargetMachine="1"
+			/>
+			<Tool
+				Name="VCALinkTool"
+			/>
+			<Tool
+				Name="VCManifestTool"
+			/>
+			<Tool
+				Name="VCXDCMakeTool"
+			/>
+			<Tool
+				Name="VCBscMakeTool"
+			/>
+			<Tool
+				Name="VCFxCopTool"
+			/>
+			<Tool
+				Name="VCAppVerifierTool"
+			/>
+			<Tool
+				Name="VCWebDeploymentTool"
+			/>
+			<Tool
+				Name="VCPostBuildEventTool"
+			/>
+		</Configuration>
+	</Configurations>
+	<References>
+	</References>
+	<Files>
+		<Filter
+			Name="Source Files"
+			Filter="cpp;c;cxx;def;odl;idl;hpj;bat;asm;asmx"
+			UniqueIdentifier="{4FC737F1-C7A5-4376-A066-2A32D752A2FF}"
+			>
+			<File
+				RelativePath=".\testSqPlus.cpp"
+				>
+			</File>
+		</Filter>
+		<Filter
+			Name="Header Files"
+			Filter="h;hpp;hxx;hm;inl;inc;xsd"
+			UniqueIdentifier="{93995380-89BD-4b04-88EB-625FBE52EBFB}"
+			>
+		</Filter>
+	</Files>
+	<Globals>
+	</Globals>
+</VisualStudioProject>

vscript/languages/squirrel/testSqPlus/testSqPlus71.vcproj

@@ -0,0 +1,225 @@
+<?xml version="1.0" encoding="Windows-1252"?>
+<VisualStudioProject
+	ProjectType="Visual C++"
+	Version="7.10"
+	Name="testSqPlus"
+	ProjectGUID="{11D3B7F7-3870-426F-8EC2-19E16D4F0DCC}"
+	Keyword="Win32Proj">
+	<Platforms>
+		<Platform
+			Name="Win32"/>
+	</Platforms>
+	<Configurations>
+		<Configuration
+			Name="Debug|Win32"
+			OutputDirectory="$(ConfigurationName)"
+			IntermediateDirectory="$(ConfigurationName)"
+			ConfigurationType="1"
+			CharacterSet="2">
+			<Tool
+				Name="VCCLCompilerTool"
+				Optimization="0"
+				AdditionalIncludeDirectories="../include;../sqplus"
+				PreprocessorDefinitions="WIN32;_DEBUG;_CONSOLE"
+				MinimalRebuild="TRUE"
+				BasicRuntimeChecks="3"
+				RuntimeLibrary="1"
+				UsePrecompiledHeader="0"
+				WarningLevel="3"
+				Detect64BitPortabilityProblems="TRUE"
+				DebugInformationFormat="4"/>
+			<Tool
+				Name="VCCustomBuildTool"/>
+			<Tool
+				Name="VCLinkerTool"
+				OutputFile="$(OutDir)/testSqPlus.exe"
+				LinkIncremental="2"
+				GenerateDebugInformation="TRUE"
+				ProgramDatabaseFile="$(OutDir)/testSqPlus.pdb"
+				SubSystem="1"
+				TargetMachine="1"/>
+			<Tool
+				Name="VCMIDLTool"/>
+			<Tool
+				Name="VCPostBuildEventTool"/>
+			<Tool
+				Name="VCPreBuildEventTool"/>
+			<Tool
+				Name="VCPreLinkEventTool"/>
+			<Tool
+				Name="VCResourceCompilerTool"/>
+			<Tool
+				Name="VCWebServiceProxyGeneratorTool"/>
+			<Tool
+				Name="VCXMLDataGeneratorTool"/>
+			<Tool
+				Name="VCWebDeploymentTool"/>
+			<Tool
+				Name="VCManagedWrapperGeneratorTool"/>
+			<Tool
+				Name="VCAuxiliaryManagedWrapperGeneratorTool"/>
+		</Configuration>
+		<Configuration
+			Name="Release|Win32"
+			OutputDirectory="$(ConfigurationName)"
+			IntermediateDirectory="$(ConfigurationName)"
+			ConfigurationType="1"
+			CharacterSet="2">
+			<Tool
+				Name="VCCLCompilerTool"
+				AdditionalIncludeDirectories="../include;../sqplus"
+				PreprocessorDefinitions="WIN32;NDEBUG;_CONSOLE"
+				RuntimeLibrary="0"
+				UsePrecompiledHeader="0"
+				WarningLevel="3"
+				Detect64BitPortabilityProblems="TRUE"
+				DebugInformationFormat="3"/>
+			<Tool
+				Name="VCCustomBuildTool"/>
+			<Tool
+				Name="VCLinkerTool"
+				OutputFile="$(OutDir)/testSqPlus.exe"
+				LinkIncremental="1"
+				GenerateDebugInformation="TRUE"
+				SubSystem="1"
+				OptimizeReferences="2"
+				EnableCOMDATFolding="2"
+				TargetMachine="1"/>
+			<Tool
+				Name="VCMIDLTool"/>
+			<Tool
+				Name="VCPostBuildEventTool"/>
+			<Tool
+				Name="VCPreBuildEventTool"/>
+			<Tool
+				Name="VCPreLinkEventTool"/>
+			<Tool
+				Name="VCResourceCompilerTool"/>
+			<Tool
+				Name="VCWebServiceProxyGeneratorTool"/>
+			<Tool
+				Name="VCXMLDataGeneratorTool"/>
+			<Tool
+				Name="VCWebDeploymentTool"/>
+			<Tool
+				Name="VCManagedWrapperGeneratorTool"/>
+			<Tool
+				Name="VCAuxiliaryManagedWrapperGeneratorTool"/>
+		</Configuration>
+		<Configuration
+			Name="Debug - Unicode|Win32"
+			OutputDirectory="$(ConfigurationName)"
+			IntermediateDirectory="$(ConfigurationName)"
+			ConfigurationType="1"
+			CharacterSet="1">
+			<Tool
+				Name="VCCLCompilerTool"
+				Optimization="0"
+				AdditionalIncludeDirectories="../include;../sqplus"
+				PreprocessorDefinitions="WIN32;_DEBUG;_CONSOLE"
+				MinimalRebuild="TRUE"
+				BasicRuntimeChecks="3"
+				RuntimeLibrary="1"
+				UsePrecompiledHeader="0"
+				WarningLevel="3"
+				Detect64BitPortabilityProblems="TRUE"
+				DebugInformationFormat="4"/>
+			<Tool
+				Name="VCCustomBuildTool"/>
+			<Tool
+				Name="VCLinkerTool"
+				OutputFile="$(OutDir)/testSqPlus.exe"
+				LinkIncremental="2"
+				GenerateDebugInformation="TRUE"
+				ProgramDatabaseFile="$(OutDir)/testSqPlus.pdb"
+				SubSystem="1"
+				TargetMachine="1"/>
+			<Tool
+				Name="VCMIDLTool"/>
+			<Tool
+				Name="VCPostBuildEventTool"/>
+			<Tool
+				Name="VCPreBuildEventTool"/>
+			<Tool
+				Name="VCPreLinkEventTool"/>
+			<Tool
+				Name="VCResourceCompilerTool"/>
+			<Tool
+				Name="VCWebServiceProxyGeneratorTool"/>
+			<Tool
+				Name="VCXMLDataGeneratorTool"/>
+			<Tool
+				Name="VCWebDeploymentTool"/>
+			<Tool
+				Name="VCManagedWrapperGeneratorTool"/>
+			<Tool
+				Name="VCAuxiliaryManagedWrapperGeneratorTool"/>
+		</Configuration>
+		<Configuration
+			Name="Release - Unicode|Win32"
+			OutputDirectory="$(ConfigurationName)"
+			IntermediateDirectory="$(ConfigurationName)"
+			ConfigurationType="1"
+			CharacterSet="1">
+			<Tool
+				Name="VCCLCompilerTool"
+				AdditionalIncludeDirectories="../include;../sqplus"
+				PreprocessorDefinitions="WIN32;NDEBUG;_CONSOLE"
+				RuntimeLibrary="0"
+				UsePrecompiledHeader="0"
+				WarningLevel="3"
+				Detect64BitPortabilityProblems="TRUE"
+				DebugInformationFormat="3"/>
+			<Tool
+				Name="VCCustomBuildTool"/>
+			<Tool
+				Name="VCLinkerTool"
+				OutputFile="$(OutDir)/testSqPlus.exe"
+				LinkIncremental="1"
+				GenerateDebugInformation="TRUE"
+				SubSystem="1"
+				OptimizeReferences="2"
+				EnableCOMDATFolding="2"
+				TargetMachine="1"/>
+			<Tool
+				Name="VCMIDLTool"/>
+			<Tool
+				Name="VCPostBuildEventTool"/>
+			<Tool
+				Name="VCPreBuildEventTool"/>
+			<Tool
+				Name="VCPreLinkEventTool"/>
+			<Tool
+				Name="VCResourceCompilerTool"/>
+			<Tool
+				Name="VCWebServiceProxyGeneratorTool"/>
+			<Tool
+				Name="VCXMLDataGeneratorTool"/>
+			<Tool
+				Name="VCWebDeploymentTool"/>
+			<Tool
+				Name="VCManagedWrapperGeneratorTool"/>
+			<Tool
+				Name="VCAuxiliaryManagedWrapperGeneratorTool"/>
+		</Configuration>
+	</Configurations>
+	<References>
+	</References>
+	<Files>
+		<Filter
+			Name="Source Files"
+			Filter="cpp;c;cxx;def;odl;idl;hpj;bat;asm;asmx"
+			UniqueIdentifier="{4FC737F1-C7A5-4376-A066-2A32D752A2FF}">
+			<File
+				RelativePath=".\testSqPlus.cpp">
+			</File>
+		</Filter>
+		<Filter
+			Name="Header Files"
+			Filter="h;hpp;hxx;hm;inl;inc;xsd"
+			UniqueIdentifier="{93995380-89BD-4b04-88EB-625FBE52EBFB}">
+		</Filter>
+	</Files>
+	<Globals>
+	</Globals>
+</VisualStudioProject>