Merge pull request SeasideSt#166 from SeasideSt/sizeOfFile

Johan Brichau · web-flow · commit 6e59c414f43a · 2023-12-23T13:55:14.000+01:00
Size of file
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st b/repository/Grease-Core.package/GRPlatform.class/instance/sizeOfFile..st
@@ -0,0 +1,4 @@
+files
+sizeOfFile: aString
+
+	self subclassResponsibility
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.
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st
@@ -0,0 +1,4 @@
+files
+sizeOfFile: aString
+
+	^ aString asFileReference size
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st
@@ -0,0 +1,4 @@
+files
+sizeOfFile: aString
+
+	^ aString asFileReference size
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sizeOfFile..st
@@ -0,0 +1,4 @@
+files
+sizeOfFile: aString
+
+	^ aString asFileReference size
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSizeOfFile.st
@@ -0,0 +1,9 @@
+tests-files
+testSizeOfFile
+	| theFileName |
+	self
+		writeToFile: 'test me'
+		withFileNameDo:[ :fileName |
+			self assert: (GRPlatform current sizeOfFile: fileName) equals: 7.
+			theFileName := fileName ].
+	self deny: (GRPlatform current fileExists: theFileName)

-Original file line number
+Diff line change
@@ @@ -0,0 +1,4 @@ @@
 +files
 +sizeOfFile: aString
++
 +	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 ."`