diff --git a/cache/projectTemplate.xml b/cache/projectTemplate.xml
index 632c8fa..70eef77 100644
--- a/cache/projectTemplate.xml
+++ b/cache/projectTemplate.xml
@@ -4,10 +4,12 @@
Class contains methods that return structured class data.
-63668,773.59952
+63668,60898.69176363653,67019.989197
+
+Returns structured class tree with all classes available in current namespace1%ZEN.proxyObject
+
+return structured data about class1
-classDefinition:%Dictionary.ClassDefinition
+oData:%ZEN.proxyObject,classDefinition:%Dictionary.ClassDefinition%ZEN.proxyObject
set count = classDefinition.Properties.Count()
for i = 1:1:count {
set oProp = ##class(%ZEN.proxyObject).%New()
- do oProperties.%DispatchSetProperty(classDefinition.Properties.GetAt(i).Name, oProp)
- do oProp.%DispatchSetProperty("private", classDefinition.Properties.GetAt(i).Private)
- do oProp.%DispatchSetProperty("readOnly", classDefinition.Properties.GetAt(i).ReadOnly)
- do oProp.%DispatchSetProperty("type", classDefinition.Properties.GetAt(i).Type)
+ set p = classDefinition.Properties.GetAt(i)
+ do oProperties.%DispatchSetProperty(p.Name, oProp)
+ do oProp.%DispatchSetProperty("private", p.Private)
+ do oProp.%DispatchSetProperty("readOnly", p.ReadOnly)
+ do oProp.%DispatchSetProperty("type", p.Type)
+ do ..collectAggregation(oData, classDefinition.Name, p.Type)
}
set oMethods = ##class(%ZEN.proxyObject).%New()
@@ -70,9 +76,11 @@ Class contains methods that return structured class data.
set count = classDefinition.Methods.Count()
for i = 1:1:count {
set oMeth = ##class(%ZEN.proxyObject).%New()
- do oMethods.%DispatchSetProperty(classDefinition.Methods.GetAt(i).Name, oMeth)
- do oMeth.%DispatchSetProperty("private", classDefinition.Methods.GetAt(i).Private)
- do oMeth.%DispatchSetProperty("returns", classDefinition.Methods.GetAt(i).ReturnType)
+ set met = classDefinition.Methods.GetAt(i)
+ do oMethods.%DispatchSetProperty(met.Name, oMeth)
+ do oMeth.%DispatchSetProperty("private", met.Private)
+ do oMeth.%DispatchSetProperty("returns", met.ReturnType)
+ do oMeth.%DispatchSetProperty("classMethod", met.ClassMethod)
}
set oParameters = ##class(%ZEN.proxyObject).%New()
@@ -80,8 +88,9 @@ Class contains methods that return structured class data.
set count = classDefinition.Parameters.Count()
for i = 1:1:count {
set oPar = ##class(%ZEN.proxyObject).%New()
- do oParameters.%DispatchSetProperty(classDefinition.Parameters.GetAt(i).Name, oPar)
- do oPar.%DispatchSetProperty("type", classDefinition.Parameters.GetAt(i).Type)
+ set p = classDefinition.Parameters.GetAt(i)
+ do oParameters.%DispatchSetProperty(p.Name, oPar)
+ do oPar.%DispatchSetProperty("type", p.Type)
}
quit oClass
@@ -99,6 +108,7 @@ Class contains methods that return structured class data.
"%DataType": "%Library.DataType",
"%Status": "%Library.Status",
"%CacheString": "%Library.CacheString",
+ "%Persistent": "%Library.Persistent",
:typeName)
]]>
@@ -119,7 +129,7 @@ Class contains methods that return structured class data.
if (oData.classes.%DispatchGetProperty(className) = "") {
set cdef = ##class(%Dictionary.ClassDefinition).%OpenId(className)
if (cdef '= "") {
- do oData.classes.%DispatchSetProperty(className, ..getClassData(cdef))
+ do oData.classes.%DispatchSetProperty(className, ..getClassData(oData, cdef))
do ..collectInheritance(oData, cdef)
}
}
@@ -128,6 +138,39 @@ Class contains methods that return structured class data.
]]>
+
+1
+oData:%ZEN.proxyObject,className:%String,type:%String
+%Status
+
+
+
+
+1
+oData:%ZEN.proxyObject,cdef:%Dictionary.ClassDefinition
+%Status
+
+
+
1baseClassDefinition:%Dictionary.ClassDefinition
@@ -136,9 +179,8 @@ Class contains methods that return structured class data.
set oData = ##class(%ZEN.proxyObject).%New()
set oData.classes = ##class(%ZEN.proxyObject).%New()
set oData.inheritance = ##class(%ZEN.proxyObject).%New()
- do oData.classes.%DispatchSetProperty(baseClassDefinition.Name, ..getClassData(baseClassDefinition))
-
- do ..collectInheritance(oData, baseClassDefinition)
+ set oData.aggregation = ##class(%ZEN.proxyObject).%New()
+ do ..collectClass(oData, baseClassDefinition)
quit oData
]]>
@@ -152,6 +194,7 @@ Class contains methods that return structured class data.
set oData = ##class(%ZEN.proxyObject).%New()
set oData.classes = ##class(%ZEN.proxyObject).%New()
set oData.inheritance = ##class(%ZEN.proxyObject).%New()
+ set oData.aggregation = ##class(%ZEN.proxyObject).%New()
set classes = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Summary")
do classes.Execute()
@@ -161,7 +204,7 @@ Class contains methods that return structured class data.
set packageName = $LISTTOSTRING($LIST($LISTFROMSTRING(className, "."), 1, listLen), ".")
if (packageName = rootPackageName) {
set classDef = ##class(%Dictionary.ClassDefinition).%OpenId(className)
- do oData.classes.%DispatchSetProperty(classDef.Name, ..getClassData(classDef))
+ do oData.classes.%DispatchSetProperty(classDef.Name, ..getClassData(oData, classDef))
do ..collectInheritance(oData, classDef)
}
}
@@ -172,7 +215,7 @@ Class contains methods that return structured class data.
-
+
@@ -286,32 +329,7 @@ Method returns user application.
%Status
-
-
-
- Cache UML explorer
-
-
-
-
-