Merge pull request #24 from SeasideSt/pull23_dev

GRDynamicVariable

Author: Johan Brichau

repository/Grease-GemStone-Core.package/GRDynamicVariable.class/README.md

@@ -0,0 +1,14 @@
+accessing
+use: anObject during: aBlock
+
+	| p oldValue result |
+	"Proper implementation instead of use 'super value:during:' because that one does not return value, perhaps this should be fixed in DynamicVariable?"
+	p := Processor activeProcess.
+	oldValue := p environmentAt: self ifAbsent: [self default].
+	[
+		p environmentAt: self put: anObject.
+		result := aBlock value.
+	] ensure: [ 
+		p environmentAt: self put: oldValue 
+	].
+	^ result

repository/Grease-GemStone-Core.package/GRDynamicVariable.class/class/use.during..st

@@ -0,0 +1,5 @@
+{
+	"class" : {
+		"use:during:" : "JohanBrichau 05/25/2017 08:13" },
+	"instance" : {
+		 } }

repository/Grease-GemStone-Core.package/GRDynamicVariable.class/methodProperties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "Grease-GemStone-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "GRDynamicVariable",
+	"pools" : [
+		 ],
+	"super" : "DynamicVariable",
+	"type" : "normal" }

repository/Grease-GemStone-Core.package/GRDynamicVariable.class/properties.json

@@ -0,0 +1,15 @@
+I represent a dynamic variable i.e., a variable that is
+1. process local, that
+2. is defined for a given block and that
+3. can be nested.
+
+For example:
+
+GRDynamicVariable
+	use: 1
+	during: [
+		self assert: GRDynamicVariable value = 1.
+		GRDynamicVariable
+			use: 2
+			during: [ self assert: GRDynamicVariable value = 2 ].
+		self assert: GRDynamicVariable value = 1 ].

repository/Grease-GemStone-Core.package/monticello.meta/version

@@ -0,0 +1,5 @@
+accessing
+use: anObject during: aBlock
+	^ self
+		value: anObject
+		during: aBlock

repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/README.md

@@ -0,0 +1,6 @@
+{
+	"instance" : { },
+	"class" : {
+		"use:during:" : "MaxLeske 5/16/2017 21:54"
+	}
+}

repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/class/use.during..st

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "MaxLeske 5/16/2017 22:05",
+	"super" : "DynamicVariable",
+	"category" : "Grease-Pharo30-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRDynamicVariable",
+	"type" : "normal"
+}

repository/Grease-Pharo30-Core.package/GRDynamicVariable.class/methodProperties.json

@@ -1,2 +1,3 @@
 {
-	"name" : "GRPackage" }
+	"name" : "GRPackage"
+}