[Pkg] Rio: Rio-Grande-kph.42.mcz

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Fri Nov 7 04:02:57 UTC 2008


A new version of Rio-Grande was added to project Rio:
http://www.squeaksource.com/Rio/Rio-Grande-kph.42.mcz

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

Name: Rio-Grande-kph.42
Author: kph
Time: 7 November 2008, 4:02:35 am
UUID: aad4ba8c-7b93-49e5-86ee-14f6e54a6203
Ancestors: Rio-Grande-kph.41

some fixes

=============== Diff against Rio-Grande-kph.41 ===============

Item was changed:
  ----- Method: RioFtpFileSystem>>ftpDo: (in category 'as yet unclassified') -----
  ftpDo: aBlock
   
+ 	| tmp result |
- 	| tmp |
  
  	tmp := isKeepAlive.	
  	isKeepAlive := true.
  
+ 	[ result := aBlock value: self ftpClient. ] 
- 	[ aBlock value: self ftpClient. ] 
  
  		ensure: [  (isKeepAlive := tmp) ifFalse: [ ftpClient ifNotNil: [ ftpClient quit ] ] ].
  	
+ 	^ result!
- 	!

Item was added:
+ ----- Method: RioFtpFileSystem>>in:select: (in category 'as yet unclassified') -----
+ in: aRio select: selectBlock
+ 
+ 	^ self ftpDo: [ :c | super in: aRio select: selectBlock ]!

Item was changed:
  ----- Method: FTPClient>>getFileSize: (in category '*rio-grande') -----
  getFileSize: fileName
  	self sendCommand: 'SIZE ' , fileName.
  	self checkResponse.
+ 	^ (self lastResponse readStream upTo: $ ; upToEnd) asNumber!
- !

Item was changed:
  ----- Method: RioFtpFileSystem>>basicReader: (in category 'as yet unclassified') -----
  basicReader: aRio
+ 	
- 
  	^ self ftpOpenForRead: aRio!

Item was added:
+ ----- Method: RioFtpFileSystem>>rioClass (in category 'as yet unclassified') -----
+ rioClass
+ 
+ 	^ RioFtp!

Item was added:
+ ----- Method: RioFtpFileSystem>>fileSize: (in category 'as yet unclassified') -----
+ fileSize: aRio
+ 
+ 	^ self ftpDo: [ :client | client getFileSize: home, aRio asVmPathName ]  !

Item was changed:
  ----- Method: Rio>>fileSize (in category 'accessing stat') -----
  fileSize
  
+ 	^ executive fileSize: self!
- 	^ self stat fileSize!

Item was changed:
  ----- Method: Rio>>copyTo: (in category 'public file') -----
  copyTo: aPathOrRio
  
+ 	| outRio size |
+ 	
+ 	"we do a stat here, so that we have the fileSize".
+ 	size := self fileSize.
- 	| outRio |
- 
- 	self validateIsFile.
  	 
  	^ (outRio := aPathOrRio asRio isBinary: self isBinary) writer: [ :out |
  	 	self reader: [ :in |
+ 			in copyTo: out size: size withProgress: 
- 			in copyTo: out size: self fileSize withProgress: 
  				(self copyDescription, ' ', self asString, ' ', outRio copyResultDescription)
  		].
  	].
  
  !



More information about the Packages mailing list