[Seaside-dev] WAProfilerItem>>#tree

Paul DeBruicker pdebruic at gmail.com
Thu Mar 29 15:55:13 UTC 2012



In the attached file-out I included a version of WAProfilerItem>>#tree 
that prints % and times:

8.3% {22ms} JQAjax>>script:
   |8.3% {22ms} JQAjax(JSObject)>>script:on:
   |  8.3% {22ms} JSScript(JSObject)>>javascriptOn:
   |    8.3% {22ms} JSScript>>javascriptContentOn:
   |      8.3% {22ms} GRNullCodecStream(GRCodecStream)>>javascript:
   |        8.3% {22ms} JQueryInstance(JSObject)>>javascriptOn:
   |          8.3% {22ms} JSCall>>javascriptContentOn:
   |            8.3% {22ms} JSStream class>>encodeArguments:on:
   |              8.3% {22ms} GRNullCodecStream(GRCodecStream)>>javascript:
   |                8.3% {22ms} ByteString(String)>>javascriptOn:
   |                  8.3% {22ms} JSStream class>>encodeString:on:
   |                    3.8% {10ms} primitives
   |                    2.3% {6ms} Character>>greaseInteger
   |                    1.5% {4ms} GRNullCodecStream>>nextPut:


rather than:

0 JQAjax>>script:
   |0 JQAjax(JSObject)>>script:on:
   |  |0 JSScript(JSObject)>>javascriptOn:
   |  |  0 JSScript>>javascriptContentOn:
   |  |    0 GRNullCodecStream(GRCodecStream)>>javascript:
   |  |      0 JQueryInstance(JSObject)>>javascriptOn:
   |  |        0 JSCall>>javascriptContentOn:
   |  |          0 JSStream class>>encodeArguments:on:
   |  |            0 GRNullCodecStream(GRCodecStream)>>javascript:
   |  |              0 ByteString(String)>>javascriptOn:
   |  |                4 JSStream class>>encodeString:on:
   |  |                  2 GRNullCodecStream>>nextPut:
   |  |                  2 Character>>=
-------------- next part --------------
'From Pharo1.3 of 16 June 2011 [Latest update: #13324] on 29 March 2012 at 8:27:16 am'!

!WAProfilerItem methodsFor: 'accessing-dynamic' stamp: 'PaulDeBruicker 3/29/2012 08:09'!
tree
	^ String
		streamContents: [ :stream | 
		
			self tally
				maxTabs: SmallInteger maxVal;
				maxClassNameSize: SmallInteger maxVal;
				maxClassPlusSelectorSize: SmallInteger maxVal;
				treePrintOn: stream
					tabs: OrderedCollection new
					thisTab: String new
					total: tally tally
					totalTime: tally time
					tallyExact: false
					orThreshold: 2 ]! !


More information about the seaside-dev mailing list