read/write filestream api implementation on GRPharoPlatform for Pharo7+8

Johan Brichau · Johan Brichau · commit 7c87436c31c3 · 2020-05-23T12:44:58.000+02:00
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st
@@ -0,0 +1,7 @@
+file library
+readFileStreamOn: aString do: aBlock binary: aBoolean
+	"Line end conversion is no longer done for ascii... TBD!"
+
+	^ aBoolean
+		ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ]
+		ifFalse: [ aString asFileReference readStreamEncoded: 'ascii' do: aBlock ]
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st
@@ -1,15 +1,8 @@
 file library
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
 	"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
-	| folder stream fullFilePath |
-	folder := FileSystem disk resolveString: aFolderString.
-	fullFilePath := (folder / aFileNameString) asFileReference.
-	stream := aStringOrByteArray isString
-		ifTrue: [
-			(MultiByteFileStream forceNewFileNamed: fullFilePath fullName)
-				ascii;
-				wantsLineEndConversion: true;
-				yourself ]
-		ifFalse: [ (FileStream forceNewFileNamed: fullFilePath fullName) binary ].
-	[ stream nextPutAll: aStringOrByteArray ]
-		ensure: [ stream close ]
+	"TODO: wantsLineEndConversion: true; ??"
+	^ self
+		writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString
+		do: [ :stream | stream nextPutAll: aStringOrByteArray ]
+		binary: aStringOrByteArray isString not
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -0,0 +1,5 @@
+file library
+writeFileStreamOn: aString do: aBlock binary: aBoolean
+	^ aBoolean
+		ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ]
+		ifFalse: [ aString asFileReference writeStreamEncoded: 'ascii' do: aBlock ]
