X Tutup
Skip to content

Commit 788fa15

Browse files
author
Johan Brichau
committed
Added support for newTemporaryFileReference in GemStone versions higher than 3.3
1 parent 933bc73 commit 788fa15

File tree

2 files changed

+16
-0
lines changed

2 files changed

+16
-0
lines changed

‎repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReference.st‎

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
*grease-gemstone330-core
2+
newTemporaryFileReference
3+
"Create a new temporary file in the systems temp directory
4+
and answer a reference to it.
5+
It is the users responsibility to delete or move the file,
6+
it will not be cleaned up automatically (unless the host system
7+
has a policy for it)."
8+
^ self newTemporaryFileReferenceNamed: UUID new greaseString

‎repository/Grease-GemStone330-Core.package/GRGemStonePlatform.extension/instance/newTemporaryFileReferenceNamed..st‎

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
*grease-gemstone330-core
2+
newTemporaryFileReferenceNamed: aName
3+
"Create a new temporary file in the systems temp directory
4+
and answer a reference to it.
5+
It is the users responsibility to delete or move the file,
6+
it will not be cleaned up automatically (unless the host system
7+
has a policy for it)."
8+
^ GsFile openWriteOnServer: '/tmp/', aName

0 commit comments

Comments
 (0)
X Tutup