"{ Package: 'stx:goodies/xtreams/support' }"

"{ NameSpace: Xtreams }"

Encoder subclass:#STXEncoder
	instanceVariableNames:'encoder stream character contentsSpecies'
	classVariableNames:''
	poolDictionaries:''
	category:'Xtreams-Support'
!

STXEncoder comment:'Provides access to all encodings supported by VisualWorks.

Instance Variables
	encoder <StreamEncoder> the encoder from classic EncodedStream
	skipRecord      <PositionRecord> the skipRecord of the encoder to allow repeated decoding attempts
	backupRecord    <PositionRecord> snapshot of the skipRecord that we can restore from

'
!


!STXEncoder class methodsFor:'instance creation'!

encoder: anEncoder

	^self new encoder: anEncoder
!

for: anEncoding

	^self new encoding: anEncoding
! !

!STXEncoder class methodsFor:'class initialization'!

initialize

	DialectEncoder := self
! !

!STXEncoder methodsFor:'accessing'!

decodeFrom: aReadStream

        stream := aReadStream.
        ^encoder readNextCharacterFrom: self
!

encode: aCharacter on: aWriteStream

        character := aCharacter.
        ^aWriteStream write: (encoder readNextInputCharacterFrom: self)
!

encoder

	^encoder
!

next: count

        |bytes|

        bytes := ByteArray new: count.
        character isNil
                ifTrue: [ stream read: count into: bytes ]
                ifFalse: [ bytes at: 1 put: character.
                        character := nil.
                        stream read: count - 1 into: bytes at: 2 ].
        ^bytes
!

nextUnsignedShortMSB: bigEndian

        ^character codePoint
!

peek

        ^character ifNil: [ character := stream get ]
! !

!STXEncoder methodsFor:'initialize-release'!

encoder: anEncoder

        encoder := anEncoder.
        contentsSpecies := (anEncoder newString: 1) class.
!

encoding: anEncoding

        | newEncoder |
        newEncoder := CharacterEncoder encoderFor: anEncoding.
        newEncoder isNullEncoder ifTrue: [ self error: 'Unsupported encoding!!' ].
        self encoder: newEncoder
! !

!STXEncoder class methodsFor:'documentation'!

version_SVN
    ^ '$Id$'
! !

STXEncoder initialize!