Add GRNotificationBasedDynamicVariable

marschall · marschall · commit 80123e7e86d6 · 2017-09-05T14:44:11.000+02:00
diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/README.md b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/README.md
@@ -0,0 +1,3 @@
+An implementation of a dynamic varaible based on notifications. 
+
+Dialects that do not support dynamic variables or thread/process local variables can create an empty subclass of this class called GRDynamicVariable.
diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/defaultValue.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/defaultValue.st
@@ -0,0 +1,3 @@
+defaults
+defaultValue
+	^ nil
diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/use.during..st
@@ -0,0 +1,5 @@
+evaluating
+use: anObject during: aBlock
+	"Set the dynamic value of the receiver to anObject during the evaluation of aBlock."
+	
+	^ aBlock on: self do: [ :notification | notification resume: anObject ]
diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/class/value.st
@@ -0,0 +1,5 @@
+evaluating
+value
+	"Answer the dynamic value of the receiver."
+	
+	^ self signal
diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/instance/defaultAction.st b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/instance/defaultAction.st
@@ -0,0 +1,3 @@
+defaults
+defaultAction
+	^ self class defaultValue
diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/methodProperties.json b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/methodProperties.json
@@ -0,0 +1,10 @@
+{
+	"instance" : {
+		"defaultAction" : "pmm 9/5/2017 14:30"
+	},
+	"class" : {
+		"value" : "pmm 9/5/2017 14:31",
+		"defaultValue" : "pmm 9/5/2017 14:31",
+		"use:during:" : "pmm 9/5/2017 14:32"
+	}
+}
diff --git a/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/properties.json b/repository/Grease-Core.package/GRNotificationBasedDynamicVariable.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "pmm 9/5/2017 14:34",
+	"super" : "GRNotification",
+	"category" : "Grease-Core-Utilities",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRNotificationBasedDynamicVariable",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Core.package/monticello.meta/version b/repository/Grease-Core.package/monticello.meta/version
diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/README.md b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/README.md
diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testAnswer.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testAnswer.st
@@ -0,0 +1,3 @@
+tests
+testAnswer
+	self assert: (GRNotificationBasedDynamicVariable use: 'value' during: [ true ])
diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithNestedValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithNestedValue.st
@@ -0,0 +1,9 @@
+tests
+testWithNestedValue
+	GRNotificationBasedDynamicVariable 
+		use: 'outer' 
+		during: [
+			GRNotificationBasedDynamicVariable 
+				use: 'inner'
+				during: [ self assert: GRNotificationBasedDynamicVariable value = 'inner' ].
+			self assert: GRNotificationBasedDynamicVariable value = 'outer' ]
diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithValue.st
@@ -0,0 +1,5 @@
+tests
+testWithValue
+	GRNotificationBasedDynamicVariable 
+		use: 'value' 
+		during: [ self assert: GRNotificationBasedDynamicVariable value = 'value' ]
diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithoutValue.st b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/instance/testWithoutValue.st
@@ -0,0 +1,3 @@
+tests
+testWithoutValue
+	self assert: GRNotificationBasedDynamicVariable value isNil
diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/methodProperties.json b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/methodProperties.json
@@ -0,0 +1,9 @@
+{
+	"instance" : {
+		"testWithValue" : "pmm 9/5/2017 14:39",
+		"testWithoutValue" : "pmm 9/5/2017 14:39",
+		"testWithNestedValue" : "pmm 9/5/2017 14:38",
+		"testAnswer" : "pmm 9/5/2017 14:37"
+	},
+	"class" : { }
+}
diff --git a/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/properties.json b/repository/Grease-Tests-Core.package/GRNotificationBasedDynamicVariableTest.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "TestCase",
+	"category" : "Grease-Tests-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRNotificationBasedDynamicVariableTest",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Tests-Core.package/monticello.meta/version b/repository/Grease-Tests-Core.package/monticello.meta/version

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+An implementation of a dynamic varaible based on notifications.`
	`2`	`+`
	`3`	`+Dialects that do not support dynamic variables or thread/process local variables can create an empty subclass of this class called GRDynamicVariable.`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+defaults`
	`2`	`+defaultValue`
	`3`	`+ ^ nil`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+defaults`
	`2`	`+defaultAction`
	`3`	`+ ^ self class defaultValue`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+tests`
	`2`	`+testAnswer`
	`3`	`+ self assert: (GRNotificationBasedDynamicVariable use: 'value' during: [ true ])`