diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/README.md b/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/handleFiltered..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/handleFiltered..st new file mode 100644 index 000000000..a48af6aba --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/handleFiltered..st @@ -0,0 +1,15 @@ +processing +handleFiltered: aRequestContext + | size item | + + item := WAObjectsReadItem request: aRequestContext request copy. + item start: DateAndTime now truncated. + System _enableTraceObjectsRead. + [ super handleFiltered: aRequestContext ] + ensure: [ + size := System _disableTraceObjectsRead. + item + end: DateAndTime now truncated; + size: size; + objectsRead: (System _hiddenSetAsArray: 5). + items := items copyWith: item ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/items.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/items.st new file mode 100644 index 000000000..5d5ba6737 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/items.st @@ -0,0 +1,3 @@ +accessing +items + ^ items \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/reset.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/reset.st new file mode 100644 index 000000000..e1a901335 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/reset.st @@ -0,0 +1,3 @@ +processing +reset + items := Array new \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/properties.json b/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/properties.json new file mode 100644 index 000000000..49f7ec815 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Seaside-GemStone-Development-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "JohanBrichau 06/07/2023 20:05", + "instvars" : [ + "items" ], + "name" : "WAObjectsReadFilter", + "pools" : [ + ], + "super" : "WARequestFilter", + "type" : "normal" } diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/README.md b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/class/request..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/class/request..st new file mode 100644 index 000000000..98800f269 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/class/request..st @@ -0,0 +1,3 @@ +instance creation +request: aRequest + ^ self basicNew initializeOn: aRequest; yourself \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/end..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/end..st new file mode 100644 index 000000000..37c5e4aba --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/end..st @@ -0,0 +1,4 @@ +accessing +end: aDateAndTime + + end := aDateAndTime \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/end.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/end.st new file mode 100644 index 000000000..a765bae7f --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/end.st @@ -0,0 +1,4 @@ +accessing +end + + ^ end \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/initializeOn..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/initializeOn..st new file mode 100644 index 000000000..602fc2a61 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/initializeOn..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aRequest + self initialize. + request := aRequest \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/objectsRead..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/objectsRead..st new file mode 100644 index 000000000..e550d272d --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/objectsRead..st @@ -0,0 +1,5 @@ +updating +objectsRead: newValue + + "Modify the value of the instance variable 'objectsRead'." + objectsRead := newValue \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/objectsRead.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/objectsRead.st new file mode 100644 index 000000000..d017cfdf5 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/objectsRead.st @@ -0,0 +1,5 @@ +accessing +objectsRead + + "Return the value of the instance variable 'objectsRead'." + ^objectsRead \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/report.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/report.st new file mode 100644 index 000000000..fcc4fcf3c --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/report.st @@ -0,0 +1,13 @@ +as yet unclassified +report + + | objects | + + objects := (objectsRead groupBy:[:e | e class ] having:[:e | true ]) associations sorted:[:a :b | a value size > b value size ]. + ^ String streamContents:[:str | + objects do:[:assoc | + str + nextPutAll: assoc key name; + nextPutAll: '->'; + nextPutAll: assoc value size asString; + cr ] ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/request..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/request..st new file mode 100644 index 000000000..f48e41508 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/request..st @@ -0,0 +1,5 @@ +updating +request: newValue + + "Modify the value of the instance variable 'request'." + request := newValue \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/request.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/request.st new file mode 100644 index 000000000..6c474de17 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/request.st @@ -0,0 +1,5 @@ +accessing +request + + "Return the value of the instance variable 'request'." + ^request \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/size..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/size..st new file mode 100644 index 000000000..16ac17765 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/size..st @@ -0,0 +1,5 @@ +updating +size: newValue + + "Modify the value of the instance variable 'size'." + size := newValue \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/size.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/size.st new file mode 100644 index 000000000..425703902 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/size.st @@ -0,0 +1,5 @@ +accessing +size + + "Return the value of the instance variable 'size'." + ^size \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/start..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/start..st new file mode 100644 index 000000000..3607de3e7 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/start..st @@ -0,0 +1,4 @@ +accessing +start: aDateAndTime + + start := aDateAndTime \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/start.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/start.st new file mode 100644 index 000000000..823d226ab --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/start.st @@ -0,0 +1,4 @@ +accessing +start + + ^ start \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/properties.json b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/properties.json new file mode 100644 index 000000000..7e8046049 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/properties.json @@ -0,0 +1,18 @@ +{ + "category" : "Seaside-GemStone-Development-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "request", + "objectsRead", + "size", + "start", + "end" ], + "name" : "WAObjectsReadItem", + "pools" : [ + ], + "super" : "WAObject", + "type" : "normal" } diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/README.md b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/class/on..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/class/on..st new file mode 100644 index 000000000..70402c5b3 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/class/on..st @@ -0,0 +1,3 @@ +as yet unclassified +on: aCollection + ^ self basicNew initializeOn: aCollection; yourself \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/buildReport.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/buildReport.st new file mode 100644 index 000000000..e9002b002 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/buildReport.st @@ -0,0 +1,35 @@ +accessing +buildReport + ^ WATableReport new + rows: self items; + columns: (OrderedCollection new + add: (WAReportColumn new + title: 'Start'; + selector: #start; + cssClass: 'left'; + yourself); + add: (WAReportColumn new + title: 'End'; + selector: #end; + cssClass: 'left'; + yourself); + add: (WAReportColumn new + title: 'Size'; + selector: #size; + cssClass: 'left'; + yourself); + add: (WAReportColumn new + title: 'Request'; + valueBlock: [ :value | value request method , ' ' , value request url greaseString ]; + clickBlock: [ :value | self show: (WAInspector current on: value request) ]; + yourself); + add: (WAReportColumn new + sortBlock: nil; + title: 'Commands'; + valueBlock: [ :value :html | + self + renderCommands: value + on: html ]; + yourself); + yourself); + yourself \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/initializeOn..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/initializeOn..st new file mode 100644 index 000000000..53c398f51 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/initializeOn..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aCollection + self initialize. + items := aCollection \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/items.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/items.st new file mode 100644 index 000000000..5d5ba6737 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/items.st @@ -0,0 +1,3 @@ +accessing +items + ^ items \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/message.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/message.st new file mode 100644 index 000000000..dce1f38a0 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/message.st @@ -0,0 +1,3 @@ +accessing +message + ^message \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/renderCommands.on..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/renderCommands.on..st new file mode 100644 index 000000000..8e5919500 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/renderCommands.on..st @@ -0,0 +1,5 @@ +accessing +renderCommands: anItem on: html + html anchor + callback: [ message := anItem report ]; + with: 'Report'. \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/renderContentOn..st b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/renderContentOn..st new file mode 100644 index 000000000..542aa7985 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/renderContentOn..st @@ -0,0 +1,5 @@ +accessing +renderContentOn: html + html div class: 'tool'; with: self report. + self message isNil + ifFalse: [ html preformatted: self message ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/report.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/report.st new file mode 100644 index 000000000..869d83246 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/report.st @@ -0,0 +1,3 @@ +accessing +report + ^ report ifNil: [ report := self buildReport ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/properties.json b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/properties.json new file mode 100644 index 000000000..7d5f3ec67 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/properties.json @@ -0,0 +1,16 @@ +{ + "category" : "Seaside-GemStone-Development-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "report", + "items", + "message" ], + "name" : "WAObjectsReadTool", + "pools" : [ + ], + "super" : "WATool", + "type" : "normal" } diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/README.md b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/execute.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/execute.st new file mode 100644 index 000000000..4de34edf6 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/execute.st @@ -0,0 +1,7 @@ +actions +execute + self isProfiling + ifFalse: [ self session addFilter: self filter reset ] + ifTrue: [ + self session removeFilter: self filter. + self open: (WAObjectsReadTool on: self filter items) ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/filter.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/filter.st new file mode 100644 index 000000000..a28f20560 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/filter.st @@ -0,0 +1,3 @@ +accessing +filter + ^ filter ifNil: [ filter := WAObjectsReadFilter new ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/isProfiling.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/isProfiling.st new file mode 100644 index 000000000..66cf9ad97 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/isProfiling.st @@ -0,0 +1,3 @@ +testing +isProfiling + ^ self session filters includes: self filter \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/label.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/label.st new file mode 100644 index 000000000..4e8dd38a9 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/label.st @@ -0,0 +1,5 @@ +accessing +label + ^ self isProfiling + ifFalse: [ 'ObjectsRead' ] + ifTrue: [ 'Stop ObjectsRead' ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/priority.st b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/priority.st new file mode 100644 index 000000000..77233e19a --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/priority.st @@ -0,0 +1,3 @@ +accessing +priority + ^ 450 \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/properties.json b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/properties.json new file mode 100644 index 000000000..3616d3d69 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Seaside-GemStone-Development-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "filter" ], + "name" : "WAObjectsReadToolPlugin", + "pools" : [ + ], + "super" : "WAToolPlugin", + "type" : "normal" } diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/README.md b/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/handleFiltered..st b/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/handleFiltered..st new file mode 100644 index 000000000..38036bfbb --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/handleFiltered..st @@ -0,0 +1,6 @@ +processing +handleFiltered: aRequestContext + | item | + item := WAProfilerItem request: aRequestContext request copy. + [ item profile: [ super handleFiltered: aRequestContext ] ] + ensure: [ items := items copyWith: item ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/items.st b/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/items.st new file mode 100644 index 000000000..5d5ba6737 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/items.st @@ -0,0 +1,3 @@ +accessing +items + ^ items \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/reset.st b/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/reset.st new file mode 100644 index 000000000..e1a901335 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/reset.st @@ -0,0 +1,3 @@ +processing +reset + items := Array new \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/properties.json b/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/properties.json new file mode 100644 index 000000000..a9e7d30e1 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Seaside-GemStone-Development-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "items" ], + "name" : "WAProfilerFilter", + "pools" : [ + ], + "super" : "WARequestFilter", + "type" : "normal" } diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/README.md b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/class/request..st b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/class/request..st new file mode 100644 index 000000000..f1f5696e4 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/class/request..st @@ -0,0 +1,3 @@ +as yet unclassified +request: aRequest + ^ self basicNew initializeOn: aRequest; yourself \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/duration.st b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/duration.st new file mode 100644 index 000000000..84325f2e3 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/duration.st @@ -0,0 +1,3 @@ +accessing +duration + ^ Duration seconds: (self end - self start) \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/end.st b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/end.st new file mode 100644 index 000000000..0f863682e --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/end.st @@ -0,0 +1,3 @@ +accessing +end + ^ profmonitor endTime \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/initializeOn..st b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/initializeOn..st new file mode 100644 index 000000000..602fc2a61 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/initializeOn..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aRequest + self initialize. + request := aRequest \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/profile..st b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/profile..st new file mode 100644 index 000000000..f4a767dc8 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/profile..st @@ -0,0 +1,6 @@ +public +profile: aBlock + profmonitor := ProfMonitor new. + profmonitor startMonitoring. + [ aBlock value ] + ensure: [ profmonitor stopMonitoring; gatherResults; removeFile. ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/report.st b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/report.st new file mode 100644 index 000000000..3708a9f9c --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/report.st @@ -0,0 +1,3 @@ +accessing +report + ^ profmonitor reportDownTo: 1 \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/request.st b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/request.st new file mode 100644 index 000000000..2e6c9675a --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/request.st @@ -0,0 +1,5 @@ +accessing +request + "Answer the request causing this profile." + + ^ request \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/start.st b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/start.st new file mode 100644 index 000000000..9720e55b2 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/start.st @@ -0,0 +1,3 @@ +accessing +start + ^ profmonitor startTime \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/properties.json b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/properties.json new file mode 100644 index 000000000..8521628e1 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerItem.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "Seaside-GemStone-Development-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "request", + "profmonitor" ], + "name" : "WAProfilerItem", + "pools" : [ + ], + "super" : "WAObject", + "type" : "normal" } diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/README.md b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/class/on..st b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/class/on..st new file mode 100644 index 000000000..70402c5b3 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/class/on..st @@ -0,0 +1,3 @@ +as yet unclassified +on: aCollection + ^ self basicNew initializeOn: aCollection; yourself \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/buildReport.st b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/buildReport.st new file mode 100644 index 000000000..2273935d1 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/buildReport.st @@ -0,0 +1,30 @@ +private +buildReport + ^ WATableReport new + rows: self items; + columns: (OrderedCollection new + add: (WAReportColumn new + title: 'Start'; + selector: #start; + cssClass: 'left'; + yourself); + add: (WAReportColumn new + title: 'Duration'; + selector: #duration; + cssClass: 'left'; + yourself); + add: (WAReportColumn new + title: 'Request'; + valueBlock: [ :value | value request method , ' ' , value request url greaseString ]; + clickBlock: [ :value | self show: (WAInspector current on: value request) ]; + yourself); + add: (WAReportColumn new + sortBlock: nil; + title: 'Commands'; + valueBlock: [ :value :html | + self + renderCommands: value + on: html ]; + yourself); + yourself); + yourself \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/initializeOn..st b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/initializeOn..st new file mode 100644 index 000000000..53c398f51 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/initializeOn..st @@ -0,0 +1,4 @@ +initialization +initializeOn: aCollection + self initialize. + items := aCollection \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/items.st b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/items.st new file mode 100644 index 000000000..5d5ba6737 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/items.st @@ -0,0 +1,3 @@ +accessing +items + ^ items \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/message.st b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/message.st new file mode 100644 index 000000000..dce1f38a0 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/message.st @@ -0,0 +1,3 @@ +accessing +message + ^message \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/renderCommands.on..st b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/renderCommands.on..st new file mode 100644 index 000000000..f78efa8dd --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/renderCommands.on..st @@ -0,0 +1,5 @@ +rendering +renderCommands: anItem on: html + html anchor + callback: [ message := anItem report ]; + with: 'Report'. \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/renderContentOn..st b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/renderContentOn..st new file mode 100644 index 000000000..9851c5b1a --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/renderContentOn..st @@ -0,0 +1,5 @@ +rendering +renderContentOn: html + html div class: 'tool'; with: self report. + self message isNil + ifFalse: [ html preformatted: self message ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/report.st b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/report.st new file mode 100644 index 000000000..869d83246 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/instance/report.st @@ -0,0 +1,3 @@ +accessing +report + ^ report ifNil: [ report := self buildReport ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/properties.json b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/properties.json new file mode 100644 index 000000000..5e76c7441 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerTool.class/properties.json @@ -0,0 +1,16 @@ +{ + "category" : "Seaside-GemStone-Development-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "report", + "items", + "message" ], + "name" : "WAProfilerTool", + "pools" : [ + ], + "super" : "WATool", + "type" : "normal" } diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/README.md b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/execute.st b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/execute.st new file mode 100644 index 000000000..60a3ec67b --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/execute.st @@ -0,0 +1,7 @@ +actions +execute + self isProfiling + ifFalse: [ self session addFilter: self filter reset ] + ifTrue: [ + self session removeFilter: self filter. + self open: (WAProfilerTool on: self filter items) ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/filter.st b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/filter.st new file mode 100644 index 000000000..111b32ad0 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/filter.st @@ -0,0 +1,3 @@ +accessing +filter + ^ filter ifNil: [ filter := WAProfilerFilter new ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/isProfiling.st b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/isProfiling.st new file mode 100644 index 000000000..66cf9ad97 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/isProfiling.st @@ -0,0 +1,3 @@ +testing +isProfiling + ^ self session filters includes: self filter \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/label.st b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/label.st new file mode 100644 index 000000000..e63c91992 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/label.st @@ -0,0 +1,5 @@ +accessing +label + ^ self isProfiling + ifFalse: [ 'Profile' ] + ifTrue: [ 'Stop Profile' ] \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/priority.st b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/priority.st new file mode 100644 index 000000000..3567eb83d --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/instance/priority.st @@ -0,0 +1,3 @@ +accessing +priority + ^ 400 \ No newline at end of file diff --git a/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/properties.json b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/properties.json new file mode 100644 index 000000000..4e9661ef1 --- /dev/null +++ b/repository/Seaside-GemStone-Development.package/WAProfilerToolPlugin.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Seaside-GemStone-Development-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "filter" ], + "name" : "WAProfilerToolPlugin", + "pools" : [ + ], + "super" : "WAToolPlugin", + "type" : "normal" }