Added #binaryWriteStreamFor:do: and #newTemporaryFileReference to GRP…

…latform and concrete implementations to GRPharoPlatform and GRSqueakPlatform
GsDevKit · jbrichau · Aug 1, 2022 · Jan 24, 2022 · Mar 19, 2022 · Mar 19, 2022
commit fd607d1dba672b03e75763eaf22eee2cb0db84e3
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/binaryWriteStreamFor.do..st b/repository/Grease-Core.package/GRPlatform.class/instance/binaryWriteStreamFor.do..st
@@ -0,0 +1,6 @@
+file library
+binaryWriteStreamFor: aFileReference do: aBlock
+	"Open a binary writeStream for aFileReference and evaluate aBlock
+	with the stream as argument.
+	The stream will be closed after the block has completed."
+	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st
@@ -0,0 +1,8 @@
+file library
+newTemporaryFileReference
+	"Create a new temporary file in the systems temp directory
+	and answer a reference to it.
+	It is the users responsibility to delete or move the file,
+	it will not be cleaned up automatically (unless the host system
+	has a policy for it)."
+	^ self subclassResponsibility
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/README.md
@@ -1 +1 @@
-A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way.
+A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way.
diff --git a/...ry/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/binaryWriteStreamFor.do..st b/...ry/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/binaryWriteStreamFor.do..st
@@ -0,0 +1,6 @@
+file library
+binaryWriteStreamFor: aFileReference do: aBlock
+	"Open a binary writeStream for aFileReference and evaluate aBlock
+	with the stream as argument.
+	The stream will be closed after the block has completed."
+	aFileReference binaryWriteStreamDo: aBlock
diff --git a/...y/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/...y/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st
@@ -0,0 +1,8 @@
+file library
+newTemporaryFileReference
+	"Create a new temporary file in the systems temp directory
+	and answer a reference to it.
+	It is the users responsibility to delete or move the file,
+	it will not be cleaned up automatically (unless the host system
+	has a policy for it)."
+	^ FileLocator temp / UUID new asString
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/properties.json
@@ -1,5 +1,5 @@
 {
-	"commentStamp" : "pmm 6/1/2008 01:03",
+	"commentStamp" : "pmm 2/1/2014 13:28",
 	"super" : "GRPlatform",
 	"category" : "Grease-Pharo70-Core",
 	"classinstvars" : [ ],

diff --git a/repository/Grease-Squeak-Core.package/.filetree b/repository/Grease-Squeak-Core.package/.filetree
@@ -1,4 +1,5 @@
 {
-	"noMethodMetaData" : true,
 	"separateMethodMetaAndSource" : false,
-	"useCypressPropertiesFile" : true }
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}
diff --git a/...ry/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/binaryWriteStreamFor.do..st b/...ry/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/binaryWriteStreamFor.do..st
@@ -0,0 +1,8 @@
+file library
+binaryWriteStreamFor: aFileReference do: aBlock
+	"Open a binary writeStream for aFileReference and evaluate aBlock
+	with the stream as argument.
+	The stream will be closed after the block has completed."
+	FileDirectory default
+		fileNamed: aFileReference fullName
+		do: aBlock
diff --git a/...y/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileReference.st b/...y/Grease-Squeak-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileReference.st
@@ -0,0 +1,8 @@
+file library
+newTemporaryFileReference
+	"Create a new temporary file in the systems temp directory
+	and answer a reference to it.
+	It is the users responsibility to delete or move the file,
+	it will not be cleaned up automatically (unless the host system
+	has a policy for it)."
+	^ FileDirectory default / UUID new asString
diff --git a/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/properties.json b/repository/Grease-Squeak-Core.package/GRSqueakPlatform.class/properties.json
@@ -1,14 +1,11 @@
 {
-	"category" : "Grease-Squeak-Core",
-	"classinstvars" : [
-		 ],
-	"classvars" : [
-		 ],
 	"commentStamp" : "",
-	"instvars" : [
-		 ],
-	"name" : "GRSqueakPlatform",
-	"pools" : [
-		 ],
 	"super" : "GRPharoPlatform",
-	"type" : "normal" }
+	"category" : "Grease-Squeak-Core",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "GRSqueakPlatform",
+	"type" : "normal"
+}
diff --git a/repository/Grease-Squeak-Core.package/Object.extension/properties.json b/repository/Grease-Squeak-Core.package/Object.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "Object" }
+	"name" : "Object"
+}
diff --git a/repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json b/repository/Grease-Squeak-Core.package/SmallInteger.extension/properties.json
@@ -1,2 +1,3 @@
 {
-	"name" : "SmallInteger" }
+	"name" : "SmallInteger"
+}
diff --git a/repository/Grease-Squeak-Core.package/properties.json b/repository/Grease-Squeak-Core.package/properties.json
@@ -1,2 +1 @@
-{
-	 }
+{ }
Original file line number	Diff line number	Diff line change
		@@ -1 +1 @@
		A WASqueakPlatform is the Squeak implementation of SeasidePlatformSupport, the Seaside class that provides functionality that can not be implemented in a platform independent way.
		A GRPharoPlatform is the Pharo implementation of GRPlatform, the Grease class that provides functionality that can not be implemented in a platform independent way.
-Original file line number
+Diff line change
@@ -1,2 +1 @@
-    {
-    	 }
+    { }