"

 COPYRIGHT (c) 1989 by Claus Gittinger

              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.

"

ArrayedCollection variableByteSubclass:#ByteArray

       instanceVariableNames:''

       classVariableNames:''

       poolDictionaries:''

       category:'Collections-Indexed'

!

ByteArray comment:'

COPYRIGHT (c) 1989 by Claus Gittinger

              All Rights Reserved

ByteArrays store integers in the range 0..255

unlike Smalltalk/80, my ByteArrays have fixed size - may change

written spring 89 by claus

'!

!ByteArray class methodsFor:'queries'!

isBuiltInClass

    "this class is known by the run-time-system"

    ^ self == ByteArray

! !

!ByteArray class methodsFor: 'binary storage'!

binaryDefinitionFrom: stream manager: manager

    ^ (stream next: (stream nextNumber: 4))

! !

!ByteArray methodsFor:'resizing'!

grow:sizeIncr

    "report an error - ByteArrays cannot grow"

    self fixedSizeError

! !

!ByteArray methodsFor: 'binary storage'!

storeBinaryDefinitionOn: stream manager: manager

    manager putIdOf: self class on: stream.

    stream nextNumber: 4 put: self basicSize.

    stream nextPutAll: self

! !

!ByteArray class methodsFor:'instance creation'!

uninitializedNew:anInteger

    "return a new instance of the receiver with uninitialized

     (i.e. undefined) contents. The indexed elements have any random

     value. use, when contents will be set anyway shortly after."

%{  /* NOCONTEXT */

    OBJ newobj;

    INT instsize, nInstVars, nindexedinstvars;

    REGISTER OBJ *op;

    extern OBJ new();

    if (_isSmallInteger(anInteger)) {

        nindexedinstvars = _intVal(anInteger);

        if (nindexedinstvars >= 0) {

            nInstVars = _intVal(_ClassInstPtr(self)->c_ninstvars);

            if ((_intVal(_ClassInstPtr(self)->c_flags) & ARRAYMASK) == BYTEARRAY) {

                instsize = OHDR_SIZE + nInstVars * sizeof(OBJ) + nindexedinstvars * sizeof(char);

                _qNew(newobj, instsize, SENDER);

#if defined(FAST_MEMSET) && ! defined(NEGATIVE_ADDRESSES)

#else

#endif

            }

        }

    }

%}

.

    ^ self basicNew:anInteger

! !

!ByteArray methodsFor:'accessing'!

basicAt:index

    "return the indexed instance variable with index, anInteger

     - redefined here to be slighly faster than the default in Object"

%{  /* NOCONTEXT */

    REGISTER int indx;

    int nIndex;

    if (_isSmallInteger(index)) {

        indx = _intVal(index);

        if (_qClass(self) != ByteArray)

            indx += _intVal(_ClassInstPtr(_qClass(self))->c_ninstvars) * sizeof(OBJ);

        nIndex = _qSize(self) - OHDR_SIZE;

        if ((indx > 0) && (indx <= nIndex)) {

            RETURN ( _MKSMALLINT(_ByteArrayInstPtr(self)->ba_element[indx - 1]) );

        }

    }

%}

.

    ^ super basicAt:index

!

basicAt:index put:value

    "set the indexed instance variable with index, anInteger to value

     - redefined here to be slighly faster than the default in Object"

%{  /* NOCONTEXT */

    REGISTER int indx;

    int nIndex;

    int val;

    if (_isSmallInteger(index) && _isSmallInteger(value)) {

        val = _intVal(value);

        if ((val >= 0) && (val <= 255)) {

            indx = _intVal(index);

            if (_qClass(self) != ByteArray)

                indx += _intVal(_ClassInstPtr(_qClass(self))->c_ninstvars) * sizeof(OBJ);

            nIndex = _qSize(self) - OHDR_SIZE;

            if ((indx > 0) && (indx <= nIndex)) {

                _ByteArrayInstPtr(self)->ba_element[indx - 1] = val;

                RETURN ( value );

            }

        }

    }

%}

.

    ^ super basicAt:index put:value

!

wordAt:index

    "return the 2-bytes starting at index as an (unsigned) Integer.

     question: should it be signed ?"

