add Slua.Class for support inherit class

Assets/Slua/Resources/main.txt

@@ -2,6 +2,20 @@ local somemodule = require 'module.some'
 
 import "UnityEngine"
 
+MyVector3=Slua.Class(Vector3,
+	nil, --static function
+	{ --instance member function
+		Normalize=function(self)
+			print "overloaded Normalize"
+			local l=math.sqrt(self.x*self.x+self.y*self.y,self.z*self.z)
+			self.x=self.x/l
+			self.y=self.y/l
+			self.z=self.z/l
+		end,
+	}
+)
+
+
 function main()
 
 	if jit then
@@ -10,6 +24,11 @@ function main()
 		print("using lua")
 	end
 
+	-- test inherite class
+	local mv = MyVector3(1,2,3)
+	mv:Normalize()
+	print(mv.x,mv.y,mv.z)
+
 	-- test value type
 	local x=Vector3(3,3,3)
 	x:Normalize()
@@ -99,6 +118,8 @@ function main()
 		local y = y:y()
 		Yield(y)
 		print("Yield ok")
+
+		HelloWorld.setv({name="yes",value=12})
 	end)
 	coroutine.resume(c)
 

Assets/Slua/Script/Helper.cs

@@ -33,6 +33,39 @@ namespace SLua
 	class Helper : LuaObject
 	{
 
+		static string classfunc = @"
+local getmetatable=getmetatable
+local function Class(base,static,instance)
+
+	local mt = getmetatable(base)
+
+	local class=static or {}
+	setmetatable(class, 
+		{
+			__call=function(...)
+				local r = mt.__call(...)
+				local ret = instance or {}
+				ret.__base=r
+
+				local ret = setmetatable(ret,{
+					__index=function(t,k)
+						return r[k]
+					end,
+
+					__newindex=function(t,k,v)
+						r[k]=v
+					end,
+				})
+
+				return ret
+			end,
+		}
+	)
+	return class
+end
+return Class
+";
+
 		[MonoPInvokeCallbackAttribute(typeof(LuaCSFunction))]
 		static public int _iter(IntPtr l)
 		{
@@ -142,6 +175,16 @@ static public void reg(IntPtr l)
 			reg(l, CreateClass, "Slua");
 			reg(l, iter, "Slua");
 			reg(l, ToString, "Slua");
+
+
+			newTypeTable(l, "Slua");
+			if (LuaDLL.luaL_dostring(l, classfunc) != 0)
+			{
+				throwLuaError(l);
+				return;
+			}
+			LuaDLL.lua_setfield(l, -2, "Class");
+			LuaDLL.lua_pop(l, 1);
 		}
 	}
 }

Assets/Slua/Script/LuaObject.cs

@@ -508,7 +508,7 @@ protected static void addMember(IntPtr l, int v, string name)
 			LuaDLL.lua_setfield(l, -2, name);
 		}
 
-		static void throwLuaError(IntPtr l)
+		internal static void throwLuaError(IntPtr l)
 		{
 			string err = LuaDLL.lua_tostring(l, -1);
 			LuaDLL.lua_pop(l, 1);

Assets/Slua/slua_src/slua.c

@@ -372,7 +372,7 @@ static void setelement(lua_State* L, int p, float v, const char* key) {
 	if (!isnan(v)) {
 		lua_pushstring(L, key);
 		lua_pushnumber(L, v);
-		lua_rawset(L, p);
+		lua_settable(L, p);
 	}
 }