A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-mtf.22.mcz
==================== Summary ====================
Name: File-Kernel-mtf.22 Author: mtf Time: 11 April 2009, 5:05:31 pm UUID: 9619073e-70a6-409c-8b9e-9635ca37d2f2 Ancestors: File-Kernel-mtf.21
refactored home directory to be a method rather than ivar
=============== Diff against File-Kernel-mtf.21 ===============
Item was added: + ----- Method: FileUnixExecutive>>primEnvironmentAtSymbol: (in category 'as yet unclassified') ----- + primEnvironmentAtSymbol: aSymbol + "Answer the value of an environment variable in the external OS process." + + <primitive: 'primitiveEnvironmentAtSymbol' module: 'UnixOSProcessPlugin'> + ^ nil !
Item was changed: ----- Method: FileLocalExecutive class>>newForUnix (in category 'image start up ') ----- newForUnix
+ ^ FileUnixExecutive new! - ^ FileLocalExecutive new!
Item was changed: ----- Method: FileExecutive>>homeDirectory (in category 'useful paths') ----- homeDirectory
+ ^ self class dirClass executive: self value: self homePath! - | | - ^ self class dirClass executive: self value: home !
Item was added: + FileLocalExecutive subclass: #FileUnixExecutive + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'File-Kernel'! + + !FileUnixExecutive commentStamp: '<historical>' prior: 0! + For unix filesystems. I don't do anything beyond just know about the home directory, for now!
Item was added: + ----- Method: FileExecutive>>homePath (in category 'useful paths') ----- + homePath + + ^ home!
Item was added: + ----- Method: FileUnixExecutive>>homePath (in category 'as yet unclassified') ----- + homePath + ^ self primEnvironmentAtSymbol: #HOME!
Item was changed: ----- Method: FileExecutive>>fullFor: (in category 'path conversion') ----- fullFor: aFileOrDirectory
"the absolute path of this rio, or if relative combine with #homeDirectory to obtain the full path" aFileOrDirectory value isEmpty ifTrue: [ ^ self homeDirectory ]. (self isFull: aFileOrDirectory) ifTrue: [ ^ aFileOrDirectory ].
+ ^ aFileOrDirectory newFrom: (self homePath, self class pathDelimiter, aFileOrDirectory value)! - ^ aFileOrDirectory newFrom: (home, self class pathDelimiter, aFileOrDirectory value)!
Item was removed: - ----- Method: FileLocalExecutive>>home (in category 'accessing') ----- - home - - ^ self class dirClass executive: self value: home !