Lazy getting of array values

git-svn-id: svn://svn.sharpdevelop.net/sharpdevelop/trunk@831 1ccf3a8d-04fe-1044-b7c0-cef0b8235c61

src/AddIns/Misc/Debugger/Debugger.AddIn/Project/Src/Service/WindowsDebugger.cs

@@ -251,7 +251,7 @@ namespace ICSharpCode.SharpDevelop.Services
 		{
 			DynamicTreeDebuggerRow row = (DynamicTreeDebuggerRow) sender;
 			row.ChildRows.Clear();
-			foreach(Variable variable in row.Variable.Value.SubVariables) {
+			foreach(Variable variable in row.Variable.SubVariables) {
 				DynamicTreeDebuggerRow newRow = new DynamicTreeDebuggerRow(variable);
 				DebuggerGridControl.AddColumns(newRow.ChildColumns);
 				newRow.Expanding += TooltipControlRowExpanding;

src/AddIns/Misc/Debugger/Debugger.Core/Project/Src/Debugger/MetaData/MetaData.cs

@@ -1,4 +1,4 @@
-// <file>
+// <file>
 //     <copyright see="prj:///doc/copyright.txt">2002-2005 AlphaSierraPapa</copyright>
 //     <license see="prj:///doc/license.txt">GNU General Public License</license>
 //     <owner name="David Srbecký" email="dsrbecky@gmail.com"/>
@@ -86,10 +86,8 @@ namespace Debugger
 			return typeRefProps;
 		}
 		
-		public IList<FieldProps> EnumFields(uint typeToken)
+		public IEnumerable<FieldProps> EnumFields(uint typeToken)
 		{
-			List<FieldProps> fields = new List<FieldProps>();
-
 			IntPtr enumerator = IntPtr.Zero;
 			while (true) {
 				uint fieldToken;
@@ -99,10 +97,8 @@ namespace Debugger
 					metaData.CloseEnum(enumerator);
 					break;
 				}
-				fields.Add(GetFieldProps(fieldToken));
+				yield return GetFieldProps(fieldToken);
 			}
-
-			return fields;
 		}
 
 		public FieldProps GetFieldProps(uint fieldToken)
@@ -148,10 +144,8 @@ namespace Debugger
 			return fieldProps;
 		}
 		
-		public IList<MethodProps> EnumMethods(uint typeToken)
+		public IEnumerable<MethodProps> EnumMethods(uint typeToken)
 		{
-			IList<MethodProps> methods = new List<MethodProps>();
-
 			IntPtr enumerator = IntPtr.Zero;
 			while(true) {
 				uint methodToken;
@@ -161,10 +155,8 @@ namespace Debugger
 					metaData.CloseEnum(enumerator);
 					break;
 				}
-				methods.Add(GetMethodProps(methodToken));
+				yield return GetMethodProps(methodToken);
 			}
-
-			return methods;
 		}
 
 		public unsafe MethodProps GetMethodProps(uint methodToken)

src/AddIns/Misc/Debugger/Debugger.Core/Project/Src/Threads/Exception.cs

@@ -79,12 +79,6 @@ namespace Debugger
 			type = runtimeValue.Type;
 		}
 		
