xLua为C#环境添加了Lua脚本编程功能Tag-v2.1.16-ndkr21b-with-win完整项目源代码

#if USE_UNI_LUA using LuaAPI = UniLua.Lua; using RealStatePtr = UniLua.ILuaState; using LuaCSFunction = UniLua.CSharpFunctionDelegate; #else using LuaAPI = XLua.LuaDLL.Lua; using RealStatePtr = System.IntPtr; using LuaCSFunction = XLua.LuaDLL.lua_CSFunction; #endif using XLua; using System.Collections.Generic; <%ForEachCsList(namespaces, function(namespace)%>using <%=namespace%>;<%end)%> <% require "TemplateCommon" local OpNameMap = { op_Addition = "__AddMeta", op_Subtraction = "__SubMeta", op_Multiply = "__MulMeta", op_Division = "__DivMeta", op_Equality = "__EqMeta", op_UnaryNegation = "__UnmMeta", op_LessThan = "__LTMeta", op_LessThanOrEqual = "__LEMeta", op_Modulus = "__ModMeta", op_BitwiseAnd = "__BandMeta", op_BitwiseOr = "__BorMeta", op_ExclusiveOr = "__BxorMeta", op_OnesComplement = "__BnotMeta", op_LeftShift = "__ShlMeta", op_RightShift = "__ShrMeta", } local OpCallNameMap = { op_Addition = "+", op_Subtraction = "-", op_Multiply = "*", op_Division = "/", op_Equality = "==", op_UnaryNegation = "-", op_LessThan = "<", op_LessThanOrEqual = "<=", op_Modulus = "%", op_BitwiseAnd = "&", op_BitwiseOr = "|", op_ExclusiveOr = "^", op_OnesComplement = "~", op_LeftShift = "<<", op_RightShift = ">>", } local obj_method_count = 0 local obj_getter_count = 0 local obj_setter_count = 0 local meta_func_count = operators.Count local cls_field_count = 1 local cls_getter_count = 0 local cls_setter_count = 0 ForEachCsList(methods, function(method) if method.IsStatic then cls_field_count = cls_field_count + 1 else obj_method_count = obj_method_count + 1 end end) ForEachCsList(events, function(event) if event.IsStatic then cls_field_count = cls_field_count + 1 else obj_method_count = obj_method_count + 1 end end) ForEachCsList(getters, function(getter) if getter.IsStatic then if getter.ReadOnly then cls_field_count = cls_field_count + 1 else cls_getter_count = cls_getter_count + 1 end else obj_getter_count = obj_getter_count + 1 end end) ForEachCsList(setters, function(setter) if setter.IsStatic then cls_setter_count = cls_setter_count + 1 else obj_setter_count = obj_setter_count + 1 end end) ForEachCsList(lazymembers, function(lazymember) if lazymember.IsStatic == 'true' then if 'CLS_IDX' == lazymember.Index then cls_field_count = cls_field_count + 1 elseif 'CLS_GETTER_IDX' == lazymember.Index then cls_getter_count = cls_getter_count + 1 elseif 'CLS_SETTER_IDX' == lazymember.Index then cls_setter_count = cls_setter_count + 1 end else if 'METHOD_IDX' == lazymember.Index then obj_method_count = obj_method_count + 1 elseif 'GETTER_IDX' == lazymember.Index then obj_getter_count = obj_getter_count + 1 elseif 'SETTER_IDX' == lazymember.Index then obj_setter_count = obj_setter_count + 1 end end end) local generic_arg_list, type_constraints = GenericArgumentList(type) %> namespace XLua.CSObjectWrap { using Utils = XLua.Utils; public class <%=CSVariableName(type)%>Wrap<%=generic_arg_list%> <%=type_constraints%> { public static void __Register(RealStatePtr L) { ObjectTranslator translator = ObjectTranslatorPool.Instance.Find(L); System.Type type = typeof(<%=CsFullTypeName(type)%>); Utils.BeginObjectRegister(type, L, translator, <%=meta_func_count%>, <%=obj_method_count%>, <%=obj_getter_count%>, <%=obj_setter_count%>); <%ForEachCsList(operators, function(operator)%>Utils.RegisterFunc(L, Utils.OBJ_META_IDX, "<%=(OpNameMap[operator.Name]):gsub('Meta', ''):lower()%>", <%=OpNameMap[operator.Name]%>); <%end)%> <%ForEachCsList(methods, function(method) if not method.IsStatic then %>Utils.RegisterFunc(L, Utils.METHOD_IDX, "<%=method.Name%>", _m_<%=method.Name%>); <% end end)%> <%ForEachCsList(events, function(event) if not event.IsStatic then %>Utils.RegisterFunc(L, Utils.METHOD_IDX, "<%=event.Name%>", _e_<%=event.Name%>); <% end end)%> <%ForEachCsList(getters, function(getter) if not getter.IsStatic then %>Utils.RegisterFunc(L, Utils.GETTER_IDX, "<%=getter.Name%>", _g_get_<%=getter.Name%>); <%end end)%> <%ForEachCsList(setters, function(setter) if not setter.IsStatic then %>Utils.RegisterFunc(L, Utils.SETTER_IDX, "<%=setter.Name%>", _s_set_<%=setter.Name%>); <%end end)%> <%ForEachCsList(lazymembers, function(lazymember) if lazymember.IsStatic == 'false' then %>Utils.RegisterLazyFunc(L, Utils.<%=lazymember.Index%>, "<%=lazymember.Name%>", type, <%=lazymember.MemberType%>, <%=lazymember.IsStatic%>); <%end end)%> Utils.EndObjectRegister(type, L, translator, <% if type.IsArray or ((indexers.Count or 0) > 0) then %>__CSIndexer<%else%>null<%end%>, <%if type.IsArray or ((newindexers.Count or 0) > 0) then%>__NewIndexer<%else%>null<%end%>, null, null, null); Utils.BeginClassRegister(type, L, __CreateInstance, <%=cls_field_count%>, <%=cls_getter_count%>, <%=cls_setter_count%>); <%ForEachCsList(methods, function(method) if method.IsStatic then %>Utils.RegisterFunc(L, Utils.CLS_IDX, "<%=method.Overloads[0].Name%>", _m_<%=method.Name%>); <% end end)%> <%ForEachCsList(events, function(event) if event.IsStatic then %>Utils.RegisterFunc(L, Utils.CLS_IDX, "<%=event.Name%>", _e_<%=event.Name%>); <% end end)%> <%ForEachCsList(getters, function(getter) if getter.IsStatic and getter.ReadOnly then %>Utils.RegisterObject(L, translator, Utils.CLS_IDX, "<%=getter.Name%>", <%=CsFullTypeName(type).."."..getter.Name%>); <%end end)%> <%ForEachCsList(getters, function(getter) if getter.IsStatic and (not getter.ReadOnly) then %>Utils.RegisterFunc(L, Utils.CLS_GETTER_IDX, "<%=getter.Name%>", _g_get_<%=getter.Name%>); <%end end)%> <%ForEachCsList(setters, function(setter) if setter.IsStatic then %>Utils.RegisterFunc(L, Utils.CLS_SETTER_IDX, "<%=setter.Name%>", _s_set_<%=setter.Name%>); <%end end)%> <%ForEachCsList(lazymembers, function(lazymember) if lazymember.IsStatic == 'true' then %>Utils.RegisterLazyFunc(L, Utils.<%=lazymember.Index%>, "<%=lazymember.Name%>", type, <%=lazymember.MemberType%>, <%=lazymember.IsStatic%>); <%end end)%> Utils.EndClassRegister(type, L, translator); } [MonoPInvokeCallbackAttribute(typeof(LuaCSFunction))] static int __CreateInstance(RealStatePtr L) { <% if constructors.Count == 0 and (not type.IsValueType) then %>return LuaAPI.luaL_error(L, "<%=CsFullTypeName(type)%> does not have a constructor!");<% else %> try { ObjectTranslator translator = ObjectTranslatorPool.Instance.Find(L); <% local hasZeroParamsCtor = false ForEachCsList(constructors, function(constructor, ci) local parameters = constructor:GetParameters() if parameters.Length == 0 then hasZeroParamsCtor = true end local def_count = constructor_def_vals[ci] local param_count = parameters.Length local in_num = CalcCsList(parameters, function(p) return not (p.IsOut and p.ParameterType.IsByRef) end) local out_num = CalcCsList(parameters, function(p) return p.IsOut or p.ParameterType.IsByRef end) local real_param_count = param_count - def_count local has_v_params = param_count > 0 and IsParams(parameters[param_count - 1]) local in_pos = 0 %>if(LuaAPI.lua_gettop(L) <%=has_v_params and ">=" or "=="%> <%=in_num + 1 - def_count - (has_v_params and 1 or 0)%><%ForEachCsList(parameters, function(parameter, pi) if pi >= real_param_count then return end