error when creating a duplicate temporary file name on GemStone, older Pharo and Squeak

Johan Brichau · Johan Brichau · commit e1a14c913761 · 2024-02-04T13:32:42.000+01:00
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st
@@ -1,4 +1,7 @@
 files
 newTemporaryFileNamed: aName
 
-	^ (GsFile openWriteOnServer: '/tmp/', aName) pathName
+	| fileName |
+	fileName := '/tmp/', aName.
+	(self fileExists: fileName) ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ].
+	^ (GsFile openWriteOnServer: fileName) pathName
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st
@@ -1,4 +1,7 @@
 files
 newTemporaryFileNamed: aName
 
-	^ (FileLocator temp / aName) pathString
+	| newFile |
+	newFile := FileLocator temp / aName.
+	newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ].
+	^ newFile pathString
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/newTemporaryFileNamed..st
@@ -1,4 +1,7 @@
 files
 newTemporaryFileNamed: aName
 
-	^ (FileLocator temp / aName) pathString
+	| newFile |
+	newFile := FileLocator temp / aName.
+	newFile exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ].
+	^ newFile pathString
diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st
@@ -1,4 +1,7 @@
 files
 newTemporaryFileNamed: aName
 
-	^ (FileDirectory default / aName) pathName
+	| file |
+	file := FileDirectory default / aName.
+	file exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ].
+	^ file pathName
diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/newTemporaryFileNamed..st
@@ -1,4 +1,7 @@
 files
 newTemporaryFileNamed: aName
 
-	^ (FileDirectory default / aName) pathName
+	| file |
+	file := FileDirectory default / aName.
+	file exists ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ].
+	^ file pathName
