Class: AutoDeletedFilename

• Inheritance
• Description
• Class protocol
  • change and update
  • initialization
• Instance protocol
  • accessing
  • copying
  • finalization
  • queries
  • removing
• Examples

Inheritance:

   Object
   |
   +--Filename
      |
      +--AutoDeletedFilename

Package:

stx:libbasic

Category:

System-Support

Version:

rev: 1.16 date: 2017/01/24 10:43:44

user: cg

file: AutoDeletedFilename.st directory: libbasic

module: stx stc-classLibrary: libbasic

Author:

cg - original code

sv - fixed and enhanced

Description:

Used with temporary files - these will automatically delete themself,
when no longer referenced (i.e. when finalized)

See -> Filename asAutoDeletedFilename

Class protocol:

 update: anAspect with: aParameter from: changedObject

when Smalltalk exits, remove all auto deleted files

 initialize

inform me when smalltalk exits

Instance protocol:

 keep

do not delete the file on finalization

 setName: aString

 shallowCopy

when copying, return a real filename
(to avoid mutiple removals)

 basicFinalize

 executor

 finalizationLobby

answer the registry used for finalization.
we have our own Lobby.

 finalize

do this in a forked process to avoid blocking

 species

filenames derived from me should not be autodeleted themself

 recursiveRemove

 remove

 removeDirectory

 removeFile

Examples:

|f p|

f := AutoDeletedFilename newTemporary.
f writeStream
    nextPutLine:'hello';
    close.
p := f pathName.
Transcript showCR:p.
f := f asAutoDeletedFilename.
self assert:(p asFilename exists).
ObjectMemory collectGarbage.
Delay waitForSeconds:2.
self assert:(p asFilename exists).
f := nil.
ObjectMemory collectGarbage.
Delay waitForSeconds:2.
self assert:(p asFilename exists not).

|f p|

f := Filename newTemporary.
f writeStream
    nextPutLine:'hello';
    close.
p := f pathName.
Transcript showCR:p.
f := f asAutoDeletedFilename.
self assert:(p asFilename exists).
ObjectMemory collectGarbage.
Delay waitForSeconds:2.
self assert:(p asFilename exists).
f remove.
f := nil.
ObjectMemory collectGarbage.
Delay waitForSeconds:2.
self assert:(p asFilename exists not).