From ce8b3376162acaf26683134c10ac7fc55926be5d Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sat, 23 Dec 2023 13:31:41 +0100 Subject: [PATCH] Add GRPlatform>>sizeOfFile: for GemStone --- .../GRGemStonePlatform.class/instance/base64Encode..st | 2 +- .../instance/contentsOfFile.binary..st | 2 +- .../GRGemStonePlatform.class/instance/directoriesIn..st | 2 +- .../instance/ensureExistenceOfFolder..st | 2 +- .../GRGemStonePlatform.class/instance/fileExists..st | 2 +- .../GRGemStonePlatform.class/instance/filesIn..st | 2 +- .../GRGemStonePlatform.class/instance/localNameOf..st | 2 +- .../GRGemStonePlatform.class/instance/pathSeparator.st | 2 +- .../instance/readFileStreamOn.do.binary..st | 2 +- .../GRGemStonePlatform.class/instance/sizeOfFile..st | 4 ++++ .../instance/write.toFile.inFolder..st | 2 +- .../instance/writeFileStreamOn.do.binary..st | 2 +- 12 files changed, 15 insertions(+), 11 deletions(-) create mode 100644 repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/base64Encode..st index 4a3631f8..407deefc 100644 --- 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 \ No newline at end of file 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 index 43ed36e9..35fa6b90 100644 --- 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 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/directoriesIn..st index 76f3cd81..fbbef96a 100644 --- 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 index a55b20cc..bece8020 100644 --- 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 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileExists..st index f5f8c691..2c0ce1a0 100644 --- 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 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/filesIn..st index 6c23b983..c7e49a15 100644 --- 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 index 95ce9d8a..8881eb79 100644 --- 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 \ No newline at end of file diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/pathSeparator.st index 733cfdf1..734b957c 100644 --- 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 \ No newline at end of file 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 index cf66b203..09467ea7 100644 --- 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 new file mode 100644 index 00000000..713229bd --- /dev/null +++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sizeOfFile..st @@ -0,0 +1,4 @@ +files +sizeOfFile: aPathString + + ^ GsFile sizeOfOnServer: aPathString \ No newline at end of file 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 index e0a494a0..55a23848 100644 --- 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 index 5011e5cc..99bfc2e1 100644 --- 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.