Add GRPlatform>>sizeOfFile: for GemStone

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

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

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 ."

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

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st

@@ -1,3 +1,3 @@
-file-library
+files
 fileExists: aString
 	^ GsFile existsOnServer: aString

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 ."

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/localNameOf..st

@@ -1,3 +1,3 @@
-file-library
+files
 localNameOf: aFilename
 	^(ServerFileDirectory on: aFilename) localName

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st

@@ -1,3 +1,3 @@
-file-library
+files
 pathSeparator
 	^ FileDirectory pathNameDelimiter asString

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 |
   [ 

repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st

@@ -0,0 +1,4 @@
+files
+sizeOfFile: aPathString
+
+	^ GsFile sizeOfOnServer: aPathString

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"
 

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.