[Pkg] Rio: File-Kernel-mtf.22.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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  !