"

 COPYRIGHT (c) 1989 by Claus Gittinger

 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 subclass:#VariableArray

       instanceVariableNames:'tally contentsArray'

       classVariableNames:''

       poolDictionaries:''

!

VariableArray comment:'

COPYRIGHT (c) 1989 by Claus Gittinger

'!

!VariableArray class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

 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.

"

!

version

"

"

!

documentation

"

    VariableArrays can grow and shrink - in contrast to Arrays which are

    Use OrderedCollection, which offers more functionality, and is even

"

! !

!VariableArray class methodsFor:'instance creation'!

new

    "return a new VariableArray - with size 0"

    ^ (self basicNew) setInitialContents:(Array new:10)

!

new:size

    "return a new VariableArray"

    ^ (self basicNew) setContents:(Array new:size)

! !

!VariableArray methodsFor:'kludges'!

shallowCopy:anArray

    "return a shallow copy of the receiver

     have to kludge the kludge ... - shallow copy the contents array"

    |newText|

    newText := self class new.

    newText setContents:(contentsArray shallowCopy).

    ^ newText

! !

!VariableArray methodsFor:'private'!

getContents

    "return the contents array"

    ^ contentsArray

!

setInitialContents:anArray

    "set the contents array but make size zero"

    tally := 0.

    contentsArray := anArray

!

setContents:anArray

    "set the contents array"

    tally := anArray size.

    contentsArray := anArray

! !

!VariableArray methodsFor:'inquiries'!

size

    "return the number of array elements"

    ^ tally

!

isFixedSize

    "return true if the receiver cannot grow - this will vanish once

     Arrays and Strings learn how to grow ..."

    ^ false

! !

!VariableArray methodsFor:'filling & replacing'!

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

    "reimplemented for speed

     - can use Arrays fast replace if aCollection is Array or VariableArray"

    |col|

    col := aCollection.

    (aCollection isKindOf:VariableArray) ifTrue:[

    ].

    (col isMemberOf:Array) ifTrue:[

	    ^ self

    ].

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

! !

!VariableArray methodsFor:'removing'!

removeFromIndex:startIndex toIndex:endIndex

    "remove the elements stored at indexes between startIndex and endIndex"

    |newSize|

    (endIndex >= tally) ifTrue:[

    ] ifFalse:[

    ]

! !

!VariableArray methodsFor:'testing'!

occurrencesOf:anObject

    "return the number of occurrences of anObject in the receiver"

    ^ contentsArray occurrencesOf:anObject

!

includes:anObject

    "return true, if the receiver contains the argument, anObject"

    ^ contentsArray includes:anObject

!

indexOf:anElement startingAt:start

    "search the collection for anElement starting search at index start

     using = for compares.

     if found, return the index otherwise return 0"

    |index|

    (start > tally) ifFalse:[

    ].

    ^ 0

!

identityIndexOf:anElement startingAt:start

    "search the collection for anElement starting search at index start

     using == for compares.

     if found, return the index otherwise return 0"

    |index|

    (start > tally) ifFalse:[

    ].

    ^ 0

! !

!VariableArray methodsFor:'accessing'!

at:index

    "return the element at index"

    (index between:1 and:tally) ifFalse:[

    ].

    ^ contentsArray at:index

!

at:index put:anObject

    "set the element at index"

    (index between:1 and:tally) ifFalse:[

    ].

    ^ contentsArray at:index put:anObject

! !

!VariableArray methodsFor:'grow & shrink'!

grow:newSize

    "grow to newSize"

    |newArray|

    (newSize > tally) ifTrue:[

    ] ifFalse:[

    ].

    tally := newSize

!

add:anElement

    "add anElement to the end of the array"

    |newSize "{ Class: SmallInteger }" |

    newSize := tally + 1.

    (newSize <= contentsArray size) ifTrue:[

    ] ifFalse:[

    ].

    contentsArray at:tally put:anElement

! !

!VariableArray methodsFor:'enumerating'!

do:aBlock

    "evaluate the argument, aBlock for each element

     in the collection"

    contentsArray from:1 to:tally do:aBlock

!

from:start to:stop do:aBlock

    "evaluate the argument, aBlock for some elements

     in the collection"

    (stop <= tally) ifTrue:[

    ] ifFalse:[

    ]

! !