From cce212869f807476d632364fef7287b092f5dd39 Mon Sep 17 00:00:00 2001 From: Christoph Thiede Date: Sat, 27 May 2023 01:37:55 +0200 Subject: [PATCH] add smalltalk packages and trace serializer --- .project | 3 +++ .squot | 4 ++++ packages/BaselineOfTrace4D.package/.filetree | 4 ++++ .../BaselineOfTrace4D.package/.squot-contents | 6 +++++ .../BaselineOfTrace4D.class/README.md | 0 .../instance/baseline..st | 20 ++++++++++++++++ .../instance/projectClass.st | 4 ++++ .../methodProperties.json | 6 +++++ .../BaselineOfTrace4D.class/properties.json | 14 +++++++++++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../BaselineOfTrace4D.package/properties.json | 2 ++ packages/Trace4D.package/.filetree | 4 ++++ packages/Trace4D.package/.squot-contents | 6 +++++ .../Trace4D.package/T4DTrace.class/README.md | 0 .../T4DTrace.class/class/cursorClass.st | 4 ++++ .../T4DTrace.class/class/forBlock..st | 5 ++++ .../T4DTrace.class/class/forCursor..st | 4 ++++ .../T4DTrace.class/instance/buildClasses.st | 12 ++++++++++ .../instance/buildFieldHistoryFor.field..st | 15 ++++++++++++ .../T4DTrace.class/instance/buildJson.st | 18 +++++++++++++++ .../instance/buildObjectFor..st | 17 ++++++++++++++ .../T4DTrace.class/instance/buildObjects.st | 10 ++++++++ .../T4DTrace.class/instance/buildTrace.st | 5 ++++ .../T4DTrace.class/instance/buildTraceFor..st | 19 +++++++++++++++ .../T4DTrace.class/instance/containerClass.st | 4 ++++ .../T4DTrace.class/instance/cursor..st | 4 ++++ .../T4DTrace.class/instance/cursor.st | 4 ++++ .../T4DTrace.class/instance/fieldsFor..st | 10 ++++++++ .../T4DTrace.class/instance/idOrStringFor..st | 8 +++++++ .../T4DTrace.class/instance/makeContainer.st | 4 ++++ .../T4DTrace.class/instance/nameForClass..st | 5 ++++ .../T4DTrace.class/instance/objectIdFor..st | 5 ++++ .../instance/storeJsonInFileNamed..st | 7 ++++++ .../T4DTrace.class/instance/stringFor..st | 4 ++++ .../T4DTrace.class/methodProperties.json | 23 +++++++++++++++++++ .../T4DTrace.class/properties.json | 16 +++++++++++++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 packages/Trace4D.package/properties.json | 2 ++ 40 files changed, 280 insertions(+) create mode 100644 .project create mode 100644 .squot create mode 100644 packages/BaselineOfTrace4D.package/.filetree create mode 100644 packages/BaselineOfTrace4D.package/.squot-contents create mode 100644 packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/README.md create mode 100644 packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/instance/baseline..st create mode 100644 packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/instance/projectClass.st create mode 100644 packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/methodProperties.json create mode 100644 packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/properties.json create mode 100644 packages/BaselineOfTrace4D.package/monticello.meta/categories.st create mode 100644 packages/BaselineOfTrace4D.package/monticello.meta/initializers.st create mode 100644 packages/BaselineOfTrace4D.package/properties.json create mode 100644 packages/Trace4D.package/.filetree create mode 100644 packages/Trace4D.package/.squot-contents create mode 100644 packages/Trace4D.package/T4DTrace.class/README.md create mode 100644 packages/Trace4D.package/T4DTrace.class/class/cursorClass.st create mode 100644 packages/Trace4D.package/T4DTrace.class/class/forBlock..st create mode 100644 packages/Trace4D.package/T4DTrace.class/class/forCursor..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/buildClasses.st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/buildFieldHistoryFor.field..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/buildJson.st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/buildObjectFor..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/buildObjects.st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/buildTrace.st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/buildTraceFor..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/containerClass.st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/cursor..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/cursor.st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/fieldsFor..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/idOrStringFor..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/makeContainer.st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/nameForClass..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/objectIdFor..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/storeJsonInFileNamed..st create mode 100644 packages/Trace4D.package/T4DTrace.class/instance/stringFor..st create mode 100644 packages/Trace4D.package/T4DTrace.class/methodProperties.json create mode 100644 packages/Trace4D.package/T4DTrace.class/properties.json create mode 100644 packages/Trace4D.package/monticello.meta/categories.st create mode 100644 packages/Trace4D.package/monticello.meta/initializers.st create mode 100644 packages/Trace4D.package/properties.json diff --git a/.project b/.project new file mode 100644 index 0000000..87babca --- /dev/null +++ b/.project @@ -0,0 +1,3 @@ +{ + 'srcDirectory' : 'packages' +} \ No newline at end of file diff --git a/.squot b/.squot new file mode 100644 index 0000000..8642b86 --- /dev/null +++ b/.squot @@ -0,0 +1,4 @@ +OrderedDictionary { + 'packages/BaselineOfTrace4D.package' : #SquotCypressCodeSerializer, + 'packages/Trace4D.package' : #SquotCypressCodeSerializer +} \ No newline at end of file diff --git a/packages/BaselineOfTrace4D.package/.filetree b/packages/BaselineOfTrace4D.package/.filetree new file mode 100644 index 0000000..8998102 --- /dev/null +++ b/packages/BaselineOfTrace4D.package/.filetree @@ -0,0 +1,4 @@ +{ + "noMethodMetaData" : true, + "separateMethodMetaAndSource" : false, + "useCypressPropertiesFile" : true } diff --git a/packages/BaselineOfTrace4D.package/.squot-contents b/packages/BaselineOfTrace4D.package/.squot-contents new file mode 100644 index 0000000..8de2622 --- /dev/null +++ b/packages/BaselineOfTrace4D.package/.squot-contents @@ -0,0 +1,6 @@ +SquotTrackedObjectMetadata { + #objectClassName : #PackageInfo, + #id : UUID [ '09c330835f4dcf498290c4053f7a0de1' ], + #objectsReplacedByNames : true, + #serializer : #SquotCypressCodeSerializer +} \ No newline at end of file diff --git a/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/README.md b/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/README.md new file mode 100644 index 0000000..e69de29 diff --git a/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/instance/baseline..st b/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/instance/baseline..st new file mode 100644 index 0000000..5bed47d --- /dev/null +++ b/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/instance/baseline..st @@ -0,0 +1,20 @@ +baseline +baseline: spec + + + spec for: #common do: [ + "dependencies" + spec + baseline: 'TraceDebugger' with: [ + spec + repository: 'github://hpi-swa-lab/squeak-tracedebugger'; + loads: 'TraceDebugger']]. + + "packages" + spec + package: 'Trace4D' with: [ + spec requires: 'TraceDebugger']. + + "groups" + spec + group: #default with: #('Trace4D'). \ No newline at end of file diff --git a/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/instance/projectClass.st b/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/instance/projectClass.st new file mode 100644 index 0000000..c5e83ff --- /dev/null +++ b/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/instance/projectClass.st @@ -0,0 +1,4 @@ +accessing +projectClass + + ^ MetacelloCypressBaselineProject \ No newline at end of file diff --git a/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/methodProperties.json b/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/methodProperties.json new file mode 100644 index 0000000..29c41f1 --- /dev/null +++ b/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "baseline:" : "ct 5/27/2023 01:26", + "projectClass" : "ct 5/27/2023 01:23" } } diff --git a/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/properties.json b/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/properties.json new file mode 100644 index 0000000..f39c24d --- /dev/null +++ b/packages/BaselineOfTrace4D.package/BaselineOfTrace4D.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "BaselineOfTrace4D", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "BaselineOfTrace4D", + "pools" : [ + ], + "super" : "BaselineOf", + "type" : "normal" } diff --git a/packages/BaselineOfTrace4D.package/monticello.meta/categories.st b/packages/BaselineOfTrace4D.package/monticello.meta/categories.st new file mode 100644 index 0000000..d09c2ad --- /dev/null +++ b/packages/BaselineOfTrace4D.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #BaselineOfTrace4D! diff --git a/packages/BaselineOfTrace4D.package/monticello.meta/initializers.st b/packages/BaselineOfTrace4D.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/packages/BaselineOfTrace4D.package/properties.json b/packages/BaselineOfTrace4D.package/properties.json new file mode 100644 index 0000000..f037444 --- /dev/null +++ b/packages/BaselineOfTrace4D.package/properties.json @@ -0,0 +1,2 @@ +{ + } diff --git a/packages/Trace4D.package/.filetree b/packages/Trace4D.package/.filetree new file mode 100644 index 0000000..8998102 --- /dev/null +++ b/packages/Trace4D.package/.filetree @@ -0,0 +1,4 @@ +{ + "noMethodMetaData" : true, + "separateMethodMetaAndSource" : false, + "useCypressPropertiesFile" : true } diff --git a/packages/Trace4D.package/.squot-contents b/packages/Trace4D.package/.squot-contents new file mode 100644 index 0000000..5fdd79d --- /dev/null +++ b/packages/Trace4D.package/.squot-contents @@ -0,0 +1,6 @@ +SquotTrackedObjectMetadata { + #objectClassName : #PackageInfo, + #id : UUID [ 'd6cbd64ac6ce3a4396ba426e0334d4f9' ], + #objectsReplacedByNames : true, + #serializer : #SquotCypressCodeSerializer +} \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/README.md b/packages/Trace4D.package/T4DTrace.class/README.md new file mode 100644 index 0000000..e69de29 diff --git a/packages/Trace4D.package/T4DTrace.class/class/cursorClass.st b/packages/Trace4D.package/T4DTrace.class/class/cursorClass.st new file mode 100644 index 0000000..dc9f6dc --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/class/cursorClass.st @@ -0,0 +1,4 @@ +accessing +cursorClass + + ^ TDBCursor \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/class/forBlock..st b/packages/Trace4D.package/T4DTrace.class/class/forBlock..st new file mode 100644 index 0000000..af09ef1 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/class/forBlock..st @@ -0,0 +1,5 @@ +instance creation +forBlock: aBlock + + ^ self forCursor: + (self cursorClass traceForBlock: aBlock) \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/class/forCursor..st b/packages/Trace4D.package/T4DTrace.class/class/forCursor..st new file mode 100644 index 0000000..38df5e1 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/class/forCursor..st @@ -0,0 +1,4 @@ +instance creation +forCursor: aTDBCursor + + ^ self new cursor: aTDBCursor \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/buildClasses.st b/packages/Trace4D.package/T4DTrace.class/instance/buildClasses.st new file mode 100644 index 0000000..0010fbc --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/buildClasses.st @@ -0,0 +1,12 @@ +building +buildClasses + + | classes | + classes := self makeContainer. + classNames keysAndValuesDo: [:class :name | + classes at: name put: + (self makeContainer + category: class category; + package: (class packageInfo ifNotNil: [:package | package name]); + yourself)]. + ^ classes \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/buildFieldHistoryFor.field..st b/packages/Trace4D.package/T4DTrace.class/instance/buildFieldHistoryFor.field..st new file mode 100644 index 0000000..4d9fa37 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/buildFieldHistoryFor.field..st @@ -0,0 +1,15 @@ +building +buildFieldHistoryFor: anObject field: field + + | slice | + slice := self cursor object: anObject collect: [:object | + | value error | + [value := field value: object] ifError: [:err | error := err]. + error + ifNotNil: ['' format: {error}] + ifNil: [self idOrStringFor: value]]. + slice intervals size > 1 ifFalse: [^ nil]. + ^ self makeContainer + times: (slice intervals allButLast collect: [:interval | interval stop + 1]); + values: (slice values allButLast collect: [:value | value copy tdbproxyYourself]); + yourself \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/buildJson.st b/packages/Trace4D.package/T4DTrace.class/instance/buildJson.st new file mode 100644 index 0000000..a0ddc6b --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/buildJson.st @@ -0,0 +1,18 @@ +building +buildJson + + | trace objects classes | + objectIds := PluggableDictionary + hashBlock: [:a | a perform: #identityHash] + equalBlock: [:a :b | a tdbIdentical: b]. + classNames := Dictionary new. + + trace := self buildTrace. + objects := self buildObjects. + classes := self buildClasses. + + ^ self makeContainer + objects: objects; + classes: classes; + trace: trace; + yourself \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/buildObjectFor..st b/packages/Trace4D.package/T4DTrace.class/instance/buildObjectFor..st new file mode 100644 index 0000000..44b64b7 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/buildObjectFor..st @@ -0,0 +1,17 @@ +building +buildObjectFor: anObject + + | fields | + fields := self fieldsFor: anObject. + ^ self makeContainer + class: (self nameForClass: (anObject perform: #class)); + name: (self stringFor: anObject); + fields: + (fields + collect: [:field | field key -> (self idOrStringFor: (field value value: anObject))] + as: self containerClass); + historicFields: + (fields + collect: [:field | field key -> (self buildFieldHistoryFor: anObject field: field value)] + as: self containerClass); + yourself \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/buildObjects.st b/packages/Trace4D.package/T4DTrace.class/instance/buildObjects.st new file mode 100644 index 0000000..faae1c2 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/buildObjects.st @@ -0,0 +1,10 @@ +building +buildObjects + + | objects | + objects := self makeContainer. + objectIds keysAndValuesDo: [:object :id | + objects at: id put: + (self buildObjectFor: + (self cursor object: object atTime: self cursor maxTimeIndex))]. + ^ objects \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/buildTrace.st b/packages/Trace4D.package/T4DTrace.class/instance/buildTrace.st new file mode 100644 index 0000000..b6f1744 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/buildTrace.st @@ -0,0 +1,5 @@ +building +buildTrace + + ^ self buildTraceFor: + (self cursor contextAtTime: 0) \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/buildTraceFor..st b/packages/Trace4D.package/T4DTrace.class/instance/buildTraceFor..st new file mode 100644 index 0000000..968b8d3 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/buildTraceFor..st @@ -0,0 +1,19 @@ +building +buildTraceFor: aContext + + | trace | + trace := self makeContainer + receiver: (self objectIdFor: aContext receiver); + message: aContext tdbBlockAndSelectorString; + arguments: + ((aContext arguments collect: [:ea | self idOrStringFor: ea]) + copy collect: [:ea | ea tdbproxyYourself]) tdbproxyYourself; + yourself. + self cursor returnValueFor: aContext ifPresent: [:value | + trace answer: (self idOrStringFor: value)]. + trace + startTime: (self cursor minTimeIndexFor: aContext); + endTime: (self cursor maxTimeIndexFor: aContext); + children: ((self cursor childContextsFor: aContext) + collect: [:childContext | self buildTraceFor: childContext]). + ^ trace \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/containerClass.st b/packages/Trace4D.package/T4DTrace.class/instance/containerClass.st new file mode 100644 index 0000000..8e87d5a --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/containerClass.st @@ -0,0 +1,4 @@ +private +containerClass + + ^ OrderedJsonObject \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/cursor..st b/packages/Trace4D.package/T4DTrace.class/instance/cursor..st new file mode 100644 index 0000000..432e804 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/cursor..st @@ -0,0 +1,4 @@ +accessing +cursor: aTDBCursor + + cursor := aTDBCursor. \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/cursor.st b/packages/Trace4D.package/T4DTrace.class/instance/cursor.st new file mode 100644 index 0000000..261e5ca --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/cursor.st @@ -0,0 +1,4 @@ +accessing +cursor + + ^ cursor \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/fieldsFor..st b/packages/Trace4D.package/T4DTrace.class/instance/fieldsFor..st new file mode 100644 index 0000000..0a90a39 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/fieldsFor..st @@ -0,0 +1,10 @@ +building +fieldsFor: anObject + + | inspector inspectorFields | + inspector := Inspector inspect: anObject. + inspectorFields := Array streamContents: [:stream | + [inspector streamVariableFieldsOn: stream] + ifError: [inspector streamError: #error on: stream]]. + ^ inspectorFields collect: [:inspectorField | + inspectorField name asString -> inspectorField valueGetter] \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/idOrStringFor..st b/packages/Trace4D.package/T4DTrace.class/instance/idOrStringFor..st new file mode 100644 index 0000000..d0f8dc0 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/idOrStringFor..st @@ -0,0 +1,8 @@ +building +idOrStringFor: anObject + + ^ objectIds at: anObject ifAbsent: + [(self stringFor: anObject) ifNotEmpty: [:string | + ('@\' includes: string first) + ifTrue: [string copyWithFirst: $\] + ifFalse: [string]]] \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/makeContainer.st b/packages/Trace4D.package/T4DTrace.class/instance/makeContainer.st new file mode 100644 index 0000000..ec66cb5 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/makeContainer.st @@ -0,0 +1,4 @@ +private +makeContainer + + ^ self containerClass new \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/nameForClass..st b/packages/Trace4D.package/T4DTrace.class/instance/nameForClass..st new file mode 100644 index 0000000..fd3e72c --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/nameForClass..st @@ -0,0 +1,5 @@ +building +nameForClass: aClass + + ^ classNames at: aClass ifAbsentPut: + [aClass name] \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/objectIdFor..st b/packages/Trace4D.package/T4DTrace.class/instance/objectIdFor..st new file mode 100644 index 0000000..7b2418c --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/objectIdFor..st @@ -0,0 +1,5 @@ +building +objectIdFor: anObject + + ^ objectIds at: anObject ifAbsentPut: + ['@' , UUID new] \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/storeJsonInFileNamed..st b/packages/Trace4D.package/T4DTrace.class/instance/storeJsonInFileNamed..st new file mode 100644 index 0000000..35ecba1 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/storeJsonInFileNamed..st @@ -0,0 +1,7 @@ +writing +storeJsonInFileNamed: fileName + + | json | + json := self buildJson. + FileStream newFileNamed: fileName do: [:stream | + json jsonWriteOn: stream]. \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/instance/stringFor..st b/packages/Trace4D.package/T4DTrace.class/instance/stringFor..st new file mode 100644 index 0000000..bbfc442 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/instance/stringFor..st @@ -0,0 +1,4 @@ +building +stringFor: anObject + + ^ [anObject printString] ifError: [:error | '' format: {error}] \ No newline at end of file diff --git a/packages/Trace4D.package/T4DTrace.class/methodProperties.json b/packages/Trace4D.package/T4DTrace.class/methodProperties.json new file mode 100644 index 0000000..9a10884 --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/methodProperties.json @@ -0,0 +1,23 @@ +{ + "class" : { + "cursorClass" : "ct 5/26/2023 00:40", + "forBlock:" : "ct 5/21/2023 17:39", + "forCursor:" : "ct 5/21/2023 17:39" }, + "instance" : { + "buildClasses" : "ct 5/21/2023 18:36", + "buildFieldHistoryFor:field:" : "ct 5/26/2023 00:45", + "buildJson" : "ct 5/21/2023 18:37", + "buildObjectFor:" : "ct 5/27/2023 01:20", + "buildObjects" : "ct 5/21/2023 18:48", + "buildTrace" : "ct 5/21/2023 18:30", + "buildTraceFor:" : "ct 5/21/2023 20:01", + "containerClass" : "ct 5/21/2023 18:36", + "cursor" : "ct 5/21/2023 17:39", + "cursor:" : "ct 5/21/2023 17:39", + "fieldsFor:" : "ct 5/21/2023 18:40", + "idOrStringFor:" : "ct 5/21/2023 18:54", + "makeContainer" : "ct 5/21/2023 18:36", + "nameForClass:" : "ct 5/21/2023 19:57", + "objectIdFor:" : "ct 5/21/2023 17:53", + "storeJsonInFileNamed:" : "ct 5/21/2023 20:05", + "stringFor:" : "ct 5/21/2023 18:34" } } diff --git a/packages/Trace4D.package/T4DTrace.class/properties.json b/packages/Trace4D.package/T4DTrace.class/properties.json new file mode 100644 index 0000000..536bfcb --- /dev/null +++ b/packages/Trace4D.package/T4DTrace.class/properties.json @@ -0,0 +1,16 @@ +{ + "category" : "Trace4D", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "cursor", + "objectIds", + "classNames" ], + "name" : "T4DTrace", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/packages/Trace4D.package/monticello.meta/categories.st b/packages/Trace4D.package/monticello.meta/categories.st new file mode 100644 index 0000000..bd548d3 --- /dev/null +++ b/packages/Trace4D.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #Trace4D! diff --git a/packages/Trace4D.package/monticello.meta/initializers.st b/packages/Trace4D.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/packages/Trace4D.package/properties.json b/packages/Trace4D.package/properties.json new file mode 100644 index 0000000..f037444 --- /dev/null +++ b/packages/Trace4D.package/properties.json @@ -0,0 +1,2 @@ +{ + }