public void ForEach <TKey, TValue>(Action <TKey, TValue> action) { #if THREAD_SAFE || HOTFIX_ENABLE lock (luaEnv.luaEnvLock) { #endif var L = luaEnv.L; var translator = luaEnv.translator; int oldTop = LuaAPI.lua_gettop(L); try { LuaAPI.lua_getref(L, luaReference); LuaAPI.lua_pushnil(L); while (LuaAPI.lua_next(L, -2) != 0) { if (translator.Assignable <TKey>(L, -2)) { TKey key; TValue val; translator.Get(L, -2, out key); translator.Get(L, -1, out val); action(key, val); } LuaAPI.lua_pop(L, 1); } } finally { LuaAPI.lua_settop(L, oldTop); } #if THREAD_SAFE || HOTFIX_ENABLE } #endif }
public void WriteCookieAll(string ext_path) { List <string> table_list = new List <string>(); LuaAPI.xlua_getglobal(m_lua_state, DefineConstantsCookieHandler.COOKIE_VAR); int nIndex = LuaAPI.lua_gettop(m_lua_state); LuaAPI.lua_pushnil(m_lua_state); // nil入栈作为初始key while (0 != LuaAPI.lua_next(m_lua_state, nIndex)) { LuaAPI.lua_pushvalue(m_lua_state, -2); if (LuaAPI.lua_isstring(m_lua_state, -1)) { table_list.Add(LuaAPI.lua_tostring(m_lua_state, -1)); } LuaAPI.lua_pop(m_lua_state, 2); } LuaAPI.lua_pop(m_lua_state, 1); List <string> .Enumerator itr = table_list.GetEnumerator(); while (itr.MoveNext()) { Debug.LogWarning("WriteCookieAll :" + itr.ToString()); WriteCookie(itr.ToString(), itr.ToString(), ext_path); } }
internal static bool CheckCircleAndSetMeta(IntPtr L, ref int cycle_time) { int now_top = LuaAPI.lua_gettop(L); // 堆栈操作保护 int nIndex = LuaAPI.lua_gettop(L); // 取table索引值 if (!LuaAPI.lua_istable(L, nIndex)) { LuaAPI.lua_settop(L, now_top); Debug.Log("CheckCircleAndSetMeta Need Table!"); return(false); } LuaAPI.lua_pushnil(L); // nil入栈作为初始key while (0 != LuaAPI.lua_next(L, nIndex)) { // 现在栈顶(-1)是value,-2位置是对应的key // 这里可以判断key是什么并且对value进行各种处理 // key值只能是数字或者字符串 if (LuaAPI.lua_isnumber(L, -2) && LuaAPI.lua_isstring(L, -2)) { LuaAPI.lua_settop(L, now_top); Debug.Log("Need Number or String Here!"); return(false); } if (LuaAPI.lua_isnumber(L, -1) && LuaAPI.lua_isstring(L, -1) && !LuaAPI.lua_istable(L, -1) && !LuaAPI.lua_isboolean(L, -1)) { LuaAPI.lua_settop(L, now_top); Debug.Log("Table Contains Unsupported Value! Expected [Number, String, Table]."); return(false); } if (LuaAPI.lua_istable(L, -1)) { cycle_time += 1; if (cycle_time > 50) { Debug.Log("Table Has Cycle!"); LuaAPI.lua_settop(L, now_top); return(false); } if (!CheckCircleAndSetMeta(L, ref cycle_time) || !SetMetaTable(L, nIndex)) { LuaAPI.lua_settop(L, now_top); return(false); } } LuaAPI.lua_pop(L, 1); } LuaAPI.lua_settop(L, now_top); return(true); }
public IEnumerable GetKeys() { var L = luaEnv.L; var translator = luaEnv.translator; int oldTop = LuaAPI.lua_gettop(L); LuaAPI.lua_getref(L, luaReference); LuaAPI.lua_pushnil(L); while (LuaAPI.lua_next(L, -2) != 0) { yield return(translator.GetObject(L, -2)); LuaAPI.lua_pop(L, 1); } LuaAPI.lua_settop(L, oldTop); }
public void TryForEach <TKey>(Type type_of_value, Action <TKey, object, bool> action) { #if THREAD_SAFE || HOTFIX_ENABLE lock (luaEnv.luaEnvLock) { #endif var L = luaEnv.L; var translator = luaEnv.translator; int oldTop = LuaAPI.lua_gettop(L); try { LuaAPI.lua_getref(L, luaReference); LuaAPI.lua_pushnil(L); while (LuaAPI.lua_next(L, -2) != 0) { if (translator.Assignable <TKey>(L, -2)) { bool isAssignable = translator.Assignable(L, -1, type_of_value); if (isAssignable) { TKey key; object val; translator.Get(L, -2, out key); translator.Get(L, -1, out val); action(key, val, isAssignable); } else { action(default(TKey), null, isAssignable); } } LuaAPI.lua_pop(L, 1); } } finally { LuaAPI.lua_settop(L, oldTop); } #if THREAD_SAFE || HOTFIX_ENABLE } #endif }
public IEnumerable <T> GetKeys <T>() { var L = luaEnv.L; var translator = luaEnv.translator; int oldTop = LuaAPI.lua_gettop(L); LuaAPI.lua_getref(L, luaReference); LuaAPI.lua_pushnil(L); while (LuaAPI.lua_next(L, -2) != 0) { if (translator.Assignable <T>(L, -2)) { T v; translator.Get(L, -2, out v); yield return(v); } LuaAPI.lua_pop(L, 1); } LuaAPI.lua_settop(L, oldTop); }
private ObjectCast genCaster(Type type) { ObjectCast fixTypeGetter = (RealStatePtr L, int idx, object target) => { if (LuaAPI.lua_type(L, idx) == LuaTypes.LUA_TUSERDATA) { object obj = translator.SafeGetCSObj(L, idx); return((obj != null && type.IsAssignableFrom(obj.GetType())) ? obj : null); } return(null); }; if (typeof(Delegate).IsAssignableFrom(type)) { return((RealStatePtr L, int idx, object target) => { object obj = fixTypeGetter(L, idx, target); if (obj != null) { return obj; } if (!LuaAPI.lua_isfunction(L, idx)) { return null; } return translator.CreateDelegateBridge(L, type, idx); }); } else if (type.IsInterface) { return((RealStatePtr L, int idx, object target) => { object obj = fixTypeGetter(L, idx, target); if (obj != null) { return obj; } if (!LuaAPI.lua_istable(L, idx)) { return null; } return translator.CreateInterfaceBridge(L, type, idx); }); } else if (type.IsEnum) { return((RealStatePtr L, int idx, object target) => { object obj = fixTypeGetter(L, idx, target); if (obj != null) { return obj; } LuaTypes lua_type = LuaAPI.lua_type(L, idx); if (lua_type == LuaTypes.LUA_TSTRING) { return Enum.Parse(type, LuaAPI.lua_tostring(L, idx)); } else if (lua_type == LuaTypes.LUA_TNUMBER) { return Enum.ToObject(type, LuaAPI.xlua_tointeger(L, idx)); } throw new InvalidCastException("invalid value for enum " + type); }); } else if (type.IsArray) { return((RealStatePtr L, int idx, object target) => { object obj = fixTypeGetter(L, idx, target); if (obj != null) { return obj; } if (!LuaAPI.lua_istable(L, idx)) { return null; } uint len = LuaAPI.xlua_objlen(L, idx); int n = LuaAPI.lua_gettop(L); idx = idx > 0 ? idx : LuaAPI.lua_gettop(L) + idx + 1;// abs of index Type et = type.GetElementType(); ObjectCast elementCaster = GetCaster(et); Array ary = target == null?Array.CreateInstance(et, len) : target as Array; if (!LuaAPI.lua_checkstack(L, 1)) { throw new Exception("stack overflow while cast to Array"); } for (int i = 0; i < len; ++i) { LuaAPI.lua_pushnumber(L, i + 1); LuaAPI.lua_rawget(L, idx); if (et.IsPrimitive) { if (!StaticLuaCallbacks.TryPrimitiveArraySet(type, L, ary, i, n + 1)) { ary.SetValue(elementCaster(L, n + 1, null), i); } } else { if (StaticLuaCallbacks.GenTryArraySetPtr == null || !StaticLuaCallbacks.GenTryArraySetPtr(type, L, translator, ary, i, n + 1)) { ary.SetValue(elementCaster(L, n + 1, null), i); } } LuaAPI.lua_pop(L, 1); } return ary; }); } else if (typeof(IList).IsAssignableFrom(type) && type.IsGenericType) { ObjectCast elementCaster = GetCaster(type.GetGenericArguments()[0]); return((RealStatePtr L, int idx, object target) => { object obj = fixTypeGetter(L, idx, target); if (obj != null) { return obj; } if (!LuaAPI.lua_istable(L, idx)) { return null; } obj = target == null?Activator.CreateInstance(type) : target; int n = LuaAPI.lua_gettop(L); idx = idx > 0 ? idx : LuaAPI.lua_gettop(L) + idx + 1;// abs of index IList list = obj as IList; uint len = LuaAPI.xlua_objlen(L, n); if (!LuaAPI.lua_checkstack(L, 1)) { throw new Exception("stack overflow while cast to IList"); } for (int i = 0; i < len; ++i) { LuaAPI.lua_pushnumber(L, i + 1); LuaAPI.lua_rawget(L, idx); if (i < list.Count && target != null) { var item = elementCaster(L, n + 1, list[i]); if (item != null) { list[i] = item; } } else { var item = elementCaster(L, n + 1, null); if (item != null) { list.Add(item); } } LuaAPI.lua_pop(L, 1); } return obj; }); } else if (typeof(IDictionary).IsAssignableFrom(type) && type.IsGenericType) { ObjectCast keyCaster = GetCaster(type.GetGenericArguments()[0]); ObjectCast valueCaster = GetCaster(type.GetGenericArguments()[1]); return((RealStatePtr L, int idx, object target) => { object obj = fixTypeGetter(L, idx, target); if (obj != null) { return obj; } if (!LuaAPI.lua_istable(L, idx)) { return null; } IDictionary dic = (target == null ? Activator.CreateInstance(type) : target) as IDictionary; int n = LuaAPI.lua_gettop(L); idx = idx > 0 ? idx : LuaAPI.lua_gettop(L) + idx + 1;// abs of index LuaAPI.lua_pushnil(L); if (!LuaAPI.lua_checkstack(L, 1)) { throw new Exception("stack overflow while cast to IDictionary"); } while (LuaAPI.lua_next(L, idx) != 0) { object k = keyCaster(L, n + 1, null); // -2:key if (k != null) { object v = valueCaster(L, n + 2, !dic.Contains(k) ? null : dic[k]); if (v != null) { dic[k] = v; // -1:value } } LuaAPI.lua_pop(L, 1); // removes value, keeps key for next iteration } return dic; }); } else if ((type.IsClass && type.GetConstructor(System.Type.EmptyTypes) != null) || (type.IsValueType && !type.IsEnum)) //class has default construtor { return((RealStatePtr L, int idx, object target) => { object obj = fixTypeGetter(L, idx, target); if (obj != null) { return obj; } if (!LuaAPI.lua_istable(L, idx)) { return null; } obj = target == null?Activator.CreateInstance(type) : target; int n = LuaAPI.lua_gettop(L); idx = idx > 0 ? idx : LuaAPI.lua_gettop(L) + idx + 1;// abs of index if (!LuaAPI.lua_checkstack(L, 1)) { throw new Exception("stack overflow while cast to " + type); } /*foreach (PropertyInfo prop in type.GetProperties()) * { * LuaAPI.xlua_pushasciistring(L, prop.Name); * LuaAPI.lua_rawget(L, idx); * if (!LuaAPI.lua_isnil(L, -1)) * { * try * { * prop.SetValue(obj, GetCaster(prop.PropertyType)(L, n + 1, * target == null || prop.PropertyType.IsPrimitive || prop.PropertyType == typeof(string) ? null : prop.GetValue(obj, null)), null); * } * catch (Exception e) * { * throw new Exception("exception in tran " + prop.Name + ", msg=" + e.Message); * } * } * LuaAPI.lua_pop(L, 1); * }*/ foreach (FieldInfo field in type.GetFields()) { LuaAPI.xlua_pushasciistring(L, field.Name); LuaAPI.lua_rawget(L, idx); if (!LuaAPI.lua_isnil(L, -1)) { try { field.SetValue(obj, GetCaster(field.FieldType)(L, n + 1, target == null || field.FieldType.IsPrimitive || field.FieldType == typeof(string) ? null : field.GetValue(obj))); } catch (Exception e) { throw new Exception("exception in tran " + field.Name + ", msg=" + e.Message); } } LuaAPI.lua_pop(L, 1); } return obj; }); } else { return(fixTypeGetter); } }
protected bool SerializeTableType(ref ByteBuffer write_file, string parent_str) { int now_top = LuaAPI.lua_gettop(m_lua_state); // 堆栈操作保护 string field_str_buff = new string(new char[1024]); string write_buff = new string(new char[1024]); int nIndex = LuaAPI.lua_gettop(m_lua_state); // 取table索引值 if (!LuaAPI.lua_istable(m_lua_state, nIndex)) { LuaAPI.lua_settop(m_lua_state, now_top); Debug.Log("Need Table Here!"); return(false); } string my_name_str; LuaAPI.lua_pushnil(m_lua_state); // nil入栈作为初始key while (0 != LuaAPI.lua_next(m_lua_state, nIndex)) { // 现在栈顶(-1)是value,-2位置是对应的key // 这里可以判断key是什么并且对value进行各种处理 // 写key值 LuaAPI.lua_pushvalue(m_lua_state, -2); if (SerializeBasicType(ref field_str_buff) != 0) { write_buff = string.Format("{0}[{1}]", parent_str, field_str_buff); my_name_str = write_buff; } else { LuaAPI.lua_settop(m_lua_state, now_top); return(false); } LuaAPI.lua_pop(m_lua_state, 1); if (LuaAPI.lua_isnumber(m_lua_state, -1) || LuaAPI.lua_isstring(m_lua_state, -1) || LuaAPI.lua_isboolean(m_lua_state, -1)) { if (SerializeBasicType(ref field_str_buff) != 0) { write_buff = string.Format("{0} = {1}\n", my_name_str, field_str_buff); write_file.WriteText(write_buff); } else { LuaAPI.lua_settop(m_lua_state, now_top); return(false); } } else if (LuaAPI.lua_istable(m_lua_state, -1)) { write_buff = string.Format("{0} = {1} or {{}}\n", my_name_str, my_name_str); write_file.WriteText(write_buff); if (!SerializeTableType(ref write_file, my_name_str)) { LuaAPI.lua_settop(m_lua_state, now_top); return(false); } } else { Debug.Log("This Type Cannot Write to Cookies!Need[Table, Number, String]!"); } LuaAPI.lua_pop(m_lua_state, 1); // 弹出value,让key留在栈顶 } LuaAPI.lua_settop(m_lua_state, now_top); return(true); }