Code (Transcript calls of mine)
open: fileName forWrite: writeMode
"Open the file with the given name. If writeMode is true, allow writing,
otherwise open the file in read-only mode."
| f |
f := fileName asVmPathName.
Transcript log: 'File:', f.
fileID := StandardFileStream retryWithGC:[self primOpen: f writable:
writeMode]
until:[:id| id notNil]
forFileNamed: fileName.
fileID ifNil: [
' > Cannot get fileID' logCr.
^ nil]. "allows sender to detect failure"
(' > Got fileID: ', fileID printString) logCr.
name := fileName.
self register.
rwmode := writeMode.
buffer1 := String new: 1.
self enableReadBuffering
I have a ton of files to open. And some were slow to return a problem.
After digging, I got to the method above.
Now at one moment, I get nil fileIDs.
What is that retryWithGC: until: thing???
retryWithGC: execBlock until: testBlock forFileNamed: fullName
"Re-implemented to only force GC if a file with the given name exists" |
blockValue foundIt | blockValue := execBlock value. (testBlock value:
blockValue) ifTrue:[^blockValue]. "See if we have a file with the given
name" foundIt := self registry keys "hold on strongly for now"
anySatisfy:[:file| file name sameAs: fullName]. foundIt
ifFalse:[^blockValue]. Smalltalk garbageCollectMost. blockValue :=
execBlock value. (testBlock value: blockValue) ifTrue:[^blockValue].
Smalltalk garbageCollect. ^execBlock value.
Huhhhhh, yeah, some lookup going on in a registry...
and GCs? For file opens?
I am doing these opens in a webapp, what I want is to know if the file is
there or not and fail fast, not have all of this thing (debugging kind of
nightmarish...)
I have tested with 100 files and of course it all works since I get the IDs
back from the registry.
But at one point, it all fails. Registry full?
What to do here?
TIA
Phil
