More file ops (SeasideSt#139)

Johan Brichau · web-flow · commit 514c8cd26ac1 · 2022-07-23T21:05:50.000+02:00
* 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)
* added GRPlatforn&gt;&gt;deleteFile:, GRDelegatingStream&gt;&gt;position:, GRPlatform&gt;&gt;newTemporaryFileReferenceNamed:
diff --git a/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st b/repository/Grease-Core.package/GRDelegatingStream.class/instance/position..st
@@ -0,0 +1,3 @@
+accessing
+position: anInteger
+	^ stream position: anInteger
diff --git 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
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st b/repository/Grease-Core.package/GRPlatform.class/instance/deleteFile..st
@@ -0,0 +1,3 @@
+files
+deleteFile: aPathString
+	self subclassResponsibility
diff --git 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
@@ -1,4 +1,4 @@
-file library
+files
 ensureExistenceOfFolder: aString
 	"Create a folder named aString in the image directory."
 	self subclassResponsibility
diff --git 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
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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -0,0 +1,3 @@
+files
+newTemporaryFileReferenceNamed: aName
+	self subclassResponsibility
diff --git 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
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
@@ -1,3 +1,3 @@
-file library
+files
 readFileStreamOn: aString do: aBlock binary: aBoolean
 	self subclassResponsibility 
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
@@ -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
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
@@ -1,3 +1,3 @@
-file library
+files
 writeFileStreamOn: aString do: aBlock binary: aBoolean
 	self subclassResponsibility 
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
@@ -1,3 +1,3 @@
-file library
+files
 contentsOfFile: aString binary: aBoolean
 	^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/deleteFile..st
@@ -0,0 +1,3 @@
+files
+deleteFile: aPathString
+	aPathString asFileReference delete 
diff --git 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
@@ -1,4 +1,4 @@
-file library
+files
 ensureExistenceOfFolder: aString
 	"creates a folder named aString in the image directory"
 	FileSystem disk ensureCreateDirectory: aString
diff --git 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 
diff --git 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
@@ -1,3 +1,3 @@
-file library
+files
 localNameOf: aFilename
 	^ (FileSystem disk resolveString: aFilename) basename
diff --git 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
+	^ self newTemporaryFileReferenceNamed: UUID new asString
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st 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
diff --git 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
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
@@ -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
@@ -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
@@ -1,4 +1,4 @@
-file library
+files
 writeFileStreamOn: aString do: aBlock binary: aBoolean
 	^ aBoolean
 		ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ]
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/deleteFile..st
@@ -0,0 +1,3 @@
+file library
+deleteFile: aPathString
+	aPathString asFileReference delete 
diff --git 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
+	^ self newTemporaryFileReferenceNamed: UUID new asString
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st 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
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
@@ -1,3 +1,3 @@
-file library
+files
 contentsOfFile: aString binary: aBoolean
 	^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/deleteFile..st
@@ -0,0 +1,3 @@
+files
+deleteFile: aPathString
+	aPathString asFileReference delete 
diff --git 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
@@ -1,4 +1,4 @@
-file library
+files
 ensureExistenceOfFolder: aString
 	"creates a folder named aString in the image directory"
 	FileSystem disk ensureCreateDirectory: aString
diff --git 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 
diff --git 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
@@ -1,3 +1,3 @@
-file library
+files
 localNameOf: aFilename
 	^ (FileSystem disk resolveString: aFilename) basename
diff --git 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
+	^ self newTemporaryFileReferenceNamed: UUID new asString
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileReferenceNamed..st 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
diff --git 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
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
@@ -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
@@ -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
@@ -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
@@ -1,4 +1,4 @@
-tests-filestreams
+tests-files
 testFileExists
 	| theFileName |
 	self 

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+accessing`
	`2`	`+position: anInteger`
	`3`	`+ ^ stream position: anInteger`
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+files`
	`2`	`+deleteFile: aPathString`
	`3`	`+ self subclassResponsibility`
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 ."`