From 3ca31495146e3c203236fa3b6200e5e31c213fc3 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sat, 23 Jul 2022 20:25:05 +0200 Subject: [PATCH 1/5] moved the methods dealing with files into their own protocol (they were in the 'file library' protocol which is specific support for Seaside file libraries) --- .../GRPlatform.class/instance/contentsOfFile.binary..st | 2 +- .../GRPlatform.class/instance/directoriesIn..st | 2 +- .../GRPlatform.class/instance/ensureExistenceOfFolder..st | 2 +- .../GRPlatform.class/instance/fileExists..st | 2 +- .../GRPlatform.class/instance/fileStreamOn.do.binary..st | 2 +- .../GRPlatform.class/instance/filesIn..st | 2 +- .../GRPlatform.class/instance/localNameOf..st | 2 +- .../instance/newTemporaryFileReference.st | 2 +- .../instance/newTemporaryFileReferenceNamed..st | 3 +++ .../GRPlatform.class/instance/pathSeparator.st | 2 +- .../instance/readFileStreamOn.do.binary..st | 2 +- .../GRPlatform.class/instance/write.toFile.inFolder..st | 2 +- .../instance/writeFileStreamOn.do.binary..st | 2 +- .../instance/contentsOfFile.binary..st | 2 +- .../GRPharoPlatform.class/instance/directoriesIn..st | 2 +- .../instance/ensureExistenceOfFolder..st | 2 +- .../GRPharoPlatform.class/instance/fileExists..st | 2 +- .../GRPharoPlatform.class/instance/filesIn..st | 2 +- .../GRPharoPlatform.class/instance/localNameOf..st | 2 +- .../instance/newTemporaryFileReference.st | 4 ++-- .../instance/newTemporaryFileReferenceNamed..st | 8 ++++++++ .../GRPharoPlatform.class/instance/pathSeparator.st | 2 +- .../instance/readFileStreamOn.do.binary..st | 2 +- .../instance/write.toFile.inFolder..st | 2 +- .../instance/writeFileStreamOn.do.binary..st | 2 +- 25 files changed, 35 insertions(+), 24 deletions(-) create mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReferenceNamed..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st index 291cfff6..515d6552 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/contentsOfFile.binary..st @@ -1,3 +1,3 @@ -file library +files contentsOfFile: aString binary: aBoolean self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st b/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st index c7077286..14b5f839 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/directoriesIn..st +++ b/repository/Grease-Core.package/GRPlatform.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-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st index c86a0539..a4b8da7c 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/ensureExistenceOfFolder..st @@ -1,4 +1,4 @@ -file library +files ensureExistenceOfFolder: aString "Create a folder named aString in the image directory." self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st b/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st index fe0b42f0..208d4d40 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/fileExists..st @@ -1,3 +1,3 @@ -file library +files fileExists: aString self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st index f0155c88..df95afbb 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st @@ -1,4 +1,4 @@ -file library +files fileStreamOn: aString do: aBlock binary: aBoolean self greaseDeprecatedApi: 'GRPlatform>>#fileStreamOn:do:binary:' diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st b/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st index 1edd1fc6..eacae2b3 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/filesIn..st @@ -1,4 +1,4 @@ -file library +files filesIn: aPathString "Answer 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-Core.package/GRPlatform.class/instance/localNameOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st index 36c6934d..11fdda4b 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/localNameOf..st @@ -1,4 +1,4 @@ -file library +files localNameOf: aFilename "Answer the local name of a file identified by an absolute file path. diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st index 7b885531..91961b92 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReference.st @@ -1,4 +1,4 @@ -file library +files newTemporaryFileReference "Create a new temporary file in the systems temp directory and answer a reference to it. diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReferenceNamed..st new file mode 100644 index 00000000..93059d5f --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/newTemporaryFileReferenceNamed..st @@ -0,0 +1,3 @@ +files +newTemporaryFileReferenceNamed: aName + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st b/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st index 430f97c3..a4c10b7f 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/pathSeparator.st @@ -1,4 +1,4 @@ -file library +files pathSeparator "Answer the path separator as a String, eg. '/' on Unix and '\' on Windows." self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st index 3ffa885a..31dd9427 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st @@ -1,3 +1,3 @@ -file library +files readFileStreamOn: aString do: aBlock binary: aBoolean self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st index a855cb60..5d974bc9 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/write.toFile.inFolder..st @@ -1,4 +1,4 @@ -file library +files write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString "Write aStringOrByteArray to a file named aFileNameString in the folder aFolderString." self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st index 3d67b1a2..6fdd00d2 100644 --- a/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st +++ b/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -1,3 +1,3 @@ -file library +files writeFileStreamOn: aString do: aBlock binary: aBoolean self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st index ecfdc9d4..01aff905 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st @@ -1,3 +1,3 @@ -file library +files contentsOfFile: aString binary: aBoolean ^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st index c5beee09..a6e6c3d1 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.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-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st index 907e0168..ef505d70 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st @@ -1,4 +1,4 @@ -file library +files ensureExistenceOfFolder: aString "creates a folder named aString in the image directory" FileSystem disk ensureCreateDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st index 2a02cc3f..e12b7927 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/fileExists..st @@ -1,3 +1,3 @@ -file library +files fileExists: aString ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st index e3b9a6b0..230ea184 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.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-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st index 8f4efb85..64db9825 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/localNameOf..st @@ -1,3 +1,3 @@ -file library +files localNameOf: aFilename ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st index 272bb249..cd503715 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -1,8 +1,8 @@ -file library +files newTemporaryFileReference "Create a new temporary file in the systems temp directory and answer a reference to it. It is the users responsibility to delete or move the file, it will not be cleaned up automatically (unless the host system has a policy for it)." - ^ FileLocator temp / UUID new asString \ No newline at end of file + ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st new file mode 100644 index 00000000..5f4d0602 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st @@ -0,0 +1,8 @@ +files +newTemporaryFileReferenceNamed: aName + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ FileLocator temp / aName \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st index 10f88300..2da9f364 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/pathSeparator.st @@ -1,3 +1,3 @@ -file library +files pathSeparator ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st index 1852f83e..6324baf5 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st @@ -1,4 +1,4 @@ -file library +files readFileStreamOn: aString do: aBlock binary: aBoolean ^ aBoolean diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st index bbde965a..6a1bd7a0 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.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" ^ self diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st index 0b43135e..43d33949 100644 --- a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -1,4 +1,4 @@ -file library +files writeFileStreamOn: aString do: aBlock binary: aBoolean ^ aBoolean ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] From 9bbcbeabd4dda082fc4d1e34d0039b99cbc70f65 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sat, 23 Jul 2022 20:25:32 +0200 Subject: [PATCH 2/5] added GRPlatforn>>deleteFile: --- .../GRPlatform.class/instance/deleteFile..st | 3 +++ .../GRPharoPlatform.class/instance/deleteFile..st | 3 +++ 2 files changed, 6 insertions(+) create mode 100644 repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st create mode 100644 repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st b/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..9819eed2 --- /dev/null +++ b/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st @@ -0,0 +1,3 @@ +files +deleteFile: aPathString + self subclassResponsibility \ No newline at end of file diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..d3c82d99 --- /dev/null +++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st @@ -0,0 +1,3 @@ +files +deleteFile: aPathString + aPathString asFileReference delete \ No newline at end of file From 5c86dd2156221ce2a855f533db1e5daf2f00f371 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sat, 23 Jul 2022 20:25:55 +0200 Subject: [PATCH 3/5] added GRDelegatingStream>>position: --- .../GRDelegatingStream.class/instance/position..st | 3 +++ 1 file changed, 3 insertions(+) create mode 100644 repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st new file mode 100644 index 00000000..a20d8783 --- /dev/null +++ b/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st @@ -0,0 +1,3 @@ +accessing +position: anInteger + ^ stream position: anInteger \ No newline at end of file From 517cd42139308207580ffc65a38f824be1686ec3 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sat, 23 Jul 2022 20:48:00 +0200 Subject: [PATCH 4/5] Pharo 9 changes --- .../instance/contentsOfFile.binary..st | 2 +- .../GRPharoPlatform.class/instance/deleteFile..st | 3 +++ .../GRPharoPlatform.class/instance/directoriesIn..st | 2 +- .../instance/ensureExistenceOfFolder..st | 2 +- .../GRPharoPlatform.class/instance/fileExists..st | 2 +- .../GRPharoPlatform.class/instance/filesIn..st | 2 +- .../GRPharoPlatform.class/instance/localNameOf..st | 2 +- .../instance/newTemporaryFileReference.st | 4 ++-- .../instance/newTemporaryFileReferenceNamed..st | 8 ++++++++ .../GRPharoPlatform.class/instance/pathSeparator.st | 2 +- .../instance/readFileStreamOn.do.binary..st | 2 +- .../instance/write.toFile.inFolder..st | 2 +- .../instance/writeFileStreamOn.do.binary..st | 2 +- .../GRPlatformTest.class/instance/testFileExists.st | 2 +- 14 files changed, 24 insertions(+), 13 deletions(-) create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st create mode 100644 repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st index ecfdc9d4..01aff905 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st @@ -1,3 +1,3 @@ -file library +files contentsOfFile: aString binary: aBoolean ^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..d3c82d99 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st @@ -0,0 +1,3 @@ +files +deleteFile: aPathString + aPathString asFileReference delete \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st index c5beee09..a6e6c3d1 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/directoriesIn..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.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-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st index 907e0168..ef505d70 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/ensureExistenceOfFolder..st @@ -1,4 +1,4 @@ -file library +files ensureExistenceOfFolder: aString "creates a folder named aString in the image directory" FileSystem disk ensureCreateDirectory: aString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st index 2a02cc3f..e12b7927 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileExists..st @@ -1,3 +1,3 @@ -file library +files fileExists: aString ^ aString asFileReference exists \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st index e3b9a6b0..230ea184 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/filesIn..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.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-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st index 8f4efb85..64db9825 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/localNameOf..st @@ -1,3 +1,3 @@ -file library +files localNameOf: aFilename ^ (FileSystem disk resolveString: aFilename) basename \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st index 272bb249..cd503715 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -1,8 +1,8 @@ -file library +files newTemporaryFileReference "Create a new temporary file in the systems temp directory and answer a reference to it. It is the users responsibility to delete or move the file, it will not be cleaned up automatically (unless the host system has a policy for it)." - ^ FileLocator temp / UUID new asString \ No newline at end of file + ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st new file mode 100644 index 00000000..5f4d0602 --- /dev/null +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st @@ -0,0 +1,8 @@ +files +newTemporaryFileReferenceNamed: aName + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ FileLocator temp / aName \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st index 10f88300..2da9f364 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/pathSeparator.st @@ -1,3 +1,3 @@ -file library +files pathSeparator ^ String with: FileSystem disk delimiter \ No newline at end of file diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st index 1852f83e..6324baf5 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st @@ -1,4 +1,4 @@ -file library +files readFileStreamOn: aString do: aBlock binary: aBoolean ^ aBoolean diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st index bbde965a..6a1bd7a0 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.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" ^ self diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st index 0b43135e..43d33949 100644 --- a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st +++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st @@ -1,4 +1,4 @@ -file library +files writeFileStreamOn: aString do: aBlock binary: aBoolean ^ aBoolean ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ] diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st index 5d7796bc..2e7a73fa 100644 --- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st +++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testFileExists.st @@ -1,4 +1,4 @@ -tests-filestreams +tests-files testFileExists | theFileName | self From 039b0d2f08a076f86a4fe8497e0d26540179e310 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sat, 23 Jul 2022 20:57:05 +0200 Subject: [PATCH 5/5] Pharo80 --- .../GRPharoPlatform.class/instance/deleteFile..st | 3 +++ .../instance/newTemporaryFileReference.st | 2 +- .../instance/newTemporaryFileReferenceNamed..st | 8 ++++++++ 3 files changed, 12 insertions(+), 1 deletion(-) create mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st create mode 100644 repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st new file mode 100644 index 00000000..7aa3b432 --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st @@ -0,0 +1,3 @@ +file library +deleteFile: aPathString + aPathString asFileReference delete \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st index 272bb249..ce7f6f18 100644 --- a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReference.st @@ -5,4 +5,4 @@ newTemporaryFileReference It is the users responsibility to delete or move the file, it will not be cleaned up automatically (unless the host system has a policy for it)." - ^ FileLocator temp / UUID new asString \ No newline at end of file + ^ self newTemporaryFileReferenceNamed: UUID new asString \ No newline at end of file diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st new file mode 100644 index 00000000..f0fdf80f --- /dev/null +++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st @@ -0,0 +1,8 @@ +file library +newTemporaryFileReferenceNamed: aName + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ FileLocator temp / aName \ No newline at end of file