[Pkg] Rio: File-Base-kph.33.mcz

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

A new version of File-Base was added to project Rio:
http://www.squeaksource.com/Rio/File-Base-kph.33.mcz

==================== Summary ====================

Name: File-Base-kph.33
Author: kph
Time: 13 July 2009, 4:55:36 am
UUID: ae63afe1-57b1-49b0-9b60-47c1456fd7ed
Ancestors: File-Base-mtf.32, File-Base-kph.28, File-Base-kph.29

merged

=============== Diff against File-Base-mtf.32 ===============

Item was added:
+ ----- Method: File>>symbolicLinkTo: (in category 'public modes') -----
+ symbolicLinkTo: dest
+ 
+  	^ executive from: self symbolicLinkTo: dest !

Item was changed:
  ----- Method: File>>contents (in category 'public file') -----
  contents 
   
+ 	"the error handler is to provide consistent experience between local files and remote if the file is not found"
+ 	
+   [ self reader: [ :str | ^ str upToEnd ] ] on: TelnetProtocolError do: [ :ex | ^ nil ].
-   self reader: [ :str | ^ str upToEnd ].
  
  	^ nil!

Item was changed:
  ----- Method: File>>ifAbsentDo: (in category 'testing') -----
  ifAbsentDo: aBlock
  
+ 	^ self exists ifFalse: [ aBlock value: self ] ifTrue: [ self ]!
- 	^ self exists not ifTrue: [ aBlock value: self ] ifFalse: [ self ]!

Item was added:
+ ----- Method: File>>ifAbsent: (in category 'testing') -----
+ ifAbsent: aBlock
+ 
+ 	^ self exists ifFalse: [ aBlock value: self ] ifTrue: [ self ]!

Item was changed:
  ----- Method: FileJpeg>>extent (in category 'as yet unclassified') -----
  extent
  
  	| ext |
  	self beBinary reader: [ :str | 
  		
  		ext := JPEGReadWriter2 new imageExtent:  (str next: 600)
  	].
+ 	
+ 	(ext isNil or: [ (ext x = 0) and: [ ext y = 0 ]]) ifTrue: [ ^ nil ].
- 
- 	((ext x = 0) and: [ ext y = 0 ]) ifTrue: [ ^ nil ].
  	
  	^ ext!

Item was changed:
+ ----- Method: FileFtpExecutive>>copyRemoteFile:toLocalFile: (in category 'ftp client') -----
- ----- Method: FileFtpExecutive>>copyRemoteFile:toLocalFile: (in category 'external ftp') -----
  copyRemoteFile: aFile toLocalFile: bFile 
+ 	| cmd |
+ 	
- 
  	File 
   		ospIfWin:[ :os | aFile copyTo: bFile ]
+ 		ifUnix: [ :os | 
+ 			os waitForCommand: (cmd := 'ftp -o "', bFile asVmPathName, '" "' ,  url asString ,  aFile, '"').
+ 			bFile exists ifFalse: [ self error: 'transfer failed: ', cmd]. ]
- 		ifUnix: [ :os | os waitForCommand: 'ftp -o "', bFile asVmPathName, '" "' ,  url asString ,  aFile, '"' ]
  		ifNone: [ aFile copyTo: bFile ]
  	
   !

Item was changed:
  ----- Method: File>>resolveMatchOne (in category 'enumeration') -----
  resolveMatchOne
  
  	| list |
+ 	
+ 	"if we do not contain wild cards, simply return self"
+ 	self pathHasNoWildCards ifTrue: [ ^ self ].
+ 	
  	list :=self parent filesMatching: self fileName.
  	list size = 1 ifFalse: [ ^ nil ].
  	^ list first
  !

Item was added:
+ ----- Method: File>>pathHasNoWildCards (in category 'enumeration') -----
+ pathHasNoWildCards
+ 	^ ((value includes: $*) not and: [ (value includes: $#) not ]) !