整理代码1

interpreter/UniLua/LuaFunc.cs

@@ -0,0 +1,94 @@
+ 
+// #define DEBUG_FIND_UPVALUE
+
+using System.Collections.Generic;
+
+using ULDebug = UniLua.Tools.ULDebug;
+
+namespace UniLua
+{
+	public partial class LuaState
+	{
+
+		private LuaUpvalue F_FindUpval( StkId level )
+		{
+#if DEBUG_FIND_UPVALUE
+			Console.WriteLine( "[F_FindUpval] >>>>>>>>>>>>>>>>>>>> level:" + level );
+#endif
+
+			var node = OpenUpval.First;
+			LinkedListNode<LuaUpvalue> prev = null;
+			while( node != null )
+			{
+				var upval = node.Value;
+#if DEBUG_FIND_UPVALUE
+				Console.WriteLine("[F_FindUpval] >>>>>>>>>>>>>>>>>>>> upval.V:" + upval.V );
+#endif
+				if(upval.V.Index < level.Index)
+					break;
+
+				var next = node.Next;
+				if(upval.V == level)
+					return upval;
+
+				prev = node;
+				node = next;
+			}
+
+			// not found: create a new one
+			var ret = new LuaUpvalue();
+			ret.V   = level;
+			// ret.Prev = G.UpvalHead;
+			// ret.Next = G.UpvalHead.Next;
+			// ret.Next.Prev = ret;
+			// G.UpvalHead.Next = ret;
+
+			if( prev == null )
+				OpenUpval.AddFirst( ret );
+			else
+				OpenUpval.AddAfter( prev, ret );
+
+#if DEBUG_FIND_UPVALUE
+			Console.WriteLine("[F_FindUpval] >>>>>>>>>>>>>>>>>>>> create new one:" + ret.V );
+#endif
+
+			return ret;
+		}
+
+		private void F_Close( StkId level )
+		{
+			var node = OpenUpval.First;
+			while( node != null )
+			{
+				var upval = node.Value;
+				if( upval.V.Index < level.Index )
+					break;
+
+				var next = node.Next;
+				OpenUpval.Remove( node );
+				node = next;
+
+				upval.Value.V.SetObj(ref upval.V.V);
+				upval.V = upval.Value;
+			}
+		}
+
+		private string F_GetLocalName( LuaProto proto, int localNumber, int pc )
+		{
+			for( int i=0;
+				i<proto.LocVars.Count && proto.LocVars[i].StartPc <= pc;
+				++i )
+			{
+				if( pc < proto.LocVars[i].EndPc ) { // is variable active?
+					--localNumber;
+					if( localNumber == 0 )
+						return proto.LocVars[i].VarName;
+				}
+			}
+			return null;
+		}
+
+	}
+
+}
+