[Pkg] Rio: File-Kernel-kph.3.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-kph.3.mcz

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

Name: File-Kernel-kph.3
Author: kph
Time: 25 November 2008, 5:13:46 am
UUID: a523dc21-3b31-4850-b418-7a2b2878dbf6
Ancestors: File-Kernel-kph.2

+ multithreaded ftp now working up/down
- archive is broken

=============== Diff against File-Kernel-kph.2 ===============

Item was added:
+ ----- Method: FileExecutive>>toDirLocal:addAllLocal:relativeTo: (in category 'local/remote file copy') -----
+ toDirLocal: aDir addAllLocal: someFD relativeTo: aBaseDir
+ 
+ 	| map |
+ 
+ 	map := self toDir: aDir mkpathAll: someFD relativeTo: aBaseDir.
+ 
+ 	map do: [ :each | self copyLocalFile: each first toLocalFile: each second ].
+ 	
+ 	^ map!

Item was added:
+ ----- Method: FileExecutive>>toDir:mkpathAll:relativeTo: (in category 'local/remote file copy') -----
+ toDir: aDir mkpathAll: someFD relativeTo: aBaseDir
+ 
+ 	"take the list of files and ensure that the directories exist, return sourceFile -> destFile map"
+ 
+ 	^ someFD 
+ 		collect: [ :aFileOrDir | Array with: aFileOrDir with: (self dir: aDir mkpath: aFileOrDir relativeTo: aBaseDir) ]
+ 		thenSelect: [ :ea | ea first isFile ].
+ 	
+ 	 !

Item was added:
+ ----- Method: FileExecutive>>toDir:addAllLocal:relativeTo: (in category 'local/remote file copy') -----
+ toDir: aDir addAllLocal: someFD relativeTo: aBaseDir
+ 
+ 	^ self toDirLocal: aDir addAllLocal: someFD relativeTo: aBaseDir.!

Item was added:
+ ----- Method: FileExecutive>>toDir:addAllRemote:relativeTo: (in category 'local/remote file copy') -----
+ toDir: aDir addAllRemote: someFD relativeTo: aBaseDir
+ 
+ 	^ someFD first executive toDirLocal: aDir addAllRemote: someFD relativeTo: aBaseDir.!

Item was added:
+ ----- Method: FileExecutive>>dir:mkpath:relativeTo: (in category 'as yet unclassified') -----
+ dir: aDir mkpath: aFileOrDir relativeTo: aBaseDirectory
+ 	
+ 	| newFD |
+ 	
+ 	newFD := aBaseDirectory ifNil: [ aFileOrDir ]
+ 				    		 	 ifNotNil: [ aDir / (aFileOrDir linearRelativeTo: aBaseDirectory) ].
+ 
+  	aFileOrDir isDirectory ifTrue: [ newFD mkpath ]. 
+ 	aFileOrDir isFile ifTrue: [ newFD parent mkpath ].
+ 	
+ 	^ newFD
+ 	
+  !

Item was added:
+ ----- Method: FileExecutive>>addAll:relativeTo:toDir: (in category 'local/remote file copy') -----
+ addAll: someFD relativeTo: aBaseDir toDir: aDir
+ 	
+ 	^ aDir executive toDir: aDir addAllLocal: someFD relativeTo: aBaseDir.!

Item was removed:
- ----- Method: FileExecutive>>dir:mkpath:fromBase: (in category 'as yet unclassified') -----
- dir: aDir mkpath: aFileOrDir fromBase: aBaseDirectory
- 	
- 	| newFD |
- 	
- 	newFD := aBaseDirectory ifNil: [ aFileOrDir ]
- 				    		 	 ifNotNil: [ aDir / (aFileOrDir linearRelativeTo: aBaseDirectory) ].
- 
-  	aFileOrDir isDirectory ifTrue: [ ^ newFD mkpath ]. 
- 	aFileOrDir isFile ifTrue: [ ^ newFD parent mkpath ].
- 	
- 	
-  !

Item was removed:
- ----- Method: FileExecutive>>dir:addAll:fromBase: (in category 'executive actions') -----
- dir: aDir addAll: someFD fromBase: aBaseDir
- 	
- 	someFD do: [ :each | self dir: aDir add: each fromBase: aBaseDir ]!

Item was removed:
- ----- Method: FileLocalExecutive>>dir:addFile: (in category 'executive actions') -----
- dir: aDir addFile: aFile
- 
- 	^ aFile executive copyFile: aFile toLocalFile: aDir / aFile fileName
- 	
-  !

Item was removed:
- ----- Method: FileExecutive>>dir:add: (in category 'as yet unclassified') -----
- dir: aDir add: aFileOrDir 
-  
- 	aFileOrDir isFile ifTrue: [ self dir: aDir addFile: aFileOrDir ].
- 	
-  !

Item was removed:
- ----- Method: FileExecutive>>dir:add:fromBase: (in category 'as yet unclassified') -----
- dir: aDir add: aFileOrDir fromBase: aBaseDirectory
- 	
- 	| dir |
- 	
- 	dir := self dir: aDir mkpath: aFileOrDir fromBase: aBaseDirectory.
- 
- 	self dir: dir add: aFileOrDir.
- 	
-  !