Add GRPlatform>>sizeOfFile: for GemStone

Johan Brichau · Johan Brichau · commit ce8b3376162a · 2023-12-23T13:31:41.000+01:00
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st
@@ -1,3 +1,3 @@
 encoding
 base64Encode: aByteArray
-	^ (Base64MimeConverter mimeEncode: aByteArray readStream) contents
+	^ (Base64MimeConverter mimeEncode: aByteArray readStream) contents
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,3 +1,3 @@
-file-library
+files
 contentsOfFile: aString binary: aBoolean
 	^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st
@@ -1,4 +1,4 @@
-file-library
+files
 directoriesIn: aPathString
 	"Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString
 	must not include directory names that start with ."
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/ensureExistenceOfFolder..st
@@ -1,4 +1,4 @@
-file-library
+files
 ensureExistenceOfFolder: aString
 	"creates a folder named aString in the default server directory"
 	ServerFileDirectory default assureExistenceOfPath: aString
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st
@@ -1,3 +1,3 @@
-file-library
+files
 fileExists: aString
 	^ GsFile existsOnServer: aString
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st
@@ -1,4 +1,4 @@
-file-library
+files
 filesIn: aPathString
 	"Return a collection of absolute paths for all the files (no directories) in the directory given by aPathString
 	must not include file names that start with ."
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st
@@ -1,3 +1,3 @@
-file-library
+files
 localNameOf: aFilename
 	^(ServerFileDirectory on: aFilename) localName
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st
@@ -1,3 +1,3 @@
-file-library
+files
 pathSeparator
 	^ FileDirectory pathNameDelimiter asString
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st
@@ -1,4 +1,4 @@
-file-library
+files
 readFileStreamOn: aString do: aBlock binary: aBoolean
   | stream dir file |
   [ 
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st
@@ -0,0 +1,4 @@
+files
+sizeOfFile: aPathString
+
+	^ GsFile sizeOfOnServer: aPathString
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st
@@ -1,4 +1,4 @@
-file-library
+files
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
   "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
 
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -1,4 +1,4 @@
-file-library
+files
 writeFileStreamOn: fileName do: aBlock binary: isBinary
   | stream |
   stream := BinaryOrTextFile open: fileName mode: 'w+b' onClient: false.

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-file-library`
	`1`	`+files`
`2`	`2`	`directoriesIn: aPathString`
`3`	`3`	`"Answer a collection of absolute paths for all the directories (no files) in the directory given by aPathString`
`4`	`4`	`must not include directory names that start with ."`
-Original file line number
+Diff line change
@@ @@ -0,0 +1,4 @@ @@
 +files
 +sizeOfFile: aPathString
++
 +	^ GsFile sizeOfOnServer: aPathString