%{  /* NOCONTEXT */

    REGISTER int indx;

    int nIndex;

    int val;

    extern OBJ _makeLarge();

    if (_isSmallInteger(index)) {

        indx = _intVal(index);

        if (_qClass(self) != ByteArray)

            indx += _intVal(_ClassInstPtr(_qClass(self))->c_ninstvars) * sizeof(OBJ);

        nIndex = _qSize(self) - OHDR_SIZE;

        if ((indx > 0) && ((indx+1) <= nIndex)) {

            val = _ByteArrayInstPtr(self)->ba_element[indx+1-1];

            val = (val << 8) + _ByteArrayInstPtr(self)->ba_element[indx-1];

            RETURN ( _MKSMALLINT(val) );

        }

    }

%}

.

    ^ ((self at:index+1) * 256) + (self at:index)

!

wordAt:index put:value

    "set the 2-bytes starting at index from the (unsigned) Integer value.

     question: should it be signed ?"

%{  /* NOCONTEXT */

    REGISTER int indx;

    int nIndex;

    int val;

    extern OBJ _makeLarge();

    if (_isSmallInteger(index) && _isSmallInteger(value)) {

        indx = _intVal(index);

        if (_qClass(self) != ByteArray)

            indx += _intVal(_ClassInstPtr(_qClass(self))->c_ninstvars) * sizeof(OBJ);

        nIndex = _qSize(self) - OHDR_SIZE;

        if ((indx > 0) && ((indx+1) <= nIndex)) {

            val = _intVal(value);

            if ((val >= 0) && (val <= 0xFFFF)) {

                _ByteArrayInstPtr(self)->ba_element[indx-1] = val & 0xFF;

                val >>= 8;

                _ByteArrayInstPtr(self)->ba_element[indx+1-1] = val & 0xFF;

                RETURN ( value );

            }

        }

    }

%}

.

    (value < 0) ifTrue:[

        ^ self elementBoundsError

    ].

    self at:index put:(value \\ 256).

    self at:index + 1 put:(value // 256).

    ^ value

!

doubleWordAt:index

    "return the 4-bytes starting at index as an (unsigned) Integer.

     question: should it be signed ?"

%{  /* NOCONTEXT */

    REGISTER int indx;

    int nIndex;

    int val;

    extern OBJ _makeLarge();

    if (_isSmallInteger(index)) {

        indx = _intVal(index);

        if (_qClass(self) != ByteArray)

            indx += _intVal(_ClassInstPtr(_qClass(self))->c_ninstvars) * sizeof(OBJ);

        nIndex = _qSize(self) - OHDR_SIZE;

        if ((indx > 0) && ((indx+3) <= nIndex)) {

            val = _ByteArrayInstPtr(self)->ba_element[indx+3-1];

            val = (val << 8) + _ByteArrayInstPtr(self)->ba_element[indx+2-1];

            val = (val << 8) + _ByteArrayInstPtr(self)->ba_element[indx+1-1];

            val = (val << 8) + _ByteArrayInstPtr(self)->ba_element[indx-1];

            if ((val >= 0) && (val <= _MAX_INT)) {

                RETURN ( _MKSMALLINT(val) );

            }

        }

    }

%}

.

    ^ ((self wordAt:index+2) * (256 *256)) + (self wordAt:index)

!

doubleWordAt:index put:value

    "set the 4-bytes starting at index from the (unsigned) Integer value.

     question: should it be signed ?"

    |t|

%{  /* NOCONTEXT */

    REGISTER int indx;

    int nIndex;

    int val;

    extern OBJ _makeLarge();

    if (_isSmallInteger(index) && _isSmallInteger(value)) {

        val = _intVal(value);

        if (val >= 0) {

            indx = _intVal(index);

            if (_qClass(self) != ByteArray)

                indx += _intVal(_ClassInstPtr(_qClass(self))->c_ninstvars) * sizeof(OBJ);

            nIndex = _qSize(self) - OHDR_SIZE;

            if ((indx > 0) && ((indx+3) <= nIndex)) {

                _ByteArrayInstPtr(self)->ba_element[indx-1] = val & 0xFF;

                val >>= 8;

                _ByteArrayInstPtr(self)->ba_element[indx+1-1] = val & 0xFF;

                val >>= 8;

                _ByteArrayInstPtr(self)->ba_element[indx+2-1] = val & 0xFF;

                val >>= 8;

                _ByteArrayInstPtr(self)->ba_element[indx+3-1] = val & 0xFF;

                RETURN ( value );

            }

        }

    }

%}

.

    (value < 0) ifTrue:[

        ^ self elementBoundsError

    ].

    t := value // (256 * 256).

    self wordAt:(index+2) put:t.

    self wordAt:(index) put:(value - (t * 256 * 256)).

    ^ value

! !

!ByteArray methodsFor:'queries'!

indexOf:aByte startingAt:start

    "return the index of the first occurrence of the argument, aByte

     in the receiver starting at start, anInteger; return 0 if not found.

     - reimplemented here for speed"

%{  /* NOCONTEXT */

    REGISTER unsigned char *cp;

    REGISTER int index, byteValue;

    REGISTER int len;

    if (! _isSmallInteger(aByte)) {

        RETURN ( _MKSMALLINT(0) );

    }

    byteValue = _intVal(aByte);

    if ((byteValue < 0) || (byteValue > 255)) {

        RETURN ( _MKSMALLINT(0) );

    }

    if (_isSmallInteger(start)) {

        index = _intVal(start);

        len = _qSize(self) - OHDR_SIZE;

        cp = &(_ByteArrayInstPtr(self)->ba_element[0]);

        if (_qClass(self) != ByteArray) {

            int nInst;

            nInst = _intVal(_ClassInstPtr(_qClass(self))->c_ninstvars) * sizeof(OBJ);

            cp += nInst;

            len -= nInst;

        }

        cp += index - 1;

        while (index <= len) {

            if (*cp == byteValue) {

                RETURN ( _MKSMALLINT(index) );

            }

            index++;

            cp++;

        }

        RETURN ( _MKSMALLINT(0) );

    }

%}

.

    ^ super indexOf:aByte startingAt:start

!

usedValues

    "return a new ByteArray with all used values (actually a kind of Set);

     needed specially for Image class."

    |result l|

    REGISTER unsigned char *cp;

    REGISTER int len;

    unsigned char flags[256];

    static struct inlineCache nw = _ILC1;

    extern OBJ ByteArray, _new_;

    if (_qClass(self) == ByteArray) {

        memset(flags, 0, sizeof(flags));

        len = _qSize(self) - OHDR_SIZE;

        cp = &(_ByteArrayInstPtr(self)->ba_element[0]);

        /* for each used byte, set flag */

        while (len > 0) {

            flags[*cp] = 1;

            cp++;

            len--;

        }

        /* count 1's */

        len = 0;

        for (cp=flags+255; cp >= flags; cp--)

            if (*cp) len++;

        /* create ByteArray of used values */

        result = (*nw.ilc_func)(ByteArray, _new_, CON_COMMA nil, &nw, _MKSMALLINT(len));

        if (_Class(result) == ByteArray) {

            cp = &(_ByteArrayInstPtr(result)->ba_element[0]);

            for (len=0; len < 256; len++) {

                if (flags[len]) 

                    *cp++ = len;

            }

        }

        RETURN ( result );

    }

%}

