From c83bb49c5012e2dcaeaa73c1e2620f8abfdae37c Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 4 Feb 2024 09:58:28 +0100 Subject: [PATCH] added new temporary file creation methods to GemStone --- .../instance/newTemporaryFile.st | 4 ++++ .../instance/newTemporaryFileNamed..st | 4 ++++ .../instance/newTemporaryFileReference.st | 8 -------- .../instance/newTemporaryFileReferenceNamed..st | 8 -------- 4 files changed, 8 insertions(+), 16 deletions(-) create mode 100644 repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFile.st create mode 100644 repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileNamed..st delete mode 100644 repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReference.st delete mode 100644 repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReferenceNamed..st diff --git a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFile.st b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFile.st new file mode 100644 index 00000000..9c7dcae5 --- /dev/null +++ b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFile.st @@ -0,0 +1,4 @@ +*grease-gemstone300-core +newTemporaryFile + + ^ self newTemporaryFileNamed: UUID new greaseString diff --git a/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileNamed..st b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileNamed..st new file mode 100644 index 00000000..c41ed58e --- /dev/null +++ b/repository/Grease-GemStone300-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileNamed..st @@ -0,0 +1,4 @@ +*grease-gemstone300-core +newTemporaryFileNamed: aName + + ^ (GsFile openWriteOnServer: '/tmp/', aName) pathName diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReference.st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReference.st deleted file mode 100644 index a89cef9e..00000000 --- a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReference.st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-gemstone330-core -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)." - ^ self newTemporaryFileReferenceNamed: UUID new greaseString diff --git a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReferenceNamed..st b/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReferenceNamed..st deleted file mode 100644 index de9da1ec..00000000 --- a/repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReferenceNamed..st +++ /dev/null @@ -1,8 +0,0 @@ -*grease-gemstone330-core -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)." - ^ GsFile openWriteOnServer: '/tmp/', aName