11<?xml version =" 1.0" encoding =" UTF-8" ?>
2- <Export generator =" Cache" version =" 25" zv =" Cache for Windows (x86-64) 2015.2 (Build 540)" ts =" 2015-04-12 16:26:04" >
3-
2+ <Export generator =" Cache" version =" 25" zv =" Cache for Windows (x86-64) 2015.2 (Build 540)" ts =" 2015-04-28 19:50:48" >
43<Class name =" UMLExplorer.ClassView" >
54<Description >
65Class contains methods that return structured class data.</Description >
7- <TimeChanged >63668,60898.691763 </TimeChanged >
6+ <TimeChanged >63670,72515.130814 </TimeChanged >
87<TimeCreated >63653,67019.989197</TimeCreated >
98
109<Method name =" getClassTree" >
@@ -57,6 +56,8 @@ return structured data about class</Description>
5756<Implementation ><![CDATA[
5857 set oClass = ##class(%ZEN.proxyObject).%New()
5958
59+ set basePack = $LISTTOSTRING($LIST($LISTFROMSTRING(classDefinition.Name, "."), 1, *-1),".")
60+
6061 set oProperties = ##class(%ZEN.proxyObject).%New()
6162 set oClass.NAMESPACE = $NAMESPACE
6263 set oClass.super = classDefinition.Super
@@ -69,7 +70,8 @@ return structured data about class</Description>
6970 do oProp.%DispatchSetProperty("private", p.Private)
7071 do oProp.%DispatchSetProperty("readOnly", p.ReadOnly)
7172 do oProp.%DispatchSetProperty("type", p.Type)
72- do ..collectAggregation(oData, classDefinition.Name, p.Type)
73+ do ..collectAggregation(oData, classDefinition.Name, p.Type, p.Private)
74+ do ..collectAggregation(oData, classDefinition.Name, basePack _ "." _ p.Type, p.Private)
7375 }
7476
7577 set oMethods = ##class(%ZEN.proxyObject).%New()
@@ -141,15 +143,16 @@ return structured data about class</Description>
141143
142144<Method name =" collectAggregation" >
143145<ClassMethod >1</ClassMethod >
144- <FormalSpec >oData:%ZEN.proxyObject,className:%String,type:%String</FormalSpec >
146+ <FormalSpec >oData:%ZEN.proxyObject,className:%String,type:%String,private:%String </FormalSpec >
145147<ReturnType >%Status</ReturnType >
146148<Implementation ><![CDATA[
147149 set classDef = ##class(%Dictionary.ClassDefinition).%OpenId(type)
148150 if (classDef '= "") {
149- set oAgg = oData.aggregation.%DispatchGetProperty(className)
151+ if (private) { set t = "composition" } else { set t = "aggregation" }
152+ set oAgg = oData.%DispatchGetProperty(t).%DispatchGetProperty(className)
150153 if (oAgg = "") {
151154 set oAgg = ##class(%ZEN.proxyObject).%New()
152- do oData.aggregation .%DispatchSetProperty(className, oAgg)
155+ do oData.%DispatchGetProperty(t) .%DispatchSetProperty(className, oAgg)
153156 }
154157 } else { quit $$$OK }
155158
@@ -196,6 +199,7 @@ return structured data about class</Description>
196199 set oData.classes = ##class(%ZEN.proxyObject).%New()
197200 set oData.inheritance = ##class(%ZEN.proxyObject).%New()
198201 set oData.aggregation = ##class(%ZEN.proxyObject).%New()
202+ set oData.composition = ##class(%ZEN.proxyObject).%New()
199203
200204 set classes = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Summary")
201205 do classes.Execute()
@@ -216,11 +220,11 @@ return structured data about class</Description>
216220</Class >
217221
218222
219- <Project name =" UMLExplorer" LastModified =" 2015-04-26 00:42:57.542208 " >
223+ <Project name =" UMLExplorer" LastModified =" 2015-04-28 19:55:49.450783 " >
220224 <Items >
221- <ProjectItem name =" UMLExplorer.ClassView" type =" CLS" / >
222- <ProjectItem name =" UMLExplorer.Router" type =" CLS" / >
223- <ProjectItem name =" UMLExplorer.StaticContent" type =" CLS" / >
225+ <ProjectItem name =" UMLExplorer.ClassView" type =" CLS" ></ ProjectItem >
226+ <ProjectItem name =" UMLExplorer.Router" type =" CLS" ></ ProjectItem >
227+ <ProjectItem name =" UMLExplorer.StaticContent" type =" CLS" ></ ProjectItem >
224228 </Items >
225229</Project >
226230
@@ -229,7 +233,7 @@ return structured data about class</Description>
229233<Description >
230234REST interface for UMLExplorer</Description >
231235<Super >%CSP.REST</Super >
232- <TimeChanged >63667,85509.960346 </TimeChanged >
236+ <TimeChanged >63670,71431.319061 </TimeChanged >
233237<TimeCreated >63648,30450.187229</TimeCreated >
234238
235239<XData name =" UrlMap" >
@@ -286,93 +290,76 @@ Returns all package class trees by given package name</Description>
286290]]> </Implementation >
287291</Method >
288292
289- <Method name =" Test" >
290- <Description >
291- Method to test accessibility of REST interface.</Description >
292- <ClassMethod >1</ClassMethod >
293- <ReturnType >%Status</ReturnType >
294- <Implementation ><![CDATA[
295- set resp = ##class(%ZEN.proxyObject).%New()
296- set resp2 = ##class(%ZEN.proxyObject).%New()
297- set resp2.Status = "OK"
298- set resp.obj = resp2
299- do resp.%ToJSON(, "o")
300- return $$$OK
301- ]]> </Implementation >
302- </Method >
303-
304293<Method name =" GetCss" >
294+ <Description >
295+ Method returns user application CSS.</Description >
305296<ClassMethod >1</ClassMethod >
306297<ReturnType >%Status</ReturnType >
307298<Implementation ><![CDATA[
308299 set %response.CharSet = "utf-8"
309300 set %response.ContentType = "text/css"
310- do ##class(UMLExplorer. StaticContent).WriteCSS( )
301+ do ##class(StaticContent).Write("CSS" )
311302 return $$$OK
312303]]> </Implementation >
313304</Method >
314305
315306<Method name =" GetJs" >
307+ <Description >
308+ Method returns user application JavaScript.</Description >
316309<ClassMethod >1</ClassMethod >
317310<ReturnType >%Status</ReturnType >
318311<Implementation ><![CDATA[
319312 set %response.CharSet = "utf-8"
320313 set %response.ContentType = "text/javascript"
321- do ##class(UMLExplorer. StaticContent).WriteJS( )
314+ do ##class(StaticContent).Write("JS" )
322315 return $$$OK
323316]]> </Implementation >
324317</Method >
325318
326319<Method name =" Index" >
327320<Description >
328- Method returns user application.</Description >
321+ Method returns user application HTML .</Description >
329322<ClassMethod >1</ClassMethod >
330323<ReturnType >%Status</ReturnType >
331324<Implementation ><![CDATA[
332- &html<
333- {{replace:html}}
334- >
325+ do ##class(StaticContent).Write("HTML")
335326 return $$$OK
336327]]> </Implementation >
337328</Method >
338329</Class >
339330
340331
341332<Class name =" UMLExplorer.StaticContent" >
342- <TimeChanged >63663,76108.945861 </TimeChanged >
333+ <TimeChanged >63670,71368.846177 </TimeChanged >
343334<TimeCreated >63663,71456.865723</TimeCreated >
344335
345- <Method name =" WriteCSS " >
336+ <Method name =" Write " >
346337<Description >
347- Outputs css code for UMLExplorer application </Description >
338+ Write the contents of xData tag </Description >
348339<ClassMethod >1</ClassMethod >
340+ <FormalSpec >Const:%String</FormalSpec >
349341<ReturnType >%Status</ReturnType >
350342<Implementation ><![CDATA[
351- Set xdata = ##class(%Dictionary.CompiledXData).%OpenId("UMLExplorer.StaticContent||CSS" ).Data
343+ Set xdata = ##class(%Dictionary.CompiledXData).%OpenId("UMLExplorer.StaticContent||"_Const ).Data
352344 set status=##class(%XML.TextReader).ParseStream(xdata, .textreader)
353345 while textreader.Read() { if (textreader.NodeType="chars") { w textreader.Value } }
354346 return $$$OK
355347]]> </Implementation >
356348</Method >
357349
358- <Method name =" WriteJS" >
359- <Description >
360- Outputs js code for UMLExplorer application</Description >
361- <ClassMethod >1</ClassMethod >
362- <ReturnType >%Status</ReturnType >
363- <Implementation ><![CDATA[
364- Set xdata = ##class(%Dictionary.CompiledXData).%OpenId("UMLExplorer.StaticContent||JS").Data
365- set status=##class(%XML.TextReader).ParseStream(xdata, .textreader)
366- while textreader.Read() { if (textreader.NodeType="chars") { w textreader.Value } }
367- return $$$OK
368- ]]> </Implementation >
369- </Method >
350+ <XData name =" HTML" >
351+ <Data ><![CDATA[
352+ <data><![CDATA[
353+ {{replace:html}}
354+ ]]]]> <![CDATA[ ></data>
355+ ]]> </Data >
356+ </XData >
370357
371358<XData name =" CSS" >
372359<Data ><![CDATA[
373- <data>
360+ <data><![CDATA[
374361{{replace:css}}
375- </data>
362+ ]] ]]> <![CDATA[ > </data>
376363]]> </Data >
377364</XData >
378365
0 commit comments