1
0

Kernel-Collections.st 27 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602
  1. Smalltalk current createPackage: 'Kernel-Collections' properties: #{}!
  2. Object subclass: #Association
  3. instanceVariableNames: 'key value'
  4. package: 'Kernel-Collections'!
  5. !Association methodsFor: 'accessing'!
  6. key
  7. ^key
  8. !
  9. key: aKey
  10. key := aKey
  11. !
  12. value
  13. ^value
  14. !
  15. value: aValue
  16. value := aValue
  17. ! !
  18. !Association methodsFor: 'comparing'!
  19. = anAssociation
  20. ^self class = anAssociation class and: [
  21. self key = anAssociation key and: [
  22. self value = anAssociation value]]
  23. !
  24. storeOn: aStream
  25. "Store in the format (key->value)"
  26. "aStream nextPutAll: '('."
  27. key storeOn: aStream.
  28. aStream nextPutAll: '->'.
  29. value storeOn: aStream.
  30. "aStream nextPutAll: ')'"
  31. ! !
  32. !Association class methodsFor: 'instance creation'!
  33. key: aKey value: aValue
  34. ^self new
  35. key: aKey;
  36. value: aValue;
  37. yourself
  38. ! !
  39. Object subclass: #Collection
  40. instanceVariableNames: ''
  41. package: 'Kernel-Collections'!
  42. !Collection methodsFor: 'accessing'!
  43. readStream
  44. ^self stream
  45. !
  46. size
  47. self subclassResponsibility
  48. !
  49. stream
  50. ^self streamClass on: self
  51. !
  52. streamClass
  53. ^self class streamClass
  54. !
  55. writeStream
  56. ^self stream
  57. ! !
  58. !Collection methodsFor: 'adding/removing'!
  59. add: anObject
  60. self subclassResponsibility
  61. !
  62. addAll: aCollection
  63. aCollection do: [:each |
  64. self add: each].
  65. ^aCollection
  66. !
  67. remove: anObject
  68. ^self remove: anObject ifAbsent: [self errorNotFound]
  69. !
  70. remove: anObject ifAbsent: aBlock
  71. self subclassResponsibility
  72. ! !
  73. !Collection methodsFor: 'converting'!
  74. asArray
  75. ^Array withAll: self
  76. !
  77. asJSON
  78. ^self asArray collect: [:each | each asJSON]
  79. !
  80. asOrderedCollection
  81. ^self asArray
  82. !
  83. asSet
  84. ^Set withAll: self
  85. ! !
  86. !Collection methodsFor: 'copying'!
  87. , aCollection
  88. ^self copy
  89. addAll: aCollection;
  90. yourself
  91. !
  92. copyWith: anObject
  93. ^self copy add: anObject; yourself
  94. !
  95. copyWithAll: aCollection
  96. ^self copy addAll: aCollection; yourself
  97. !
  98. copyWithoutAll: aCollection
  99. "Answer a copy of the receiver that does not contain any elements
  100. equal to those in aCollection."
  101. ^ self reject: [:each | aCollection includes: each]
  102. ! !
  103. !Collection methodsFor: 'enumerating'!
  104. collect: aBlock
  105. | newCollection |
  106. newCollection := self class new.
  107. self do: [:each |
  108. newCollection add: (aBlock value: each)].
  109. ^newCollection
  110. !
  111. detect: aBlock
  112. ^self detect: aBlock ifNone: [self errorNotFound]
  113. !
  114. detect: aBlock ifNone: anotherBlock
  115. <
  116. for(var i = 0; i < self.length; i++)
  117. if(aBlock(self[i]))
  118. return self[i];
  119. return anotherBlock();
  120. >
  121. !
  122. do: aBlock
  123. <for(var i=0;i<self.length;i++){aBlock(self[i]);}>
  124. !
  125. do: aBlock separatedBy: anotherBlock
  126. | first |
  127. first := true.
  128. self do: [:each |
  129. first
  130. ifTrue: [first := false]
  131. ifFalse: [anotherBlock value].
  132. aBlock value: each]
  133. !
  134. inject: anObject into: aBlock
  135. | result |
  136. result := anObject.
  137. self do: [:each |
  138. result := aBlock value: result value: each].
  139. ^result
  140. !
  141. reject: aBlock
  142. ^self select: [:each | (aBlock value: each) = false]
  143. !
  144. select: aBlock
  145. | stream |
  146. stream := self class new writeStream.
  147. self do: [:each |
  148. (aBlock value: each) ifTrue: [
  149. stream nextPut: each]].
  150. ^stream contents
  151. ! !
  152. !Collection methodsFor: 'error handling'!
  153. errorNotFound
  154. self error: 'Object is not in the collection'
  155. ! !
  156. !Collection methodsFor: 'testing'!
  157. ifEmpty: aBlock
  158. "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:
  159. (myProtocol ifEmpty: ['As yet unclassified'])"
  160. ^ self isEmpty
  161. ifTrue: [ aBlock value ]
  162. ifFalse: [ self ]
  163. !
  164. ifNotEmpty: aBlock
  165. self notEmpty ifTrue: aBlock.
  166. !
  167. includes: anObject
  168. <
  169. var i = self.length;
  170. while (i--) {
  171. if (smalltalk.send(self[i], "__eq", [anObject])) {return true;}
  172. }
  173. return false
  174. >
  175. !
  176. isEmpty
  177. ^self size = 0
  178. !
  179. notEmpty
  180. ^self isEmpty not
  181. ! !
  182. !Collection class methodsFor: 'accessing'!
  183. streamClass
  184. ^Stream
  185. ! !
  186. !Collection class methodsFor: 'instance creation'!
  187. new: anInteger
  188. ^self new
  189. !
  190. with: anObject
  191. ^self new
  192. add: anObject;
  193. yourself
  194. !
  195. with: anObject with: anotherObject
  196. ^self new
  197. add: anObject;
  198. add: anotherObject;
  199. yourself
  200. !
  201. with: firstObject with: secondObject with: thirdObject
  202. ^self new
  203. add: firstObject;
  204. add: secondObject;
  205. add: thirdObject;
  206. yourself
  207. !
  208. withAll: aCollection
  209. ^self new
  210. addAll: aCollection;
  211. yourself
  212. ! !
  213. Collection subclass: #HashedCollection
  214. instanceVariableNames: ''
  215. package: 'Kernel-Collections'!
  216. !HashedCollection commentStamp!
  217. A HashedCollection is a traditional JavaScript object, or a Smalltalk Dictionary.
  218. Unlike a Dictionary, it can only have strings as keys.!
  219. !HashedCollection methodsFor: 'accessing'!
  220. associations
  221. | associations |
  222. associations := #().
  223. self keys do: [:each |
  224. associations add: (Association key: each value: (self at: each))].
  225. ^associations
  226. !
  227. at: aKey
  228. ^self at: aKey ifAbsent: [self errorNotFound]
  229. !
  230. at: aKey ifAbsent: aBlock
  231. ^(self includesKey: aKey)
  232. ifTrue: [self basicAt: aKey]
  233. ifFalse: aBlock
  234. !
  235. at: aKey ifAbsentPut: aBlock
  236. ^self at: aKey ifAbsent: [
  237. self at: aKey put: aBlock value]
  238. !
  239. at: aKey ifPresent: aBlock
  240. ^(self basicAt: aKey) ifNotNil: [aBlock value: (self at: aKey)]
  241. !
  242. at: aKey ifPresent: aBlock ifAbsent: anotherBlock
  243. ^(self basicAt: aKey)
  244. ifNil: anotherBlock
  245. ifNotNil: [aBlock value: (self at: aKey)]
  246. !
  247. at: aKey put: aValue
  248. ^self basicAt: aKey put: aValue
  249. !
  250. keys
  251. <
  252. if ('function'===typeof Object.keys) return Object.keys(self);
  253. var keys = [];
  254. for(var i in self) {
  255. if(self.hasOwnProperty(i)) {
  256. keys.push(i);
  257. }
  258. };
  259. return keys;
  260. >
  261. !
  262. size
  263. ^self keys size
  264. !
  265. values
  266. ^self keys collect: [:each | self at: each]
  267. ! !
  268. !HashedCollection methodsFor: 'adding/removing'!
  269. add: anAssociation
  270. self at: anAssociation key put: anAssociation value
  271. !
  272. addAll: aHashedCollection
  273. super addAll: aHashedCollection associations.
  274. ^aHashedCollection
  275. !
  276. remove: aKey ifAbsent: aBlock
  277. ^self removeKey: aKey ifAbsent: aBlock
  278. !
  279. removeKey: aKey
  280. ^self remove: aKey
  281. !
  282. removeKey: aKey ifAbsent: aBlock
  283. ^(self includesKey: aKey)
  284. ifFalse: [aBlock value]
  285. ifTrue: [self basicDelete: aKey]
  286. ! !
  287. !HashedCollection methodsFor: 'comparing'!
  288. = aHashedCollection
  289. self class = aHashedCollection class ifFalse: [^false].
  290. self size = aHashedCollection size ifFalse: [^false].
  291. ^self associations = aHashedCollection associations
  292. ! !
  293. !HashedCollection methodsFor: 'converting'!
  294. asDictionary
  295. ^Dictionary fromPairs: self associations
  296. !
  297. asJSON
  298. | c |
  299. c := self class new.
  300. self keysAndValuesDo: [:key :value |
  301. c at: key put: value asJSON].
  302. ^c
  303. ! !
  304. !HashedCollection methodsFor: 'copying'!
  305. , aCollection
  306. self shouldNotImplement
  307. !
  308. copyFrom: anIndex to: anotherIndex
  309. self shouldNotImplement
  310. !
  311. deepCopy
  312. | copy |
  313. copy := self class new.
  314. self associationsDo: [:each |
  315. copy at: each key put: each value deepCopy].
  316. ^copy
  317. !
  318. shallowCopy
  319. | copy |
  320. copy := self class new.
  321. self associationsDo: [:each |
  322. copy at: each key put: each value].
  323. ^copy
  324. ! !
  325. !HashedCollection methodsFor: 'enumerating'!
  326. associationsDo: aBlock
  327. self associations do: aBlock
  328. !
  329. collect: aBlock
  330. | newDict |
  331. newDict := self class new.
  332. self keysAndValuesDo: [:key :value |
  333. newDict at: key put: (aBlock value: value)].
  334. ^newDict
  335. !
  336. detect: aBlock ifNone: anotherBlock
  337. ^self values detect: aBlock ifNone: anotherBlock
  338. !
  339. do: aBlock
  340. self values do: aBlock
  341. !
  342. includes: anObject
  343. ^self values includes: anObject
  344. !
  345. keysAndValuesDo: aBlock
  346. self associationsDo: [:each |
  347. aBlock value: each key value: each value]
  348. !
  349. select: aBlock
  350. | newDict |
  351. newDict := self class new.
  352. self keysAndValuesDo: [:key :value |
  353. (aBlock value: value) ifTrue: [newDict at: key put: value]].
  354. ^newDict
  355. ! !
  356. !HashedCollection methodsFor: 'printing'!
  357. printString
  358. ^String streamContents: [:aStream|
  359. aStream
  360. nextPutAll: super printString;
  361. nextPutAll: '('.
  362. self associations
  363. do: [:anAssociation|
  364. aStream
  365. nextPutAll: anAssociation key printString;
  366. nextPutAll: ' -> ';
  367. nextPutAll: anAssociation value printString]
  368. separatedBy: [aStream nextPutAll: ' , '].
  369. aStream nextPutAll: ')']
  370. !
  371. storeOn: aStream
  372. aStream nextPutAll: '#{'.
  373. self associations
  374. do: [:each | each storeOn: aStream]
  375. separatedBy: [ aStream nextPutAll: '. '].
  376. aStream nextPutAll: '}'
  377. ! !
  378. !HashedCollection methodsFor: 'testing'!
  379. includesKey: aKey
  380. <return self.hasOwnProperty(aKey)>
  381. ! !
  382. !HashedCollection class methodsFor: 'instance creation'!
  383. fromPairs: aCollection
  384. | dict |
  385. dict := self new.
  386. aCollection do: [:each | dict add: each].
  387. ^dict
  388. ! !
  389. HashedCollection subclass: #Dictionary
  390. instanceVariableNames: 'keys values'
  391. package: 'Kernel-Collections'!
  392. !Dictionary methodsFor: 'accessing'!
  393. at: aKey ifAbsent: aBlock
  394. <
  395. var index;
  396. for(var i=0;i<self['@keys'].length;i++){
  397. if(self['@keys'][i].__eq(aKey)) {index = i;}
  398. };
  399. if(typeof index === 'undefined') {
  400. return aBlock();
  401. } else {
  402. return self['@values'][index];
  403. }
  404. >
  405. !
  406. at: aKey put: aValue
  407. <
  408. var index = self['@keys'].indexOf(aKey);
  409. if(index === -1) {
  410. self['@values'].push(aValue);
  411. self['@keys'].push(aKey);
  412. } else {
  413. self['@values'][index] = aValue;
  414. };
  415. return aValue;
  416. >
  417. !
  418. keys
  419. ^keys copy
  420. !
  421. values
  422. ^values copy
  423. ! !
  424. !Dictionary methodsFor: 'adding/removing'!
  425. removeKey: aKey ifAbsent: aBlock
  426. <
  427. var index = self['@keys'].indexOf(aKey);
  428. if(index === -1) {
  429. return aBlock()
  430. } else {
  431. var value;
  432. self['@keys'].splice(index, 1);
  433. value = self['@values'].splice(index, 1);
  434. return value[0];
  435. };
  436. >
  437. ! !
  438. !Dictionary methodsFor: 'converting'!
  439. asHashedCollection
  440. ^HashedCollection fromPairs: self associations
  441. !
  442. asJSON
  443. ^self asHashedCollection asJSON
  444. ! !
  445. !Dictionary methodsFor: 'initialization'!
  446. initialize
  447. super initialize.
  448. keys := #().
  449. values := #()
  450. ! !
  451. !Dictionary methodsFor: 'testing'!
  452. includesKey: aKey
  453. ^keys includes: aKey
  454. ! !
  455. Collection subclass: #SequenceableCollection
  456. instanceVariableNames: ''
  457. package: 'Kernel-Collections'!
  458. !SequenceableCollection methodsFor: 'accessing'!
  459. allButFirst
  460. ^self copyFrom: 2 to: self size
  461. !
  462. allButLast
  463. ^self copyFrom: 1 to: self size - 1
  464. !
  465. at: anIndex
  466. ^self at: anIndex ifAbsent: [
  467. self errorNotFound]
  468. !
  469. at: anIndex ifAbsent: aBlock
  470. self subclassResponsibility
  471. !
  472. at: anIndex put: anObject
  473. self subclassResponsibility
  474. !
  475. atRandom
  476. ^ self at: self size atRandom
  477. !
  478. first
  479. ^self at: 1
  480. !
  481. first: n
  482. "Answer the first n elements of the receiver.
  483. Raise an error if there are not enough elements."
  484. ^ self copyFrom: 1 to: n
  485. !
  486. fourth
  487. ^self at: 4
  488. !
  489. indexOf: anObject
  490. ^self indexOf: anObject ifAbsent: [self errorNotFound]
  491. !
  492. indexOf: anObject ifAbsent: aBlock
  493. <
  494. for(var i=0;i<self.length;i++){
  495. if(self[i].__eq(anObject)) {return i+1}
  496. }
  497. return aBlock();
  498. >
  499. !
  500. indexOf: anObject startingAt: start
  501. "Answer the index of the first occurence of anElement after start
  502. within the receiver. If the receiver does not contain anElement,
  503. answer 0."
  504. ^self indexOf: anObject startingAt: start ifAbsent: [0]
  505. !
  506. indexOf: anObject startingAt: start ifAbsent: aBlock
  507. <
  508. for(var i=start-1;i<self.length;i++){
  509. if(self[i].__eq(anObject)) {return i+1}
  510. }
  511. return aBlock();
  512. >
  513. !
  514. last
  515. ^self at: self size
  516. !
  517. second
  518. ^self at: 2
  519. !
  520. third
  521. ^self at: 3
  522. ! !
  523. !SequenceableCollection methodsFor: 'adding'!
  524. addLast: anObject
  525. self add: anObject
  526. !
  527. removeLast
  528. self remove: self last
  529. ! !
  530. !SequenceableCollection methodsFor: 'comparing'!
  531. = aCollection
  532. (self class = aCollection class and: [
  533. self size = aCollection size]) ifFalse: [^false].
  534. self withIndexDo: [:each :i |
  535. (aCollection at: i) = each ifFalse: [^false]].
  536. ^true
  537. ! !
  538. !SequenceableCollection methodsFor: 'converting'!
  539. reversed
  540. self subclassResponsibility
  541. ! !
  542. !SequenceableCollection methodsFor: 'copying'!
  543. copyFrom: anIndex to: anotherIndex
  544. | range newCollection |
  545. range := anIndex to: anotherIndex.
  546. newCollection := self class new: range size.
  547. range withIndexDo: [:each :i |
  548. newCollection at: i put: (self at: each)].
  549. ^newCollection
  550. !
  551. deepCopy
  552. | newCollection |
  553. newCollection := self class new: self size.
  554. self withIndexDo: [:each :index |
  555. newCollection at: index put: each deepCopy].
  556. ^newCollection
  557. !
  558. shallowCopy
  559. | newCollection |
  560. newCollection := self class new: self size.
  561. self withIndexDo: [ :each :index |
  562. newCollection at: index put: each].
  563. ^newCollection
  564. ! !
  565. !SequenceableCollection methodsFor: 'enumerating'!
  566. withIndexDo: aBlock
  567. <for(var i=0;i<self.length;i++){aBlock(self[i], i+1);}>
  568. ! !
  569. !SequenceableCollection methodsFor: 'printing'!
  570. printString
  571. | str |
  572. str := '' writeStream.
  573. str nextPutAll: super printString, ' ('.
  574. self
  575. do: [:each | str nextPutAll: each printString]
  576. separatedBy: [str nextPutAll: ' '].
  577. str nextPutAll: ')'.
  578. ^str contents
  579. ! !
  580. SequenceableCollection subclass: #Array
  581. instanceVariableNames: ''
  582. package: 'Kernel-Collections'!
  583. !Array methodsFor: 'accessing'!
  584. at: anIndex ifAbsent: aBlock
  585. <
  586. var value = self[anIndex - 1];
  587. if(value === undefined) {
  588. return aBlock();
  589. } else {
  590. return value;
  591. }
  592. >
  593. !
  594. at: anIndex put: anObject
  595. <return self[anIndex - 1] = anObject>
  596. !
  597. size
  598. <return self.length>
  599. ! !
  600. !Array methodsFor: 'adding/removing'!
  601. add: anObject
  602. <self.push(anObject); return anObject;>
  603. !
  604. remove: anObject
  605. <
  606. for(var i=0;i<self.length;i++) {
  607. if(self[i] == anObject) {
  608. self.splice(i,1);
  609. break;
  610. }
  611. }
  612. >
  613. !
  614. removeFrom: aNumber to: anotherNumber
  615. <self.splice(aNumber - 1,anotherNumber - 1)>
  616. ! !
  617. !Array methodsFor: 'converting'!
  618. asJavascript
  619. ^'[', ((self collect: [:each | each asJavascript]) join: ', '), ']'
  620. !
  621. reversed
  622. <return self._copy().reverse()>
  623. ! !
  624. !Array methodsFor: 'enumerating'!
  625. join: aString
  626. <return self.join(aString)>
  627. !
  628. sort
  629. ^self basicPerform: 'sort'
  630. !
  631. sort: aBlock
  632. <
  633. return self.sort(function(a, b) {
  634. if(aBlock(a,b)) {return -1} else {return 1}
  635. })
  636. >
  637. !
  638. sorted
  639. ^self copy sort
  640. !
  641. sorted: aBlock
  642. ^self copy sort: aBlock
  643. ! !
  644. !Array class methodsFor: 'instance creation'!
  645. new: anInteger
  646. <return new Array(anInteger)>
  647. !
  648. with: anObject
  649. ^(self new: 1)
  650. at: 1 put: anObject;
  651. yourself
  652. !
  653. with: anObject with: anObject2
  654. ^(self new: 2)
  655. at: 1 put: anObject;
  656. at: 2 put: anObject2;
  657. yourself
  658. !
  659. with: anObject with: anObject2 with: anObject3
  660. ^(self new: 3)
  661. at: 1 put: anObject;
  662. at: 2 put: anObject2;
  663. at: 3 put: anObject3;
  664. yourself
  665. !
  666. withAll: aCollection
  667. | instance |
  668. instance := self new: aCollection size.
  669. aCollection withIndexDo: [:each :index |
  670. instance at: index put: each].
  671. ^instance
  672. ! !
  673. SequenceableCollection subclass: #CharacterArray
  674. instanceVariableNames: ''
  675. package: 'Kernel-Collections'!
  676. !CharacterArray methodsFor: 'accessing'!
  677. at: anIndex put: anObject
  678. self errorReadOnly
  679. ! !
  680. !CharacterArray methodsFor: 'adding'!
  681. add: anObject
  682. self errorReadOnly
  683. !
  684. remove: anObject
  685. self errorReadOnly
  686. ! !
  687. !CharacterArray methodsFor: 'converting'!
  688. asLowercase
  689. ^self class fromString: self asString asLowercase
  690. !
  691. asNumber
  692. ^self asString asNumber
  693. !
  694. asString
  695. ^self subclassResponsibility
  696. !
  697. asSymbol
  698. ^self subclassResponsibility
  699. !
  700. asUppercase
  701. ^self class fromString: self asString asUppercase
  702. ! !
  703. !CharacterArray methodsFor: 'copying'!
  704. , aString
  705. ^self asString, aString asString
  706. ! !
  707. !CharacterArray methodsFor: 'error handling'!
  708. errorReadOnly
  709. self error: 'Object is read-only'
  710. ! !
  711. !CharacterArray methodsFor: 'printing'!
  712. printString
  713. ^self asString printString
  714. ! !
  715. !CharacterArray class methodsFor: 'instance creation'!
  716. fromString: aString
  717. self subclassResponsibility
  718. ! !
  719. CharacterArray subclass: #String
  720. instanceVariableNames: ''
  721. package: 'Kernel-Collections'!
  722. !String methodsFor: 'accessing'!
  723. asciiValue
  724. <return self.charCodeAt(0);>
  725. !
  726. at: anIndex ifAbsent: aBlock
  727. <return self[anIndex - 1] || aBlock()>
  728. !
  729. escaped
  730. <return escape(self)>
  731. !
  732. size
  733. <return self.length>
  734. !
  735. unescaped
  736. <return unescape(self)>
  737. ! !
  738. !String methodsFor: 'comparing'!
  739. < aString
  740. <return String(self) < aString._asString()>
  741. !
  742. <= aString
  743. <return String(self) <= aString._asString()>
  744. !
  745. = aString
  746. aString class = self class ifFalse: [^false].
  747. <return String(self) === String(aString)>
  748. !
  749. > aString
  750. <return String(self) >> aString._asString()>
  751. !
  752. >= aString
  753. <return String(self) >>= aString._asString()>
  754. ! !
  755. !String methodsFor: 'converting'!
  756. asJSON
  757. ^self
  758. !
  759. asJavaScriptSelector
  760. ^(self asSelector replace: '^_' with: '') replace: '_.*' with: ''.
  761. !
  762. asJavascript
  763. <
  764. if(self.search(/^[a-zA-Z0-9_:.$ ]*$/) == -1)
  765. return "\"" + self.replace(/[\x00-\x1f"\\\x7f-\x9f]/g, function(ch){var c=ch.charCodeAt(0);return "\\x"+("0"+c.toString(16)).slice(-2)}) + "\"";
  766. else
  767. return "\"" + self + "\"";
  768. >
  769. !
  770. asLowercase
  771. <return self.toLowerCase()>
  772. !
  773. asNumber
  774. <return Number(self)>
  775. !
  776. asSelector
  777. "If you change this method, change smalltalk.convertSelector too (see js/boot.js file)"
  778. | selector |
  779. selector := '_', self.
  780. selector := selector replace: ':' with: '_'.
  781. selector := selector replace: '[+]' with: '_plus'.
  782. selector := selector replace: '-' with: '_minus'.
  783. selector := selector replace: '[*]' with: '_star'.
  784. selector := selector replace: '[/]' with: '_slash'.
  785. selector := selector replace: '>' with: '_gt'.
  786. selector := selector replace: '<' with: '_lt'.
  787. selector := selector replace: '=' with: '_eq'.
  788. selector := selector replace: ',' with: '_comma'.
  789. selector := selector replace: '[@]' with: '_at'.
  790. ^selector
  791. !
  792. asString
  793. ^self
  794. !
  795. asSymbol
  796. ^Symbol lookup: self
  797. !
  798. asUppercase
  799. <return self.toUpperCase()>
  800. !
  801. reversed
  802. <return self.split("").reverse().join("")>
  803. !
  804. tokenize: aString
  805. <return self.split(aString)>
  806. ! !
  807. !String methodsFor: 'copying'!
  808. , aString
  809. <return self + aString>
  810. !
  811. copyFrom: anIndex to: anotherIndex
  812. <return self.substring(anIndex - 1, anotherIndex)>
  813. !
  814. deepCopy
  815. ^self shallowCopy
  816. !
  817. shallowCopy
  818. ^self class fromString: self
  819. ! !
  820. !String methodsFor: 'printing'!
  821. printNl
  822. <console.log(self)>
  823. !
  824. printString
  825. ^'''', self, ''''
  826. ! !
  827. !String methodsFor: 'regular expressions'!
  828. match: aRegexp
  829. <return self.search(aRegexp) !!= -1>
  830. !
  831. replace: aString with: anotherString
  832. ^self replaceRegexp: (RegularExpression fromString: aString flag: 'g') with: anotherString
  833. !
  834. replaceRegexp: aRegexp with: aString
  835. <return self.replace(aRegexp, aString)>
  836. !
  837. trimBoth
  838. ^self trimBoth: '\s'
  839. !
  840. trimBoth: separators
  841. ^(self trimLeft: separators) trimRight: separators
  842. !
  843. trimLeft
  844. ^self trimLeft: '\s'
  845. !
  846. trimLeft: separators
  847. ^self replaceRegexp: (RegularExpression fromString: '^[', separators, ']+' flag: 'g') with: ''
  848. !
  849. trimRight
  850. ^self trimRight: '\s'
  851. !
  852. trimRight: separators
  853. ^self replaceRegexp: (RegularExpression fromString: '[', separators, ']+$' flag: 'g') with: ''
  854. ! !
  855. !String methodsFor: 'split join'!
  856. join: aCollection
  857. ^ String
  858. streamContents: [:stream | aCollection
  859. do: [:each | stream nextPutAll: each asString]
  860. separatedBy: [stream nextPutAll: self]]
  861. !
  862. lineIndicesDo: aBlock
  863. "execute aBlock with 3 arguments for each line:
  864. - start index of line
  865. - end index of line without line delimiter
  866. - end index of line including line delimiter(s) CR, LF or CRLF"
  867. | cr lf start sz nextLF nextCR |
  868. start := 1.
  869. sz := self size.
  870. cr := String cr.
  871. nextCR := self indexOf: cr startingAt: 1.
  872. lf := String lf.
  873. nextLF := self indexOf: lf startingAt: 1.
  874. [ start <= sz ] whileTrue: [
  875. (nextLF = 0 and: [ nextCR = 0 ])
  876. ifTrue: [ "No more CR, nor LF, the string is over"
  877. aBlock value: start value: sz value: sz.
  878. ^self ].
  879. (nextCR = 0 or: [ 0 < nextLF and: [ nextLF < nextCR ] ])
  880. ifTrue: [ "Found a LF"
  881. aBlock value: start value: nextLF - 1 value: nextLF.
  882. start := 1 + nextLF.
  883. nextLF := self indexOf: lf startingAt: start ]
  884. ifFalse: [ 1 + nextCR = nextLF
  885. ifTrue: [ "Found a CR-LF pair"
  886. aBlock value: start value: nextCR - 1 value: nextLF.
  887. start := 1 + nextLF.
  888. nextCR := self indexOf: cr startingAt: start.
  889. nextLF := self indexOf: lf startingAt: start ]
  890. ifFalse: [ "Found a CR"
  891. aBlock value: start value: nextCR - 1 value: nextCR.
  892. start := 1 + nextCR.
  893. nextCR := self indexOf: cr startingAt: start ]]]
  894. !
  895. lineNumber: anIndex
  896. "Answer a string containing the characters in the given line number."
  897. | lineCount |
  898. lineCount := 0.
  899. self lineIndicesDo: [:start :endWithoutDelimiters :end |
  900. (lineCount := lineCount + 1) = anIndex ifTrue: [^self copyFrom: start to: endWithoutDelimiters]].
  901. ^nil
  902. !
  903. lines
  904. "Answer an array of lines composing this receiver without the line ending delimiters."
  905. | lines |
  906. lines := Array new.
  907. self linesDo: [:aLine | lines add: aLine].
  908. ^lines
  909. !
  910. linesDo: aBlock
  911. "Execute aBlock with each line in this string. The terminating line
  912. delimiters CR, LF or CRLF pairs are not included in what is passed to aBlock"
  913. self lineIndicesDo: [:start :endWithoutDelimiters :end |
  914. aBlock value: (self copyFrom: start to: endWithoutDelimiters)]
  915. ! !
  916. !String methodsFor: 'testing'!
  917. includesSubString: subString
  918. < return self.indexOf(subString) !!= -1 >
  919. !
  920. isString
  921. ^true
  922. ! !
  923. !String class methodsFor: 'accessing'!
  924. cr
  925. <return '\r'>
  926. !
  927. crlf
  928. <return '\r\n'>
  929. !
  930. lf
  931. <return '\n'>
  932. !
  933. space
  934. <return ' '>
  935. !
  936. streamClass
  937. ^StringStream
  938. !
  939. tab
  940. <return '\t'>
  941. ! !
  942. !String class methodsFor: 'instance creation'!
  943. fromString: aString
  944. <return new self.fn(aString)>
  945. !
  946. streamContents: blockWithArg
  947. |stream|
  948. stream := (self streamClass on: String new).
  949. blockWithArg value: stream.
  950. ^ stream contents
  951. !
  952. value: aUTFCharCode
  953. <return String.fromCharCode(aUTFCharCode);>
  954. ! !
  955. CharacterArray subclass: #Symbol
  956. instanceVariableNames: ''
  957. package: 'Kernel-Collections'!
  958. !Symbol methodsFor: 'accessing'!
  959. at: anIndex ifAbsent: aBlock
  960. ^self asString at: anIndex ifAbsent: aBlock
  961. !
  962. size
  963. ^self asString size
  964. ! !
  965. !Symbol methodsFor: 'comparing'!
  966. < aSymbol
  967. ^self asString < aSymbol asString
  968. !
  969. <= aSymbol
  970. ^self asString <= aSymbol asString
  971. !
  972. = aSymbol
  973. aSymbol class = self class ifFalse: [^false].
  974. ^self asString = aSymbol asString
  975. !
  976. > aSymbol
  977. ^self asString > aSymbol asString
  978. !
  979. >= aSymbol
  980. ^self asString >= aSymbol asString
  981. ! !
  982. !Symbol methodsFor: 'converting'!
  983. asJSON
  984. ^self asString asJSON
  985. !
  986. asJavascript
  987. ^'smalltalk.symbolFor("', self asString, '")'
  988. !
  989. asSelector
  990. ^self asString asSelector
  991. !
  992. asString
  993. <return self.value>
  994. !
  995. asSymbol
  996. ^self
  997. ! !
  998. !Symbol methodsFor: 'copying'!
  999. copyFrom: anIndex to: anotherIndex
  1000. ^self class fromString: (self asString copyFrom: anIndex to: anotherIndex)
  1001. !
  1002. deepCopy
  1003. ^self
  1004. !
  1005. shallowCopy
  1006. ^self
  1007. ! !
  1008. !Symbol methodsFor: 'printing'!
  1009. isSymbol
  1010. ^true
  1011. !
  1012. printString
  1013. ^'#', self asString
  1014. ! !
  1015. !Symbol class methodsFor: 'instance creation'!
  1016. basicNew
  1017. self shouldNotImplement
  1018. !
  1019. fromString: aString
  1020. ^self lookup: aString
  1021. !
  1022. lookup: aString
  1023. <return smalltalk.symbolFor(aString);>
  1024. ! !
  1025. Collection subclass: #Set
  1026. instanceVariableNames: 'elements'
  1027. package: 'Kernel-Collections'!
  1028. !Set methodsFor: 'accessing'!
  1029. size
  1030. ^elements size
  1031. ! !
  1032. !Set methodsFor: 'adding/removing'!
  1033. add: anObject
  1034. <
  1035. var found;
  1036. for(var i=0; i < self['@elements'].length; i++) {
  1037. if(anObject == self['@elements'][i]) {
  1038. found = true;
  1039. break;
  1040. }
  1041. }
  1042. if(!!found) {self['@elements'].push(anObject)}
  1043. >
  1044. !
  1045. remove: anObject
  1046. elements remove: anObject
  1047. ! !
  1048. !Set methodsFor: 'comparing'!
  1049. = aCollection
  1050. ^self class = aCollection class and: [
  1051. elements = aCollection asArray]
  1052. ! !
  1053. !Set methodsFor: 'converting'!
  1054. asArray
  1055. ^elements copy
  1056. ! !
  1057. !Set methodsFor: 'enumerating'!
  1058. detect: aBlock ifNone: anotherBlock
  1059. ^elements detect: aBlock ifNone: anotherBlock
  1060. !
  1061. do: aBlock
  1062. elements do: aBlock
  1063. !
  1064. select: aBlock
  1065. | collection |
  1066. collection := self class new.
  1067. self do: [:each |
  1068. (aBlock value: each) ifTrue: [
  1069. collection add: each]].
  1070. ^collection
  1071. ! !
  1072. !Set methodsFor: 'initialization'!
  1073. initialize
  1074. super initialize.
  1075. elements := #()
  1076. ! !
  1077. !Set methodsFor: 'testing'!
  1078. includes: anObject
  1079. ^elements includes: anObject
  1080. ! !
  1081. Object subclass: #RegularExpression
  1082. instanceVariableNames: ''
  1083. package: 'Kernel-Collections'!
  1084. !RegularExpression methodsFor: 'evaluating'!
  1085. compile: aString
  1086. <return self.compile(aString)>
  1087. !
  1088. exec: aString
  1089. <return self.exec(aString) || nil>
  1090. !
  1091. test: aString
  1092. <return self.test(aString)>
  1093. ! !
  1094. !RegularExpression class methodsFor: 'instance creation'!
  1095. fromString: aString
  1096. ^self fromString: aString flag: ''
  1097. !
  1098. fromString: aString flag: anotherString
  1099. <return new RegExp(aString, anotherString)>
  1100. ! !
  1101. Object subclass: #Stream
  1102. instanceVariableNames: 'collection position streamSize'
  1103. package: 'Kernel-Collections'!
  1104. !Stream methodsFor: 'accessing'!
  1105. collection
  1106. ^collection
  1107. !
  1108. contents
  1109. ^self collection
  1110. copyFrom: 1
  1111. to: self streamSize
  1112. !
  1113. position
  1114. ^position ifNil: [position := 0]
  1115. !
  1116. position: anInteger
  1117. position := anInteger
  1118. !
  1119. setCollection: aCollection
  1120. collection := aCollection
  1121. !
  1122. setStreamSize: anInteger
  1123. streamSize := anInteger
  1124. !
  1125. size
  1126. ^self streamSize
  1127. !
  1128. streamSize
  1129. ^streamSize
  1130. ! !
  1131. !Stream methodsFor: 'actions'!
  1132. close
  1133. !
  1134. flush
  1135. !
  1136. reset
  1137. self position: 0
  1138. !
  1139. resetContents
  1140. self reset.
  1141. self setStreamSize: 0
  1142. ! !
  1143. !Stream methodsFor: 'enumerating'!
  1144. do: aBlock
  1145. [self atEnd] whileFalse: [aBlock value: self next]
  1146. ! !
  1147. !Stream methodsFor: 'positioning'!
  1148. setToEnd
  1149. self position: self size
  1150. !
  1151. skip: anInteger
  1152. self position: ((self position + anInteger) min: self size max: 0)
  1153. ! !
  1154. !Stream methodsFor: 'reading'!
  1155. next
  1156. ^self atEnd
  1157. ifTrue: [nil]
  1158. ifFalse: [
  1159. self position: self position + 1.
  1160. collection at: self position]
  1161. !
  1162. next: anInteger
  1163. | tempCollection |
  1164. tempCollection := self collection class new.
  1165. anInteger timesRepeat: [
  1166. self atEnd ifFalse: [
  1167. tempCollection add: self next]].
  1168. ^tempCollection
  1169. !
  1170. peek
  1171. ^self atEnd ifFalse: [
  1172. self collection at: self position + 1]
  1173. ! !
  1174. !Stream methodsFor: 'testing'!
  1175. atEnd
  1176. ^self position = self size
  1177. !
  1178. atStart
  1179. ^self position = 0
  1180. !
  1181. isEmpty
  1182. ^self size = 0
  1183. ! !
  1184. !Stream methodsFor: 'writing'!
  1185. nextPut: anObject
  1186. self position: self position + 1.
  1187. self collection at: self position put: anObject.
  1188. self setStreamSize: (self streamSize max: self position)
  1189. !
  1190. nextPutAll: aCollection
  1191. aCollection do: [:each |
  1192. self nextPut: each]
  1193. ! !
  1194. !Stream class methodsFor: 'instance creation'!
  1195. on: aCollection
  1196. ^self new
  1197. setCollection: aCollection;
  1198. setStreamSize: aCollection size;
  1199. yourself
  1200. ! !
  1201. Stream subclass: #StringStream
  1202. instanceVariableNames: ''
  1203. package: 'Kernel-Collections'!
  1204. !StringStream methodsFor: 'reading'!
  1205. next: anInteger
  1206. | tempCollection |
  1207. tempCollection := self collection class new.
  1208. anInteger timesRepeat: [
  1209. self atEnd ifFalse: [
  1210. tempCollection := tempCollection, self next]].
  1211. ^tempCollection
  1212. ! !
  1213. !StringStream methodsFor: 'writing'!
  1214. cr
  1215. ^self nextPutAll: String cr
  1216. !
  1217. crlf
  1218. ^self nextPutAll: String crlf
  1219. !
  1220. lf
  1221. ^self nextPutAll: String lf
  1222. !
  1223. nextPut: aString
  1224. self nextPutAll: aString
  1225. !
  1226. nextPutAll: aString
  1227. self setCollection:
  1228. (self collection copyFrom: 1 to: self position),
  1229. aString,
  1230. (self collection copyFrom: (self position + 1 + aString size) to: self collection size).
  1231. self position: self position + aString size.
  1232. self setStreamSize: (self streamSize max: self position)
  1233. !
  1234. space
  1235. self nextPut: ' '
  1236. ! !