[Pkg] Rio: File-Base-kph.15.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.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.
  	
+  !
-  	 !