-
Notifications
You must be signed in to change notification settings - Fork 71
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #1366 from SeasideSt/gemstone-devtools
added GemStone version of profiler tool and an objectsread tool
- Loading branch information
Showing
69 changed files
with
409 additions
and
0 deletions.
There are no files selected for viewing
Empty file.
15 changes: 15 additions & 0 deletions
15
...easide-GemStone-Development.package/WAObjectsReadFilter.class/instance/handleFiltered..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 ] |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/items.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| items | ||
| ^ items |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/instance/reset.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| processing | ||
| reset | ||
| items := Array new |
14 changes: 14 additions & 0 deletions
14
repository/Seaside-GemStone-Development.package/WAObjectsReadFilter.class/properties.json
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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" } |
Empty file.
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/class/request..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| instance creation | ||
| request: aRequest | ||
| ^ self basicNew initializeOn: aRequest; yourself |
4 changes: 4 additions & 0 deletions
4
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/end..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,4 @@ | ||
| accessing | ||
| end: aDateAndTime | ||
|
|
||
| end := aDateAndTime |
4 changes: 4 additions & 0 deletions
4
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/end.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,4 @@ | ||
| accessing | ||
| end | ||
|
|
||
| ^ end |
4 changes: 4 additions & 0 deletions
4
...ry/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/initializeOn..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,4 @@ | ||
| initialization | ||
| initializeOn: aRequest | ||
| self initialize. | ||
| request := aRequest |
5 changes: 5 additions & 0 deletions
5
...ory/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/objectsRead..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| updating | ||
| objectsRead: newValue | ||
|
|
||
| "Modify the value of the instance variable 'objectsRead'." | ||
| objectsRead := newValue |
5 changes: 5 additions & 0 deletions
5
...tory/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/objectsRead.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| accessing | ||
| objectsRead | ||
|
|
||
| "Return the value of the instance variable 'objectsRead'." | ||
| ^objectsRead |
13 changes: 13 additions & 0 deletions
13
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/report.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 ] ] |
5 changes: 5 additions & 0 deletions
5
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/request..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| updating | ||
| request: newValue | ||
|
|
||
| "Modify the value of the instance variable 'request'." | ||
| request := newValue |
5 changes: 5 additions & 0 deletions
5
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/request.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| accessing | ||
| request | ||
|
|
||
| "Return the value of the instance variable 'request'." | ||
| ^request |
5 changes: 5 additions & 0 deletions
5
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/size..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| updating | ||
| size: newValue | ||
|
|
||
| "Modify the value of the instance variable 'size'." | ||
| size := newValue |
5 changes: 5 additions & 0 deletions
5
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/size.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| accessing | ||
| size | ||
|
|
||
| "Return the value of the instance variable 'size'." | ||
| ^size |
4 changes: 4 additions & 0 deletions
4
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/start..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,4 @@ | ||
| accessing | ||
| start: aDateAndTime | ||
|
|
||
| start := aDateAndTime |
4 changes: 4 additions & 0 deletions
4
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/instance/start.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,4 @@ | ||
| accessing | ||
| start | ||
|
|
||
| ^ start |
18 changes: 18 additions & 0 deletions
18
repository/Seaside-GemStone-Development.package/WAObjectsReadItem.class/properties.json
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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" } |
Empty file.
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/class/on..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| as yet unclassified | ||
| on: aCollection | ||
| ^ self basicNew initializeOn: aCollection; yourself |
35 changes: 35 additions & 0 deletions
35
...tory/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/buildReport.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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 |
4 changes: 4 additions & 0 deletions
4
...ry/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/initializeOn..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,4 @@ | ||
| initialization | ||
| initializeOn: aCollection | ||
| self initialize. | ||
| items := aCollection |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/items.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| items | ||
| ^ items |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/message.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| message | ||
| ^message |
5 changes: 5 additions & 0 deletions
5
...aside-GemStone-Development.package/WAObjectsReadTool.class/instance/renderCommands.on..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| accessing | ||
| renderCommands: anItem on: html | ||
| html anchor | ||
| callback: [ message := anItem report ]; | ||
| with: 'Report'. |
5 changes: 5 additions & 0 deletions
5
...Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/renderContentOn..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| accessing | ||
| renderContentOn: html | ||
| html div class: 'tool'; with: self report. | ||
| self message isNil | ||
| ifFalse: [ html preformatted: self message ] |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/instance/report.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| report | ||
| ^ report ifNil: [ report := self buildReport ] |
16 changes: 16 additions & 0 deletions
16
repository/Seaside-GemStone-Development.package/WAObjectsReadTool.class/properties.json
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,16 @@ | ||
| { | ||
| "category" : "Seaside-GemStone-Development-Core", | ||
| "classinstvars" : [ | ||
| ], | ||
| "classvars" : [ | ||
| ], | ||
| "commentStamp" : "", | ||
| "instvars" : [ | ||
| "report", | ||
| "items", | ||
| "message" ], | ||
| "name" : "WAObjectsReadTool", | ||
| "pools" : [ | ||
| ], | ||
| "super" : "WATool", | ||
| "type" : "normal" } |
Empty file.
7 changes: 7 additions & 0 deletions
7
...ry/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/execute.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -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) ] |
3 changes: 3 additions & 0 deletions
3
...ory/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/filter.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| filter | ||
| ^ filter ifNil: [ filter := WAObjectsReadFilter new ] |
3 changes: 3 additions & 0 deletions
3
...easide-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/isProfiling.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| testing | ||
| isProfiling | ||
| ^ self session filters includes: self filter |
5 changes: 5 additions & 0 deletions
5
...tory/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/label.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| accessing | ||
| label | ||
| ^ self isProfiling | ||
| ifFalse: [ 'ObjectsRead' ] | ||
| ifTrue: [ 'Stop ObjectsRead' ] |
3 changes: 3 additions & 0 deletions
3
...y/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/instance/priority.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| priority | ||
| ^ 450 |
14 changes: 14 additions & 0 deletions
14
...sitory/Seaside-GemStone-Development.package/WAObjectsReadToolPlugin.class/properties.json
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,14 @@ | ||
| { | ||
| "category" : "Seaside-GemStone-Development-Core", | ||
| "classinstvars" : [ | ||
| ], | ||
| "classvars" : [ | ||
| ], | ||
| "commentStamp" : "", | ||
| "instvars" : [ | ||
| "filter" ], | ||
| "name" : "WAObjectsReadToolPlugin", | ||
| "pools" : [ | ||
| ], | ||
| "super" : "WAToolPlugin", | ||
| "type" : "normal" } |
Empty file.
6 changes: 6 additions & 0 deletions
6
...y/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/handleFiltered..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,6 @@ | ||
| processing | ||
| handleFiltered: aRequestContext | ||
| | item | | ||
| item := WAProfilerItem request: aRequestContext request copy. | ||
| [ item profile: [ super handleFiltered: aRequestContext ] ] | ||
| ensure: [ items := items copyWith: item ] |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/items.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| items | ||
| ^ items |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/instance/reset.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| processing | ||
| reset | ||
| items := Array new |
14 changes: 14 additions & 0 deletions
14
repository/Seaside-GemStone-Development.package/WAProfilerFilter.class/properties.json
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,14 @@ | ||
| { | ||
| "category" : "Seaside-GemStone-Development-Core", | ||
| "classinstvars" : [ | ||
| ], | ||
| "classvars" : [ | ||
| ], | ||
| "commentStamp" : "", | ||
| "instvars" : [ | ||
| "items" ], | ||
| "name" : "WAProfilerFilter", | ||
| "pools" : [ | ||
| ], | ||
| "super" : "WARequestFilter", | ||
| "type" : "normal" } |
Empty file.
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAProfilerItem.class/class/request..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| as yet unclassified | ||
| request: aRequest | ||
| ^ self basicNew initializeOn: aRequest; yourself |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/duration.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| duration | ||
| ^ Duration seconds: (self end - self start) |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/end.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| end | ||
| ^ profmonitor endTime |
4 changes: 4 additions & 0 deletions
4
...itory/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/initializeOn..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,4 @@ | ||
| initialization | ||
| initializeOn: aRequest | ||
| self initialize. | ||
| request := aRequest |
6 changes: 6 additions & 0 deletions
6
repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/profile..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,6 @@ | ||
| public | ||
| profile: aBlock | ||
| profmonitor := ProfMonitor new. | ||
| profmonitor startMonitoring. | ||
| [ aBlock value ] | ||
| ensure: [ profmonitor stopMonitoring; gatherResults; removeFile. ] |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/report.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| report | ||
| ^ profmonitor reportDownTo: 1 |
5 changes: 5 additions & 0 deletions
5
repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/request.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,5 @@ | ||
| accessing | ||
| request | ||
| "Answer the request causing this profile." | ||
|
|
||
| ^ request |
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAProfilerItem.class/instance/start.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| accessing | ||
| start | ||
| ^ profmonitor startTime |
15 changes: 15 additions & 0 deletions
15
repository/Seaside-GemStone-Development.package/WAProfilerItem.class/properties.json
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,15 @@ | ||
| { | ||
| "category" : "Seaside-GemStone-Development-Core", | ||
| "classinstvars" : [ | ||
| ], | ||
| "classvars" : [ | ||
| ], | ||
| "commentStamp" : "", | ||
| "instvars" : [ | ||
| "request", | ||
| "profmonitor" ], | ||
| "name" : "WAProfilerItem", | ||
| "pools" : [ | ||
| ], | ||
| "super" : "WAObject", | ||
| "type" : "normal" } |
Empty file.
3 changes: 3 additions & 0 deletions
3
repository/Seaside-GemStone-Development.package/WAProfilerTool.class/class/on..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,3 @@ | ||
| as yet unclassified | ||
| on: aCollection | ||
| ^ self basicNew initializeOn: aCollection; yourself |
Oops, something went wrong.