Debugger.Core/Src/Variables/Values/Value-Object.cs - master - n-dimens/pascalabcnet

Debugger.Core/Src/Variables/Values/Value-Object.cs
121 строка3 KB
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35e6e67c1
// <file>
//     <copyright see="prj:///doc/copyright.txt"/>
//     <license see="prj:///doc/license.txt"/>
//     <owner name="David Srbecký" email="dsrbecky@gmail.com"/>
//     <version>$Revision: 2287 $</version>
// </file>

using System;
using System.Collections.Generic;
using Debugger.Wrappers.CorDebug;

namespace Debugger
{
	// This part of the class provides support for classes and structures
	public partial class Value
	{
		internal ICorDebugObjectValue CorObjectValue {
			get {
				if (IsObject) {
					return CorValue.CastTo<ICorDebugObjectValue>();
				} else {
					throw new DebuggerException("Value is not an object");
				}
			}
		}
		
//		internal ICorDebugObjectValue CorObjectValue {
//			get {
//				if (IsNull) throw new GetValueException("Value is null");
//				
//				if (this.Type.IsClass) {
//					return this.CorValue.CastTo<ICorDebugReferenceValue>().Dereference().CastTo<ICorDebugObjectValue>();
//				}
//				if (this.Type.IsValueType) {
//					if (this.CorValue.Is<ICorDebugReferenceValue>()) {
//						// Dereference and unbox
//						return this.CorValue.CastTo<ICorDebugReferenceValue>().Dereference().CastTo<ICorDebugBoxValue>().Object;
//					} else {
//						return this.CorValue.CastTo<ICorDebugObjectValue>();
//					}
//				}
//				
//				throw new DebuggerException("Value is not an object");
//			}
//		}
		
		/// <summary> Returns true if the value is a class or value type </summary>
		public bool IsObject {
			get {
				return !IsNull && (this.Type.IsClass || this.Type.IsValueType);
			}
		}
		
		/// <summary>
		/// Get a field or property of an object with a given name.
		/// </summary>
		public NamedValue GetMember(string name)
		{
			try
			{
			DebugType currentType = this.Type;
			while (currentType != null) {
				foreach(MemberInfo memberInfo in currentType.GetMember(name, BindingFlags.All)) {
					if (memberInfo is FieldInfo) {
						return ((FieldInfo)memberInfo).GetValue(this);
					}
					if (memberInfo is PropertyInfo) {
						return ((PropertyInfo)memberInfo).GetValue(this);
					}
				}
				currentType = currentType.BaseType;
			}
			}
			catch
			{
				
			}
			return null;
		}
		
		/// <summary>
		/// Get all fields and properties of an object.
		/// </summary>
		public NamedValueCollection GetMembers()
		{
			return GetMembers(null, BindingFlags.All);
		}
		
		/// <summary>
		/// Get fields and properties of an object which are defined by a given type.
		/// </summary>
		/// <param name="type"> Limit to type, null for all types </param>
		/// <param name="bindingFlags"> Get only members with certain flags </param>
		public NamedValueCollection GetMembers(DebugType type, BindingFlags bindingFlags)
		{
			if (IsObject) {
				return new NamedValueCollection(GetObjectMembersEnum(type, bindingFlags));
			} else {
				return NamedValueCollection.Empty;
			}
		}
		
		IEnumerable<NamedValue> GetObjectMembersEnum(DebugType type, BindingFlags bindingFlags)
		{
			DebugType currentType = type ?? this.Type;
			while (currentType != null) {
				foreach(FieldInfo field in currentType.GetFields(bindingFlags)) {
					yield return field.GetValue(this);
				}
				foreach(PropertyInfo property in currentType.GetProperties(bindingFlags)) {
					yield return property.GetValue(this);
				}
				if (type == null) {
					currentType = currentType.BaseType;
				} else {
					yield break;
				}
			}
		}
	}
}