-		public override string ToString() {
-			return "Exception data:\n" + runtimeValue.ToString() + "\n" +
-			       "---------------\n" +
-			       runtimeValueException.SubVariables.ToString();
-		}
-	
 		public string Type {
 			get {
 				return type;

src/AddIns/Misc/Debugger/Debugger.Core/Project/Src/Threads/Function.cs

@@ -416,7 +416,7 @@ namespace Debugger
 		public IEnumerable<Variable> ContaingClassVariables {
 			get {
 				if (!IsStatic) {
-					foreach(Variable var in ThisValue.SubVariables) {
+					foreach(Variable var in ThisValue.GetSubVariables(delegate{return ThisValue;})) {
 						yield return var;
 					}
 				}

src/AddIns/Misc/Debugger/Debugger.Core/Project/Src/Variables/ArrayValue.cs

@@ -89,8 +89,14 @@ namespace Debugger
 			}
 		}
 		
-		public unsafe Variable this[uint[] indices] {
+		public Variable this[uint[] indices] {
 			get {
+				return GetItem(indices, delegate {return this;});
+			}
+		}
+		
+		Variable GetItem(uint[] indices, ValueGetter getter)
+		{
 			if (indices.Length != rank) throw new DebuggerException("Given indicies does not match array size.");
 			
 			string elementName = "[";
@@ -98,12 +104,22 @@ namespace Debugger
 				elementName += indices[i].ToString() + ",";
 			elementName = elementName.TrimEnd(new char[] {','}) + "]";
 			
+			return new Variable(debugger,
+			                    elementName,
+			                    delegate {
+			                    	ArrayValue updatedVal = getter() as ArrayValue;
+			                    	if (this.IsEquivalentValue(updatedVal)) {
 			                    		ICorDebugValue element;
-				fixed (void* pIndices = indices)
+			                    		unsafe {
-					corArrayValue.GetElement(rank, new IntPtr(pIndices), out element);
+			                    			fixed (void* pIndices = indices) {
-
+			                    				updatedVal.corArrayValue.GetElement(rank, new IntPtr(pIndices), out element);
-				return new Variable(debugger, element, elementName);
+			                    			}
 			                    		}
+			                    		return Value.CreateValue(debugger, element);
+			                    	} else {
+			                    		return new UnavailableValue(debugger, "Value is not array");
+			                    	}
+			                    });
 		}
 		
 		public override bool MayHaveSubVariables {
@@ -112,12 +128,11 @@ namespace Debugger
 			}
 		}
 		
-		public override IEnumerable<Variable> SubVariables {
+		public override IEnumerable<Variable> GetSubVariables(ValueGetter getter)
-			get {
+		{
 			uint[] indices = new uint[rank];
 			
-				for(;;) // Go thought all combinations
+			while(true) { // Go thought all combinations
-				{
 				for (uint i = rank - 1; i >= 1; i--)
 					if (indices[i] >= dimensions[i])
 					{
@@ -126,11 +141,19 @@ namespace Debugger
 					}
 				if (indices[0] >= dimensions[0]) break; // We are done
 				
-					yield return this[indices];
+				yield return GetItem(indices, getter);
 				
 				indices[rank - 1]++;
 			}
 		}
+		
+		public override bool IsEquivalentValue(Value val)
+		{
+			ArrayValue arrayVal = val as ArrayValue;
+			return arrayVal != null &&
+			       arrayVal.ElementsType == this.ElementsType &&
+			       arrayVal.Lenght == this.Lenght &&
+			       arrayVal.Rank == this.Rank;
 		}
 	}
 }

src/AddIns/Misc/Debugger/Debugger.Core/Project/Src/Variables/ObjectValue.cs

@@ -120,8 +120,8 @@ namespace Debugger
 			}
 		}
 		
-		public override IEnumerable<Variable> SubVariables {
+		public override IEnumerable<Variable> GetSubVariables(ValueGetter getter)
-			get {
+		{
 			if (HasBaseClass) {
 				yield return BaseClassVariable;
 			}
@@ -155,7 +155,6 @@ namespace Debugger
 				yield return var;
 			}
 		}
-		}
 		
 		public Variable BaseClassVariable {
 			get {

src/AddIns/Misc/Debugger/Debugger.Core/Project/Src/Variables/Value.cs

@@ -74,15 +74,26 @@ namespace Debugger
 			get;
 		}
 		
-		public virtual IEnumerable<Variable> SubVariables {
+		/// <summary>
-			get {
+		/// Gets the subvariables of this value
+		/// </summary>
+		/// <param name="getter">Delegate that will be called to get the up-to-date value</param>
+		public virtual IEnumerable<Variable> GetSubVariables(ValueGetter getter)
+		{
 			yield break;
 		}
+		
+		/// <summary>
+		/// Gets whether the given value is equivalent to this one. (ie it is may be just its other instance)
+		/// </summary>
+		public virtual bool IsEquivalentValue(Value val)
+		{
+			return val.GetType() == this.GetType();
 		}
 		
 		public Variable this[string variableName] {
 			get {
-				foreach(Variable v in SubVariables) {
+				foreach(Variable v in GetSubVariables(delegate{return this;})) {
 					if (v.Name == variableName) return v;
 				}
 				throw new DebuggerException("Subvariable " + variableName + " does not exist");

src/AddIns/Misc/Debugger/Debugger.Core/Project/Src/Variables/Variable.cs

@@ -11,7 +11,7 @@ using Debugger.Interop.CorDebug;
 
 namespace Debugger
 {
-	public delegate Value ValueUpdatingEventHandler();
+	public delegate Value ValueGetter();
 	
 	public class Variable: RemotingObjectBase
 	{
@@ -21,7 +21,7 @@ namespace Debugger
 		Value val;
 		VariableCollection subVariables;
 		
-		event ValueUpdatingEventHandler updating;
+		event ValueGetter updating;
 		
 		public event EventHandler<VariableEventArgs> ValueChanged;
 		public event EventHandler<VariableCollectionEventArgs> ValueRemovedFromCollection;
@@ -94,11 +94,7 @@ namespace Debugger
 		
 		void OnSubVariablesUpdating(object sender, VariableCollectionEventArgs e)
 		{
-			VariableCollection newVariables = new VariableCollection(debugger);
+			subVariables.UpdateTo(Value.GetSubVariables(delegate{return this.Value;}));
-			foreach(Variable v in Value.SubVariables) {
-				newVariables.Add(v);
-			}
-			subVariables.UpdateTo(newVariables);
 		}
 		
 		protected internal virtual void OnValueRemovedFromCollection(VariableCollectionEventArgs e) {
@@ -112,7 +108,7 @@ namespace Debugger
 			
 		}
 		
-		public Variable(NDebugger debugger, string name, ValueUpdatingEventHandler updating):this(debugger, null, name, updating)
+		public Variable(NDebugger debugger, string name, ValueGetter updating):this(debugger, null, name, updating)
 		{
 			
 		}
@@ -122,7 +118,7 @@ namespace Debugger
 			
 		}
 		
-		Variable(NDebugger debugger, Value val, string name, ValueUpdatingEventHandler updating)
+		Variable(NDebugger debugger, Value val, string name, ValueGetter updating)
 		{
 			this.debugger = debugger;
 			if (val != null) {