[Pkg] Rio: File-Kernel-mtf.23.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.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!