Index: Tools/ObjectDumper/Dumper.cls.xml
===================================================================
diff -u
--- Tools/ObjectDumper/Dumper.cls.xml	(revision 0)
+++ Tools/ObjectDumper/Dumper.cls.xml	(revision 500)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.ObjectDumper.Dumper">
+<Super>Tools.ObjectDumper.Base</Super>
+
+<Method name="AddPropertyAsDataType">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Value As %CacheString = $zobjproperty(..Object,PropertyName)
+	set Value = $$LCVT^vhLib(Value)
+	if $length(Value) {
+		do List.Insert(PropertyName_" = "_Value)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddCollectionOfDataTypes">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do List.Insert(PropertyName_" = "_$zobjproperty(..Object,PropertyName))
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	while itItems.HasNext() {
+		#dim Value As %CacheString = itItems.Next()
+		#dim Key As %CacheString = itItems.Key()
+		do List.Insert(PropertyName_"["_Key_"] = "_Value)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddCollectionOfObjects">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do List.Insert(PropertyName_" = "_$zobjproperty(..Object,PropertyName))
+	
+	#dim itItems As TECH.ListIterator = ##class(TECH.ListIterator).%New($zobjProperty(..Object,PropertyName))
+	while itItems.HasNext() {
+		#dim Object As %Library.Base = itItems.Next()
+		#dim Key As %CacheString = itItems.Key()
+		if $IsObject(Object) { 
+			set ObjectDumper = ##class(Tools.ObjectDumper.Dumper).%New(Object)
+			set itObjectResult = ##class(TECH.ListIterator).%New(ObjectDumper.GetResult())
+			while itObjectResult.HasNext() {
+				do List.Insert(PropertyName_"["_Key_"]."_itObjectResult.Next())
+			}	
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddObject">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..AddObjectReferenceInfo(List,PropertyName)
+
+	#dim Object As %Library.Base = $zobjProperty(..Object,PropertyName)
+	if $IsObject(Object) {
+		set ObjectDumper = ##class(Tools.ObjectDumper.Dumper).%New(Object)
+		set itObjectResult = ##class(TECH.ListIterator).%New(ObjectDumper.GetResult())
+		while itObjectResult.HasNext() {
+			do List.Insert(PropertyName_"."_itObjectResult.Next())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddObjectReferenceInfo">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim String = ""
+	set String = PropertyName_" = "_$zobjproperty(..Object,PropertyName)
+	try {
+		set String = String _" ("_$zobjproperty(..Object,PropertyName).%Id()_")"
+	} catch {
+		do ##class(TECH.ExceptionHandler).Catch()
+		}
+	do List.Insert(String)
+]]></Implementation>
+</Method>
+
+<Method name="AddMultiDimensional">
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	new PropertyValues
+	new Code set Code = "merge @PropertyName = ..Object."_PropertyName xecute Code
+	new Subscript set Subscript = PropertyName
+	for { set Subscript = $query(@Subscript) quit:Subscript=""
+		do List.Insert(Subscript_" = "_@Subscript)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 500 refers to a dead (removed) revision in file `Tools/ObjectDumper.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u
--- Tools/ObjectDumper/Base.cls.xml	(revision 0)
+++ Tools/ObjectDumper/Base.cls.xml	(revision 500)
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.ObjectDumper.Base">
+<Super>%RegisteredObject</Super>
+
+<Property name="Object">
+<Type>%Library.Base</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Object:%Library.Base</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Object = Object 
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetResult">
+<Final>1</Final>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Result = ##class(%ListOfDataTypes).%New()
+	
+	set itProperties = ##class(TECH.ListIterator).%New(..GetProperties())
+	while itProperties.HasNext() {
+		#dim Property As Tools.ObjectDumper.dto.Property = itProperties.Next()		
+		continue:..SkipProperty(Property.Name)
+		if Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).DataType() {
+			if Property.MultiDimensional { 
+				do ..AddMultiDimensional(Result,Property.Name)
+			} else {
+				do ..AddPropertyAsDataType(Result,Property.Name)
+			}
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfDataTypes() {
+			do ..AddCollectionOfDataTypes(Result,Property.Name)
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfDataTypes() {
+			do ..AddCollectionOfDataTypes(Result,Property.Name)
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).Object() {
+			do ..AddObject(Result,Property.Name)
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfObjects() {
+			do ..AddCollectionOfObjects(Result,Property.Name)
+		} elseif Property.ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfObjects() {
+			do ..AddCollectionOfObjects(Result,Property.Name)
+		}
+	}		
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="SkipProperty">
+<Final>1</Final>
+<FormalSpec>PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim SkipProperty As %Boolean = 0
+	if 'SkipProperty {
+		set SkipProperty = ( PropertyName="Attributes" )
+	}
+	elseif 'SkipProperty {
+		set SkipProperty = ##class(TECH.StringUtils).StartsWith(PropertyName,"%")
+	}
+	quit SkipProperty
+]]></Implementation>
+</Method>
+
+<Method name="Dump">
+<Final>1</Final>
+<Implementation><![CDATA[
+	#dim itResult = ##class(TECH.ListIterator).%New(..GetResult())
+	while itResult.HasNext() {
+		write !,itResult.Next()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddPropertyAsDataType">
+<Abstract>1</Abstract>
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="AddCollectionOfDataTypes">
+<Abstract>1</Abstract>
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="AddCollectionOfObjects">
+<Abstract>1</Abstract>
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="AddMultiDimensional">
+<Abstract>1</Abstract>
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="AddObject">
+<Abstract>1</Abstract>
+<FormalSpec>List:%ListOfDataTypes,PropertyName:%String</FormalSpec>
+<Private>1</Private>
+</Method>
+
+<Method name="GetProperties">
+<Final>1</Final>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="Tools.ObjectDumper.dto.Property"</ReturnTypeParams>
+<Implementation><![CDATA[
+	set Properties = ##class(%ListOfObjects).%New()
+	
+	set ClassDefinition = ##class(%CompiledClass).%OpenId(..Object.%ClassName(1))
+	set itProperties = ##class(TECH.ListIterator).%New(ClassDefinition.Properties)
+	while itProperties.HasNext() {
+		#dim PropertyDefinition As %PropertyDefinition = itProperties.Next()
+		set dtoProperty = ##class(Tools.ObjectDumper.dto.Property).%New()	
+		set dtoProperty.Name = PropertyDefinition.Name
+		
+		set dtoProperty.ClassName = ..GetClassName(PropertyDefinition)
+		set dtoProperty.ClassType = ..GetClassType(dtoProperty.ClassName,PropertyDefinition.Collection)	
+		set dtoProperty.MultiDimensional = PropertyDefinition.MultiDimensional
+	
+		if 'PropertyDefinition.Private do Properties.Insert(dtoProperty)
+	}
+	
+	quit Properties
+]]></Implementation>
+</Method>
+
+<Method name="GetClassName">
+<Final>1</Final>
+<FormalSpec>PropertyDefintion:%PropertyDefinition</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassName As %String = PropertyDefintion.Type
+	if ( ClassName'["." ) && ( '##class(TECH.StringUtils).StartsWith(ClassName,"%") ) {
+		set ClassName = $piece(PropertyDefintion.ClassName,".",1,$length(PropertyDefintion.ClassName,".")-1)
+		set ClassName = ClassName _ "." _ PropertyDefintion.Type	
+	}
+	quit ClassName
+]]></Implementation>
+</Method>
+
+<Method name="GetClassType">
+<Final>1</Final>
+<FormalSpec>ClassName:%String,Collection:%CacheString</FormalSpec>
+<Private>1</Private>
+<ReturnType>Tools.ObjectDumper.enu.ClassType</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassType As Tools.ObjectDumper.enu.ClassType = ""
+	set ClassDefinition = ##class(%CompiledClass).%OpenId(ClassName)
+	if $length(Collection) {
+		if ClassDefinition.Datatype {
+			if Collection = "array" {
+				set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfDataTypes()
+			} elseif Collection = "list" {
+				set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfDataTypes()
+			}
+		} else {
+			if Collection = "array" {
+				set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ArrayOfObjects()
+			} elseif Collection = "list" {
+				set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).ListOfObjects()
+			}	
+		}
+	} else {
+		if ClassDefinition.Datatype { 
+			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).DataType()
+		}
+		elseif ClassDefinition.Serial { 
+			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).SerialObject() 
+		} else {
+			set ClassType = ##class(Tools.ObjectDumper.enu.ClassType).Object() 
+		}
+	}
+	quit ClassType
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: Tools/ObjectDumper/dto/Property.cls.xml
===================================================================
diff -u -r498 -r500
--- Tools/ObjectDumper/dto/Property.cls.xml	(.../Property.cls.xml)	(revision 498)
+++ Tools/ObjectDumper/dto/Property.cls.xml	(.../Property.cls.xml)	(revision 500)
@@ -14,6 +14,11 @@
 <Property name="ClassType">
 <Type>Tools.ObjectDumper.enu.ClassType</Type>
 </Property>
+
+<Property name="MultiDimensional">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
 </Class>