.

    self primitiveFailed

!

usageCounts

    "return an array filled with value-counts -

     added for Image handling"

    |counts|

    counts := Array new:256.

    REGISTER unsigned char *cp;

    REGISTER int nByte;

    REGISTER int index;

    int icounts[256];

    if ((_qClass(self) == ByteArray) && _isArray(counts)) {

        /*

         * zero counts

         */

        for (index=0; index<256; index++) {

            icounts[index] = 0;

        }

        /*

         * count

         */

        nByte = _qSize(self) - OHDR_SIZE;

        cp = &(_ByteArrayInstPtr(self)->ba_element[0]);

        while (nByte--) {

            icounts[*cp++]++;

        }

        /*

         * make it real counts

         */

        for (index=0; index<256; index++) {

            _ArrayInstPtr(counts)->a_element[index] = _MKSMALLINT(icounts[index]);

        }

        RETURN ( counts );

    }

%}

.

    self primitiveFailed

!

maximumValue

    "return the maximum value in the receiver -

     added for sound-player (which needs a fast method for this)"

%{  /* NOCONTEXT */

    REGISTER unsigned char *cp;

    REGISTER int index, max;

    int len;

    if (_qClass(self) == ByteArray) {

        max = 0;

        index = 0;

        len = _qSize(self) - OHDR_SIZE;

        cp = &(_ByteArrayInstPtr(self)->ba_element[0]);

        while (++index <= len) {

            if (*cp > max) max = *cp;

            cp++;

        }

        RETURN ( _MKSMALLINT(max) );

    }

%}

.

    self primitiveFailed

! !

!ByteArray methodsFor:'filling and replacing'!

replaceFrom:start to:stop with:aCollection startingAt:repStart

    "reimplemented for speed"

%{      /* NOCONTEXT */

        int nIndex, repNIndex;

        int startIndex, stopIndex;

        REGISTER unsigned char *src;