Smalltalk interchangeVersion: '1.0'!


SixxReadStream method!
parseStream: aStream 
	| root |
	(aStream isNil or: [aStream size = 0])
		ifTrue: [^ nil].
	root := SixxXmlUtil parseXml: aStream.
	self checkSixxElement: root.
	^ SixxXmlUtil elementsFrom: root!
Annotation key: 'category' value: 'private'!
Annotation key: 'stamp' value: 'MU 2/28/2003 23:21'!

SixxReadStream method!
readOnlyFileNamed: fileName 
	stream := SixxPortableUtil readFileStreamNamed: fileName.
	self initialize!
Annotation key: 'category' value: 'initializing'!
Annotation key: 'stamp' value: 'MU 6/11/2002 12:29'!

SixxReadStreamTestCase method!
testReadEmptyStream
	| stream empStream |
	empStream := '' readStream.
	self
		should: [empStream size = 0].
	stream :=  SixxReadStream on: empStream.
	
	self
		should: [stream position = 0].
	self
		should: [stream atEnd].
	self
		should: [stream next isNil].
	!
Annotation key: 'category' value: 'tests'!
Annotation key: 'stamp' value: 'MU 2/28/2003 23:35'!