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. - - !
packages@lists.squeakfoundation.org