"{ Encoding: utf8 }"

"

 COPYRIGHT (c) 2005 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic' }"

"{ NameSpace: Smalltalk }"

WriteStream subclass:#CharacterWriteStream

	instanceVariableNames:'currentCharacterSize'

	classVariableNames:''

	poolDictionaries:''

	category:'Streams'

!

!CharacterWriteStream class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2005 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    This is a WriteStream, which automagically changes the underlying collection,

    if a character does fit into the current collection.

    String -> Unicode16String -> Unicode32Sting

    [author:]

        Stefan Vogel (stefan@zwerg)

    [instance variables:]

    [class variables:]

    [see also:]

        String Unicode16String Unicode32Sting

"

!

examples

"

                                                                [exBegin]

    |stream|

    stream := CharacterWriteStream on:(String new:32).

    stream nextPutAll:'abc'.

    stream nextPut:(Character value:16r2c00).

    stream contents inspect

                                                                [exEnd]

"

! !

!CharacterWriteStream class methodsFor:'instance creation'!

new

    "I know, that I operate on strings"

    ^ self on:(String uninitializedNew:10)

!

new:count

    "I know, that I operate on strings"

    ^ self on:(String uninitializedNew:count)

! !

!CharacterWriteStream methodsFor:'accessing'!

reset

    "reset the stream; write anew.

     See the comment in WriteStream>>contents"

    collection := String new:collection size.

    currentCharacterSize := collection bitsPerCharacter.

    super resetPosition.

! !

!CharacterWriteStream methodsFor:'private'!

        position + additionalSize >= sz ifTrue:[

        ].

                        replaceFrom:1 to:sz with:collection startingAt:1.

    ].

! !

!CharacterWriteStream methodsFor:'private-accessing'!

on:aCollection

    currentCharacterSize := aCollection bitsPerCharacter.

    ^ super on:aCollection.

!

on:aCollection from:start to:stop

    currentCharacterSize := aCollection bitsPerCharacter.

    ^ super on:aCollection from:start to:stop.

!

with:aCollection

    currentCharacterSize := aCollection bitsPerCharacter.

    ^ super with:aCollection.

! !

!CharacterWriteStream methodsFor:'writing'!

next:count put:aCharacter

    "append anObject count times to the receiver.

     Redefined to avoid count grows of the underlying collection -

     instead a single grow on the final size is performed."

    ].

    super next:count put:aCharacter

!

nextPut:aCharacter

    "append the argument, aCharacter to the stream.

%{  /* NOCONTEXT */

#ifndef NO_PRIM_STREAM

    if (__isNonNilObject(coll) && __isSmallInteger(p) && __isCharacter(aCharacter)) {

        if ((wL == nil)

         || (__isSmallInteger(wL) && (pos <= __intVal(wL)))) {

            if (__isSmallInteger(rL)) {

                __readLimit = __intVal(rL);

            }

            if (cls == @global(String)) {

                if (ch > 0xFF) {

                    goto resize;

                }

                if (pos <= __stringSize(coll)) {

                    __StringInstPtr(coll)->s_element[pos-1] = ch;

                    if ((__readLimit >= 0) && (pos >= __readLimit)) {

                        __INST(readLimit) = __mkSmallInteger(pos);

                    }

                    __INST(position) = __mkSmallInteger(__intVal(__INST(position)) + 1);

                    RETURN ( aCharacter );

                }

            } else if (cls == @global(Unicode16String)) {

                if (ch > 0xFFFF) {

                    goto resize;

                }

                if (pos <= __unicode16StringSize(coll)) {

                     __Unicode16StringInstPtr(coll)->s_element[pos-1] = ch;

                    if ((__readLimit >= 0) && (pos >= __readLimit)) {

                        __INST(readLimit) = __mkSmallInteger(pos);

                    }

                    __INST(position) = __mkSmallInteger(__intVal(__INST(position)) + 1);

                    RETURN ( aCharacter );

                }

            } else if (cls == @global(Unicode32String)) {

                if ((pos <= __unicode32StringSize(coll))) {

                     __Unicode32StringInstPtr(coll)->s_element[pos-1] = ch;

                    if ((__readLimit >= 0) && (pos >= __readLimit)) {

                        __INST(readLimit) = __mkSmallInteger(pos);

                    }

                    __INST(position) = __mkSmallInteger(__intVal(__INST(position)) + 1);

                    RETURN ( aCharacter );

                }

            }

        }

    }

    resize:;

#endif

%}.

    (writeLimit isNil

     or:[(position + 1) <= writeLimit]) ifTrue:[

        ].

        collection at:(position + 1) put:aCharacter.

        (position >= readLimit) ifTrue:[readLimit := (position + 1)].

        position := position + 1.

    ] ifFalse:[

        WriteError raiseErrorString:'write beyond writeLimit'

    ].

    ^ aCharacter

!

nextPutAll:aCollection

    "append aCollection to the receiver.

     Redefined to convert to a string of the needed charcter size."

    ].

    super nextPutAll:aCollection

!

nextPutAll:aCollection startingAt:start to:stop

    ].

    ^ super nextPutAll:aCollection startingAt:start to:stop

!

nextPutAllUnicode:aCollection

    ^ self nextPutAll:aCollection

!

nextPutUnicode:aCharacter

    ^ self nextPut:aCharacter

! !

!CharacterWriteStream class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !