A new version of File-Base was added to project Rio: http://www.squeaksource.com/Rio/File-Base-kph.15.mcz
==================== Summary ====================
Name: File-Base-kph.15 Author: kph Time: 28 February 2009, 6:34:03 am UUID: ca41a85a-0561-11de-9b6f-000a95edb42a Ancestors: File-Base-kph.14
+ FileXML + addTree: bDir adds the contents of bDir (not bDIr itself)
=============== Diff against File-Base-kph.14 ===============
Item was added: + ----- Method: Directory>>clean (in category 'directory/container actions') ----- + clean + + executive cleanDir: self!
Item was added: + ----- Method: FileXML>>XMLDOMParser (in category 'as yet unclassified') ----- + XMLDOMParser + + ^ Smalltalk at: #XMLDOMParser ifAbsent: [ self error: 'XMLSupport not loaded' ]!
Item was added: + ----- Method: FileXML>>contents (in category 'as yet unclassified') ----- + contents + + self reader: [ :str | ^ self XMLDOMParser parseDocumentFrom: str ]. + + ^ nil!
Item was added: + File subclass: #FileXML + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'File-Base'!
Item was added: + ----- Method: FileXML>>contents: (in category 'as yet unclassified') ----- + contents: aXMLDocument + + "aStreamable refers to implementers of << and hence putOn: + And so would write out an array of strings" + + self writer: [ :out | aXMLDocument printOn: out ].!
Item was changed: ----- Method: File>>auto (in category 'public modes') ----- auto
+ | ext | + ext := self ext. + + ext = 'gz' ifTrue: [ ^ self gzip ]. + (#('xml' 'plist' 'xhtml') includes: ext) ifTrue: [ ^ self xml ]. - self ext = 'gz' ifTrue: [ ^ self gzip ]. + ^ self + + ! - ^ self copy!
Item was added: + ----- Method: File>>xml (in category 'public modes') ----- + xml + + ^ FileXML newFrom: self!
Item was changed: ----- Method: Directory>>addTree: (in category 'directory/container actions') ----- addTree: aDir + "this adds all the contents of aDir to the directory, not aDir itself" self validateIsContainer. aDir validateIsDirectory. + ^ self addAll: (aDir all entries) relativeTo: aDir. - ^ self addAll: (aDir all entries addFirst: aDir asDirectory; yourself) relativeTo: aDir parent. + ! - !