A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-mtf.23.mcz
==================== Summary ====================
Name: File-Kernel-mtf.23 Author: mtf Time: 23 April 2009, 7:47:50 pm UUID: f83b70a3-5510-492f-90bc-dce10ead6c9e Ancestors: File-Kernel-mtf.22
partially implemented home and data pathname lookup on unix and windows, but not mac
=============== Diff against File-Kernel-mtf.22 ===============
Item was added: + ----- Method: FileUnixExecutive>>dataPath (in category 'as yet unclassified') ----- + dataPath + ^ self homePath, '/.squeak'!
Item was added: + ----- Method: FileExecutive>>dataPath (in category 'useful paths') ----- + dataPath + + ^ self homePath!
Item was changed: + ----- Method: FileLocalDosExecutive>>getTempDirectory (in category 'executive actions') ----- - ----- Method: FileLocalDosExecutive>>getTempDirectory (in category 'as yet unclassified') ----- getTempDirectory
^ self class dirClass new: 'C:\WINDOWS\TEMP'!
Item was changed: + ----- Method: FileLocalDosExecutive>>importValue: (in category 'executive actions') ----- - ----- Method: FileLocalDosExecutive>>importValue: (in category 'as yet unclassified') ----- importValue: aPath
| dosPath | aPath isEmpty ifTrue: [ ^ '' ].
dosPath := aPath copy replaceAll: $/ with: $. (dosPath size = 2 and: [ dosPath last = $: ]) ifTrue: [ dosPath := dosPath , self class pathDelimiter ]. (self isRoot: dosPath) ifTrue: [ ^ dosPath ]. ^ dosPath!
Item was changed: + ----- Method: FileLocalDosExecutive>>fullFor: (in category 'path conversion') ----- - ----- Method: FileLocalDosExecutive>>fullFor: (in category 'as yet unclassified') ----- fullFor: aRio
"the absolute path of this rio (with the current volume drive prepended), or if relative combine with #homeDirectory to obtain the full path" aRio value isEmpty ifTrue: [ ^ self homeDirectory ]. (self isFull: aRio) ifTrue: [ ^ aRio ]. "if we are an absolute path, prepend the volume" aRio value first = self pathDelimiterChar ifTrue: [ ^ aRio newFrom: (self drive, aRio value) ].
^ aRio newFrom: (self home, self class pathDelimiter, aRio value) !
Item was added: + ----- Method: FileLocalDosExecutive>>dataPath (in category 'useful paths') ----- + dataPath + ^ self environmentAt: #APPDATA!
Item was changed: + ----- Method: FileLocalDosExecutive>>initializeDefault (in category 'executive actions') ----- - ----- Method: FileLocalDosExecutive>>initializeDefault (in category 'as yet unclassified') ----- initializeDefault
self setRootString: (self primImagePath first: 3); setDefault: self getDefaultDirectory.
self class volumes add: self.!
Item was changed: + ----- Method: FileLocalDosExecutive>>isRoot: (in category 'testing') ----- - ----- Method: FileLocalDosExecutive>>isRoot: (in category 'as yet unclassified') ----- isRoot: aRioOrString
^ aRioOrString value size = self rootString size and: [self isFull: aRioOrString ] !
Item was changed: + ----- Method: FileLocalDosExecutive>>lineEndConvention (in category 'executive actions') ----- - ----- Method: FileLocalDosExecutive>>lineEndConvention (in category 'as yet unclassified') ----- lineEndConvention
^ #crlf!
Item was added: + ----- Method: FileLocalDosExecutive>>homePath (in category 'useful paths') ----- + homePath + ^ self environmentAt: #USERPROFILE!
Item was added: + ----- Method: FileExecutive>>dataDirectory (in category 'useful paths') ----- + dataDirectory + + ^ self class dirClass executive: self value: self dataPath!