12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880 |
- Smalltalk current createPackage: 'Kernel-Collections'!
- Object subclass: #Association
- instanceVariableNames: 'key value'
- package: 'Kernel-Collections'!
- !Association commentStamp!
- I represent a pair of associated objects, a key and a value. My instances can serve as entries in a dictionary.
- Instances can be created with the class-side method `#key:value:`!
- !Association methodsFor: 'accessing'!
- key
- ^key
- !
- key: aKey
- key := aKey
- !
- value
- ^value
- !
- value: aValue
- value := aValue
- ! !
- !Association methodsFor: 'comparing'!
- = anAssociation
- ^self class = anAssociation class and: [
- self key = anAssociation key and: [
- self value = anAssociation value]]
- ! !
- !Association methodsFor: 'printing'!
- printString
- "print the contents of the Association into a string and return the string"
- ^String streamContents: [:aStream |
- self storeOn: aStream]
- !
- storeOn: aStream
- "Store in the format: key->value"
- key storeOn: aStream.
- aStream nextPutAll: '->'.
- value storeOn: aStream.
- ! !
- !Association class methodsFor: 'instance creation'!
- key: aKey value: aValue
- ^self new
- key: aKey;
- value: aValue;
- yourself
- ! !
- Object subclass: #Collection
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !Collection commentStamp!
- I am the abstract superclass of all classes that represent a group of elements.
- I provide a set of useful methods to the Collectiohn hierarchy such as enumerating and converting methods.!
- !Collection methodsFor: 'accessing'!
- occurrencesOf: anObject
- "Answer how many of the receiver's elements are equal to anObject."
- | tally |
- tally := 0.
- self do: [:each | anObject = each ifTrue: [tally := tally + 1]].
- ^tally
- !
- readStream
- ^self stream
- !
- size
- self subclassResponsibility
- !
- stream
- ^self streamClass on: self
- !
- streamClass
- ^self class streamClass
- !
- writeStream
- ^self stream
- ! !
- !Collection methodsFor: 'adding/removing'!
- add: anObject
- self subclassResponsibility
- !
- addAll: aCollection
- aCollection do: [:each |
- self add: each].
- ^aCollection
- !
- remove: anObject
- ^self remove: anObject ifAbsent: [self errorNotFound]
- !
- remove: anObject ifAbsent: aBlock
- self subclassResponsibility
- ! !
- !Collection methodsFor: 'converting'!
- asArray
- ^Array withAll: self
- !
- asJSON
- ^self asArray collect: [:each | each asJSON]
- !
- asOrderedCollection
- ^self asArray
- !
- asSet
- ^Set withAll: self
- ! !
- !Collection methodsFor: 'copying'!
- , aCollection
- ^self copy
- addAll: aCollection;
- yourself
- !
- copyWith: anObject
- ^self copy add: anObject; yourself
- !
- copyWithAll: aCollection
- ^self copy addAll: aCollection; yourself
- !
- copyWithoutAll: aCollection
- "Answer a copy of the receiver that does not contain any elements
- equal to those in aCollection."
- ^ self reject: [:each | aCollection includes: each]
- ! !
- !Collection methodsFor: 'enumerating'!
- collect: aBlock
- | stream |
- stream := self class new writeStream.
- self do: [ :each |
- stream nextPut: (aBlock value: each) ].
- ^stream contents
- !
- detect: aBlock
- ^self detect: aBlock ifNone: [self errorNotFound]
- !
- detect: aBlock ifNone: anotherBlock
- self subclassResponsibility
- !
- do: aBlock
- self subclassResponsibility
- !
- do: aBlock separatedBy: anotherBlock
- | actionBeforeElement |
- actionBeforeElement := [actionBeforeElement := anotherBlock].
- self do: [:each |
- actionBeforeElement value.
- aBlock value: each]
- !
- inject: anObject into: aBlock
- | result |
- result := anObject.
- self do: [:each |
- result := aBlock value: result value: each].
- ^result
- !
- intersection: aCollection
- "Answer the set theoretic intersection of two collections."
- | set outputSet |
-
- set := self asSet.
- outputSet := Set new.
-
- aCollection do: [ :each |
- ((set includes: each) and: [(outputSet includes: each) not])
- ifTrue: [
- outputSet add: each]].
-
- ^ self class withAll: outputSet asArray
- !
- reject: aBlock
- ^self select: [:each | (aBlock value: each) = false]
- !
- select: aBlock
- | stream |
- stream := self class new writeStream.
- self do: [:each |
- (aBlock value: each) ifTrue: [
- stream nextPut: each]].
- ^stream contents
- ! !
- !Collection methodsFor: 'error handling'!
- errorNotFound
- self error: 'Object is not in the collection'
- ! !
- !Collection methodsFor: 'printing'!
- printString
- "print the contents of the Collection into a string and return it"
- ^String streamContents: [:aStream |
- aStream
- nextPutAll: super printString, ' ('.
- self do: [:each | aStream nextPutAll: each printString]
- separatedBy: [aStream nextPutAll: ' '].
- aStream nextPutAll: ')']
- ! !
- !Collection methodsFor: 'testing'!
- ifEmpty: aBlock
- "Evaluate the given block with the receiver as argument, answering its value if the receiver is empty, otherwise answer the receiver. Note that the fact that this method returns its argument in case the receiver is not empty allows one to write expressions like the following ones: self classifyMethodAs:
- (myProtocol ifEmpty: ['As yet unclassified'])"
- ^ self isEmpty
- ifTrue: [ aBlock value ]
- ifFalse: [ self ]
- !
- ifNotEmpty: aBlock
- self notEmpty ifTrue: aBlock.
- !
- includes: anObject
- | sentinel |
- sentinel := Object new.
- ^(self detect: [ :each | each = anObject] ifNone: [ sentinel ]) ~= sentinel
- !
- isEmpty
- ^self size = 0
- !
- notEmpty
- ^self isEmpty not
- ! !
- !Collection class methodsFor: 'accessing'!
- streamClass
- ^Stream
- ! !
- !Collection class methodsFor: 'instance creation'!
- new: anInteger
- ^self new
- !
- with: anObject
- ^self new
- add: anObject;
- yourself
- !
- with: anObject with: anotherObject
- ^self new
- add: anObject;
- add: anotherObject;
- yourself
- !
- with: firstObject with: secondObject with: thirdObject
- ^self new
- add: firstObject;
- add: secondObject;
- add: thirdObject;
- yourself
- !
- withAll: aCollection
- ^self new
- addAll: aCollection;
- yourself
- ! !
- Collection subclass: #IndexableCollection
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !IndexableCollection commentStamp!
- I am a key-value store, that is,
- it stores values under indexes.
- As a rule of thumb, if a collection has at: and at:put:,
- it is an IndexableCollection.!
- !IndexableCollection methodsFor: 'accessing'!
- at: anIndex
- "Lookup the given index in the receiver.
- If it is present, answer the value stored at anIndex.
- Otherwise, raise an error."
- ^self at: anIndex ifAbsent: [ self errorNotFound ]
- !
- at: anIndex ifAbsent: aBlock
- "Lookup the given index in the receiver.
- If it is present, answer the value stored at anIndex.
- Otherwise, answer the value of aBlock."
- self subclassReponsibility
- !
- at: anIndex ifPresent: aBlock
- "Lookup the given index in the receiver.
- If it is present, answer the value of evaluating aBlock with the value stored at anIndex.
- Otherwise, answer nil."
- ^self at: anIndex ifPresent: aBlock ifAbsent: [ nil ]
- !
- at: anIndex ifPresent: aBlock ifAbsent: anotherBlock
- "Lookup the given index in the receiver.
- If it is present, answer the value of evaluating aBlock with the value stored at anIndex.
- Otherwise, answer the value of anotherBlock."
- self subclassReponsibility
- !
- at: anIndex put: anObject
- "Store anObject under the given index in the receiver."
- self subclassReponsibility
- !
- indexOf: anObject
- "Lookup index at which anObject is stored in the receiver.
- If not present, raise an error."
- ^self indexOf: anObject ifAbsent: [ self errorNotFound ]
- !
- indexOf: anObject ifAbsent: aBlock
- "Lookup index at which anObject is stored in the receiver.
- If not present, return value of executing aBlock."
- self subclassResponsibility
- ! !
- !IndexableCollection methodsFor: 'enumeration'!
- with: anotherCollection do: aBlock
- "Calls aBlock with every value from self
- and with indetically-indexed value from anotherCollection"
- self withIndexDo: [ :each :index |
- aBlock value: each value: (anotherCollection at: index) ]
- !
- withIndexDo: aBlock
- "Calls aBlock with every value from self
- and with its index as the second argument"
- self subclassReponsibility
- ! !
- IndexableCollection subclass: #HashedCollection
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !HashedCollection commentStamp!
- I am a traditional JavaScript object, or a Smalltalk `Dictionary`.
- Unlike a `Dictionary`, it can only have strings as keys.!
- !HashedCollection methodsFor: 'accessing'!
- associations
- | associations |
- associations := #().
- self associationsDo: [:each | associations add: each].
- ^associations
- !
- at: aKey ifAbsent: aBlock
- ^(self includesKey: aKey)
- ifTrue: [self basicAt: aKey]
- ifFalse: aBlock
- !
- at: aKey ifAbsentPut: aBlock
- ^self at: aKey ifAbsent: [
- self at: aKey put: aBlock value]
- !
- at: aKey ifPresent: aBlock ifAbsent: anotherBlock
- "Lookup the given key in the receiver.
- If it is present, answer the value of evaluating the oneArgBlock with the value associated with the key,
- otherwise answer the value of absentBlock."
- ^(self includesKey: aKey)
- ifTrue: [ aBlock value: (self at: aKey) ]
- ifFalse: anotherBlock
- !
- at: aKey put: aValue
- ^self basicAt: aKey put: aValue
- !
- indexOf: anObject ifAbsent: aBlock
- ^ self keys detect: [ :each | (self at: each) = anObject ] ifNone: aBlock
- !
- keys
- <
- if ('function'===typeof Object.keys) return Object.keys(self);
- var keys = [];
- for(var i in self) {
- if(self.hasOwnProperty(i)) {
- keys.push(i);
- }
- };
- return keys;
- >
- !
- size
- ^self keys size
- !
- values
- ^self keys collect: [:each | self at: each]
- ! !
- !HashedCollection methodsFor: 'adding/removing'!
- add: anAssociation
- self at: anAssociation key put: anAssociation value
- !
- addAll: aHashedCollection
- super addAll: aHashedCollection associations.
- ^aHashedCollection
- !
- remove: aKey ifAbsent: aBlock
- ^self removeKey: aKey ifAbsent: aBlock
- !
- removeKey: aKey
- ^self remove: aKey
- !
- removeKey: aKey ifAbsent: aBlock
- ^(self includesKey: aKey)
- ifFalse: [aBlock value]
- ifTrue: [self basicDelete: aKey]
- ! !
- !HashedCollection methodsFor: 'comparing'!
- = aHashedCollection
- self class = aHashedCollection class ifFalse: [^false].
- self size = aHashedCollection size ifFalse: [^false].
- ^self associations = aHashedCollection associations
- ! !
- !HashedCollection methodsFor: 'converting'!
- asDictionary
- ^Dictionary fromPairs: self associations
- !
- asJSON
- | c |
- c := self class new.
- self keysAndValuesDo: [:key :value |
- c at: key put: value asJSON].
- ^c
- ! !
- !HashedCollection methodsFor: 'copying'!
- , aCollection
- self shouldNotImplement
- !
- deepCopy
- | copy |
- copy := self class new.
- self keysAndValuesDo: [:key :value |
- copy at: key put: value deepCopy].
- ^copy
- !
- shallowCopy
- | copy |
- copy := self class new.
- self keysAndValuesDo: [:key :value |
- copy at: key put: value].
- ^copy
- ! !
- !HashedCollection methodsFor: 'enumerating'!
- associationsDo: aBlock
- self keysAndValuesDo: [:key :value |
- aBlock value: (Association key: key value: value)]
- !
- collect: aBlock
- | newDict |
- newDict := self class new.
- self keysAndValuesDo: [:key :value |
- newDict at: key put: (aBlock value: value)].
- ^newDict
- !
- detect: aBlock ifNone: anotherBlock
- ^self values detect: aBlock ifNone: anotherBlock
- !
- do: aBlock
- self valuesDo: aBlock
- !
- includes: anObject
- ^self values includes: anObject
- !
- keysAndValuesDo: aBlock
- self keysDo: [:each |
- aBlock value: each value: (self at: each)]
- !
- keysDo: aBlock
- self keys do: aBlock
- !
- select: aBlock
- | newDict |
- newDict := self class new.
- self keysAndValuesDo: [:key :value |
- (aBlock value: value) ifTrue: [newDict at: key put: value]].
- ^newDict
- !
- valuesDo: aBlock
- self keysAndValuesDo: [ :key :value | aBlock value: value ]
- !
- withIndexDo: aBlock
- self keysAndValuesDo: [ :key :value | aBlock value: value value: key ]
- ! !
- !HashedCollection methodsFor: 'printing'!
- printString
- "print the contents of the HashedCollection into a string and return the string"
- ^String streamContents: [:aStream |
- aStream nextPutAll: 'a ', self class name, '('.
- self associations
- do: [:each | each storeOn: aStream]
- separatedBy: [ aStream nextPutAll: ' , '].
- aStream nextPutAll: ')']
- !
- storeOn: aStream
- aStream nextPutAll: '#{'.
- self associations
- do: [:each | each storeOn: aStream]
- separatedBy: [ aStream nextPutAll: '. '].
- aStream nextPutAll: '}'
- ! !
- !HashedCollection methodsFor: 'testing'!
- includesKey: aKey
- <return self.hasOwnProperty(aKey)>
- ! !
- !HashedCollection class methodsFor: 'instance creation'!
- fromPairs: aCollection
- | dict |
- dict := self new.
- aCollection do: [:each | dict add: each].
- ^dict
- ! !
- HashedCollection subclass: #Dictionary
- instanceVariableNames: 'keys values'
- package: 'Kernel-Collections'!
- !Dictionary commentStamp!
- I represent a set of elements that can be viewed from one of two perspectives: a set of associations,
- or a container of values that are externally named where the name can be any object that responds to `=`.
- The external name is referred to as the key.!
- !Dictionary methodsFor: 'accessing'!
- at: aKey ifAbsent: aBlock
- <
- var index = self._positionOfKey_(aKey);
- return index >>=0 ? self['@values'][index] : aBlock();
- >
- !
- at: aKey put: aValue
- <
- var index = self._positionOfKey_(aKey);
- if(index === -1) {
- var keys = self['@keys'];
- index = keys.length;
- keys.push(aKey);
- }
- return self['@values'][index] = aValue;
- >
- !
- indexOf: anObject ifAbsent: aBlock
- | index |
- index := values indexOf: anObject ifAbsent: [0].
- ^ index = 0 ifTrue: [ aBlock value ] ifFalse: [ keys at: index ]
- !
- keys
- ^keys copy
- !
- values
- ^values copy
- ! !
- !Dictionary methodsFor: 'adding/removing'!
- removeKey: aKey ifAbsent: aBlock
- <
- var index = self._positionOfKey_(aKey);
- if(index === -1) {
- return aBlock()
- } else {
- var keys = self['@keys'], values = self['@values'];
- var value = values[index], l = keys.length;
- keys[index] = keys[l-1];
- keys.pop();
- values[index] = values[l-1];
- values.pop();
- return value;
- }
- >
- ! !
- !Dictionary methodsFor: 'converting'!
- asHashedCollection
- ^HashedCollection fromPairs: self associations
- !
- asJSON
- ^self asHashedCollection asJSON
- ! !
- !Dictionary methodsFor: 'enumerating'!
- keysAndValuesDo: aBlock
- ^keys with: values do: aBlock
- !
- keysDo: aBlock
- ^keys do: aBlock
- !
- valuesDo: aBlock
- ^values do: aBlock
- ! !
- !Dictionary methodsFor: 'initialization'!
- initialize
- super initialize.
- keys := #().
- values := #()
- ! !
- !Dictionary methodsFor: 'private'!
- positionOfKey: anObject
- <
- var keys = self['@keys'];
- for(var i=0;i<keys.length;i++){
- if(keys[i].__eq(anObject)) { return i;}
- }
- return -1;
- >
- ! !
- !Dictionary methodsFor: 'testing'!
- includesKey: aKey
- < return self._positionOfKey_(aKey) >>= 0; >
- ! !
- IndexableCollection subclass: #SequenceableCollection
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !SequenceableCollection commentStamp!
- I am an IndexableCollection
- with numeric indexes starting with 1.!
- !SequenceableCollection methodsFor: 'accessing'!
- allButFirst
- ^self copyFrom: 2 to: self size
- !
- allButLast
- ^self copyFrom: 1 to: self size - 1
- !
- atRandom
- ^ self at: self size atRandom
- !
- first
- ^self at: 1
- !
- first: n
- "Answer the first n elements of the receiver.
- Raise an error if there are not enough elements."
- ^ self copyFrom: 1 to: n
- !
- fourth
- ^self at: 4
- !
- indexOf: anObject ifAbsent: aBlock
- <
- for(var i=0;i<self.length;i++) {
- if(self[i].__eq(anObject)) {return i+1}
- };
- return aBlock();
- >
- !
- indexOf: anObject startingAt: start
- "Answer the index of the first occurence of anElement after start
- within the receiver. If the receiver does not contain anElement,
- answer 0."
- ^self indexOf: anObject startingAt: start ifAbsent: [0]
- !
- indexOf: anObject startingAt: start ifAbsent: aBlock
- <
- for(var i=start-1;i<self.length;i++){
- if(self[i].__eq(anObject)) {return i+1}
- }
- return aBlock();
- >
- !
- last
- ^self at: self size
- !
- second
- ^self at: 2
- !
- third
- ^self at: 3
- ! !
- !SequenceableCollection methodsFor: 'adding'!
- addLast: anObject
- self add: anObject
- !
- removeLast
- self remove: self last
- ! !
- !SequenceableCollection methodsFor: 'comparing'!
- = aCollection
- (self class = aCollection class and: [
- self size = aCollection size]) ifFalse: [^false].
- self withIndexDo: [:each :i |
- (aCollection at: i) = each ifFalse: [^false]].
- ^true
- ! !
- !SequenceableCollection methodsFor: 'converting'!
- reversed
- self subclassResponsibility
- ! !
- !SequenceableCollection methodsFor: 'copying'!
- copyFrom: anIndex to: anotherIndex
- | range newCollection |
- range := anIndex to: anotherIndex.
- newCollection := self class new: range size.
- range withIndexDo: [:each :i |
- newCollection at: i put: (self at: each)].
- ^newCollection
- !
- deepCopy
- | newCollection |
- newCollection := self class new: self size.
- self withIndexDo: [:each :index |
- newCollection at: index put: each deepCopy].
- ^newCollection
- !
- shallowCopy
- | newCollection |
- newCollection := self class new: self size.
- self withIndexDo: [ :each :index |
- newCollection at: index put: each].
- ^newCollection
- ! !
- !SequenceableCollection methodsFor: 'enumerating'!
- detect: aBlock ifNone: anotherBlock
- <
- for(var i = 0; i < self.length; i++)
- if(aBlock(self[i]))
- return self[i];
- return anotherBlock();
- >
- !
- do: aBlock
- <for(var i=0;i<self.length;i++){aBlock(self[i]);}>
- !
- with: anotherCollection do: aBlock
- <for(var i=0;i<self.length;i++){aBlock(self[i], anotherCollection[i]);}>
- !
- withIndexDo: aBlock
- <for(var i=0;i<self.length;i++){aBlock(self[i], i+1);}>
- ! !
- !SequenceableCollection methodsFor: 'testing'!
- includes: anObject
- ^(self indexOf: anObject ifAbsent: [nil]) notNil
- ! !
- SequenceableCollection subclass: #Array
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !Array commentStamp!
- I represent a collection of objects ordered by the collector. The size of arrays is dynamic.
- In Amber, OrderedCollection is an alias for Array.!
- !Array methodsFor: 'accessing'!
- at: anIndex ifAbsent: aBlock
- <
- if((anIndex < 1) || (self.length < anIndex)) {return aBlock()};
- return self[anIndex - 1];
- >
- !
- at: anIndex put: anObject
- <return self[anIndex - 1] = anObject>
- !
- size
- <return self.length>
- ! !
- !Array methodsFor: 'adding/removing'!
- add: anObject
- <self.push(anObject); return anObject;>
- !
- remove: anObject ifAbsent: aBlock
- <
- for(var i=0;i<self.length;i++) {
- if(self[i] == anObject) {
- self.splice(i,1);
- return self;
- }
- };
- aBlock._value();
- >
- !
- removeFrom: aNumber to: anotherNumber
- <self.splice(aNumber - 1,anotherNumber - 1)>
- ! !
- !Array methodsFor: 'converting'!
- asJavascript
- ^'[', ((self collect: [:each | each asJavascript]) join: ', '), ']'
- !
- reversed
- <return self._copy().reverse()>
- ! !
- !Array methodsFor: 'enumerating'!
- join: aString
- <return self.join(aString)>
- !
- sort
- ^self basicPerform: 'sort'
- !
- sort: aBlock
- <
- return self.sort(function(a, b) {
- if(aBlock(a,b)) {return -1} else {return 1}
- })
- >
- !
- sorted
- ^self copy sort
- !
- sorted: aBlock
- ^self copy sort: aBlock
- ! !
- !Array class methodsFor: 'instance creation'!
- new: anInteger
- <return new Array(anInteger)>
- !
- with: anObject
- ^(self new: 1)
- at: 1 put: anObject;
- yourself
- !
- with: anObject with: anObject2
- ^(self new: 2)
- at: 1 put: anObject;
- at: 2 put: anObject2;
- yourself
- !
- with: anObject with: anObject2 with: anObject3
- ^(self new: 3)
- at: 1 put: anObject;
- at: 2 put: anObject2;
- at: 3 put: anObject3;
- yourself
- !
- withAll: aCollection
- | instance index |
- index := 1.
- instance := self new: aCollection size.
- aCollection do: [:each |
- instance at: index put: each.
- index := index + 1].
- ^instance
- ! !
- SequenceableCollection subclass: #CharacterArray
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !CharacterArray commentStamp!
- I am the abstract superclass of string-like collections.!
- !CharacterArray methodsFor: 'accessing'!
- at: anIndex put: anObject
- self errorReadOnly
- ! !
- !CharacterArray methodsFor: 'adding'!
- add: anObject
- self errorReadOnly
- !
- remove: anObject
- self errorReadOnly
- ! !
- !CharacterArray methodsFor: 'converting'!
- asLowercase
- ^self class fromString: self asString asLowercase
- !
- asNumber
- ^self asString asNumber
- !
- asString
- ^self subclassResponsibility
- !
- asSymbol
- ^self subclassResponsibility
- !
- asUppercase
- ^self class fromString: self asString asUppercase
- ! !
- !CharacterArray methodsFor: 'copying'!
- , aString
- ^self asString, aString asString
- ! !
- !CharacterArray methodsFor: 'error handling'!
- errorReadOnly
- self error: 'Object is read-only'
- ! !
- !CharacterArray methodsFor: 'printing'!
- printString
- ^self asString printString
- ! !
- !CharacterArray class methodsFor: 'instance creation'!
- fromString: aString
- self subclassResponsibility
- ! !
- CharacterArray subclass: #String
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !String commentStamp!
- I am an indexed collection of Characters. Unlike most Smalltalk dialects, Amber doesn't provide the Character class. Instead, elements of a String are single character strings.
- String inherits many useful methods from its hierarchy, such as
- `Collection >> #,`!
- !String methodsFor: 'accessing'!
- asciiValue
- <return self.charCodeAt(0);>
- !
- at: anIndex ifAbsent: aBlock
- <return String(self).charAt(anIndex - 1) || aBlock()>
- !
- escaped
- <return escape(self)>
- !
- size
- <return self.length>
- !
- unescaped
- <return unescape(self)>
- ! !
- !String methodsFor: 'comparing'!
- < aString
- <return String(self) < aString._asString()>
- !
- <= aString
- <return String(self) <= aString._asString()>
- !
- = aString
- <
- if(!! aString._isString || !! aString._isString()) {
- return false;
- }
- return String(self) === String(aString)
- >
- !
- == aString
- ^self = aString
- !
- > aString
- <return String(self) >> aString._asString()>
- !
- >= aString
- <return String(self) >>= aString._asString()>
- ! !
- !String methodsFor: 'converting'!
- asJSON
- ^self
- !
- asJavaScriptSelector
- ^(self asSelector replace: '^_' with: '') replace: '_.*' with: ''.
- !
- asJavascript
- <
- if(self.search(/^[a-zA-Z0-9_:.$ ]*$/) == -1)
- return "\"" + self.replace(/[\x00-\x1f"\\\x7f-\x9f]/g, function(ch){var c=ch.charCodeAt(0);return "\\x"+("0"+c.toString(16)).slice(-2)}) + "\"";
- else
- return "\"" + self + "\"";
- >
- !
- asLowercase
- <return self.toLowerCase()>
- !
- asNumber
- <return Number(self)>
- !
- asRegexp
- ^ RegularExpression fromString: self
- !
- asSelector
- <return smalltalk.selector(self)>
- !
- asString
- ^self
- !
- asSymbol
- ^Symbol lookup: self
- !
- asUppercase
- <return self.toUpperCase()>
- !
- reversed
- <return self.split("").reverse().join("")>
- !
- tokenize: aString
- <return self.split(aString)>
- ! !
- !String methodsFor: 'copying'!
- , aString
- <return self + aString>
- !
- copyFrom: anIndex to: anotherIndex
- <return self.substring(anIndex - 1, anotherIndex)>
- !
- deepCopy
- ^self shallowCopy
- !
- shallowCopy
- ^self class fromString: self
- ! !
- !String methodsFor: 'enumerating'!
- do: aBlock
- <for(var i=0;i<self.length;i++){aBlock(self.charAt(i));}>
- !
- withIndexDo: aBlock
- <for(var i=0;i<self.length;i++){aBlock(self.charAt(i), i+1);}>
- ! !
- !String methodsFor: 'printing'!
- printNl
- <console.log(self)>
- !
- printString
- ^'''', self, ''''
- ! !
- !String methodsFor: 'regular expressions'!
- match: aRegexp
- <return self.search(aRegexp) !!= -1>
- !
- matchesOf: aRegularExpression
- <return self.match(aRegularExpression)>
- !
- replace: aString with: anotherString
- ^self replaceRegexp: (RegularExpression fromString: aString flag: 'g') with: anotherString
- !
- replaceRegexp: aRegexp with: aString
- <return self.replace(aRegexp, aString)>
- !
- trimBoth
- ^self trimBoth: '\s'
- !
- trimBoth: separators
- ^(self trimLeft: separators) trimRight: separators
- !
- trimLeft
- ^self trimLeft: '\s'
- !
- trimLeft: separators
- ^self replaceRegexp: (RegularExpression fromString: '^[', separators, ']+' flag: 'g') with: ''
- !
- trimRight
- ^self trimRight: '\s'
- !
- trimRight: separators
- ^self replaceRegexp: (RegularExpression fromString: '[', separators, ']+$' flag: 'g') with: ''
- ! !
- !String methodsFor: 'split join'!
- join: aCollection
- ^ String
- streamContents: [:stream | aCollection
- do: [:each | stream nextPutAll: each asString]
- separatedBy: [stream nextPutAll: self]]
- !
- lineIndicesDo: aBlock
- "execute aBlock with 3 arguments for each line:
- - start index of line
- - end index of line without line delimiter
- - end index of line including line delimiter(s) CR, LF or CRLF"
-
- | cr lf start sz nextLF nextCR |
- start := 1.
- sz := self size.
- cr := String cr.
- nextCR := self indexOf: cr startingAt: 1.
- lf := String lf.
- nextLF := self indexOf: lf startingAt: 1.
- [ start <= sz ] whileTrue: [
- (nextLF = 0 and: [ nextCR = 0 ])
- ifTrue: [ "No more CR, nor LF, the string is over"
- aBlock value: start value: sz value: sz.
- ^self ].
- (nextCR = 0 or: [ 0 < nextLF and: [ nextLF < nextCR ] ])
- ifTrue: [ "Found a LF"
- aBlock value: start value: nextLF - 1 value: nextLF.
- start := 1 + nextLF.
- nextLF := self indexOf: lf startingAt: start ]
- ifFalse: [ 1 + nextCR = nextLF
- ifTrue: [ "Found a CR-LF pair"
- aBlock value: start value: nextCR - 1 value: nextLF.
- start := 1 + nextLF.
- nextCR := self indexOf: cr startingAt: start.
- nextLF := self indexOf: lf startingAt: start ]
- ifFalse: [ "Found a CR"
- aBlock value: start value: nextCR - 1 value: nextCR.
- start := 1 + nextCR.
- nextCR := self indexOf: cr startingAt: start ]]]
- !
- lineNumber: anIndex
- "Answer a string containing the characters in the given line number."
- | lineCount |
- lineCount := 0.
- self lineIndicesDo: [:start :endWithoutDelimiters :end |
- (lineCount := lineCount + 1) = anIndex ifTrue: [^self copyFrom: start to: endWithoutDelimiters]].
- ^nil
- !
- lines
- "Answer an array of lines composing this receiver without the line ending delimiters."
- | lines |
- lines := Array new.
- self linesDo: [:aLine | lines add: aLine].
- ^lines
- !
- linesDo: aBlock
- "Execute aBlock with each line in this string. The terminating line
- delimiters CR, LF or CRLF pairs are not included in what is passed to aBlock"
- self lineIndicesDo: [:start :endWithoutDelimiters :end |
- aBlock value: (self copyFrom: start to: endWithoutDelimiters)]
- ! !
- !String methodsFor: 'testing'!
- includesSubString: subString
- < return self.indexOf(subString) !!= -1 >
- !
- isString
- ^true
- ! !
- !String class methodsFor: 'accessing'!
- cr
- <return '\r'>
- !
- crlf
- <return '\r\n'>
- !
- lf
- <return '\n'>
- !
- space
- <return ' '>
- !
- streamClass
- ^StringStream
- !
- tab
- <return '\t'>
- ! !
- !String class methodsFor: 'instance creation'!
- fromCharCode: anInteger
- <return String.fromCharCode(anInteger)>
- !
- fromString: aString
- <return new self.fn(aString)>
- !
- streamContents: blockWithArg
- |stream|
- stream := (self streamClass on: String new).
- blockWithArg value: stream.
- ^ stream contents
- !
- value: aUTFCharCode
- <return String.fromCharCode(aUTFCharCode);>
- ! !
- CharacterArray subclass: #Symbol
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !Symbol commentStamp!
- I represent Strings that are created uniquely.
- Symbols are unique through the system.
- Thus, someString asSymbol == someString asSymbol.!
- !Symbol methodsFor: 'accessing'!
- at: anIndex ifAbsent: aBlock
- ^self asString at: anIndex ifAbsent: aBlock
- !
- size
- ^self asString size
- ! !
- !Symbol methodsFor: 'comparing'!
- < aSymbol
- ^self asString < aSymbol asString
- !
- <= aSymbol
- ^self asString <= aSymbol asString
- !
- = aSymbol
- aSymbol class = self class ifFalse: [^false].
- ^self asString = aSymbol asString
- !
- > aSymbol
- ^self asString > aSymbol asString
- !
- >= aSymbol
- ^self asString >= aSymbol asString
- ! !
- !Symbol methodsFor: 'converting'!
- asJSON
- ^self asString asJSON
- !
- asJavascript
- ^'smalltalk.symbolFor(', self asString asJavascript, ')'
- !
- asSelector
- ^self asString asSelector
- !
- asString
- <return self.value>
- !
- asSuperSelector
- ^self asString asSuperSelector
- !
- asSymbol
- ^self
- ! !
- !Symbol methodsFor: 'copying'!
- copyFrom: anIndex to: anotherIndex
- ^self class fromString: (self asString copyFrom: anIndex to: anotherIndex)
- !
- deepCopy
- ^self
- !
- shallowCopy
- ^self
- ! !
- !Symbol methodsFor: 'enumerating'!
- collect: aBlock
- ^ (self asString collect: aBlock) asSymbol
- !
- detect: aBlock
- ^ self asString detect: aBlock
- !
- do: aBlock
- self asString do: aBlock
- !
- select: aBlock
- ^ (self asString select: aBlock) asSymbol
- !
- withIndexDo: aBlock
- self asString withIndexDo: aBlock
- ! !
- !Symbol methodsFor: 'evaluating'!
- value: anObject
- ^anObject perform: self
- ! !
- !Symbol methodsFor: 'printing'!
- isSymbol
- ^true
- !
- printString
- ^'#', self asString
- ! !
- !Symbol class methodsFor: 'instance creation'!
- basicNew
- self shouldNotImplement
- !
- fromString: aString
- ^self lookup: aString
- !
- lookup: aString
- <return smalltalk.symbolFor(aString);>
- ! !
- Collection subclass: #Set
- instanceVariableNames: 'elements'
- package: 'Kernel-Collections'!
- !Set commentStamp!
- I represent an unordered set of objects without duplicates.!
- !Set methodsFor: 'accessing'!
- size
- ^elements size
- ! !
- !Set methodsFor: 'adding/removing'!
- add: anObject
- <
- var found;
- for(var i=0; i < self['@elements'].length; i++) {
- if(anObject == self['@elements'][i]) {
- found = true;
- break;
- }
- }
- if(!!found) {self['@elements'].push(anObject)}
- >
- !
- remove: anObject
- elements remove: anObject
- ! !
- !Set methodsFor: 'comparing'!
- = aCollection
- self class = aCollection class ifFalse: [ ^ false ].
- self size = aCollection size ifFalse: [ ^ false ].
- self do: [:each | (aCollection includes: each) ifFalse: [ ^ false ] ].
- ^ true
- ! !
- !Set methodsFor: 'converting'!
- asArray
- ^elements copy
- ! !
- !Set methodsFor: 'enumerating'!
- collect: aBlock
- ^self class withAll: (elements collect: aBlock)
- !
- detect: aBlock ifNone: anotherBlock
- ^elements detect: aBlock ifNone: anotherBlock
- !
- do: aBlock
- elements do: aBlock
- !
- select: aBlock
- | collection |
- collection := self class new.
- self do: [:each |
- (aBlock value: each) ifTrue: [
- collection add: each]].
- ^collection
- ! !
- !Set methodsFor: 'initialization'!
- initialize
- super initialize.
- elements := #()
- ! !
- !Set methodsFor: 'testing'!
- includes: anObject
- ^elements includes: anObject
- ! !
- Object subclass: #Queue
- instanceVariableNames: 'read readIndex write'
- package: 'Kernel-Collections'!
- !Queue commentStamp!
- A Queue am a one-sided queue.
- A Queue uses two OrderedCollections inside,
- `read` is at the front, is not modified and only read using `readIndex`.
- `write` is at the back and is appended new items.
- When `read` is exhausted, `write` is promoted to `read` and new `write` is created.
- As a consequence, no data moving is done by the Queue; write appending may do data moving
- when growing `write`, but this is left to engine to implement as good as it chooses to.!
- !Queue methodsFor: 'accessing'!
- back: anObject
- write add: anObject
- !
- front
- ^self frontIfAbsent: [ self error: 'Cannot read from empty Queue.' ]
- !
- frontIfAbsent: aBlock
- | result |
- result := read at: readIndex ifAbsent: [
- write isEmpty ifTrue: [
- readIndex > 1 ifTrue: [ read := #(). readIndex := 1 ].
- ^aBlock value ].
- read := write.
- readIndex := 1.
- write := OrderedCollection new.
- read first ].
- read at: readIndex put: nil.
- readIndex := readIndex + 1.
- ^result
- ! !
- !Queue methodsFor: 'initialization'!
- initialize
- super initialize.
- read := OrderedCollection new.
- write := OrderedCollection new.
- readIndex := 1
- ! !
- Object subclass: #RegularExpression
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !RegularExpression commentStamp!
- I represent a regular expression object. My instances are JavaScript `RegExp` object.!
- !RegularExpression methodsFor: 'evaluating'!
- compile: aString
- <return self.compile(aString)>
- !
- exec: aString
- <return self.exec(aString) || nil>
- !
- test: aString
- <return self.test(aString)>
- ! !
- !RegularExpression class methodsFor: 'instance creation'!
- fromString: aString
- ^self fromString: aString flag: ''
- !
- fromString: aString flag: anotherString
- <return new RegExp(aString, anotherString)>
- ! !
- Object subclass: #Stream
- instanceVariableNames: 'collection position streamSize'
- package: 'Kernel-Collections'!
- !Stream commentStamp!
- I represent an accessor for a sequence of objects. This sequence is referred to as my "contents".
- My instances are read/write streams to the contents sequence collection.!
- !Stream methodsFor: 'accessing'!
- collection
- ^collection
- !
- contents
- ^self collection
- copyFrom: 1
- to: self streamSize
- !
- position
- ^position ifNil: [position := 0]
- !
- position: anInteger
- position := anInteger
- !
- setCollection: aCollection
- collection := aCollection
- !
- setStreamSize: anInteger
- streamSize := anInteger
- !
- size
- ^self streamSize
- !
- streamSize
- ^streamSize
- ! !
- !Stream methodsFor: 'actions'!
- close
- !
- flush
- !
- reset
- self position: 0
- !
- resetContents
- self reset.
- self setStreamSize: 0
- ! !
- !Stream methodsFor: 'enumerating'!
- do: aBlock
- [self atEnd] whileFalse: [aBlock value: self next]
- ! !
- !Stream methodsFor: 'positioning'!
- setToEnd
- self position: self size
- !
- skip: anInteger
- self position: ((self position + anInteger) min: self size max: 0)
- ! !
- !Stream methodsFor: 'reading'!
- next
- ^self atEnd
- ifTrue: [nil]
- ifFalse: [
- self position: self position + 1.
- collection at: self position]
- !
- next: anInteger
- | tempCollection |
- tempCollection := self collection class new.
- anInteger timesRepeat: [
- self atEnd ifFalse: [
- tempCollection add: self next]].
- ^tempCollection
- !
- peek
- ^self atEnd ifFalse: [
- self collection at: self position + 1]
- ! !
- !Stream methodsFor: 'testing'!
- atEnd
- ^self position = self size
- !
- atStart
- ^self position = 0
- !
- isEmpty
- ^self size = 0
- ! !
- !Stream methodsFor: 'writing'!
- nextPut: anObject
- self position: self position + 1.
- self collection at: self position put: anObject.
- self setStreamSize: (self streamSize max: self position)
- !
- nextPutAll: aCollection
- aCollection do: [:each |
- self nextPut: each]
- ! !
- !Stream class methodsFor: 'instance creation'!
- on: aCollection
- ^self new
- setCollection: aCollection;
- setStreamSize: aCollection size;
- yourself
- ! !
- Stream subclass: #StringStream
- instanceVariableNames: ''
- package: 'Kernel-Collections'!
- !StringStream commentStamp!
- I am a Stream specific to `String` objects.!
- !StringStream methodsFor: 'reading'!
- next: anInteger
- | tempCollection |
- tempCollection := self collection class new.
- anInteger timesRepeat: [
- self atEnd ifFalse: [
- tempCollection := tempCollection, self next]].
- ^tempCollection
- ! !
- !StringStream methodsFor: 'writing'!
- cr
- ^self nextPutAll: String cr
- !
- crlf
- ^self nextPutAll: String crlf
- !
- lf
- ^self nextPutAll: String lf
- !
- nextPut: aString
- self nextPutAll: aString
- !
- nextPutAll: aString
- self setCollection:
- (self collection copyFrom: 1 to: self position),
- aString,
- (self collection copyFrom: (self position + 1 + aString size) to: self collection size).
- self position: self position + aString size.
- self setStreamSize: (self streamSize max: self position)
- !
- space
- self nextPut: ' '
- ! !
|