implement file library methods for GS

Johan Brichau · Johan Brichau · commit c3d23b2a3192 · 2014-10-11T11:30:02.000+02:00
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/contentsOfFile.binary..st
@@ -1,10 +1,3 @@
 file-library
 contentsOfFile: aString binary: aBoolean
-	| stream dir file |
-	[
-	file := GsFile openReadOnServer: aString.
-		[stream := RWBinaryOrTextStream on: file contents.
-		aBoolean 
-			ifTrue: [ stream binary ]
-			ifFalse: [ stream ascii ]. 
-		^stream contents ] ensure: [ stream close ]] ensure: [ file close ].
+	^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st
@@ -0,0 +1,3 @@
+file-library
+fileExists: aString
+	^ (FileDirectory forFileName: aString) exists
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileStreamOn.do.binary..st
@@ -0,0 +1,10 @@
+file-library
+fileStreamOn: aString do: aBlock binary: aBoolean
+	| stream dir file |
+	[
+	file := GsFile openReadOnServer: aString.
+		[stream := RWBinaryOrTextStream on: file contents.
+		aBoolean 
+			ifTrue: [ stream binary ]
+			ifFalse: [ stream ascii ]. 
+		^ aBlock value: stream ] ensure: [ stream close ]] ensure: [ file close ].
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/methodProperties.json b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/methodProperties.json
@@ -9,7 +9,7 @@
 		"asMethodReturningString:named:" : "dkh 04/25/2011 20:21",
 		"base64Decode:" : "dkh 11/06/2009 08:41",
 		"compile:into:classified:" : "dkh 11/06/2009 08:41",
-		"contentsOfFile:binary:" : "DaleHenrichs 12/03/2010 16:33",
+		"contentsOfFile:binary:" : "JohanBrichau 10/11/2014 02:26",
 		"defaultDispatcherName" : "dkh 11/06/2009 08:41",
 		"deprecationExceptionSet" : "JohanBrichau 04/19/2014 10:55",
 		"directoriesIn:" : "JohanBrichau 02/15/2014 07:02",
@@ -18,6 +18,8 @@
 		"doCommitTransaction" : "dkh 11/06/2009 08:41",
 		"doTransaction:" : "JohanBrichau 03/21/2014 17:45",
 		"ensureExistenceOfFolder:" : "DaleHenrichs 12/03/2010 16:28",
+		"fileExists:" : "JohanBrichau 10/11/2014 02:18",
+		"fileStreamOn:do:binary:" : "JohanBrichau 10/11/2014 02:27",
 		"filesIn:" : "DaleHenrichs 09/02/2010 15:45",
 		"isProcessTerminated:" : "dkh 11/06/2009 08:41",
 		"label" : "DaleHenrichs 06/02/2010 16:39",
diff --git a/repository/Grease-GemStone-Core.package/monticello.meta/version b/repository/Grease-GemStone-Core.package/monticello.meta/version

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+file-library`
	`2`	`+fileExists: aString`
	`3`	`+ ^ (FileDirectory forFileName: aString) exists`