diff --git a/repository/.filetree b/repository/.filetree new file mode 100644 index 0000000..859128c --- /dev/null +++ b/repository/.filetree @@ -0,0 +1,3 @@ +{"packageExtension" : ".package", +"propertyFileExtension" : ".json", +"Metadata" : "false" } \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/.filetree b/repository/Beacon-Core-GT.package/.filetree new file mode 100644 index 0000000..57a6797 --- /dev/null +++ b/repository/Beacon-Core-GT.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/Beacon.extension/class/gtExampleEmpty.st b/repository/Beacon-Core-GT.package/Beacon.extension/class/gtExampleEmpty.st new file mode 100644 index 0000000..a953d05 --- /dev/null +++ b/repository/Beacon-Core-GT.package/Beacon.extension/class/gtExampleEmpty.st @@ -0,0 +1,6 @@ +*Beacon-Core-GT +gtExampleEmpty + + + + ^ self new \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/Beacon.extension/instance/gtInspectorAnnouncementsIn.context..st b/repository/Beacon-Core-GT.package/Beacon.extension/instance/gtInspectorAnnouncementsIn.context..st new file mode 100644 index 0000000..b0f6e8b --- /dev/null +++ b/repository/Beacon-Core-GT.package/Beacon.extension/instance/gtInspectorAnnouncementsIn.context..st @@ -0,0 +1,4 @@ +*Beacon-Core-GT +gtInspectorAnnouncementsIn: composite context: aGTContext + + self announcer gtInspectorAnnouncementsIn: composite context: aGTContext \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/Beacon.extension/instance/gtInspectorSubscriptionsIn..st b/repository/Beacon-Core-GT.package/Beacon.extension/instance/gtInspectorSubscriptionsIn..st new file mode 100644 index 0000000..b24f474 --- /dev/null +++ b/repository/Beacon-Core-GT.package/Beacon.extension/instance/gtInspectorSubscriptionsIn..st @@ -0,0 +1,4 @@ +*Beacon-Core-GT +gtInspectorSubscriptionsIn: composite + + self announcer gtInspectorSubscriptionsIn: composite \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/Beacon.extension/properties.json b/repository/Beacon-Core-GT.package/Beacon.extension/properties.json new file mode 100644 index 0000000..3905532 --- /dev/null +++ b/repository/Beacon-Core-GT.package/Beacon.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Beacon" +} \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/BeaconSignal.extension/class/gtExampleEmpty.st b/repository/Beacon-Core-GT.package/BeaconSignal.extension/class/gtExampleEmpty.st new file mode 100644 index 0000000..a953d05 --- /dev/null +++ b/repository/Beacon-Core-GT.package/BeaconSignal.extension/class/gtExampleEmpty.st @@ -0,0 +1,6 @@ +*Beacon-Core-GT +gtExampleEmpty + + + + ^ self new \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/BeaconSignal.extension/instance/gtDisplayOn..st b/repository/Beacon-Core-GT.package/BeaconSignal.extension/instance/gtDisplayOn..st new file mode 100644 index 0000000..9976ca3 --- /dev/null +++ b/repository/Beacon-Core-GT.package/BeaconSignal.extension/instance/gtDisplayOn..st @@ -0,0 +1,3 @@ +*Beacon-Core-GT +gtDisplayOn: stream + self printOneLineOn: stream \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/BeaconSignal.extension/instance/gtOneLineIn..st b/repository/Beacon-Core-GT.package/BeaconSignal.extension/instance/gtOneLineIn..st new file mode 100644 index 0000000..2c3c1d6 --- /dev/null +++ b/repository/Beacon-Core-GT.package/BeaconSignal.extension/instance/gtOneLineIn..st @@ -0,0 +1,6 @@ +*Beacon-Core-GT +gtOneLineIn: composite + + composite text + title: 'One line'; + display: [ self printOneLineString ] \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/BeaconSignal.extension/properties.json b/repository/Beacon-Core-GT.package/BeaconSignal.extension/properties.json new file mode 100644 index 0000000..dfd7d73 --- /dev/null +++ b/repository/Beacon-Core-GT.package/BeaconSignal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "BeaconSignal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/ExceptionSignal.extension/class/gtExampleEmpty.st b/repository/Beacon-Core-GT.package/ExceptionSignal.extension/class/gtExampleEmpty.st new file mode 100644 index 0000000..a953d05 --- /dev/null +++ b/repository/Beacon-Core-GT.package/ExceptionSignal.extension/class/gtExampleEmpty.st @@ -0,0 +1,6 @@ +*Beacon-Core-GT +gtExampleEmpty + + + + ^ self new \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/ExceptionSignal.extension/instance/gtInspectorStackIn..st b/repository/Beacon-Core-GT.package/ExceptionSignal.extension/instance/gtInspectorStackIn..st new file mode 100644 index 0000000..8b96591 --- /dev/null +++ b/repository/Beacon-Core-GT.package/ExceptionSignal.extension/instance/gtInspectorStackIn..st @@ -0,0 +1,9 @@ +*Beacon-Core-GT +gtInspectorStackIn: composite + + composite fastTable + title: 'Stack'; + display: [ self stack ]; + column: 'Class' evaluated: [:each | each parents first methodClass ]; + column: 'Method' evaluated: [:each | each parents first selector]; + column: 'Code' evaluated: [:each | each formattedCode] \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/ExceptionSignal.extension/properties.json b/repository/Beacon-Core-GT.package/ExceptionSignal.extension/properties.json new file mode 100644 index 0000000..5fbbfe0 --- /dev/null +++ b/repository/Beacon-Core-GT.package/ExceptionSignal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ExceptionSignal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/MemoryLogger.extension/class/gtExampleEmpty.st b/repository/Beacon-Core-GT.package/MemoryLogger.extension/class/gtExampleEmpty.st new file mode 100644 index 0000000..a953d05 --- /dev/null +++ b/repository/Beacon-Core-GT.package/MemoryLogger.extension/class/gtExampleEmpty.st @@ -0,0 +1,6 @@ +*Beacon-Core-GT +gtExampleEmpty + + + + ^ self new \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/MemoryLogger.extension/instance/gtInspectorGroupedIn..st b/repository/Beacon-Core-GT.package/MemoryLogger.extension/instance/gtInspectorGroupedIn..st new file mode 100644 index 0000000..88ee9b9 --- /dev/null +++ b/repository/Beacon-Core-GT.package/MemoryLogger.extension/instance/gtInspectorGroupedIn..st @@ -0,0 +1,9 @@ +*beacon-core-gt +gtInspectorGroupedIn: composite + + composite fastTable + title: 'Grouped'; + display: [ (self recordings reverse groupedBy: [ :each | each class ]) associations ]; + column: 'Class' evaluated: [ :each | each key ]; + column: 'Instances' evaluated: [ :each | each value size ]; + send: [ :each | each value ] \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/MemoryLogger.extension/instance/gtInspectorRecordingsIn..st b/repository/Beacon-Core-GT.package/MemoryLogger.extension/instance/gtInspectorRecordingsIn..st new file mode 100644 index 0000000..6997006 --- /dev/null +++ b/repository/Beacon-Core-GT.package/MemoryLogger.extension/instance/gtInspectorRecordingsIn..st @@ -0,0 +1,35 @@ +*beacon-core-gt +gtInspectorRecordingsIn: composite + + | live | + live := true. + composite fastTable + title: 'Recordings'; + display: [ self recordings reverse ]; + column: 'Timestamp' evaluated: [ :each | each timestamp asString ] width: 80; + column: 'Process' evaluated: [ :each | each processId asString ]; + column: 'Type' evaluated: [ :each | each name ] width: 80; + column: 'Contents' evaluated: [ :each | String streamContents: [ :s | each printOneLineContentsOn: s ] ]; + showOnly: 50; +" beMultiple;" + updateOn: Announcement from: [ self announcer ]; + selectionAct: [ :table | + recordings := self recordings \ table selection. + table update ] + icon: GLMUIThemeExtraIcons glamorousRemove + entitled: 'Remove'; + act: [ :table | + self reset. + table update ] + icon: GLMUIThemeExtraIcons glamorousRemove + entitled: 'Remove all'; + dynamicActions: [ :t | + { + GLMGenericAction new + action: [ t unregisterFromAllAnnouncements. t pane updateToolbar ]; + icon: GLMUIThemeExtraIcons glamorousRedCircle; + title: 'Stop' . + GLMGenericAction new + action: [ t pane update ]; + icon: GLMUIThemeExtraIcons glamorousGreenCircle; + title: 'Play' }] \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/MemoryLogger.extension/properties.json b/repository/Beacon-Core-GT.package/MemoryLogger.extension/properties.json new file mode 100644 index 0000000..3fe91bd --- /dev/null +++ b/repository/Beacon-Core-GT.package/MemoryLogger.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "MemoryLogger" +} \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/ThisContextSignal.extension/class/gtExampleMethodStackSignal.st b/repository/Beacon-Core-GT.package/ThisContextSignal.extension/class/gtExampleMethodStackSignal.st new file mode 100644 index 0000000..21c6003 --- /dev/null +++ b/repository/Beacon-Core-GT.package/ThisContextSignal.extension/class/gtExampleMethodStackSignal.st @@ -0,0 +1,6 @@ +*Beacon-Core-GT +gtExampleMethodStackSignal + + + + ^ MethodStackSignal new \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/ThisContextSignal.extension/instance/gtInspectorStackIn..st b/repository/Beacon-Core-GT.package/ThisContextSignal.extension/instance/gtInspectorStackIn..st new file mode 100644 index 0000000..5ca87d1 --- /dev/null +++ b/repository/Beacon-Core-GT.package/ThisContextSignal.extension/instance/gtInspectorStackIn..st @@ -0,0 +1,6 @@ +*Beacon-Core-GT +gtInspectorStackIn: composite + + composite list + title: 'Stack'; + display: [ self stack ] \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/ThisContextSignal.extension/properties.json b/repository/Beacon-Core-GT.package/ThisContextSignal.extension/properties.json new file mode 100644 index 0000000..3bd1e89 --- /dev/null +++ b/repository/Beacon-Core-GT.package/ThisContextSignal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ThisContextSignal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/monticello.meta/categories.st b/repository/Beacon-Core-GT.package/monticello.meta/categories.st new file mode 100644 index 0000000..3367ee9 --- /dev/null +++ b/repository/Beacon-Core-GT.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Beacon-Core-GT'! diff --git a/repository/Beacon-Core-GT.package/monticello.meta/initializers.st b/repository/Beacon-Core-GT.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/Beacon-Core-GT.package/monticello.meta/package b/repository/Beacon-Core-GT.package/monticello.meta/package new file mode 100644 index 0000000..2df96ea --- /dev/null +++ b/repository/Beacon-Core-GT.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Beacon-Core-GT') \ No newline at end of file diff --git a/repository/Beacon-Core-GT.package/properties.json b/repository/Beacon-Core-GT.package/properties.json new file mode 100644 index 0000000..6f31cf5 --- /dev/null +++ b/repository/Beacon-Core-GT.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/.filetree b/repository/Beacon-Core-Tests.package/.filetree new file mode 100644 index 0000000..57a6797 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/CustomStreamLoggerTest.class/README.md b/repository/Beacon-Core-Tests.package/CustomStreamLoggerTest.class/README.md new file mode 100644 index 0000000..00fa173 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/CustomStreamLoggerTest.class/README.md @@ -0,0 +1 @@ +A CustomStreamLoggerTest is xxxxxxxxx. diff --git a/repository/Beacon-Core-Tests.package/CustomStreamLoggerTest.class/instance/testLoggingAffectsTheStream.st b/repository/Beacon-Core-Tests.package/CustomStreamLoggerTest.class/instance/testLoggingAffectsTheStream.st new file mode 100644 index 0000000..0c002ff --- /dev/null +++ b/repository/Beacon-Core-Tests.package/CustomStreamLoggerTest.class/instance/testLoggingAffectsTheStream.st @@ -0,0 +1,8 @@ +tests +testLoggingAffectsTheStream + | loggedResult | + loggedResult := String streamContents: [ :stream | + (CustomStreamLogger with: stream) + runDuring: [ + StringSignal emit: 'This is a message' ] ]. + self assert: loggedResult lines size = 1 \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/CustomStreamLoggerTest.class/properties.json b/repository/Beacon-Core-Tests.package/CustomStreamLoggerTest.class/properties.json new file mode 100644 index 0000000..25c0c5b --- /dev/null +++ b/repository/Beacon-Core-Tests.package/CustomStreamLoggerTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:13", + "super" : "TestCase", + "category" : "Beacon-Core-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "CustomStreamLoggerTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/DummySignal.class/README.md b/repository/Beacon-Core-Tests.package/DummySignal.class/README.md new file mode 100644 index 0000000..03774e1 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/DummySignal.class/README.md @@ -0,0 +1 @@ +This signal is solely used for testing purposes. \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/DummySignal.class/properties.json b/repository/Beacon-Core-Tests.package/DummySignal.class/properties.json new file mode 100644 index 0000000..d891c9f --- /dev/null +++ b/repository/Beacon-Core-Tests.package/DummySignal.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "TudorGirba 6/9/2014 01:10", + "super" : "BeaconSignal", + "category" : "Beacon-Core-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "DummySignal", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/README.md b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/README.md new file mode 100644 index 0000000..7f85cfa --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/README.md @@ -0,0 +1 @@ +A MemoryLoggerTest is xxxxxxxxx. diff --git a/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testRecordOneSignal.st b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testRecordOneSignal.st new file mode 100644 index 0000000..10c4abe --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testRecordOneSignal.st @@ -0,0 +1,7 @@ +testing +testRecordOneSignal + | logger | + logger := MemoryLogger new + runDuring: [ StringSignal emit: 'test' ]. + self assert: logger recordings size = 1. + self assert: logger recordings first message = 'test' \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testRecordTwoSignalsInTheRightOrder.st b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testRecordTwoSignalsInTheRightOrder.st new file mode 100644 index 0000000..44ab2dd --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testRecordTwoSignalsInTheRightOrder.st @@ -0,0 +1,10 @@ +testing +testRecordTwoSignalsInTheRightOrder + | logger | + logger := MemoryLogger new + runDuring: [ + StringSignal emit: 'test1'. + StringSignal emit: 'test2' ]. + self assert: logger recordings size = 2. + self assert: logger recordings first message = 'test1'. + self assert: logger recordings last message = 'test2' \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testRunDuringStopsAtTheEnd.st b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testRunDuringStopsAtTheEnd.st new file mode 100644 index 0000000..f63dad7 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testRunDuringStopsAtTheEnd.st @@ -0,0 +1,7 @@ +testing +testRunDuringStopsAtTheEnd + | logger | + logger := MemoryLogger new. + logger runDuring: [ + self assert: logger isRunning ]. + self assert: logger isRunning not \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testStartForMultipleSignals.st b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testStartForMultipleSignals.st new file mode 100644 index 0000000..76033c4 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testStartForMultipleSignals.st @@ -0,0 +1,9 @@ +testing +testStartForMultipleSignals + | logger | + logger := MemoryLogger new. + logger runFor: StringSignal, MethodStackSignal during: [ + StringSignal emit: 'This should be recorded.'. + MethodStackSignal emit. + DummySignal new emit ]. + self assert: logger recordings size equals: 2 \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testStartForOnlyOneSignal.st b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testStartForOnlyOneSignal.st new file mode 100644 index 0000000..019e2dc --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/instance/testStartForOnlyOneSignal.st @@ -0,0 +1,8 @@ +testing +testStartForOnlyOneSignal + | logger | + logger := MemoryLogger new. + logger runFor: StringSignal during: [ + StringSignal emit: 'This should be recorded.'. + MethodStackSignal emit ]. + self assert: logger recordings size equals: 1 \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/properties.json b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/properties.json new file mode 100644 index 0000000..46d487a --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MemoryLoggerTest.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:13", + "super" : "TestCase", + "category" : "Beacon-Core-Tests", + "classinstvars" : [ + "previousRecordings" + ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "MemoryLoggerTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/MethodStackSignalTest.class/README.md b/repository/Beacon-Core-Tests.package/MethodStackSignalTest.class/README.md new file mode 100644 index 0000000..c0dbf6e --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MethodStackSignalTest.class/README.md @@ -0,0 +1 @@ +A CurrentStackSignalTest is xxxxxxxxx. diff --git a/repository/Beacon-Core-Tests.package/MethodStackSignalTest.class/instance/testRemovesIrrelevantStackEntriesFromOnTop.st b/repository/Beacon-Core-Tests.package/MethodStackSignalTest.class/instance/testRemovesIrrelevantStackEntriesFromOnTop.st new file mode 100644 index 0000000..c9755ad --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MethodStackSignalTest.class/instance/testRemovesIrrelevantStackEntriesFromOnTop.st @@ -0,0 +1,5 @@ +testing +testRemovesIrrelevantStackEntriesFromOnTop + | signal | + signal := MethodStackSignal emit. + self assert: signal stack first = thisContext stack first method asRingDefinition \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/MethodStackSignalTest.class/properties.json b/repository/Beacon-Core-Tests.package/MethodStackSignalTest.class/properties.json new file mode 100644 index 0000000..05e8d75 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/MethodStackSignalTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "TestCase", + "category" : "Beacon-Core-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "MethodStackSignalTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/SignalLoggerTest.class/README.md b/repository/Beacon-Core-Tests.package/SignalLoggerTest.class/README.md new file mode 100644 index 0000000..d0eb11c --- /dev/null +++ b/repository/Beacon-Core-Tests.package/SignalLoggerTest.class/README.md @@ -0,0 +1 @@ +A SignalLoggerTest is xxxxxxxxx. diff --git a/repository/Beacon-Core-Tests.package/SignalLoggerTest.class/instance/testStartingTwiceDoesNotRegisterTwice.st b/repository/Beacon-Core-Tests.package/SignalLoggerTest.class/instance/testStartingTwiceDoesNotRegisterTwice.st new file mode 100644 index 0000000..735631e --- /dev/null +++ b/repository/Beacon-Core-Tests.package/SignalLoggerTest.class/instance/testStartingTwiceDoesNotRegisterTwice.st @@ -0,0 +1,14 @@ +tests +testStartingTwiceDoesNotRegisterTwice + | initialNumberOfSubscriptions | + initialNumberOfSubscriptions := Beacon instance announcer numberOfSubscriptions. + SignalLogger resetInstance. + SignalLogger start. + SignalLogger start. + self + assert: Beacon instance announcer numberOfSubscriptions + equals: initialNumberOfSubscriptions + 1. + SignalLogger stop. + self + assert: Beacon instance announcer numberOfSubscriptions + equals: initialNumberOfSubscriptions \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/SignalLoggerTest.class/properties.json b/repository/Beacon-Core-Tests.package/SignalLoggerTest.class/properties.json new file mode 100644 index 0000000..dfb2cd3 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/SignalLoggerTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:14", + "super" : "TestCase", + "category" : "Beacon-Core-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "SignalLoggerTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/SignalTest.class/README.md b/repository/Beacon-Core-Tests.package/SignalTest.class/README.md new file mode 100644 index 0000000..414d182 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/SignalTest.class/README.md @@ -0,0 +1 @@ +A SignalTest is xxxxxxxxx. diff --git a/repository/Beacon-Core-Tests.package/SignalTest.class/instance/testTimestampByDefault.st b/repository/Beacon-Core-Tests.package/SignalTest.class/instance/testTimestampByDefault.st new file mode 100644 index 0000000..a2b5629 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/SignalTest.class/instance/testTimestampByDefault.st @@ -0,0 +1,9 @@ +as yet unclassified +testTimestampByDefault + | before signal after | + before := DateAndTime now. + signal := BeaconSignal new. + after := DateAndTime now. + self assert: before <= signal timestamp. + self assert: after >= signal timestamp. + \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/SignalTest.class/properties.json b/repository/Beacon-Core-Tests.package/SignalTest.class/properties.json new file mode 100644 index 0000000..b674920 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/SignalTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "TestCase", + "category" : "Beacon-Core-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "SignalTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/README.md b/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/README.md new file mode 100644 index 0000000..3cf0f3e --- /dev/null +++ b/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/README.md @@ -0,0 +1 @@ +A WrapperSignalTest is xxxxxxxxx. diff --git a/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/instance/testAsBeaconSignalDoesNotAffectAnExistingSignal.st b/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/instance/testAsBeaconSignalDoesNotAffectAnExistingSignal.st new file mode 100644 index 0000000..3e7c3a0 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/instance/testAsBeaconSignalDoesNotAffectAnExistingSignal.st @@ -0,0 +1,5 @@ +tests +testAsBeaconSignalDoesNotAffectAnExistingSignal + | signal | + signal := StringSignal new. + self assert: signal asBeaconSignal = signal \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/instance/testAsBeaconSignalTransformsIntoWrapperSignal.st b/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/instance/testAsBeaconSignalTransformsIntoWrapperSignal.st new file mode 100644 index 0000000..1846c46 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/instance/testAsBeaconSignalTransformsIntoWrapperSignal.st @@ -0,0 +1,4 @@ +tests +testAsBeaconSignalTransformsIntoWrapperSignal + self assert: (42 asBeaconSignal isKindOf: WrapperSignal). + self assert: 42 asBeaconSignal target equals: 42. diff --git a/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/properties.json b/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/properties.json new file mode 100644 index 0000000..84285de --- /dev/null +++ b/repository/Beacon-Core-Tests.package/WrapperSignalTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "TestCase", + "category" : "Beacon-Core-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "WrapperSignalTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/monticello.meta/categories.st b/repository/Beacon-Core-Tests.package/monticello.meta/categories.st new file mode 100644 index 0000000..9e0025c --- /dev/null +++ b/repository/Beacon-Core-Tests.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Beacon-Core-Tests'! diff --git a/repository/Beacon-Core-Tests.package/monticello.meta/initializers.st b/repository/Beacon-Core-Tests.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/Beacon-Core-Tests.package/monticello.meta/package b/repository/Beacon-Core-Tests.package/monticello.meta/package new file mode 100644 index 0000000..2d9f045 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Beacon-Core-Tests') \ No newline at end of file diff --git a/repository/Beacon-Core-Tests.package/properties.json b/repository/Beacon-Core-Tests.package/properties.json new file mode 100644 index 0000000..6f31cf5 --- /dev/null +++ b/repository/Beacon-Core-Tests.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Beacon-Core.package/.filetree b/repository/Beacon-Core.package/.filetree new file mode 100644 index 0000000..57a6797 --- /dev/null +++ b/repository/Beacon-Core.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/Announcement.extension/instance/emit.st b/repository/Beacon-Core.package/Announcement.extension/instance/emit.st new file mode 100644 index 0000000..9aa0955 --- /dev/null +++ b/repository/Beacon-Core.package/Announcement.extension/instance/emit.st @@ -0,0 +1,3 @@ +*Beacon-Core-Core +emit + Beacon announce: self asBeaconSignal \ No newline at end of file diff --git a/repository/Beacon-Core.package/Announcement.extension/properties.json b/repository/Beacon-Core.package/Announcement.extension/properties.json new file mode 100644 index 0000000..ebf028e --- /dev/null +++ b/repository/Beacon-Core.package/Announcement.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Announcement" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/README.md b/repository/Beacon-Core.package/Beacon.class/README.md new file mode 100644 index 0000000..13aef48 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/README.md @@ -0,0 +1,7 @@ +This is the central and the dummiest class of the Beacon logging system. + +It's a singleton class that holds an announcer instance. Its goal is purely to serve as a central beacon through which all signals pass. + +It works together with ==Announcement>>#emit==. + +By itself, it does not do anything useful. Other ==SignalLoggers== are meant to register to its announcer and link the announcements to something useful. \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/class/announce..st b/repository/Beacon-Core.package/Beacon.class/class/announce..st new file mode 100644 index 0000000..27a7b7a --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/class/announce..st @@ -0,0 +1,4 @@ +logging +announce: anAnnouncement + self instance announce: anAnnouncement + \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/class/instance.st b/repository/Beacon-Core.package/Beacon.class/class/instance.st new file mode 100644 index 0000000..efb9a1c --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/class/instance.st @@ -0,0 +1,3 @@ +accessing +instance + ^ instance ifNil: [ instance := self new ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/class/loggers.st b/repository/Beacon-Core.package/Beacon.class/class/loggers.st new file mode 100644 index 0000000..48c9058 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/class/loggers.st @@ -0,0 +1,3 @@ +accessing +loggers + ^ self instance loggers \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/class/loggersOf..st b/repository/Beacon-Core.package/Beacon.class/class/loggersOf..st new file mode 100644 index 0000000..5cd2d10 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/class/loggersOf..st @@ -0,0 +1,3 @@ +accessing +loggersOf: aClass + ^ self instance loggersOf: aClass \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/class/resetInstance.st b/repository/Beacon-Core.package/Beacon.class/class/resetInstance.st new file mode 100644 index 0000000..30af7d4 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/class/resetInstance.st @@ -0,0 +1,5 @@ +accessing +resetInstance + instance ifNotNil: [ + instance announcer subscriptions reset ]. + instance := nil \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/instance/announce..st b/repository/Beacon-Core.package/Beacon.class/instance/announce..st new file mode 100644 index 0000000..2926d02 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/instance/announce..st @@ -0,0 +1,3 @@ +private +announce: anAnnouncement + self announcer announce: anAnnouncement \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/instance/announcer..st b/repository/Beacon-Core.package/Beacon.class/instance/announcer..st new file mode 100644 index 0000000..8b2881e --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/instance/announcer..st @@ -0,0 +1,3 @@ +accessing +announcer: anObject + announcer := anObject \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/instance/announcer.st b/repository/Beacon-Core.package/Beacon.class/instance/announcer.st new file mode 100644 index 0000000..3903dba --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/instance/announcer.st @@ -0,0 +1,3 @@ +accessing +announcer + ^ announcer \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/instance/initialize.st b/repository/Beacon-Core.package/Beacon.class/instance/initialize.st new file mode 100644 index 0000000..e2d6edc --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/instance/initialize.st @@ -0,0 +1,3 @@ +initialize +initialize + announcer := Announcer new \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/instance/loggers.st b/repository/Beacon-Core.package/Beacon.class/instance/loggers.st new file mode 100644 index 0000000..6d774c4 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/instance/loggers.st @@ -0,0 +1,3 @@ +accessing +loggers + ^ self loggersOf: SignalLogger \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/instance/loggersOf..st b/repository/Beacon-Core.package/Beacon.class/instance/loggersOf..st new file mode 100644 index 0000000..547d384 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/instance/loggersOf..st @@ -0,0 +1,8 @@ +accessing +loggersOf: aClass + "announcments SubscriptionRegistry does not allow access to its subscriptions which + Beacon needs. So there is a hack to access the instVar directly until access to + subscriptions has been solved" + self flag: #hack. + ^ ((announcer subscriptions instVarNamed: #subscriptions) collect: #subscriber as: Set) + select: [ :each | each isKindOf: aClass ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/instance/unsubscribe..st b/repository/Beacon-Core.package/Beacon.class/instance/unsubscribe..st new file mode 100644 index 0000000..9dd5671 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/instance/unsubscribe..st @@ -0,0 +1,3 @@ +announcing +unsubscribe: aBoundedBeacon + self announcer unsubscribe: aBoundedBeacon \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/instance/when.send.to..st b/repository/Beacon-Core.package/Beacon.class/instance/when.send.to..st new file mode 100644 index 0000000..e1d64f4 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/instance/when.send.to..st @@ -0,0 +1,3 @@ +announcing +when: anAnnouncementClass send: aSelector to: anObject + self announcer when: anAnnouncementClass send: aSelector to: anObject \ No newline at end of file diff --git a/repository/Beacon-Core.package/Beacon.class/properties.json b/repository/Beacon-Core.package/Beacon.class/properties.json new file mode 100644 index 0000000..4c0fc32 --- /dev/null +++ b/repository/Beacon-Core.package/Beacon.class/properties.json @@ -0,0 +1,15 @@ +{ + "commentStamp" : "PhilippeBack 4/26/2017 23:59", + "super" : "Object", + "category" : "Beacon-Core-Beacon", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "instance" + ], + "instvars" : [ + "announcer" + ], + "name" : "Beacon", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/README.md b/repository/Beacon-Core.package/BeaconSignal.class/README.md new file mode 100644 index 0000000..09036df --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/README.md @@ -0,0 +1,12 @@ +This is the typical announcement that is being passed through a Beacon. records the timestamp of its creation and the processId of its creator. It is specifically useful in the context of logging, and it serves as the superclass for custom signals. + +Yes, users are encouraged to capture cutom signals in explicit subclasses. + +The class also offers a properties instance variables that can be used by custom loggers to capture specific logging parameters. Accessors to the concrete entries are meant to be wrapped in setters and getters. + +For example, a ClassicLogger might want to add the notion of a level to a signal. To this end, the ClassicLogger package would define: + +BeaconSignal>>level + ^ self properties at: #level ifAbsent: [ LogLevel info ] +BeaconSignal>>level: aLevel + ^ self properties at: #level put: aLevel \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/instance/asBeaconSignal.st b/repository/Beacon-Core.package/BeaconSignal.class/instance/asBeaconSignal.st new file mode 100644 index 0000000..c4caf86 --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/instance/asBeaconSignal.st @@ -0,0 +1,3 @@ +accessing +asBeaconSignal + ^ self \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/instance/initialize.st b/repository/Beacon-Core.package/BeaconSignal.class/instance/initialize.st new file mode 100644 index 0000000..d1be6bd --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/instance/initialize.st @@ -0,0 +1,5 @@ +initialization +initialize + timestamp := DateAndTime now. + processId := Processor activeProcess name. + properties := Dictionary new \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/instance/name.st b/repository/Beacon-Core.package/BeaconSignal.class/instance/name.st new file mode 100644 index 0000000..a88cfcb --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ self class name \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/instance/printOn..st b/repository/Beacon-Core.package/BeaconSignal.class/instance/printOn..st new file mode 100644 index 0000000..fc0bedd --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/instance/printOn..st @@ -0,0 +1,3 @@ +printing +printOn: stream + self printOneLineOn: stream \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/instance/printOneLineContentsOn..st b/repository/Beacon-Core.package/BeaconSignal.class/instance/printOneLineContentsOn..st new file mode 100644 index 0000000..b2715f3 --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/instance/printOneLineContentsOn..st @@ -0,0 +1,3 @@ +printing +printOneLineContentsOn: stream + "hook to be overriden by subclasses" \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/instance/printOneLineOn..st b/repository/Beacon-Core.package/BeaconSignal.class/instance/printOneLineOn..st new file mode 100644 index 0000000..a59763c --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/instance/printOneLineOn..st @@ -0,0 +1,8 @@ +printing +printOneLineOn: stream + stream + nextPutAll: self timestamp asString; + space; + nextPutAll: self class name; + space. + self printOneLineContentsOn: stream \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/instance/processId.st b/repository/Beacon-Core.package/BeaconSignal.class/instance/processId.st new file mode 100644 index 0000000..9bff527 --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/instance/processId.st @@ -0,0 +1,3 @@ +accessing +processId + ^ processId \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/instance/properties.st b/repository/Beacon-Core.package/BeaconSignal.class/instance/properties.st new file mode 100644 index 0000000..9379973 --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/instance/properties.st @@ -0,0 +1,3 @@ +accessing +properties + ^ properties \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/instance/timestamp.st b/repository/Beacon-Core.package/BeaconSignal.class/instance/timestamp.st new file mode 100644 index 0000000..98b1f81 --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/instance/timestamp.st @@ -0,0 +1,3 @@ +accessing +timestamp + ^ timestamp \ No newline at end of file diff --git a/repository/Beacon-Core.package/BeaconSignal.class/properties.json b/repository/Beacon-Core.package/BeaconSignal.class/properties.json new file mode 100644 index 0000000..daeb2d7 --- /dev/null +++ b/repository/Beacon-Core.package/BeaconSignal.class/properties.json @@ -0,0 +1,15 @@ +{ + "commentStamp" : "TudorGirba 8/10/2016 14:33", + "super" : "Announcement", + "category" : "Beacon-Core-Signals", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "timestamp", + "processId", + "properties" + ], + "name" : "BeaconSignal", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/ContextStackSignal.class/README.md b/repository/Beacon-Core.package/ContextStackSignal.class/README.md new file mode 100644 index 0000000..648909e --- /dev/null +++ b/repository/Beacon-Core.package/ContextStackSignal.class/README.md @@ -0,0 +1,8 @@ +This signal stores the Context objects and like this it is more suitable for reasoning about execution flows that also include information about receivers. + +Usage: + ContextStackSignal emit + +Full Example: + TranscriptLogger new + runDuring: [ ContextStackSignal emit ]. diff --git a/repository/Beacon-Core.package/ContextStackSignal.class/instance/currentStack.st b/repository/Beacon-Core.package/ContextStackSignal.class/instance/currentStack.st new file mode 100644 index 0000000..883e120 --- /dev/null +++ b/repository/Beacon-Core.package/ContextStackSignal.class/instance/currentStack.st @@ -0,0 +1,6 @@ +initialize +currentStack + ^thisContext stack + reject: [ :each | + each receiver = self or: [ + each receiver = self class ] ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/ContextStackSignal.class/properties.json b/repository/Beacon-Core.package/ContextStackSignal.class/properties.json new file mode 100644 index 0000000..ccdcba6 --- /dev/null +++ b/repository/Beacon-Core.package/ContextStackSignal.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:11", + "super" : "ThisContextSignal", + "category" : "Beacon-Core-Signals", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ContextStackSignal", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/CustomStreamLogger.class/README.md b/repository/Beacon-Core.package/CustomStreamLogger.class/README.md new file mode 100644 index 0000000..db06737 --- /dev/null +++ b/repository/Beacon-Core.package/CustomStreamLogger.class/README.md @@ -0,0 +1,7 @@ +Example: + String streamContents: [ :stream | + (CustomStreamLogger with: stream) + runDuring: [ + StringSignal emit: 'This is a message'. + StringSignal emit: 'The red fox jumps over the lazy dog'. + ] ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/CustomStreamLogger.class/class/with..st b/repository/Beacon-Core.package/CustomStreamLogger.class/class/with..st new file mode 100644 index 0000000..950604c --- /dev/null +++ b/repository/Beacon-Core.package/CustomStreamLogger.class/class/with..st @@ -0,0 +1,3 @@ +instance creation +with: aStream + ^ self new stream: aStream \ No newline at end of file diff --git a/repository/Beacon-Core.package/CustomStreamLogger.class/instance/nextPutSerialized..st b/repository/Beacon-Core.package/CustomStreamLogger.class/instance/nextPutSerialized..st new file mode 100644 index 0000000..1d0a6e2 --- /dev/null +++ b/repository/Beacon-Core.package/CustomStreamLogger.class/instance/nextPutSerialized..st @@ -0,0 +1,6 @@ +accessing +nextPutSerialized: anObject + "Add a linefeed so that we can get a readable string" + self stream + nextPutAll: anObject; + nextPut: Character lf \ No newline at end of file diff --git a/repository/Beacon-Core.package/CustomStreamLogger.class/instance/stream..st b/repository/Beacon-Core.package/CustomStreamLogger.class/instance/stream..st new file mode 100644 index 0000000..fdd3077 --- /dev/null +++ b/repository/Beacon-Core.package/CustomStreamLogger.class/instance/stream..st @@ -0,0 +1,3 @@ +accessing +stream: aStream + stream := aStream \ No newline at end of file diff --git a/repository/Beacon-Core.package/CustomStreamLogger.class/instance/stream.st b/repository/Beacon-Core.package/CustomStreamLogger.class/instance/stream.st new file mode 100644 index 0000000..691d969 --- /dev/null +++ b/repository/Beacon-Core.package/CustomStreamLogger.class/instance/stream.st @@ -0,0 +1,3 @@ +accessing +stream + ^ stream \ No newline at end of file diff --git a/repository/Beacon-Core.package/CustomStreamLogger.class/properties.json b/repository/Beacon-Core.package/CustomStreamLogger.class/properties.json new file mode 100644 index 0000000..de37aec --- /dev/null +++ b/repository/Beacon-Core.package/CustomStreamLogger.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "PhilippeBack 5/3/2017 14:17", + "super" : "StreamLogger", + "category" : "Beacon-Core-Loggers", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "stream" + ], + "name" : "CustomStreamLogger", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/Exception.extension/instance/emit.st b/repository/Beacon-Core.package/Exception.extension/instance/emit.st new file mode 100644 index 0000000..400c908 --- /dev/null +++ b/repository/Beacon-Core.package/Exception.extension/instance/emit.st @@ -0,0 +1,3 @@ +*Beacon-Core-Core +emit + ^ ExceptionSignal emit: self \ No newline at end of file diff --git a/repository/Beacon-Core.package/Exception.extension/instance/log.st b/repository/Beacon-Core.package/Exception.extension/instance/log.st new file mode 100644 index 0000000..b5e8013 --- /dev/null +++ b/repository/Beacon-Core.package/Exception.extension/instance/log.st @@ -0,0 +1,4 @@ +*Beacon-Core-Core +log + self deprecated: 'Should use #emit'. + ^ self emit \ No newline at end of file diff --git a/repository/Beacon-Core.package/Exception.extension/properties.json b/repository/Beacon-Core.package/Exception.extension/properties.json new file mode 100644 index 0000000..0c16d52 --- /dev/null +++ b/repository/Beacon-Core.package/Exception.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Exception" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/README.md b/repository/Beacon-Core.package/ExceptionSignal.class/README.md new file mode 100644 index 0000000..a2a0d08 --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/README.md @@ -0,0 +1,6 @@ +This signal is useful to log an exception. + +Example: + TranscriptLogger new runDuring: [ + [1/0] on: Error do: [ :error | error emit]. + ]. \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/class/emit..st b/repository/Beacon-Core.package/ExceptionSignal.class/class/emit..st new file mode 100644 index 0000000..ba19c62 --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/class/emit..st @@ -0,0 +1,5 @@ +instance creation +emit: anException + ^ (self new + exception: anException; + stack: (anException signalerContext stack collect: [:each | each sourceNodeExecuted])) emit \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/class/log..st b/repository/Beacon-Core.package/ExceptionSignal.class/class/log..st new file mode 100644 index 0000000..1150f6e --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/class/log..st @@ -0,0 +1,4 @@ +instance creation +log: anException + self deprecated: 'Should use #emit:'. + ^ self emit: anException \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/instance/exception..st b/repository/Beacon-Core.package/ExceptionSignal.class/instance/exception..st new file mode 100644 index 0000000..ed5588d --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/instance/exception..st @@ -0,0 +1,3 @@ +accessing +exception: anObject + exception := anObject \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/instance/exception.st b/repository/Beacon-Core.package/ExceptionSignal.class/instance/exception.st new file mode 100644 index 0000000..0755066 --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/instance/exception.st @@ -0,0 +1,3 @@ +accessing +exception + ^ exception \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/instance/printOn..st b/repository/Beacon-Core.package/ExceptionSignal.class/instance/printOn..st new file mode 100644 index 0000000..bd53aad --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/instance/printOn..st @@ -0,0 +1,5 @@ +printing +printOn: stream + super printOn: stream. + stream space. + self exception printOn: stream \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/instance/printOneLineContentsOn..st b/repository/Beacon-Core.package/ExceptionSignal.class/instance/printOneLineContentsOn..st new file mode 100644 index 0000000..8a6f853 --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/instance/printOneLineContentsOn..st @@ -0,0 +1,3 @@ +printing +printOneLineContentsOn: stream + self exception printOn: stream \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/instance/stack..st b/repository/Beacon-Core.package/ExceptionSignal.class/instance/stack..st new file mode 100644 index 0000000..dc6c025 --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/instance/stack..st @@ -0,0 +1,3 @@ +accessing +stack: anObject + stack := anObject \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/instance/stack.st b/repository/Beacon-Core.package/ExceptionSignal.class/instance/stack.st new file mode 100644 index 0000000..360a880 --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/instance/stack.st @@ -0,0 +1,3 @@ +accessing +stack + ^ stack \ No newline at end of file diff --git a/repository/Beacon-Core.package/ExceptionSignal.class/properties.json b/repository/Beacon-Core.package/ExceptionSignal.class/properties.json new file mode 100644 index 0000000..a05567a --- /dev/null +++ b/repository/Beacon-Core.package/ExceptionSignal.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:10", + "super" : "BeaconSignal", + "category" : "Beacon-Core-Signals", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "exception", + "stack" + ], + "name" : "ExceptionSignal", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/MemoryLogger.class/README.md b/repository/Beacon-Core.package/MemoryLogger.class/README.md new file mode 100644 index 0000000..800c1b1 --- /dev/null +++ b/repository/Beacon-Core.package/MemoryLogger.class/README.md @@ -0,0 +1,18 @@ +This signal logger simply records the signals that it receives. + +!!Example1: Instance usage +[[[ + (MemoryLogger new + runDuring: [ + StringSignal emit: 'This is a message' ] ) + inspect. +]]] + +!!Example 2: Global usage +[[[ + MemoryLogger reset. + MemoryLogger start. + StringSignal emit: 'This is a message' . + MemoryLogger instance recordings inspect. + MemoryLogger stop. +]]] \ No newline at end of file diff --git a/repository/Beacon-Core.package/MemoryLogger.class/class/reset.st b/repository/Beacon-Core.package/MemoryLogger.class/class/reset.st new file mode 100644 index 0000000..3db3b30 --- /dev/null +++ b/repository/Beacon-Core.package/MemoryLogger.class/class/reset.st @@ -0,0 +1,3 @@ +registering +reset + self instance reset \ No newline at end of file diff --git a/repository/Beacon-Core.package/MemoryLogger.class/instance/announcer.st b/repository/Beacon-Core.package/MemoryLogger.class/instance/announcer.st new file mode 100644 index 0000000..25f9ec2 --- /dev/null +++ b/repository/Beacon-Core.package/MemoryLogger.class/instance/announcer.st @@ -0,0 +1,5 @@ +accessing +announcer + "The announcer announces to potential watchers (typically viewers) + that a new signal was recorded" + ^ announcer \ No newline at end of file diff --git a/repository/Beacon-Core.package/MemoryLogger.class/instance/initialize.st b/repository/Beacon-Core.package/MemoryLogger.class/instance/initialize.st new file mode 100644 index 0000000..e7a681d --- /dev/null +++ b/repository/Beacon-Core.package/MemoryLogger.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialize +initialize + super initialize. + mutex := Mutex new. + self reset. + announcer := Announcer new. diff --git a/repository/Beacon-Core.package/MemoryLogger.class/instance/nextPut..st b/repository/Beacon-Core.package/MemoryLogger.class/instance/nextPut..st new file mode 100644 index 0000000..1f835ee --- /dev/null +++ b/repository/Beacon-Core.package/MemoryLogger.class/instance/nextPut..st @@ -0,0 +1,9 @@ +accessing +nextPut: aSignal + mutex critical: [ + recordings add: aSignal ]. + "the announcement is passed forward so that potential viewers + can refresh when something changes. we do not create another announcement + because it is not needed given that the only thing that can happen is + for a new announcement to be recorded" + self announcer announce: aSignal \ No newline at end of file diff --git a/repository/Beacon-Core.package/MemoryLogger.class/instance/recordings.st b/repository/Beacon-Core.package/MemoryLogger.class/instance/recordings.st new file mode 100644 index 0000000..109c6e8 --- /dev/null +++ b/repository/Beacon-Core.package/MemoryLogger.class/instance/recordings.st @@ -0,0 +1,6 @@ +accessing +recordings + "It answers a copy of the recorded collection to not grant + access to the users to a shared resource that should only be + modified via the mutex" + ^ recordings copy \ No newline at end of file diff --git a/repository/Beacon-Core.package/MemoryLogger.class/instance/reset.st b/repository/Beacon-Core.package/MemoryLogger.class/instance/reset.st new file mode 100644 index 0000000..658e528 --- /dev/null +++ b/repository/Beacon-Core.package/MemoryLogger.class/instance/reset.st @@ -0,0 +1,6 @@ +initialize +reset + "it simply removes all recordings without + affecting the running status of the logger" + mutex critical: [ + recordings := OrderedCollection new ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/MemoryLogger.class/properties.json b/repository/Beacon-Core.package/MemoryLogger.class/properties.json new file mode 100644 index 0000000..4e782ed --- /dev/null +++ b/repository/Beacon-Core.package/MemoryLogger.class/properties.json @@ -0,0 +1,15 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:06", + "super" : "SignalLogger", + "category" : "Beacon-Core-Loggers", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "recordings", + "announcer", + "mutex" + ], + "name" : "MemoryLogger", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/MethodStackSignal.class/README.md b/repository/Beacon-Core.package/MethodStackSignal.class/README.md new file mode 100644 index 0000000..8a158f5 --- /dev/null +++ b/repository/Beacon-Core.package/MethodStackSignal.class/README.md @@ -0,0 +1,8 @@ +This signal only stores the RingMethodDefinition and like that it does not hold the real entire stack. This is safer and smaller to store and serialize. + +Usage: + MethodStackSignal emit + +Full Example: + TranscriptLogger new + runDuring: [ MethodStackSignal emit ]. diff --git a/repository/Beacon-Core.package/MethodStackSignal.class/instance/currentStack.st b/repository/Beacon-Core.package/MethodStackSignal.class/instance/currentStack.st new file mode 100644 index 0000000..cc4dad5 --- /dev/null +++ b/repository/Beacon-Core.package/MethodStackSignal.class/instance/currentStack.st @@ -0,0 +1,7 @@ +initialize +currentStack + | stackWithoutSelf | + stackWithoutSelf := thisContext stack reject: [ :each | + each receiver = self or: [ + each receiver = self class ] ]. + ^ stackWithoutSelf collect: [ :each | each method asRingDefinition ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/MethodStackSignal.class/properties.json b/repository/Beacon-Core.package/MethodStackSignal.class/properties.json new file mode 100644 index 0000000..fc301eb --- /dev/null +++ b/repository/Beacon-Core.package/MethodStackSignal.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:12", + "super" : "ThisContextSignal", + "category" : "Beacon-Core-Signals", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "MethodStackSignal", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/README.md b/repository/Beacon-Core.package/SerializingLogger.class/README.md new file mode 100644 index 0000000..006504d --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/README.md @@ -0,0 +1,3 @@ +This is an abstract class for all loggers that need to serialize objects. Basically there are two types of loggers: one that stores signals in memory and this which exports signal to the outer world. In order to do that objects need to be serialized in some way. + +In order to create a new serializing logger subclasses should overwrite two methods. On the class side overwrite #defaultSerializer to select the SignalSerializer that converts an object to an external representation. Second overwrite #nextPutSerialized:: to transmit the object to the outside world \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/class/defaultSerializer.st b/repository/Beacon-Core.package/SerializingLogger.class/class/defaultSerializer.st new file mode 100644 index 0000000..ca64dd5 --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/class/defaultSerializer.st @@ -0,0 +1,4 @@ +defaults +defaultSerializer + + ^ SignalSerializer new \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/instance/defaultSerializer.st b/repository/Beacon-Core.package/SerializingLogger.class/instance/defaultSerializer.st new file mode 100644 index 0000000..979b1e5 --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/instance/defaultSerializer.st @@ -0,0 +1,3 @@ +defaults +defaultSerializer + ^ self class defaultSerializer \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/instance/initialize.st b/repository/Beacon-Core.package/SerializingLogger.class/instance/initialize.st new file mode 100644 index 0000000..f1a0692 --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/instance/initialize.st @@ -0,0 +1,4 @@ +initialize +initialize + super initialize. + serializer := self defaultSerializer. \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/instance/nextPut..st b/repository/Beacon-Core.package/SerializingLogger.class/instance/nextPut..st new file mode 100644 index 0000000..637b6fb --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/instance/nextPut..st @@ -0,0 +1,4 @@ +registering +nextPut: aSignal + + self nextPutSerialized: (self serializeSignal: aSignal) \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/instance/nextPutSerialized..st b/repository/Beacon-Core.package/SerializingLogger.class/instance/nextPutSerialized..st new file mode 100644 index 0000000..15c3501 --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/instance/nextPutSerialized..st @@ -0,0 +1,3 @@ +operations +nextPutSerialized: anObject + self subclassResponsibility \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/instance/serializeSignal..st b/repository/Beacon-Core.package/SerializingLogger.class/instance/serializeSignal..st new file mode 100644 index 0000000..6c97cf6 --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/instance/serializeSignal..st @@ -0,0 +1,5 @@ +operations +serializeSignal: aSignal + ^ self serializer + serializeSignal: aSignal + logger: self \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/instance/serializer..st b/repository/Beacon-Core.package/SerializingLogger.class/instance/serializer..st new file mode 100644 index 0000000..4fe5401 --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/instance/serializer..st @@ -0,0 +1,4 @@ +accessing +serializer: aSerializer + + serializer := aSerializer \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/instance/serializer.st b/repository/Beacon-Core.package/SerializingLogger.class/instance/serializer.st new file mode 100644 index 0000000..3f0c401 --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/instance/serializer.st @@ -0,0 +1,3 @@ +accessing +serializer + ^ serializer ifNil: [ serializer := self defaultSerializer ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/SerializingLogger.class/properties.json b/repository/Beacon-Core.package/SerializingLogger.class/properties.json new file mode 100644 index 0000000..8679d33 --- /dev/null +++ b/repository/Beacon-Core.package/SerializingLogger.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "PhilippeBack 5/3/2017 14:14", + "super" : "SignalLogger", + "category" : "Beacon-Core-Loggers", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "serializer" + ], + "name" : "SerializingLogger", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/README.md b/repository/Beacon-Core.package/SignalLogger.class/README.md new file mode 100644 index 0000000..7246a59 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/README.md @@ -0,0 +1,37 @@ +It represents the abstract class of a SignalLogger that takes the signals going through the ==Beacon== and actually does something useful. + +The subclasses provide concrete implementations. Each of these sublasses can be used both by directly instantiating the class, or by using the ==instance== class variable which holds a global instance of that class. + +The global instance of a signal logger is useful to provide a simple means to start and stop without worrying about the instance. + +For example, consider: + + TranscriptLogger start. + StringSignal emit: 'test'. + ... + TranscriptLogger stop. + +Passing stop, unsubscribes the global instance of ==TranscriptLogger== from the central ==Beacon== instance without having to remember the ==TranscriptLogger== object. + +One can get signals go to a given logger during the execution of a block with: + + (MemoryLogger named: 'loggerA') + runDuring: [ + 'Hello' asBeaconSignal emit. + 42 asBeaconSignal emit. + ContextStackSignal emit. + ]; + recordings. + +This can be done for a specific set of signals with: + + (MemoryLogger named: 'loggerA') + runFor: StringSignal, WrapperSignal during: [ + 'Hello' asBeaconSignal emit. + 42 asBeaconSignal emit. + StringSignal emit: 'let me pass' + ]; + recordings. + +It is possible to have signals go to several loggers by nesting runDuring: blocks. +Now this is not replacing a composite logger. \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/for..st b/repository/Beacon-Core.package/SignalLogger.class/class/for..st new file mode 100644 index 0000000..bf00a0f --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/for..st @@ -0,0 +1,4 @@ +instance creation +for: aBeacon + ^ self new + beacon: aBeacon \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/instance.st b/repository/Beacon-Core.package/SignalLogger.class/class/instance.st new file mode 100644 index 0000000..efb9a1c --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/instance.st @@ -0,0 +1,3 @@ +accessing +instance + ^ instance ifNil: [ instance := self new ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/named..st b/repository/Beacon-Core.package/SignalLogger.class/class/named..st new file mode 100644 index 0000000..2e6b95a --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/named..st @@ -0,0 +1,5 @@ +accessing +named: aString + ^ (Beacon loggersOf: self) + detect: [ :each | each name = aString ] + ifNone: [ self new name: aString ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/resetAllInstances.st b/repository/Beacon-Core.package/SignalLogger.class/class/resetAllInstances.st new file mode 100644 index 0000000..fa272bb --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/resetAllInstances.st @@ -0,0 +1,3 @@ +accessing +resetAllInstances + self withAllSubclassesDo: [ :each | each resetInstance ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/resetInstance.st b/repository/Beacon-Core.package/SignalLogger.class/class/resetInstance.st new file mode 100644 index 0000000..ba8977f --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/resetInstance.st @@ -0,0 +1,3 @@ +accessing +resetInstance + instance := nil \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/runDuring..st b/repository/Beacon-Core.package/SignalLogger.class/class/runDuring..st new file mode 100644 index 0000000..f9a17f0 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/runDuring..st @@ -0,0 +1,3 @@ +registering +runDuring: aBlock + self instance runDuring: aBlock \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/start.st b/repository/Beacon-Core.package/SignalLogger.class/class/start.st new file mode 100644 index 0000000..4dfdcef --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/start.st @@ -0,0 +1,3 @@ +registering +start + self instance start \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/startFor..st b/repository/Beacon-Core.package/SignalLogger.class/class/startFor..st new file mode 100644 index 0000000..7c1d108 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/startFor..st @@ -0,0 +1,3 @@ +registering +startFor: anAnnouncementOrASetOfAnnouncements + self instance startFor: anAnnouncementOrASetOfAnnouncements diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/stop.st b/repository/Beacon-Core.package/SignalLogger.class/class/stop.st new file mode 100644 index 0000000..ee1c69f --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/stop.st @@ -0,0 +1,3 @@ +registering +stop + self instance stop \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/class/stopAll.st b/repository/Beacon-Core.package/SignalLogger.class/class/stopAll.st new file mode 100644 index 0000000..3e3c512 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/class/stopAll.st @@ -0,0 +1,3 @@ +registering +stopAll + self withAllSubclassesDo: #stop \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/beacon..st b/repository/Beacon-Core.package/SignalLogger.class/instance/beacon..st new file mode 100644 index 0000000..37fe0f2 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/beacon..st @@ -0,0 +1,3 @@ +accessing +beacon: anAnnouncer + beacon := anAnnouncer \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/beacon.st b/repository/Beacon-Core.package/SignalLogger.class/instance/beacon.st new file mode 100644 index 0000000..58b6bd2 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/beacon.st @@ -0,0 +1,3 @@ +accessing +beacon + ^ beacon \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/handle..st b/repository/Beacon-Core.package/SignalLogger.class/instance/handle..st new file mode 100644 index 0000000..cf1e03f --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/handle..st @@ -0,0 +1,5 @@ +registering +handle: aSignal + self deprecated: 'Should use #nextPut:'. + self nextPut: aSignal + \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/initialize.st b/repository/Beacon-Core.package/SignalLogger.class/instance/initialize.st new file mode 100644 index 0000000..4d73410 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialize +initialize + super initialize. + "by default we hook to the central ==Beacon== instance" + beacon := Beacon instance. + name := 'unnamed' \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/isRunning.st b/repository/Beacon-Core.package/SignalLogger.class/instance/isRunning.st new file mode 100644 index 0000000..44dc13f --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/isRunning.st @@ -0,0 +1,5 @@ +testing +isRunning + Beacon instance announcer subscriptions + subscriptionsOf: self do: [ :x | ^ true ]. + ^ false \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/name..st b/repository/Beacon-Core.package/SignalLogger.class/instance/name..st new file mode 100644 index 0000000..e8cfe90 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/name..st @@ -0,0 +1,3 @@ +accessing +name: aString + name := aString \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/name.st b/repository/Beacon-Core.package/SignalLogger.class/instance/name.st new file mode 100644 index 0000000..22077c2 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ name \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/nextPut..st b/repository/Beacon-Core.package/SignalLogger.class/instance/nextPut..st new file mode 100644 index 0000000..082b55e --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/nextPut..st @@ -0,0 +1,4 @@ +registering +nextPut: aSignal + "Gets a BeaconSignal into the logger" + self subclassResponsibility \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/nextPutAll..st b/repository/Beacon-Core.package/SignalLogger.class/instance/nextPutAll..st new file mode 100644 index 0000000..99ed26e --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/nextPutAll..st @@ -0,0 +1,4 @@ +registering +nextPutAll: aCollection + + aCollection do: [ :each | self nextPut: each ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/printOn..st b/repository/Beacon-Core.package/SignalLogger.class/instance/printOn..st new file mode 100644 index 0000000..8165356 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/printOn..st @@ -0,0 +1,6 @@ +printing +printOn: aStream + super printOn: aStream. + aStream + nextPutAll: ' named: '; + nextPutAll: name asString \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/runDuring..st b/repository/Beacon-Core.package/SignalLogger.class/instance/runDuring..st new file mode 100644 index 0000000..b6911a6 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/runDuring..st @@ -0,0 +1,6 @@ +registering +runDuring: aBlock + "make all BeaconSignals go to me during aBlock" + self start. + [ aBlock value ] + ensure: [ self stop ] diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/runFor.during..st b/repository/Beacon-Core.package/SignalLogger.class/instance/runFor.during..st new file mode 100644 index 0000000..9b90064 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/runFor.during..st @@ -0,0 +1,6 @@ +registering +runFor: anAnnouncementOrASetOfAnnouncements during: aBlock + "makes all provided BeaconSignals got to me during aBlock" + self startFor: anAnnouncementOrASetOfAnnouncements. + [ aBlock value ] + ensure: [ self stop ] diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/start.st b/repository/Beacon-Core.package/SignalLogger.class/instance/start.st new file mode 100644 index 0000000..c6a0392 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/start.st @@ -0,0 +1,3 @@ +registering +start + self startFor: BeaconSignal \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/startFor..st b/repository/Beacon-Core.package/SignalLogger.class/instance/startFor..st new file mode 100644 index 0000000..a474dbe --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/startFor..st @@ -0,0 +1,7 @@ +registering +startFor: anAnnouncementOrASetOfAnnouncements + self isRunning ifTrue: [ self stop ]. + self beacon + when: anAnnouncementOrASetOfAnnouncements + send: #nextPut: + to: self \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/instance/stop.st b/repository/Beacon-Core.package/SignalLogger.class/instance/stop.st new file mode 100644 index 0000000..7ef2705 --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/instance/stop.st @@ -0,0 +1,3 @@ +registering +stop + self beacon unsubscribe: self \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalLogger.class/properties.json b/repository/Beacon-Core.package/SignalLogger.class/properties.json new file mode 100644 index 0000000..7a62f4d --- /dev/null +++ b/repository/Beacon-Core.package/SignalLogger.class/properties.json @@ -0,0 +1,16 @@ +{ + "commentStamp" : "PhilippeBack 5/3/2017 14:39", + "super" : "Object", + "category" : "Beacon-Core-Loggers", + "classinstvars" : [ + "instance" + ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "beacon", + "name" + ], + "name" : "SignalLogger", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalSerializer.class/README.md b/repository/Beacon-Core.package/SignalSerializer.class/README.md new file mode 100644 index 0000000..3e7bb8b --- /dev/null +++ b/repository/Beacon-Core.package/SignalSerializer.class/README.md @@ -0,0 +1,12 @@ +Root of log formatters. + +in essence a subclass should answer differently to + + serializeSignal: aSignal logger: aLogger + +and you get a new formatter. + + serializeSignal: aSignal on: aStream logger: aLogger + +will be useful to call into for writing to a given stream of the logger + diff --git a/repository/Beacon-Core.package/SignalSerializer.class/instance/serializeSignal.logger..st b/repository/Beacon-Core.package/SignalSerializer.class/instance/serializeSignal.logger..st new file mode 100644 index 0000000..eb24035 --- /dev/null +++ b/repository/Beacon-Core.package/SignalSerializer.class/instance/serializeSignal.logger..st @@ -0,0 +1,4 @@ +serializing +serializeSignal: aSignal logger: aLogger + + ^ aSignal printString \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalSerializer.class/instance/serializeSignal.on.logger..st b/repository/Beacon-Core.package/SignalSerializer.class/instance/serializeSignal.on.logger..st new file mode 100644 index 0000000..77bb331 --- /dev/null +++ b/repository/Beacon-Core.package/SignalSerializer.class/instance/serializeSignal.on.logger..st @@ -0,0 +1,5 @@ +serializing +serializeSignal: aSignal on: aStream logger: aLogger + + aSignal printOn: aStream. + aStream cr \ No newline at end of file diff --git a/repository/Beacon-Core.package/SignalSerializer.class/properties.json b/repository/Beacon-Core.package/SignalSerializer.class/properties.json new file mode 100644 index 0000000..5681b36 --- /dev/null +++ b/repository/Beacon-Core.package/SignalSerializer.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "PhilippeBack 5/3/2017 14:13", + "super" : "Object", + "category" : "Beacon-Core-Loggers", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "SignalSerializer", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/StreamLogger.class/README.md b/repository/Beacon-Core.package/StreamLogger.class/README.md new file mode 100644 index 0000000..41fee33 --- /dev/null +++ b/repository/Beacon-Core.package/StreamLogger.class/README.md @@ -0,0 +1 @@ +This is an abstract logger that forwards to a stream all signals that it receives. \ No newline at end of file diff --git a/repository/Beacon-Core.package/StreamLogger.class/instance/nextPutSerialized..st b/repository/Beacon-Core.package/StreamLogger.class/instance/nextPutSerialized..st new file mode 100644 index 0000000..b75c98c --- /dev/null +++ b/repository/Beacon-Core.package/StreamLogger.class/instance/nextPutSerialized..st @@ -0,0 +1,4 @@ +operations +nextPutSerialized: anObject + + self stream nextPutAll: anObject \ No newline at end of file diff --git a/repository/Beacon-Core.package/StreamLogger.class/instance/stream.st b/repository/Beacon-Core.package/StreamLogger.class/instance/stream.st new file mode 100644 index 0000000..33487a2 --- /dev/null +++ b/repository/Beacon-Core.package/StreamLogger.class/instance/stream.st @@ -0,0 +1,3 @@ +accessing +stream + ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Beacon-Core.package/StreamLogger.class/properties.json b/repository/Beacon-Core.package/StreamLogger.class/properties.json new file mode 100644 index 0000000..38a2d13 --- /dev/null +++ b/repository/Beacon-Core.package/StreamLogger.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "PhilippeBack 5/3/2017 14:15", + "super" : "SerializingLogger", + "category" : "Beacon-Core-Loggers", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "StreamLogger", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/StringSignal.class/README.md b/repository/Beacon-Core.package/StringSignal.class/README.md new file mode 100644 index 0000000..a1aadb6 --- /dev/null +++ b/repository/Beacon-Core.package/StringSignal.class/README.md @@ -0,0 +1,4 @@ +This is a simple signal that holds a message. + +Usage: + StringSignal emit: 'This is a message' \ No newline at end of file diff --git a/repository/Beacon-Core.package/StringSignal.class/class/emit..st b/repository/Beacon-Core.package/StringSignal.class/class/emit..st new file mode 100644 index 0000000..f7c1ae0 --- /dev/null +++ b/repository/Beacon-Core.package/StringSignal.class/class/emit..st @@ -0,0 +1,5 @@ +instance creation +emit: aString + ^ self new + message: aString; + emit \ No newline at end of file diff --git a/repository/Beacon-Core.package/StringSignal.class/class/log..st b/repository/Beacon-Core.package/StringSignal.class/class/log..st new file mode 100644 index 0000000..6b6ab7d --- /dev/null +++ b/repository/Beacon-Core.package/StringSignal.class/class/log..st @@ -0,0 +1,4 @@ +instance creation +log: aString + self deprecated: 'Should use #emit:'. + ^ self emit: aString \ No newline at end of file diff --git a/repository/Beacon-Core.package/StringSignal.class/instance/message..st b/repository/Beacon-Core.package/StringSignal.class/instance/message..st new file mode 100644 index 0000000..4509171 --- /dev/null +++ b/repository/Beacon-Core.package/StringSignal.class/instance/message..st @@ -0,0 +1,3 @@ +accessing +message: anObject + message := anObject \ No newline at end of file diff --git a/repository/Beacon-Core.package/StringSignal.class/instance/message.st b/repository/Beacon-Core.package/StringSignal.class/instance/message.st new file mode 100644 index 0000000..ab7cd85 --- /dev/null +++ b/repository/Beacon-Core.package/StringSignal.class/instance/message.st @@ -0,0 +1,3 @@ +accessing +message + ^ message \ No newline at end of file diff --git a/repository/Beacon-Core.package/StringSignal.class/instance/printOneLineContentsOn..st b/repository/Beacon-Core.package/StringSignal.class/instance/printOneLineContentsOn..st new file mode 100644 index 0000000..cac176a --- /dev/null +++ b/repository/Beacon-Core.package/StringSignal.class/instance/printOneLineContentsOn..st @@ -0,0 +1,3 @@ +printing +printOneLineContentsOn: stream + stream nextPutAll: self message \ No newline at end of file diff --git a/repository/Beacon-Core.package/StringSignal.class/properties.json b/repository/Beacon-Core.package/StringSignal.class/properties.json new file mode 100644 index 0000000..7b65957 --- /dev/null +++ b/repository/Beacon-Core.package/StringSignal.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:11", + "super" : "BeaconSignal", + "category" : "Beacon-Core-Signals", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "message" + ], + "name" : "StringSignal", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/README.md b/repository/Beacon-Core.package/ThisContextSignal.class/README.md new file mode 100644 index 0000000..741d956 --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/README.md @@ -0,0 +1,3 @@ +This is a convenience signal to record the stack information from thisContext. The recording happens during the initialization of the instance. This is particularly useful when you need to track the behavior of sensitive methods that do not allow for halting (e.g., a debugger or a rendering method). + +See subclasses for concrete implementations \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/class/emit.st b/repository/Beacon-Core.package/ThisContextSignal.class/class/emit.st new file mode 100644 index 0000000..11808b9 --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/class/emit.st @@ -0,0 +1,3 @@ +instance creation +emit + ^ self new emit \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/class/log.st b/repository/Beacon-Core.package/ThisContextSignal.class/class/log.st new file mode 100644 index 0000000..ffb48fc --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/class/log.st @@ -0,0 +1,4 @@ +instance creation +log + self deprecated: 'Should use #emit'. + ^ self emit \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/instance/currentStack.st b/repository/Beacon-Core.package/ThisContextSignal.class/instance/currentStack.st new file mode 100644 index 0000000..390e127 --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/instance/currentStack.st @@ -0,0 +1,3 @@ +initialize +currentStack + self subclassResponsibility \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/instance/initialize.st b/repository/Beacon-Core.package/ThisContextSignal.class/instance/initialize.st new file mode 100644 index 0000000..3843550 --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/instance/initialize.st @@ -0,0 +1,4 @@ +initialize +initialize + super initialize. + stack := self currentStack \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/instance/prepareForDelivery.st b/repository/Beacon-Core.package/ThisContextSignal.class/instance/prepareForDelivery.st new file mode 100644 index 0000000..06683a5 --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/instance/prepareForDelivery.st @@ -0,0 +1,3 @@ +initialize +prepareForDelivery + self stack \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/instance/printOn..st b/repository/Beacon-Core.package/ThisContextSignal.class/instance/printOn..st new file mode 100644 index 0000000..3ce2168 --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/instance/printOn..st @@ -0,0 +1,13 @@ +printing +printOn: stream + super printOn: stream. + self stack do: [ :each | + stream + cr; + tab; + nextPutAll: ( + each asString + copyReplaceAll: String cr + with: String cr, + String tab, + String tab) ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/instance/printOneLineContentsOn..st b/repository/Beacon-Core.package/ThisContextSignal.class/instance/printOneLineContentsOn..st new file mode 100644 index 0000000..0703d74 --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/instance/printOneLineContentsOn..st @@ -0,0 +1,7 @@ +printing +printOneLineContentsOn: stream + stream nextPutAll: (self stack first asString + copyReplaceAll: String cr + with: String cr, + String tab, + String tab) \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/instance/stack.st b/repository/Beacon-Core.package/ThisContextSignal.class/instance/stack.st new file mode 100644 index 0000000..ffbc2dc --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/instance/stack.st @@ -0,0 +1,3 @@ +accessing +stack + ^ stack ifNil: [ stack := self currentStack ] \ No newline at end of file diff --git a/repository/Beacon-Core.package/ThisContextSignal.class/properties.json b/repository/Beacon-Core.package/ThisContextSignal.class/properties.json new file mode 100644 index 0000000..93ecf80 --- /dev/null +++ b/repository/Beacon-Core.package/ThisContextSignal.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "TudorGirba 1/30/2016 09:00", + "super" : "BeaconSignal", + "category" : "Beacon-Core-Signals", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "stack" + ], + "name" : "ThisContextSignal", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/TranscriptLogger.class/README.md b/repository/Beacon-Core.package/TranscriptLogger.class/README.md new file mode 100644 index 0000000..cbf81c4 --- /dev/null +++ b/repository/Beacon-Core.package/TranscriptLogger.class/README.md @@ -0,0 +1,6 @@ +This logger forwards to the Transcript all signals that it receives. + +Example: + TranscriptLogger new + runDuring: [ + StringSignal emit: 'This is a message' ]. diff --git a/repository/Beacon-Core.package/TranscriptLogger.class/instance/nextPut..st b/repository/Beacon-Core.package/TranscriptLogger.class/instance/nextPut..st new file mode 100644 index 0000000..ffa99d1 --- /dev/null +++ b/repository/Beacon-Core.package/TranscriptLogger.class/instance/nextPut..st @@ -0,0 +1,3 @@ +registering +nextPut: anAnnouncement + Transcript crShow: anAnnouncement \ No newline at end of file diff --git a/repository/Beacon-Core.package/TranscriptLogger.class/properties.json b/repository/Beacon-Core.package/TranscriptLogger.class/properties.json new file mode 100644 index 0000000..a091475 --- /dev/null +++ b/repository/Beacon-Core.package/TranscriptLogger.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:08", + "super" : "SignalLogger", + "category" : "Beacon-Core-Loggers", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "TranscriptLogger", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/README.md b/repository/Beacon-Core.package/WrapperSignal.class/README.md new file mode 100644 index 0000000..f41552e --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/README.md @@ -0,0 +1,6 @@ +This signal is useful to log an arbitrary object. + +Example: + TranscriptLogger new runDuring: [ + 42 asBeaconSignal emit. + ]. \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/class/emit..st b/repository/Beacon-Core.package/WrapperSignal.class/class/emit..st new file mode 100644 index 0000000..d7ed355 --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/class/emit..st @@ -0,0 +1,3 @@ +instance creation +emit: aTargetObject + ^ (self on: aTargetObject) emit \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/class/log..st b/repository/Beacon-Core.package/WrapperSignal.class/class/log..st new file mode 100644 index 0000000..7ab2de0 --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/class/log..st @@ -0,0 +1,4 @@ +instance creation +log: aTargetObject + self deprecated: 'Should use #emit:'. + ^ self emit: aTargetObject \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/class/on..st b/repository/Beacon-Core.package/WrapperSignal.class/class/on..st new file mode 100644 index 0000000..0148499 --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/class/on..st @@ -0,0 +1,4 @@ +instance creation +on: aTargetObject + ^ self new + target: aTargetObject \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/instance/name.st b/repository/Beacon-Core.package/WrapperSignal.class/instance/name.st new file mode 100644 index 0000000..df25306 --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'Wrapper on ', self target class name \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/instance/printOn..st b/repository/Beacon-Core.package/WrapperSignal.class/instance/printOn..st new file mode 100644 index 0000000..4e75d17 --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/instance/printOn..st @@ -0,0 +1,5 @@ +printing +printOn: stream + super printOn: stream. + stream space. + self target printOn: stream \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/instance/printOneLineContentsOn..st b/repository/Beacon-Core.package/WrapperSignal.class/instance/printOneLineContentsOn..st new file mode 100644 index 0000000..0e5fe37 --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/instance/printOneLineContentsOn..st @@ -0,0 +1,3 @@ +printing +printOneLineContentsOn: stream + self target printOn: stream \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/instance/target..st b/repository/Beacon-Core.package/WrapperSignal.class/instance/target..st new file mode 100644 index 0000000..6c4a57d --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/instance/target..st @@ -0,0 +1,3 @@ +accessing +target: anObject + target := anObject \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/instance/target.st b/repository/Beacon-Core.package/WrapperSignal.class/instance/target.st new file mode 100644 index 0000000..2e1e15c --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/instance/target.st @@ -0,0 +1,3 @@ +accessing +target + ^ target \ No newline at end of file diff --git a/repository/Beacon-Core.package/WrapperSignal.class/properties.json b/repository/Beacon-Core.package/WrapperSignal.class/properties.json new file mode 100644 index 0000000..cf9a94f --- /dev/null +++ b/repository/Beacon-Core.package/WrapperSignal.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "PhilippeBack 4/27/2017 00:13", + "super" : "BeaconSignal", + "category" : "Beacon-Core-Signals", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "target" + ], + "name" : "WrapperSignal", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Core.package/monticello.meta/categories.st b/repository/Beacon-Core.package/monticello.meta/categories.st new file mode 100644 index 0000000..8fb4cf7 --- /dev/null +++ b/repository/Beacon-Core.package/monticello.meta/categories.st @@ -0,0 +1,4 @@ +SystemOrganization addCategory: #'Beacon-Core'! +SystemOrganization addCategory: 'Beacon-Core-Beacon'! +SystemOrganization addCategory: 'Beacon-Core-Loggers'! +SystemOrganization addCategory: 'Beacon-Core-Signals'! diff --git a/repository/Beacon-Core.package/monticello.meta/initializers.st b/repository/Beacon-Core.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/Beacon-Core.package/monticello.meta/package b/repository/Beacon-Core.package/monticello.meta/package new file mode 100644 index 0000000..0f668ab --- /dev/null +++ b/repository/Beacon-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Beacon-Core') \ No newline at end of file diff --git a/repository/Beacon-Core.package/properties.json b/repository/Beacon-Core.package/properties.json new file mode 100644 index 0000000..6f31cf5 --- /dev/null +++ b/repository/Beacon-Core.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Beacon-File.package/.filetree b/repository/Beacon-File.package/.filetree new file mode 100644 index 0000000..57a6797 --- /dev/null +++ b/repository/Beacon-File.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/README.md b/repository/Beacon-File.package/FileLogger.class/README.md new file mode 100644 index 0000000..98bb985 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/README.md @@ -0,0 +1,15 @@ +An implementation of a simple file logger using filename and encoding as parameter. + +It can be used like + +FileLogger new + filename: '/tmp/test.log'; + runFor: StringSignal during: [ + StringSignal emit: 'test message' + ] + + + + + + diff --git a/repository/Beacon-File.package/FileLogger.class/class/defaultEncoding.st b/repository/Beacon-File.package/FileLogger.class/class/defaultEncoding.st new file mode 100644 index 0000000..bd2a595 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/class/defaultEncoding.st @@ -0,0 +1,3 @@ +defaults +defaultEncoding + ^ 'utf-8' \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/class/filename..st b/repository/Beacon-File.package/FileLogger.class/class/filename..st new file mode 100644 index 0000000..620144f --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/class/filename..st @@ -0,0 +1,3 @@ +instance creation +filename: aString + ^ self filename: aString append: true \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/class/filename.append..st b/repository/Beacon-File.package/FileLogger.class/class/filename.append..st new file mode 100644 index 0000000..7fa4366 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/class/filename.append..st @@ -0,0 +1,5 @@ +instance creation +filename: aString append: appending + ^ self new + filename: aString; + append: appending \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/class/stdout.st b/repository/Beacon-File.package/FileLogger.class/class/stdout.st new file mode 100644 index 0000000..363fe3b --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/class/stdout.st @@ -0,0 +1,5 @@ +instance creation +stdout + ^ self new + stream: FileStream stdout + \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/append..st b/repository/Beacon-File.package/FileLogger.class/instance/append..st new file mode 100644 index 0000000..474eb2f --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/append..st @@ -0,0 +1,4 @@ +accessing +append: aBoolean + aBoolean ifTrue: [ + self stream setToEnd ] \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/append.st b/repository/Beacon-File.package/FileLogger.class/instance/append.st new file mode 100644 index 0000000..d4ec572 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/append.st @@ -0,0 +1,3 @@ +accessing +append + self append: true \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/binary..st b/repository/Beacon-File.package/FileLogger.class/instance/binary..st new file mode 100644 index 0000000..5d57e64 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/binary..st @@ -0,0 +1,3 @@ +accessing +binary: anObject + binary := anObject \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/binary.st b/repository/Beacon-File.package/FileLogger.class/instance/binary.st new file mode 100644 index 0000000..d1b1064 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/binary.st @@ -0,0 +1,3 @@ +accessing +binary + ^ binary \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/converter.st b/repository/Beacon-File.package/FileLogger.class/instance/converter.st new file mode 100644 index 0000000..109c32a --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/converter.st @@ -0,0 +1,3 @@ +accessing +converter + ^ TextConverter newForEncoding: self encoding \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/defaultEncoding.st b/repository/Beacon-File.package/FileLogger.class/instance/defaultEncoding.st new file mode 100644 index 0000000..175da61 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/defaultEncoding.st @@ -0,0 +1,3 @@ +defaults +defaultEncoding + ^ self class defaultEncoding \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/defaultLineSeparator.st b/repository/Beacon-File.package/FileLogger.class/instance/defaultLineSeparator.st new file mode 100644 index 0000000..e08c915 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/defaultLineSeparator.st @@ -0,0 +1,3 @@ +defaults +defaultLineSeparator + ^ Character lf \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/encoding..st b/repository/Beacon-File.package/FileLogger.class/instance/encoding..st new file mode 100644 index 0000000..b069613 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/encoding..st @@ -0,0 +1,3 @@ +accessing +encoding: anObject + ^ encoding := anObject \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/encoding.st b/repository/Beacon-File.package/FileLogger.class/instance/encoding.st new file mode 100644 index 0000000..a2ca434 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/encoding.st @@ -0,0 +1,4 @@ +accessing +encoding + ^ encoding ifNil: [ + encoding := self defaultEncoding ] \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/filename..st b/repository/Beacon-File.package/FileLogger.class/instance/filename..st new file mode 100644 index 0000000..9349ea8 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/filename..st @@ -0,0 +1,4 @@ +accessing +filename: aStringOrFileReference + fileReference := aStringOrFileReference asFileReference + \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/initialize.st b/repository/Beacon-File.package/FileLogger.class/instance/initialize.st new file mode 100644 index 0000000..0ab1865 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/initialize.st @@ -0,0 +1,4 @@ +initialize +initialize + super initialize. + binary := false \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/lineSeparator.st b/repository/Beacon-File.package/FileLogger.class/instance/lineSeparator.st new file mode 100644 index 0000000..4054911 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/lineSeparator.st @@ -0,0 +1,4 @@ +accessing +lineSeparator + ^ lineSeparator ifNil: [ + lineSeparator := self defaultLineSeparator ] \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/newStream.st b/repository/Beacon-File.package/FileLogger.class/instance/newStream.st new file mode 100644 index 0000000..6a58dfc --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/newStream.st @@ -0,0 +1,7 @@ +accessing +newStream + | newStream | + newStream := fileReference writeStream. + binary ifFalse: [ + newStream converter: self converter ]. + ^ newStream \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/nextPutSerialized..st b/repository/Beacon-File.package/FileLogger.class/instance/nextPutSerialized..st new file mode 100644 index 0000000..b85f23b --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/nextPutSerialized..st @@ -0,0 +1,4 @@ +accessing +nextPutSerialized: aString + super nextPutSerialized: aString. + self stream nextPut: self lineSeparator \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/stream..st b/repository/Beacon-File.package/FileLogger.class/instance/stream..st new file mode 100644 index 0000000..fdd3077 --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/stream..st @@ -0,0 +1,3 @@ +accessing +stream: aStream + stream := aStream \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/instance/stream.st b/repository/Beacon-File.package/FileLogger.class/instance/stream.st new file mode 100644 index 0000000..ced457c --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/instance/stream.st @@ -0,0 +1,4 @@ +accessing +stream + ^ stream ifNil: [ + stream := self newStream ] \ No newline at end of file diff --git a/repository/Beacon-File.package/FileLogger.class/properties.json b/repository/Beacon-File.package/FileLogger.class/properties.json new file mode 100644 index 0000000..29dbdfc --- /dev/null +++ b/repository/Beacon-File.package/FileLogger.class/properties.json @@ -0,0 +1,17 @@ +{ + "commentStamp" : "PhilippeBack 5/3/2017 14:48", + "super" : "StreamLogger", + "category" : "Beacon-File", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "fileReference", + "encoding", + "binary", + "stream", + "lineSeparator" + ], + "name" : "FileLogger", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-File.package/monticello.meta/categories.st b/repository/Beacon-File.package/monticello.meta/categories.st new file mode 100644 index 0000000..184df62 --- /dev/null +++ b/repository/Beacon-File.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Beacon-File'! diff --git a/repository/Beacon-File.package/monticello.meta/initializers.st b/repository/Beacon-File.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/Beacon-File.package/monticello.meta/package b/repository/Beacon-File.package/monticello.meta/package new file mode 100644 index 0000000..d841cad --- /dev/null +++ b/repository/Beacon-File.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Beacon-File') \ No newline at end of file diff --git a/repository/Beacon-File.package/properties.json b/repository/Beacon-File.package/properties.json new file mode 100644 index 0000000..6f31cf5 --- /dev/null +++ b/repository/Beacon-File.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/.filetree b/repository/Beacon-Syslog.package/.filetree new file mode 100644 index 0000000..57a6797 --- /dev/null +++ b/repository/Beacon-Syslog.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/defaultLevel.st b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/defaultLevel.st new file mode 100644 index 0000000..1146263 --- /dev/null +++ b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/defaultLevel.st @@ -0,0 +1,3 @@ +*beacon-syslog +defaultLevel + ^ LogLevel info \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/level..st b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/level..st new file mode 100644 index 0000000..b438064 --- /dev/null +++ b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/level..st @@ -0,0 +1,3 @@ +*beacon-syslog +level: aLevel + ^ self properties at: #level put: aLevel \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/level.st b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/level.st new file mode 100644 index 0000000..4e434b3 --- /dev/null +++ b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/level.st @@ -0,0 +1,3 @@ +*beacon-syslog +level + ^ self properties at: #level ifAbsent: [ self defaultLevel ] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/tag..st b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/tag..st new file mode 100644 index 0000000..6e8ebea --- /dev/null +++ b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/tag..st @@ -0,0 +1,3 @@ +*beacon-syslog +tag: aTag + ^ self properties at: #tag put: aTag \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/tag.st b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/tag.st new file mode 100644 index 0000000..c716673 --- /dev/null +++ b/repository/Beacon-Syslog.package/BeaconSignal.extension/instance/tag.st @@ -0,0 +1,3 @@ +*beacon-syslog +tag + ^ self properties at: #tag ifAbsent: [ nil ] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/BeaconSignal.extension/properties.json b/repository/Beacon-Syslog.package/BeaconSignal.extension/properties.json new file mode 100644 index 0000000..dfd7d73 --- /dev/null +++ b/repository/Beacon-Syslog.package/BeaconSignal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "BeaconSignal" +} \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/ExceptionSignal.extension/instance/defaultLevel.st b/repository/Beacon-Syslog.package/ExceptionSignal.extension/instance/defaultLevel.st new file mode 100644 index 0000000..dcd8a21 --- /dev/null +++ b/repository/Beacon-Syslog.package/ExceptionSignal.extension/instance/defaultLevel.st @@ -0,0 +1,3 @@ +*beacon-syslog +defaultLevel + ^ LogLevel error \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/ExceptionSignal.extension/properties.json b/repository/Beacon-Syslog.package/ExceptionSignal.extension/properties.json new file mode 100644 index 0000000..5fbbfe0 --- /dev/null +++ b/repository/Beacon-Syslog.package/ExceptionSignal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ExceptionSignal" +} \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/README.md b/repository/Beacon-Syslog.package/LogLevel.class/README.md new file mode 100644 index 0000000..029dd0a --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/README.md @@ -0,0 +1,25 @@ +I represent a level of severity in log messages. There are default log levels which can be used from the class side. These are: emergency, alert, critical, error, warning, notice, information, and debug. + +Objects of my class are cached in order to reduce the amount of objects needed in the image. + +Instance variables: + +- name The fullname of the log level +- shortName An abbreviated name for shorter display +- priority Priority to sort/filter log messages + + +I follow the conventions of sysLog + +Code Severity Keyword Description General Description + + +0 Emergency emerg (panic) System is unusable. A "panic" condition usually affecting multiple apps/servers/sites. At this level it would usually notify all tech staff on call. +1 Alert alert Action must be taken immediately. Should be corrected immediately, therefore notify staff who can fix the problem. An example would be the loss of a primary ISP connection. +2 Critical crit Critical conditions. Should be corrected immediately, but indicates failure in a secondary system, an example is a loss of a backup ISP connection. +3 Error err (error) Error conditions. Non-urgent failures, these should be relayed to developers or admins; each item must be resolved within a given time. +4 Warning warning (warn) Warning conditions. Warning messages, not an error, but indication that an error will occur if action is not taken, e.g. file system 85% full - each item must be resolved within a given time. +5 Notice notice Normal but significant condition. Events that are unusual but not error conditions - might be summarized in an email to developers or admins to spot potential problems - no immediate action required. +6 Informational info Informational messages. Normal operational messages - may be harvested for reporting, measuring throughput, etc. - no action required. +7 Debug debug Debug-level messages. Info useful to developers for debugging the application, not useful during operations. + diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/alert.st b/repository/Beacon-Syslog.package/LogLevel.class/class/alert.st new file mode 100644 index 0000000..30e7876 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/alert.st @@ -0,0 +1,6 @@ +instance creation +alert + "SysLog defines it as: Action must be taken immediately. Should be corrected immediately, therefore notify staff who can fix the problem. An example would be the loss of a primary ISP connection." + + + ^ self level: 'alert' shortName: 'alert' severity: 1 \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/all.st b/repository/Beacon-Syslog.package/LogLevel.class/class/all.st new file mode 100644 index 0000000..93a1939 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/all.st @@ -0,0 +1,6 @@ +accessing +all + "Return all available log levels that are defined within the receiving class" + ^ (self allLogLevelSelectors + collect: [ :selector | self perform: selector ]) + sorted \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/allLogLevelSelectors.st b/repository/Beacon-Syslog.package/LogLevel.class/class/allLogLevelSelectors.st new file mode 100644 index 0000000..1e8fb56 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/allLogLevelSelectors.st @@ -0,0 +1,6 @@ +accessing +allLogLevelSelectors + "Collect all selectors that have a pragma" + ^ self class allMethods + select: [ :each | each hasPragmaNamed: #logLevel ] + thenCollect: [ :method | method selector] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/critical.st b/repository/Beacon-Syslog.package/LogLevel.class/class/critical.st new file mode 100644 index 0000000..ea6a687 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/critical.st @@ -0,0 +1,6 @@ +instance creation +critical + "SysLog defines it as: Critical conditions. Should be corrected immediately, but indicates failure in a secondary system, an example is a loss of a backup ISP connection." + + + ^ self level: 'critical' shortName: 'crit' severity: 2 \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/debug.st b/repository/Beacon-Syslog.package/LogLevel.class/class/debug.st new file mode 100644 index 0000000..2237207 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/debug.st @@ -0,0 +1,5 @@ +instance creation +debug + "SysLog defines it as Debug-level messages. Info useful to developers for debugging the application, not useful during operations." + + ^ self level: 'debug' shortName: 'debug' severity: 7 \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/emergency.st b/repository/Beacon-Syslog.package/LogLevel.class/class/emergency.st new file mode 100644 index 0000000..6027888 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/emergency.st @@ -0,0 +1,6 @@ +instance creation +emergency + "Syslog defines it as: System is unusable. A panic condition usually affecting multiple apps/servers/sites. At this level it would usually notify all tech staff on call." + + + ^ self level: 'emergency' shortName: 'emerg' severity: 0 \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/error.st b/repository/Beacon-Syslog.package/LogLevel.class/class/error.st new file mode 100644 index 0000000..d7ec8c8 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/error.st @@ -0,0 +1,5 @@ +instance creation +error + "SysLog defines it as: Error conditions. Non-urgent failures, these should be relayed to developers or admins; each item must be resolved within a given time." + + ^ self level: 'error' shortName: 'error' severity: 3 \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/info.st b/repository/Beacon-Syslog.package/LogLevel.class/class/info.st new file mode 100644 index 0000000..df6be7f --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/info.st @@ -0,0 +1,5 @@ +instance creation +info + "SysLog defines it as: nformational messages. Normal operational messages - may be harvested for reporting, measuring throughput, etc. - no action required." + + ^ self level: 'informational' shortName: 'info' severity: 6 diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/information.st b/repository/Beacon-Syslog.package/LogLevel.class/class/information.st new file mode 100644 index 0000000..0059ccc --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/information.st @@ -0,0 +1,3 @@ +instance creation +information + ^ self info \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/level.shortName.severity..st b/repository/Beacon-Syslog.package/LogLevel.class/class/level.shortName.severity..st new file mode 100644 index 0000000..6025cb3 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/level.shortName.severity..st @@ -0,0 +1,11 @@ +instance creation +level: aLevelName shortName: aLevelShortName severity: aNumber + "Lookup a level by name and create it if not already there." + + ^ self levels + at: aLevelName + ifAbsentPut: [ + self new + name: aLevelName; + shortName: aLevelShortName; + severity: aNumber ] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/levels.st b/repository/Beacon-Syslog.package/LogLevel.class/class/levels.st new file mode 100644 index 0000000..5888d55 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/levels.st @@ -0,0 +1,4 @@ +internal +levels + ^ LogLevels ifNil: [ + LogLevels := SmallDictionary new ] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/named..st b/repository/Beacon-Syslog.package/LogLevel.class/class/named..st new file mode 100644 index 0000000..4ea24a4 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/named..st @@ -0,0 +1,7 @@ +query +named: aString + "Return a log level by either fullname or shortname" + + ^ self levels + detect: [ :level | level name = aString or: [ level shortName = aString ] ] + ifNone: [ self error: aString , ' is not a log level' ]. \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/notice.st b/repository/Beacon-Syslog.package/LogLevel.class/class/notice.st new file mode 100644 index 0000000..9c68833 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/notice.st @@ -0,0 +1,5 @@ +instance creation +notice + "sysLog defines it as: Normal but significant condition. Events that are unusual but not error conditions - might be summarized in an email to developers or admins to spot potential problems - no immediate action required." + + ^ self level: 'notice' shortName: 'notice' severity: 5 diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/reset.st b/repository/Beacon-Syslog.package/LogLevel.class/class/reset.st new file mode 100644 index 0000000..6c6b140 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/reset.st @@ -0,0 +1,3 @@ +initialization +reset + LogLevels := nil \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/trace.st b/repository/Beacon-Syslog.package/LogLevel.class/class/trace.st new file mode 100644 index 0000000..738bb67 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/trace.st @@ -0,0 +1,3 @@ +instance creation +trace + ^ self info \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/warn.st b/repository/Beacon-Syslog.package/LogLevel.class/class/warn.st new file mode 100644 index 0000000..fcef209 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/warn.st @@ -0,0 +1,3 @@ +instance creation +warn + ^ self warning \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/class/warning.st b/repository/Beacon-Syslog.package/LogLevel.class/class/warning.st new file mode 100644 index 0000000..be154bf --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/class/warning.st @@ -0,0 +1,5 @@ +instance creation +warning + "SysLog defines it as: Warning conditions. Warning messages, not an error, but indication that an error will occur if action is not taken, e.g. file system 85% full - each item must be resolved within a given time." + + ^ self level: 'warning' shortName: 'warning' severity: 4 \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/^less.equals.st b/repository/Beacon-Syslog.package/LogLevel.class/instance/^less.equals.st new file mode 100644 index 0000000..fd71e1f --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/^less.equals.st @@ -0,0 +1,3 @@ +comparing +<= aLogLevel + ^ self severity <= aLogLevel severity \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/^less.st b/repository/Beacon-Syslog.package/LogLevel.class/instance/^less.st new file mode 100644 index 0000000..e8584a6 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/^less.st @@ -0,0 +1,3 @@ +comparing +< aLogLevel + ^ self severity < aLogLevel severity \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/^more.equals.st b/repository/Beacon-Syslog.package/LogLevel.class/instance/^more.equals.st new file mode 100644 index 0000000..8770765 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/^more.equals.st @@ -0,0 +1,3 @@ +comparing +>= aLogLevel + ^ self severity >= aLogLevel severity \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/name..st b/repository/Beacon-Syslog.package/LogLevel.class/instance/name..st new file mode 100644 index 0000000..db4c3d3 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/name..st @@ -0,0 +1,3 @@ +accessing +name: aString + name := aString \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/name.st b/repository/Beacon-Syslog.package/LogLevel.class/instance/name.st new file mode 100644 index 0000000..22077c2 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ name \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/orMoreSevere.st b/repository/Beacon-Syslog.package/LogLevel.class/instance/orMoreSevere.st new file mode 100644 index 0000000..b6750f1 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/orMoreSevere.st @@ -0,0 +1,3 @@ +converting +orMoreSevere + ^ [ :log | log level <= self ] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/printOn..st b/repository/Beacon-Syslog.package/LogLevel.class/instance/printOn..st new file mode 100644 index 0000000..b978f51 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/printOn..st @@ -0,0 +1,4 @@ +printing +printOn: aStream + aStream + nextPutAll: name \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/severity..st b/repository/Beacon-Syslog.package/LogLevel.class/instance/severity..st new file mode 100644 index 0000000..f29575f --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/severity..st @@ -0,0 +1,3 @@ +accessing +severity: aNumber + severity := aNumber \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/severity.st b/repository/Beacon-Syslog.package/LogLevel.class/instance/severity.st new file mode 100644 index 0000000..57c111a --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/severity.st @@ -0,0 +1,3 @@ +accessing +severity + ^ severity \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/shortName..st b/repository/Beacon-Syslog.package/LogLevel.class/instance/shortName..st new file mode 100644 index 0000000..be829f0 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/shortName..st @@ -0,0 +1,3 @@ +accessing +shortName: aString + shortName := aString \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/instance/shortName.st b/repository/Beacon-Syslog.package/LogLevel.class/instance/shortName.st new file mode 100644 index 0000000..7909f87 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/instance/shortName.st @@ -0,0 +1,3 @@ +accessing +shortName + ^ shortName \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/LogLevel.class/properties.json b/repository/Beacon-Syslog.package/LogLevel.class/properties.json new file mode 100644 index 0000000..4fcefb3 --- /dev/null +++ b/repository/Beacon-Syslog.package/LogLevel.class/properties.json @@ -0,0 +1,17 @@ +{ + "commentStamp" : "StephaneDucasse 2/22/2014 20:08", + "super" : "Object", + "category" : "Beacon-Syslog", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "LogLevels" + ], + "instvars" : [ + "name", + "shortName", + "severity" + ], + "name" : "LogLevel", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/README.md b/repository/Beacon-Syslog.package/SyslogSender.class/README.md new file mode 100644 index 0000000..2419e59 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/README.md @@ -0,0 +1,16 @@ +Logger that outputs sysLog messages via UDP. + +To add a syslog logger do: + +SyslogSender new + addHost: 'localhost'. + +To send a syslog message use + +StringSignal new + message: 'a message to be logged'; + tag: 'syslog-tag'; + level: LogLevel info; + log + +#tag: and #level: are extension methods to StringSignal to be able to use syslog specific parameters \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/class/defaultSerializer.st b/repository/Beacon-Syslog.package/SyslogSender.class/class/defaultSerializer.st new file mode 100644 index 0000000..7a7edef --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/class/defaultSerializer.st @@ -0,0 +1,3 @@ +defaults +defaultSerializer + ^ SyslogSerializer new \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/class/localhost.st b/repository/Beacon-Syslog.package/SyslogSender.class/class/localhost.st new file mode 100644 index 0000000..5aec89f --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/class/localhost.st @@ -0,0 +1,4 @@ +instance creation +localhost + ^ self new + addHost: 'localhost' \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/class/localhostOn..st b/repository/Beacon-Syslog.package/SyslogSender.class/class/localhostOn..st new file mode 100644 index 0000000..cfd0b3b --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/class/localhostOn..st @@ -0,0 +1,5 @@ +instance creation +localhostOn: aPortNumber + ^ self new + addHost: 'localhost' + port: aPortNumber \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/addHost..st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/addHost..st new file mode 100644 index 0000000..5345dce --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/addHost..st @@ -0,0 +1,5 @@ +configuring +addHost: aString + "Add a host to send to, 514 is default syslog port." + + self addHost: aString port: 514 \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/addHost.port..st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/addHost.port..st new file mode 100644 index 0000000..f19ea78 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/addHost.port..st @@ -0,0 +1,5 @@ +configuring +addHost: aString port: aPortNumber + "Add a host name with portnumber." + + hosts add: aString -> (aPortNumber ifNil: [514]) \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/defaultSerializer.st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/defaultSerializer.st new file mode 100644 index 0000000..7bb4799 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/defaultSerializer.st @@ -0,0 +1,4 @@ +accessing +defaultSerializer + ^ super defaultSerializer + converter: UTF8TextConverter new \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/facility..st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/facility..st new file mode 100644 index 0000000..d7e1cc4 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/facility..st @@ -0,0 +1,5 @@ +accessing +facility: anInteger + "We keep it multiplied with 8 so we don't need to do that every time we emit." + + facility := anInteger * 8 \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/facility.st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/facility.st new file mode 100644 index 0000000..2f31ed5 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/facility.st @@ -0,0 +1,3 @@ +accessing +facility + ^ facility \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/hostName..st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/hostName..st new file mode 100644 index 0000000..6736bb6 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/hostName..st @@ -0,0 +1,5 @@ +accessing +hostName: aHostName + "Apparently this is not that easy to find cross platform." + + hostName := aHostName \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/hostName.st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/hostName.st new file mode 100644 index 0000000..d79fd3b --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/hostName.st @@ -0,0 +1,6 @@ +accessing +hostName + "Apparently this is not that easy to find cross platform." + + ^hostName ifNil: [ + hostName := self localHostname ] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/initialize.st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/initialize.st new file mode 100644 index 0000000..86a1e7d --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialize +initialize + + super initialize. + self facility: 16. "Use 1 (=user level) or 16-23 (=local use local0-7)" + hosts := OrderedCollection new \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/localHostname.st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/localHostname.st new file mode 100644 index 0000000..6975760 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/localHostname.st @@ -0,0 +1,9 @@ +accessing +localHostname + "resolve local hostname. If no name is resolvable then we get back the IP address. + We return either the hostname without domain or the IP address" + | hostname | + hostname := NetNameResolver localHostName. + ^ (hostname copyAfterLast: $.) isAllDigits + ifTrue: [ hostname ] + ifFalse: [ hostname copyUpTo: $. ] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/nextPutSerialized..st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/nextPutSerialized..st new file mode 100644 index 0000000..7f12d83 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/nextPutSerialized..st @@ -0,0 +1,4 @@ +operations +nextPutSerialized: aString + + hosts do: [:host | self send: aString to: host key port: host value] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/printOn..st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/printOn..st new file mode 100644 index 0000000..ec5f204 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/printOn..st @@ -0,0 +1,12 @@ +printing +printOn: aStream + super printOn: aStream. + aStream + nextPutAll: ' sending to '. + hosts + do: [ :each | + aStream + nextPutAll: each key; + nextPut: $:; + nextPutAll: each value asString ] + separatedBy: [ aStream nextPutAll: ', ' ] \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/instance/send.to.port..st b/repository/Beacon-Syslog.package/SyslogSender.class/instance/send.to.port..st new file mode 100644 index 0000000..4603adb --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/instance/send.to.port..st @@ -0,0 +1,9 @@ +private +send: message to: host port: port + "Send formatted UDP message to host and port." + + | sock | + sock := Socket newUDP. + sock sendData: message toHost: (NetNameResolver addressForName: host) port: port. + sock waitForSendDoneFor: Socket standardTimeout. + sock close \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSender.class/properties.json b/repository/Beacon-Syslog.package/SyslogSender.class/properties.json new file mode 100644 index 0000000..c49b3ba --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSender.class/properties.json @@ -0,0 +1,15 @@ +{ + "commentStamp" : "NorbertHartl 8/12/2016 16:24", + "super" : "SerializingLogger", + "category" : "Beacon-Syslog", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "hosts", + "facility", + "hostName" + ], + "name" : "SyslogSender", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/README.md b/repository/Beacon-Syslog.package/SyslogSerializer.class/README.md new file mode 100644 index 0000000..d9e5016 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/README.md @@ -0,0 +1 @@ +May be the Log class should be extended with the sender notion? \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/converter..st b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/converter..st new file mode 100644 index 0000000..218acfd --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/converter..st @@ -0,0 +1,3 @@ +accessing +converter: anObject + converter := anObject \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/converter.st b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/converter.st new file mode 100644 index 0000000..58d10cb --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/converter.st @@ -0,0 +1,3 @@ +accessing +converter + ^ converter \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/hasUtf8Converter.st b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/hasUtf8Converter.st new file mode 100644 index 0000000..926f8f8 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/hasUtf8Converter.st @@ -0,0 +1,3 @@ +testing +hasUtf8Converter + ^ converter class encodingNames includes: 'utf-8' \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/serializeSignal.logger..st b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/serializeSignal.logger..st new file mode 100644 index 0000000..e827c44 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/serializeSignal.logger..st @@ -0,0 +1,16 @@ +format +serializeSignal: aSignal logger: aLogger + "timestamp is rounded because the syslog format has only second precision" + | stream | + stream := WriteStream on: ByteString new. + + self writePriority: (aLogger facility + aSignal level severity) on: stream. + "write header consisting of timestamp and host" + self writeTimestamp: aSignal timestamp on: stream. + stream + nextPut: Character space; + nextPutAll: aLogger hostName; + nextPut: Character space. + "syslog format ends here. Now we write the message part" + self writeMessageFrom: aSignal on: stream. + ^ stream contents \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writeEncodedString.on..st b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writeEncodedString.on..st new file mode 100644 index 0000000..0a21824 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writeEncodedString.on..st @@ -0,0 +1,13 @@ +writing +writeEncodedString: aString on: aStream + "according to RFC 5424 a BOM needs to be written if the encoded string + is utf-8 encoded" + "removed for now. This is a mismatch between RFC3164 and RFC5424. As those two + are not compatible this should be separated in two different formatters. Now we just + encode utf-8 to be able to transport proper strings" + "self hasUtf8Converter ifTrue: [ + converter class writeBOMOn: aStream ]." + "in order to support proper utf-8 encoding we need to workaround that + TextConverter>>#nextPutByteString:toStream: does not work for WideStrings. So we put + every single characters ourselves on the stream" + aStream nextPutAll: (converter convertToSystemString: aString) \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writeMessageFrom.on..st b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writeMessageFrom.on..st new file mode 100644 index 0000000..b26904a --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writeMessageFrom.on..st @@ -0,0 +1,13 @@ +writing +writeMessageFrom: aLog on: aStream + "the message part is not specified in the syslog protocol and can be any custom message. + This message is a common format to write a tag/domain, a severity and the text of the message" + ((aLog respondsTo: #tag) and: [ aLog tag notNil ]) ifTrue: [ + aStream + nextPutAll: aLog tag asString; + nextPutAll: ': ' ]. + aStream + nextPutAll: aLog level shortName asUppercase ; + nextPutAll: ': '. + + self writeEncodedString: aLog message asString on: aStream \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writePriority.on..st b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writePriority.on..st new file mode 100644 index 0000000..e2ddfe0 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writePriority.on..st @@ -0,0 +1,6 @@ +writing +writePriority: aNumber on: aStream + aStream + nextPut: $< ; + nextPutAll: aNumber asString; + nextPut: $> \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writeTimestamp.on..st b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writeTimestamp.on..st new file mode 100644 index 0000000..d002119 --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/instance/writeTimestamp.on..st @@ -0,0 +1,10 @@ +writing +writeTimestamp: aDateAndTime on: aStream + | dayOfMonth | + dayOfMonth := aDateAndTime dayOfMonth . + aStream + nextPutAll: aDateAndTime monthAbbreviation; + nextPut: Character space; + nextPutAll: (dayOfMonth asString padLeftTo: 2); + nextPut: Character space. + aDateAndTime rounded asTime print24: true on: aStream. \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/SyslogSerializer.class/properties.json b/repository/Beacon-Syslog.package/SyslogSerializer.class/properties.json new file mode 100644 index 0000000..5df373a --- /dev/null +++ b/repository/Beacon-Syslog.package/SyslogSerializer.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "StephaneDucasse 2/22/2014 21:44", + "super" : "SignalSerializer", + "category" : "Beacon-Syslog", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "converter" + ], + "name" : "SyslogSerializer", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/monticello.meta/categories.st b/repository/Beacon-Syslog.package/monticello.meta/categories.st new file mode 100644 index 0000000..60acd69 --- /dev/null +++ b/repository/Beacon-Syslog.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Beacon-Syslog'! diff --git a/repository/Beacon-Syslog.package/monticello.meta/initializers.st b/repository/Beacon-Syslog.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/Beacon-Syslog.package/monticello.meta/package b/repository/Beacon-Syslog.package/monticello.meta/package new file mode 100644 index 0000000..e3e537f --- /dev/null +++ b/repository/Beacon-Syslog.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Beacon-Syslog') \ No newline at end of file diff --git a/repository/Beacon-Syslog.package/properties.json b/repository/Beacon-Syslog.package/properties.json new file mode 100644 index 0000000..6f31cf5 --- /dev/null +++ b/repository/Beacon-Syslog.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/.filetree b/repository/Beacon-Zinc.package/.filetree new file mode 100644 index 0000000..57a6797 --- /dev/null +++ b/repository/Beacon-Zinc.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEvent.extension/class/logToBeacon.st b/repository/Beacon-Zinc.package/ZnLogEvent.extension/class/logToBeacon.st new file mode 100644 index 0000000..f2e50b9 --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEvent.extension/class/logToBeacon.st @@ -0,0 +1,4 @@ +*Beacon-Zinc +logToBeacon + self stopLoggingToBeacon. + ^ self announcer when: ZnLogEvent do: [ :event | (ZnLogEventSignal on: event) emit ]. \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEvent.extension/class/stopLoggingToBeacon.st b/repository/Beacon-Zinc.package/ZnLogEvent.extension/class/stopLoggingToBeacon.st new file mode 100644 index 0000000..0fa3871 --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEvent.extension/class/stopLoggingToBeacon.st @@ -0,0 +1,3 @@ +*Beacon-Zinc +stopLoggingToBeacon. + self announcer unsubscribe: self \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEvent.extension/properties.json b/repository/Beacon-Zinc.package/ZnLogEvent.extension/properties.json new file mode 100644 index 0000000..cdb1c3a --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEvent.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnLogEvent" +} \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEventSignal.class/README.md b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/README.md new file mode 100644 index 0000000..30e648b --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/README.md @@ -0,0 +1,12 @@ +A wrapper for ZnLogEvents + +Usage: + +((FileLogger new + filename: FileLocator imageDirectory / 'test.log') + runFor: ZnLogEventSignal during: [ + ZnEasy get: 'http://pharo.org' + ]; + stream) close + + diff --git a/repository/Beacon-Zinc.package/ZnLogEventSignal.class/class/emit..st b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/class/emit..st new file mode 100644 index 0000000..d7ed355 --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/class/emit..st @@ -0,0 +1,3 @@ +instance creation +emit: aTargetObject + ^ (self on: aTargetObject) emit \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEventSignal.class/class/log..st b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/class/log..st new file mode 100644 index 0000000..7ab2de0 --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/class/log..st @@ -0,0 +1,4 @@ +instance creation +log: aTargetObject + self deprecated: 'Should use #emit:'. + ^ self emit: aTargetObject \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEventSignal.class/class/on..st b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/class/on..st new file mode 100644 index 0000000..0148499 --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/class/on..st @@ -0,0 +1,4 @@ +instance creation +on: aTargetObject + ^ self new + target: aTargetObject \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/name.st b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/name.st new file mode 100644 index 0000000..441d06b --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ 'ZnLogEventSignal on ', self target class name \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/printOneLineContentsOn..st b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/printOneLineContentsOn..st new file mode 100644 index 0000000..d292be8 --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/printOneLineContentsOn..st @@ -0,0 +1,3 @@ +printing +printOneLineContentsOn: stream + self target printOneLineContentsOn: stream \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/target..st b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/target..st new file mode 100644 index 0000000..6c4a57d --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/target..st @@ -0,0 +1,3 @@ +accessing +target: anObject + target := anObject \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/target.st b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/target.st new file mode 100644 index 0000000..2e1e15c --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/instance/target.st @@ -0,0 +1,3 @@ +accessing +target + ^ target \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/ZnLogEventSignal.class/properties.json b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/properties.json new file mode 100644 index 0000000..bdfb953 --- /dev/null +++ b/repository/Beacon-Zinc.package/ZnLogEventSignal.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "PhilippeBack 5/3/2017 15:53", + "super" : "BeaconSignal", + "category" : "Beacon-Zinc", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "target" + ], + "name" : "ZnLogEventSignal", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/monticello.meta/categories.st b/repository/Beacon-Zinc.package/monticello.meta/categories.st new file mode 100644 index 0000000..0d9621f --- /dev/null +++ b/repository/Beacon-Zinc.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Beacon-Zinc'! diff --git a/repository/Beacon-Zinc.package/monticello.meta/initializers.st b/repository/Beacon-Zinc.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/Beacon-Zinc.package/monticello.meta/package b/repository/Beacon-Zinc.package/monticello.meta/package new file mode 100644 index 0000000..08cc02b --- /dev/null +++ b/repository/Beacon-Zinc.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Beacon-Zinc') \ No newline at end of file diff --git a/repository/Beacon-Zinc.package/properties.json b/repository/Beacon-Zinc.package/properties.json new file mode 100644 index 0000000..6f31cf5 --- /dev/null +++ b/repository/Beacon-Zinc.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/.filetree b/repository/ConfigurationOfBeacon.package/.filetree new file mode 100644 index 0000000..57a6797 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/README.md b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/README.md new file mode 100644 index 0000000..e69de29 diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/DevelopmentSupport.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/DevelopmentSupport.st new file mode 100644 index 0000000..f188387 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/DevelopmentSupport.st @@ -0,0 +1,5 @@ +development support +DevelopmentSupport + +"See the methods in the 'development support' category on the class-side of MetacelloBaseConfiguration. Decide what development support methods you would like to use and copy them the the class-side of your configuration." + diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/baseConfigurationClassIfAbsent..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/baseConfigurationClassIfAbsent..st new file mode 100644 index 0000000..e906812 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/baseConfigurationClassIfAbsent..st @@ -0,0 +1,8 @@ +private +baseConfigurationClassIfAbsent: aBlock + + ^Smalltalk + at: #MetacelloBaseConfiguration + ifAbsent: [ + self ensureMetacelloBaseConfiguration. + Smalltalk at: #MetacelloBaseConfiguration ifAbsent: aBlock ]. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/ensureMetacello.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/ensureMetacello.st new file mode 100644 index 0000000..869b381 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/ensureMetacello.st @@ -0,0 +1,4 @@ +private +ensureMetacello + + (self baseConfigurationClassIfAbsent: []) ensureMetacello \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/ensureMetacelloBaseConfiguration.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/ensureMetacelloBaseConfiguration.st new file mode 100644 index 0000000..7605398 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/ensureMetacelloBaseConfiguration.st @@ -0,0 +1,14 @@ +private +ensureMetacelloBaseConfiguration + + Smalltalk + at: #MetacelloBaseConfiguration + ifAbsent: [ + | repository version | + repository := MCHttpRepository location: 'http://seaside.gemstone.com/ss/metacello' user: '' password: ''. + repository + versionReaderForFileNamed: 'Metacello-Base-DaleHenrichs.2.mcz' + do: [ :reader | + version := reader version. + version load. + version workingCopy repositoryGroup addRepository: repository ] ] \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/isMetacelloConfig.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/isMetacelloConfig.st new file mode 100644 index 0000000..98d81c7 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/isMetacelloConfig.st @@ -0,0 +1,5 @@ +metacello tool support +isMetacelloConfig + "Answer true and the Metacello tools will operate on you" + + ^true \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/load.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/load.st new file mode 100644 index 0000000..cfb70d4 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/load.st @@ -0,0 +1,8 @@ +loading +load + "Load the #stable version defined for this platform. The #stable version is the version that is recommended to be used on this platform." + + "self load" + + + ^(self project version: #stable) load \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/loadBleedingEdge.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/loadBleedingEdge.st new file mode 100644 index 0000000..e780e1d --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/loadBleedingEdge.st @@ -0,0 +1,8 @@ +loading +loadBleedingEdge + "Load the latest versions of the mcz files defined for this project. It is not likely that the #bleedingEdge has been tested." + + "self loadBleedingEdge" + + + ^(self project version: #bleedingEdge) load \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/loadDevelopment.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/loadDevelopment.st new file mode 100644 index 0000000..2ccd72a --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/loadDevelopment.st @@ -0,0 +1,8 @@ +loading +loadDevelopment + "Load the #development version defined for this platform. The #development version will change over time and is not expected to be stable." + + "self loadDevelopment" + + + ^(self project version: #development) load \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/project.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/project.st new file mode 100644 index 0000000..925935b --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/project.st @@ -0,0 +1,4 @@ +accessing +project + + ^self new project \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/validate.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/validate.st new file mode 100644 index 0000000..589fc0b --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/class/validate.st @@ -0,0 +1,12 @@ +development support +validate + "Check the configuration for Errors, Critical Warnings, and Warnings (see class comment for MetacelloMCVersionValidator for more information). + Errors identify specification issues that will result in unexpected behaviour when you load the configuration. + Critical Warnings identify specification issues that may result in unexpected behavior when you load the configuration. + Warnings identify specification issues that are technically correct, but are worth take a look at." + + "self validate" + + + self ensureMetacello. + ^ ((Smalltalk at: #MetacelloToolBox) validateConfiguration: self debug: #() recurse: false) explore \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline01..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline01..st new file mode 100644 index 0000000..27388f5 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline01..st @@ -0,0 +1,10 @@ +baselines +baseline01: spec + + + spec for: #'common' do: [ + spec blessing: #'baseline'. + spec repository: 'http://smalltalkhub.com/mc/girba/Beacon/main/'. + spec + package: #Beacon; + package: #FuelBeacon. ]. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline02..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline02..st new file mode 100644 index 0000000..730034c --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline02..st @@ -0,0 +1,10 @@ +baselines +baseline02: spec + + + spec for: #'common' do: [ + spec blessing: #'baseline'. + spec repository: 'http://smalltalkhub.com/mc/Pharo/Beacon/main/'. + spec + package: #Beacon; + package: #FuelBeacon with: [ spec requires: #(#Beacon) ] . ]. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline03..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline03..st new file mode 100644 index 0000000..9d84edf --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline03..st @@ -0,0 +1,13 @@ +baselines +baseline03: spec + + + spec for: #'common' do: [ + spec blessing: #'baseline'. + spec repository: 'http://smalltalkhub.com/mc/Pharo/Beacon/main/'. + spec + package: #Beacon; + package: 'Beacon-Syslog' with: [ + spec requires: #(#Beacon ). ]; + package: #FuelBeacon with: [ + spec requires: #(#Beacon ). ]. ]. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline04..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline04..st new file mode 100644 index 0000000..fb9eaeb --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline04..st @@ -0,0 +1,17 @@ +baselines +baseline04: spec + + + spec for: #'common' do: [ + spec blessing: #'baseline'. + spec repository: 'http://smalltalkhub.com/mc/Pharo/Beacon/main/'. + spec + package: #'Beacon-Core'; + package: #'Beacon-Core-GT' with: [ + spec requires: #('Beacon-Core' ). ]; + package: #'Beacon-Core-Tests' with: [ + spec requires: #('Beacon-Core' ). ]; + package: 'Beacon-Syslog'. + spec + group: 'Core' with: #('Beacon-Core' ); + group: 'default' with: #('Beacon-Core' 'Beacon-Core-Tests' 'Beacon-Core-GT' ). ]. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline05..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline05..st new file mode 100644 index 0000000..5eaec7b --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/baseline05..st @@ -0,0 +1,20 @@ +baselines +baseline05: spec + + + spec for: #'common' do: [ + spec blessing: #'baseline'. + spec repository: 'http://smalltalkhub.com/mc/Pharo/Beacon/main/'. + spec + package: #'Beacon-Core'; + package: #'Beacon-Core-GT' with: [ + spec requires: #('Beacon-Core' ). ]; + package: #'Beacon-Core-Tests' with: [ + spec requires: #('Beacon-Core' ). ]; + package: #'Beacon-Syslog'; + package: #'Beacon-File'; + package: #'FuelBeacon'; + package: #'Beacon-Zinc'. + spec + group: 'Core' with: #('Beacon-Core' ); + group: 'default' with: #('Beacon-Core' 'Beacon-Core-Tests' 'Beacon-Core-GT' 'Beacon-Syslog' 'Beacon-File' 'FuelBeacon' 'Beacon-Zinc'). ]. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/customProjectAttributes.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/customProjectAttributes.st new file mode 100644 index 0000000..ac31b11 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/customProjectAttributes.st @@ -0,0 +1,6 @@ +accessing +customProjectAttributes + "Edit to return a collection of any custom attributes e.g. for conditional loading: Array with: #'Condition1' with: #'Condition2. + For more information see: http://code.google.com/p/metacello/wiki/CustomProjectAttrributes" + + ^ #(). \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/development..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/development..st new file mode 100644 index 0000000..f3a8453 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/development..st @@ -0,0 +1,5 @@ +symbolic versions +development: spec + + + spec for: #'common' version: '0.5-baseline'. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/project.st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/project.st new file mode 100644 index 0000000..829ebf6 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/project.st @@ -0,0 +1,11 @@ +accessing +project + + ^ project ifNil: [ + "Bootstrap Metacello if it is not already loaded" + (self class baseConfigurationClassIfAbsent: []) ensureMetacello. + "Construct Metacello project" + project := MetacelloMCProject new projectAttributes: self customProjectAttributes. + (Smalltalk at: #MetacelloVersionConstructor) on: self project: project. + project loadType: #linear. "change to #atomic if desired" + project ] \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/stable..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/stable..st new file mode 100644 index 0000000..9ed289c --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/stable..st @@ -0,0 +1,5 @@ +symbolic versions +stable: spec + + + spec for: #'common' version: '1.3'. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version10..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version10..st new file mode 100644 index 0000000..facf0cd --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version10..st @@ -0,0 +1,12 @@ +versions +version10: spec + + + spec for: #'common' do: [ + spec blessing: #'stable'. + spec description: 'version 1.0'. + spec author: 'TudorGirba'. + spec timestamp: '6/15/2014 14:37'. + spec + package: #Beacon with: 'Beacon-TudorGirba.31'; + package: #FuelBeacon with: 'FuelBeacon-TudorGirba.7'. ]. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version11..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version11..st new file mode 100644 index 0000000..a785c87 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version11..st @@ -0,0 +1,12 @@ +versions +version11: spec + + + spec for: #'common' do: [ + spec blessing: #'stable'. + spec description: 'new baseline to point to the Pharo repo'. + spec author: 'TudorGirba'. + spec timestamp: '6/15/2014 14:37'. + spec + package: #Beacon with: 'Beacon-TudorGirba.31'; + package: #FuelBeacon with: 'FuelBeacon-TudorGirba.7'. ]. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version12..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version12..st new file mode 100644 index 0000000..abfcf64 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version12..st @@ -0,0 +1,14 @@ +versions +version12: spec + + + spec for: #'common' do: [ + spec blessing: #'stable'. + spec description: 'version 1.2'. + spec author: 'NorbertHartl'. + spec timestamp: '9/8/2016 14:20'. + spec + package: #'Beacon-Core' with: 'Beacon-Core-NorbertHartl.6'; + package: #'Beacon-Core-GT' with: 'Beacon-Core-GT-TudorGirba.1'; + package: #'Beacon-Core-Tests' with: 'Beacon-Core-Tests-NorbertHartl.2'; + package: 'Beacon-Syslog' with: 'Beacon-Syslog-NorbertHartl.9'. ]. diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version13..st b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version13..st new file mode 100644 index 0000000..0be6d53 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/instance/version13..st @@ -0,0 +1,20 @@ +versions +version13: spec + + spec + for: #common + do: [ spec blessing: #stable. + spec description: 'version 1.3'. + spec author: 'PhilippeBack'. + spec timestamp: '30/5/2016 15:14 CSET'. + spec + package: #'Beacon-Core' + with: 'Beacon-Core-PhilippeBack.17'; + package: #'Beacon-Core-GT' + with: 'Beacon-Core-GT-PavelKrivanek.5'; + package: #'Beacon-Core-Tests' + with: 'Beacon-Core-Tests-PhilippeBack.6'; + package: 'Beacon-Syslog' + with: 'Beacon-Syslog-NorbertHartl.10'; + package: 'Beacon-Zinc' with: 'Beacon-Zinc-PhilippeBack.2'; + package: 'FuelBeacon' with: 'FuelBeacon-TudorGirba.11' ] \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/properties.json b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/properties.json new file mode 100644 index 0000000..4b61e37 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/ConfigurationOfBeacon.class/properties.json @@ -0,0 +1,15 @@ +{ + "commentStamp" : "", + "super" : "Object", + "category" : "ConfigurationOfBeacon", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "LastVersionLoad" + ], + "instvars" : [ + "project" + ], + "name" : "ConfigurationOfBeacon", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/monticello.meta/categories.st b/repository/ConfigurationOfBeacon.package/monticello.meta/categories.st new file mode 100644 index 0000000..f0db327 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #ConfigurationOfBeacon! diff --git a/repository/ConfigurationOfBeacon.package/monticello.meta/initializers.st b/repository/ConfigurationOfBeacon.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/ConfigurationOfBeacon.package/monticello.meta/package b/repository/ConfigurationOfBeacon.package/monticello.meta/package new file mode 100644 index 0000000..00dd729 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'ConfigurationOfBeacon') \ No newline at end of file diff --git a/repository/ConfigurationOfBeacon.package/properties.json b/repository/ConfigurationOfBeacon.package/properties.json new file mode 100644 index 0000000..6f31cf5 --- /dev/null +++ b/repository/ConfigurationOfBeacon.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/FuelBeacon.package/.filetree b/repository/FuelBeacon.package/.filetree new file mode 100644 index 0000000..57a6797 --- /dev/null +++ b/repository/FuelBeacon.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/FuelBeacon.package/BeaconSignal.extension/instance/objectToSerialize.st b/repository/FuelBeacon.package/BeaconSignal.extension/instance/objectToSerialize.st new file mode 100644 index 0000000..bec0ee8 --- /dev/null +++ b/repository/FuelBeacon.package/BeaconSignal.extension/instance/objectToSerialize.st @@ -0,0 +1,6 @@ +*FuelBeacon +objectToSerialize + "By default we serialize self. However, subclasses + might override this method and return either a smaller + copy of self or a different object altogether" + ^ self \ No newline at end of file diff --git a/repository/FuelBeacon.package/BeaconSignal.extension/instance/printOneLineString.st b/repository/FuelBeacon.package/BeaconSignal.extension/instance/printOneLineString.st new file mode 100644 index 0000000..86e578c --- /dev/null +++ b/repository/FuelBeacon.package/BeaconSignal.extension/instance/printOneLineString.st @@ -0,0 +1,4 @@ +*FuelBeacon +printOneLineString + ^ String streamContents: [ :stream | + self printOneLineOn: stream ] \ No newline at end of file diff --git a/repository/FuelBeacon.package/BeaconSignal.extension/instance/serializeInDirectory..st b/repository/FuelBeacon.package/BeaconSignal.extension/instance/serializeInDirectory..st new file mode 100644 index 0000000..472f7b5 --- /dev/null +++ b/repository/FuelBeacon.package/BeaconSignal.extension/instance/serializeInDirectory..st @@ -0,0 +1,12 @@ +*FuelBeacon +serializeInDirectory: aDirectoryReference + "Serializes the current signal into a fuel file named based on + the one line printout. Given that the one liner contains the + timestamp, it becomes unique" + | oneLinerAsFileName | + oneLinerAsFileName := String streamContents: [ :stream | + self printOneLineString do: [ :each | + (#( $: $/ $.) includes: each) + ifTrue: [ stream nextPut: $- ] + ifFalse: [ stream nextPut: each ] ] ]. + self serializeToFile: (aDirectoryReference / oneLinerAsFileName , 'fuel') \ No newline at end of file diff --git a/repository/FuelBeacon.package/BeaconSignal.extension/instance/serializeToFile..st b/repository/FuelBeacon.package/BeaconSignal.extension/instance/serializeToFile..st new file mode 100644 index 0000000..233beb2 --- /dev/null +++ b/repository/FuelBeacon.package/BeaconSignal.extension/instance/serializeToFile..st @@ -0,0 +1,5 @@ +*FuelBeacon +serializeToFile: aFileReference + FLSerializer + serialize: self objectToSerialize + toFileNamed: aFileReference fullName \ No newline at end of file diff --git a/repository/FuelBeacon.package/BeaconSignal.extension/properties.json b/repository/FuelBeacon.package/BeaconSignal.extension/properties.json new file mode 100644 index 0000000..dfd7d73 --- /dev/null +++ b/repository/FuelBeacon.package/BeaconSignal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "BeaconSignal" +} \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelBeaconTest.class/README.md b/repository/FuelBeacon.package/FuelBeaconTest.class/README.md new file mode 100644 index 0000000..e69de29 diff --git a/repository/FuelBeacon.package/FuelBeaconTest.class/instance/deleteDirectory.st b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/deleteDirectory.st new file mode 100644 index 0000000..0afbea6 --- /dev/null +++ b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/deleteDirectory.st @@ -0,0 +1,5 @@ +own services +deleteDirectory + directory exists ifTrue: [ + directory files do: [ :each | each delete ]. + directory delete ] \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelBeaconTest.class/instance/setUp.st b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/setUp.st new file mode 100644 index 0000000..7232bba --- /dev/null +++ b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/setUp.st @@ -0,0 +1,7 @@ +running +setUp + directory := FileSystem disk workingDirectory / 'testfuelbeacon'. + self deleteDirectory. + directory ensureCreateDirectory. + fuelBeacon := FuelLogger on: directory. + fuelBeacon start \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelBeaconTest.class/instance/tearDown.st b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/tearDown.st new file mode 100644 index 0000000..3d9e2e0 --- /dev/null +++ b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/tearDown.st @@ -0,0 +1,4 @@ +running +tearDown + fuelBeacon stop. + self deleteDirectory \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelBeaconTest.class/instance/testOneSignalLeadsToOnFile.st b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/testOneSignalLeadsToOnFile.st new file mode 100644 index 0000000..ad0fd6f --- /dev/null +++ b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/testOneSignalLeadsToOnFile.st @@ -0,0 +1,4 @@ +tests +testOneSignalLeadsToOnFile + StringSignal log: 'test'. + self assert: directory files size equals: 1 \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelBeaconTest.class/instance/testSerializeAndMaterializeOneStringSignal.st b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/testSerializeAndMaterializeOneStringSignal.st new file mode 100644 index 0000000..f7bc6af --- /dev/null +++ b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/testSerializeAndMaterializeOneStringSignal.st @@ -0,0 +1,6 @@ +tests +testSerializeAndMaterializeOneStringSignal + | signal materializedSignal | + signal := StringSignal log: 'test'. + materializedSignal := FLMaterializer materializeFromFileNamed: directory files first fullName. + self assert: (materializedSignal isKindOf: StringSignal) \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelBeaconTest.class/instance/testTwoSignalsLeadToTwoFiles.st b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/testTwoSignalsLeadToTwoFiles.st new file mode 100644 index 0000000..ed6298d --- /dev/null +++ b/repository/FuelBeacon.package/FuelBeaconTest.class/instance/testTwoSignalsLeadToTwoFiles.st @@ -0,0 +1,5 @@ +tests +testTwoSignalsLeadToTwoFiles + StringSignal log: 'test'. + StringSignal log: 'test2'. + self assert: directory files size equals: 2 \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelBeaconTest.class/properties.json b/repository/FuelBeacon.package/FuelBeaconTest.class/properties.json new file mode 100644 index 0000000..79ce435 --- /dev/null +++ b/repository/FuelBeacon.package/FuelBeaconTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "TestCase", + "category" : "FuelBeacon-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "fuelBeacon", + "directory" + ], + "name" : "FuelBeaconTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelLogger.class/README.md b/repository/FuelBeacon.package/FuelLogger.class/README.md new file mode 100644 index 0000000..775980c --- /dev/null +++ b/repository/FuelBeacon.package/FuelLogger.class/README.md @@ -0,0 +1,6 @@ +This beacon saves each signal into a Fuel file in the current folder. + +Example: + self new runDuring: [ + StringSignal log: 'This is a message'. + StringSignal log: 'This is another message'. ]. diff --git a/repository/FuelBeacon.package/FuelLogger.class/class/on..st b/repository/FuelBeacon.package/FuelLogger.class/class/on..st new file mode 100644 index 0000000..28a9c2d --- /dev/null +++ b/repository/FuelBeacon.package/FuelLogger.class/class/on..st @@ -0,0 +1,3 @@ +instance creation +on: aDirectoryReference + ^ self new directory: aDirectoryReference \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelLogger.class/instance/directory..st b/repository/FuelBeacon.package/FuelLogger.class/instance/directory..st new file mode 100644 index 0000000..4a51d9e --- /dev/null +++ b/repository/FuelBeacon.package/FuelLogger.class/instance/directory..st @@ -0,0 +1,3 @@ +accessing +directory: aFileReference + directory := aFileReference \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelLogger.class/instance/directory.st b/repository/FuelBeacon.package/FuelLogger.class/instance/directory.st new file mode 100644 index 0000000..1b71cd7 --- /dev/null +++ b/repository/FuelBeacon.package/FuelLogger.class/instance/directory.st @@ -0,0 +1,3 @@ +accessing +directory + ^ directory \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelLogger.class/instance/handle..st b/repository/FuelBeacon.package/FuelLogger.class/instance/handle..st new file mode 100644 index 0000000..70e4bae --- /dev/null +++ b/repository/FuelBeacon.package/FuelLogger.class/instance/handle..st @@ -0,0 +1,4 @@ +registering +handle: aSignal + self directory ensureCreateDirectory. + aSignal serializeInDirectory: self directory \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelLogger.class/instance/initialize.st b/repository/FuelBeacon.package/FuelLogger.class/instance/initialize.st new file mode 100644 index 0000000..17f80a7 --- /dev/null +++ b/repository/FuelBeacon.package/FuelLogger.class/instance/initialize.st @@ -0,0 +1,4 @@ +initialize +initialize + super initialize. + directory := FileSystem disk workingDirectory / 'fuelbeacon' \ No newline at end of file diff --git a/repository/FuelBeacon.package/FuelLogger.class/properties.json b/repository/FuelBeacon.package/FuelLogger.class/properties.json new file mode 100644 index 0000000..c98a97d --- /dev/null +++ b/repository/FuelBeacon.package/FuelLogger.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "TudorGirba 6/14/2014 17:49", + "super" : "SignalLogger", + "category" : "FuelBeacon-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "directory" + ], + "name" : "FuelLogger", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/FuelBeacon.package/ThisContextSignal.extension/instance/objectToSerialize.st b/repository/FuelBeacon.package/ThisContextSignal.extension/instance/objectToSerialize.st new file mode 100644 index 0000000..63379c0 --- /dev/null +++ b/repository/FuelBeacon.package/ThisContextSignal.extension/instance/objectToSerialize.st @@ -0,0 +1,11 @@ +*FuelBeacon +objectToSerialize + "We limit the serialization to 100 stack items" + | trimmedCopy | + trimmedCopy := self copy. + trimmedCopy + instVarNamed: #stack + put: (self stack size > 100 + ifTrue: [self stack first: 100] + ifFalse: [self stack]). + ^ trimmedCopy \ No newline at end of file diff --git a/repository/FuelBeacon.package/ThisContextSignal.extension/properties.json b/repository/FuelBeacon.package/ThisContextSignal.extension/properties.json new file mode 100644 index 0000000..3bd1e89 --- /dev/null +++ b/repository/FuelBeacon.package/ThisContextSignal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ThisContextSignal" +} \ No newline at end of file diff --git a/repository/FuelBeacon.package/monticello.meta/categories.st b/repository/FuelBeacon.package/monticello.meta/categories.st new file mode 100644 index 0000000..d781eb4 --- /dev/null +++ b/repository/FuelBeacon.package/monticello.meta/categories.st @@ -0,0 +1,3 @@ +SystemOrganization addCategory: #FuelBeacon! +SystemOrganization addCategory: 'FuelBeacon-Core'! +SystemOrganization addCategory: 'FuelBeacon-Tests'! diff --git a/repository/FuelBeacon.package/monticello.meta/initializers.st b/repository/FuelBeacon.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/FuelBeacon.package/monticello.meta/package b/repository/FuelBeacon.package/monticello.meta/package new file mode 100644 index 0000000..6948595 --- /dev/null +++ b/repository/FuelBeacon.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'FuelBeacon') \ No newline at end of file diff --git a/repository/FuelBeacon.package/properties.json b/repository/FuelBeacon.package/properties.json new file mode 100644 index 0000000..6f31cf5 --- /dev/null +++ b/repository/FuelBeacon.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/.filetree b/repository/GT-InspectorExtensions-Beacon.package/.filetree new file mode 100644 index 0000000..57a6797 --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/Beacon.extension/instance/gtInspectorAnnouncementsIn..st b/repository/GT-InspectorExtensions-Beacon.package/Beacon.extension/instance/gtInspectorAnnouncementsIn..st new file mode 100644 index 0000000..470889d --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/Beacon.extension/instance/gtInspectorAnnouncementsIn..st @@ -0,0 +1,4 @@ +*GT-InspectorExtensions-Beacon +gtInspectorAnnouncementsIn: composite + + self announcer gtInspectorAnnouncementsIn: composite \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/Beacon.extension/instance/gtInspectorSubscriptionsIn..st b/repository/GT-InspectorExtensions-Beacon.package/Beacon.extension/instance/gtInspectorSubscriptionsIn..st new file mode 100644 index 0000000..d72147a --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/Beacon.extension/instance/gtInspectorSubscriptionsIn..st @@ -0,0 +1,4 @@ +*GT-InspectorExtensions-Beacon +gtInspectorSubscriptionsIn: composite + + self announcer gtInspectorSubscriptionsIn: composite \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/Beacon.extension/properties.json b/repository/GT-InspectorExtensions-Beacon.package/Beacon.extension/properties.json new file mode 100644 index 0000000..3905532 --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/Beacon.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Beacon" +} \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/BeaconSignal.extension/instance/gtDisplayOn..st b/repository/GT-InspectorExtensions-Beacon.package/BeaconSignal.extension/instance/gtDisplayOn..st new file mode 100644 index 0000000..578d413 --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/BeaconSignal.extension/instance/gtDisplayOn..st @@ -0,0 +1,3 @@ +*GT-InspectorExtensions-Beacon +gtDisplayOn: stream + self printOneLineOn: stream \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/BeaconSignal.extension/properties.json b/repository/GT-InspectorExtensions-Beacon.package/BeaconSignal.extension/properties.json new file mode 100644 index 0000000..dfd7d73 --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/BeaconSignal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "BeaconSignal" +} \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/RecordingBeacon.extension/class/gtExampleInstanceUsage.st b/repository/GT-InspectorExtensions-Beacon.package/RecordingBeacon.extension/class/gtExampleInstanceUsage.st new file mode 100644 index 0000000..10df849 --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/RecordingBeacon.extension/class/gtExampleInstanceUsage.st @@ -0,0 +1,7 @@ +*GT-InspectorExtensions-Beacon +gtExampleInstanceUsage + + ^ RecordingBeacon new + runDuring: [ + StringSignal log: 'This is a message'. + StringSignal log: 'This is another message'. ] \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/RecordingBeacon.extension/instance/gtInspectorRecordingsIn..st b/repository/GT-InspectorExtensions-Beacon.package/RecordingBeacon.extension/instance/gtInspectorRecordingsIn..st new file mode 100644 index 0000000..85a4ce6 --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/RecordingBeacon.extension/instance/gtInspectorRecordingsIn..st @@ -0,0 +1,25 @@ +*GT-InspectorExtensions-Beacon +gtInspectorRecordingsIn: composite + + composite table + title: 'Recordings'; + display: [ self recordings reverse ]; + column: 'Timestamp' evaluated: [ :each | each timestamp asString ]; + column: 'Type' evaluated: [ :each | each name ]; + column: 'Contents' evaluated: [ :each | String streamContents: [ :s | each printOneLineContentsOn: s ] ]; + showOnly: 50; + beMultiple; + send: [ :selection | + (selection isNil or: [ selection size > 1 ] ) + ifFalse: [selection first] ifTrue: [selection]] ; + updateOn: Announcement from: [ self announcer ]; + selectionAct: [ :table | + recordings := self recordings \ table selection. + table update ] + icon: GLMUIThemeExtraIcons glamorousRemove + entitled: 'Remove'; + act: [ :table | + self reset. + table update ] + icon: GLMUIThemeExtraIcons glamorousRemove + entitled: 'Remove all' \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/RecordingBeacon.extension/properties.json b/repository/GT-InspectorExtensions-Beacon.package/RecordingBeacon.extension/properties.json new file mode 100644 index 0000000..f655bfe --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/RecordingBeacon.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "RecordingBeacon" +} \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/StackSignal.extension/instance/gtInspectorStackIn..st b/repository/GT-InspectorExtensions-Beacon.package/StackSignal.extension/instance/gtInspectorStackIn..st new file mode 100644 index 0000000..09dff9f --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/StackSignal.extension/instance/gtInspectorStackIn..st @@ -0,0 +1,6 @@ +*GT-InspectorExtensions-Beacon +gtInspectorStackIn: composite + + composite list + title: 'Stack'; + display: [ self stack ] \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/StackSignal.extension/properties.json b/repository/GT-InspectorExtensions-Beacon.package/StackSignal.extension/properties.json new file mode 100644 index 0000000..006082b --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/StackSignal.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "StackSignal" +} \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/monticello.meta/categories.st b/repository/GT-InspectorExtensions-Beacon.package/monticello.meta/categories.st new file mode 100644 index 0000000..dca85e4 --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'GT-InspectorExtensions-Beacon'! diff --git a/repository/GT-InspectorExtensions-Beacon.package/monticello.meta/initializers.st b/repository/GT-InspectorExtensions-Beacon.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/GT-InspectorExtensions-Beacon.package/monticello.meta/package b/repository/GT-InspectorExtensions-Beacon.package/monticello.meta/package new file mode 100644 index 0000000..8a1ebc2 --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'GT-InspectorExtensions-Beacon') \ No newline at end of file diff --git a/repository/GT-InspectorExtensions-Beacon.package/properties.json b/repository/GT-InspectorExtensions-Beacon.package/properties.json new file mode 100644 index 0000000..6f31cf5 --- /dev/null +++ b/repository/GT-InspectorExtensions-Beacon.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file