Kernel-Objects.st 22 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394
  1. Smalltalk createPackage: 'Kernel-Objects'!
  2. nil subclass: #ProtoObject
  3. instanceVariableNames: ''
  4. package: 'Kernel-Objects'!
  5. !ProtoObject commentStamp!
  6. I implement the basic behavior required for any object in Amber.
  7. In most cases, subclassing `ProtoObject` is wrong and `Object` should be used instead. However subclassing `ProtoObject` can be useful in some special cases like proxy implementations.!
  8. !ProtoObject methodsFor: 'accessing'!
  9. class
  10. <return self.klass>
  11. !
  12. identityHash
  13. <
  14. var hash=self.identityHash;
  15. if (hash) return hash;
  16. hash=$core.nextId();
  17. Object.defineProperty(self, 'identityHash', {value:hash});
  18. return hash;
  19. >
  20. !
  21. instVarAt: aString
  22. < return self['@'+aString] >
  23. !
  24. instVarAt: aString put: anObject
  25. < self['@' + aString] = anObject >
  26. !
  27. yourself
  28. ^ self
  29. ! !
  30. !ProtoObject methodsFor: 'comparing'!
  31. = anObject
  32. ^ self == anObject
  33. !
  34. == anObject
  35. ^ self identityHash = anObject identityHash
  36. !
  37. ~= anObject
  38. ^ (self = anObject) = false
  39. !
  40. ~~ anObject
  41. ^ (self == anObject) = false
  42. ! !
  43. !ProtoObject methodsFor: 'converting'!
  44. asString
  45. ^ self printString
  46. ! !
  47. !ProtoObject methodsFor: 'error handling'!
  48. doesNotUnderstand: aMessage
  49. MessageNotUnderstood new
  50. receiver: self;
  51. message: aMessage;
  52. signal
  53. ! !
  54. !ProtoObject methodsFor: 'evaluating'!
  55. evaluate: aString on: anEvaluator
  56. ^ anEvaluator evaluate: aString receiver: self
  57. ! !
  58. !ProtoObject methodsFor: 'initialization'!
  59. initialize
  60. ! !
  61. !ProtoObject methodsFor: 'inspecting'!
  62. inspect
  63. Inspector inspect: self
  64. !
  65. inspectOn: anInspector
  66. ! !
  67. !ProtoObject methodsFor: 'message handling'!
  68. perform: aString
  69. ^ self perform: aString withArguments: #()
  70. !
  71. perform: aString withArguments: aCollection
  72. <return $core.send(self, aString._asJavaScriptMethodName(), aCollection)>
  73. ! !
  74. !ProtoObject methodsFor: 'printing'!
  75. printOn: aStream
  76. aStream nextPutAll: (self class name first isVowel
  77. ifTrue: [ 'an ' ]
  78. ifFalse: [ 'a ' ]).
  79. aStream nextPutAll: self class name
  80. !
  81. printString
  82. ^ String streamContents: [ :str |
  83. self printOn: str ]
  84. ! !
  85. !ProtoObject methodsFor: 'testing'!
  86. isKindOf: aClass
  87. ^ (self isMemberOf: aClass)
  88. ifTrue: [ true ]
  89. ifFalse: [ self class inheritsFrom: aClass ]
  90. ! !
  91. !ProtoObject class methodsFor: 'initialization'!
  92. initialize
  93. ! !
  94. ProtoObject subclass: #Object
  95. instanceVariableNames: ''
  96. package: 'Kernel-Objects'!
  97. !Object commentStamp!
  98. **I am the root of the Smalltalk class system**. With the exception of unual subclasses of `ProtoObject`, all other classes in the system are subclasses of me.
  99. I provide default behavior common to all normal objects (some of it inherited from `ProtoObject`), such as:
  100. - accessing
  101. - copying
  102. - comparison
  103. - error handling
  104. - message sending
  105. - reflection
  106. Also utility messages that all objects should respond to are defined here.
  107. I have no instance variable.
  108. ##Access
  109. Instance variables can be accessed with `#instVarAt:` and `#instVarAt:put:`. `#instanceVariableNames` answers a collection of all instance variable names.
  110. Accessing JavaScript properties of an object is done through `#basicAt:`, `#basicAt:put:` and `basicDelete:`.
  111. ##Copying
  112. Copying an object is handled by `#copy` and `#deepCopy`. The first one performs a shallow copy of the receiver, while the second one performs a deep copy.
  113. The hook method `#postCopy` can be overriden in subclasses to copy fields as necessary to complete the full copy. It will be sent by the copy of the receiver.
  114. ##Comparison
  115. I understand equality `#=` and identity `#==` comparison.
  116. ##Error handling
  117. - `#halt` is the typical message to use for inserting breakpoints during debugging.
  118. - `#error:` throws a generic error exception
  119. - `#doesNotUnderstand:` handles the fact that there was an attempt to send the given message to the receiver but the receiver does not understand this message.
  120. Overriding this message can be useful to implement proxies for example.!
  121. !Object methodsFor: 'accessing'!
  122. basicAt: aString
  123. <return self[aString]>
  124. !
  125. basicAt: aString put: anObject
  126. <return self[aString] = anObject>
  127. !
  128. basicDelete: aString
  129. <delete self[aString]; return aString>
  130. !
  131. size
  132. self error: 'Object not indexable'
  133. !
  134. value
  135. <return self.valueOf()>
  136. ! !
  137. !Object methodsFor: 'browsing'!
  138. browse
  139. Finder findClass: self class
  140. ! !
  141. !Object methodsFor: 'converting'!
  142. -> anObject
  143. ^ Association key: self value: anObject
  144. !
  145. asJSON
  146. | variables |
  147. variables := HashedCollection new.
  148. self class allInstanceVariableNames do: [ :each |
  149. variables at: each put: (self instVarAt: each) asJSON ].
  150. ^ variables
  151. !
  152. asJSONString
  153. ^ JSON stringify: self asJSON
  154. !
  155. asJavascript
  156. ^ self asString
  157. ! !
  158. !Object methodsFor: 'copying'!
  159. copy
  160. ^ self shallowCopy postCopy
  161. !
  162. deepCopy
  163. <
  164. var copy = self.klass._new();
  165. Object.keys(self).forEach(function (i) {
  166. if(/^@.+/.test(i)) {
  167. copy[i] = self[i]._deepCopy();
  168. }
  169. });
  170. return copy;
  171. >
  172. !
  173. postCopy
  174. !
  175. shallowCopy
  176. <
  177. var copy = self.klass._new();
  178. Object.keys(self).forEach(function(i) {
  179. if(/^@.+/.test(i)) {
  180. copy[i] = self[i];
  181. }
  182. });
  183. return copy;
  184. >
  185. ! !
  186. !Object methodsFor: 'error handling'!
  187. deprecatedAPI
  188. "Just a simple way to deprecate methods.
  189. #deprecatedAPI is in the 'error handling' protocol even if it doesn't throw an error,
  190. but it could in the future."
  191. console warn: thisContext home asString, ' is deprecated!! (in ', thisContext home home asString, ')'.
  192. !
  193. deprecatedAPI: aString
  194. "Just a simple way to deprecate methods.
  195. #deprecatedAPI is in the 'error handling' protocol even if it doesn't throw an error,
  196. but it could in the future."
  197. console warn: thisContext home asString, ' is deprecated!! (in ', thisContext home home asString, ')'.
  198. console warn: aString
  199. !
  200. error: aString
  201. Error signal: aString
  202. !
  203. halt
  204. Halt signal
  205. !
  206. shouldNotImplement
  207. self error: 'This method should not be implemented in ', self class name
  208. !
  209. subclassResponsibility
  210. self error: 'This method is a responsibility of a subclass'
  211. !
  212. throw: anObject
  213. < throw anObject >
  214. !
  215. try: aBlock catch: anotherBlock
  216. self deprecatedAPI.
  217. ^ aBlock tryCatch: anotherBlock
  218. ! !
  219. !Object methodsFor: 'inspecting'!
  220. inspectOn: anInspector
  221. | variables |
  222. variables := Dictionary new.
  223. variables at: '#self' put: self.
  224. self class allInstanceVariableNames do: [ :each |
  225. variables at: each put: (self instVarAt: each) ].
  226. anInspector
  227. setLabel: self printString;
  228. setVariables: variables
  229. ! !
  230. !Object methodsFor: 'message handling'!
  231. basicPerform: aString
  232. ^ self basicPerform: aString withArguments: #()
  233. !
  234. basicPerform: aString withArguments: aCollection
  235. <return self[aString].apply(self, aCollection);>
  236. ! !
  237. !Object methodsFor: 'streaming'!
  238. putOn: aStream
  239. aStream nextPut: self
  240. ! !
  241. !Object methodsFor: 'testing'!
  242. ifNil: aBlock
  243. "inlined in the Compiler"
  244. ^ self
  245. !
  246. ifNil: aBlock ifNotNil: anotherBlock
  247. "inlined in the Compiler"
  248. ^ anotherBlock value: self
  249. !
  250. ifNotNil: aBlock
  251. "inlined in the Compiler"
  252. ^ aBlock value: self
  253. !
  254. ifNotNil: aBlock ifNil: anotherBlock
  255. "inlined in the Compiler"
  256. ^ aBlock value: self
  257. !
  258. isBehavior
  259. ^ false
  260. !
  261. isBoolean
  262. ^ false
  263. !
  264. isClass
  265. ^ false
  266. !
  267. isCompiledMethod
  268. ^ false
  269. !
  270. isImmutable
  271. ^ false
  272. !
  273. isMemberOf: aClass
  274. ^ self class = aClass
  275. !
  276. isMetaclass
  277. ^ false
  278. !
  279. isNil
  280. ^ false
  281. !
  282. isNumber
  283. ^ false
  284. !
  285. isPackage
  286. ^ false
  287. !
  288. isParseFailure
  289. ^ false
  290. !
  291. isString
  292. ^ false
  293. !
  294. isSymbol
  295. ^ false
  296. !
  297. notNil
  298. ^ self isNil not
  299. !
  300. respondsTo: aSelector
  301. ^ self class canUnderstand: aSelector
  302. ! !
  303. !Object class methodsFor: 'helios'!
  304. accessorProtocolWith: aGenerator
  305. aGenerator accessorProtocolForObject
  306. !
  307. accessorsSourceCodesWith: aGenerator
  308. aGenerator accessorsForObject
  309. !
  310. initializeProtocolWith: aGenerator
  311. aGenerator initializeProtocolForObject
  312. !
  313. initializeSourceCodesWith: aGenerator
  314. aGenerator initializeForObject
  315. ! !
  316. !Object class methodsFor: 'initialization'!
  317. initialize
  318. "no op"
  319. ! !
  320. Object subclass: #Boolean
  321. instanceVariableNames: ''
  322. package: 'Kernel-Objects'!
  323. !Boolean commentStamp!
  324. I define the protocol for logic testing operations and conditional control structures for the logical values (see the `controlling` protocol).
  325. I have two instances, `true` and `false`.
  326. I am directly mapped to JavaScript Boolean. The `true` and `false` objects are the JavaScript boolean objects.
  327. ## Usage Example:
  328. aBoolean not ifTrue: [ ... ] ifFalse: [ ... ]!
  329. !Boolean methodsFor: 'comparing'!
  330. = aBoolean
  331. <
  332. return aBoolean !!= null &&
  333. typeof aBoolean._isBoolean === "function" &&
  334. aBoolean._isBoolean() &&
  335. Boolean(self == true) == aBoolean
  336. >
  337. !
  338. == aBoolean
  339. ^ self = aBoolean
  340. ! !
  341. !Boolean methodsFor: 'controlling'!
  342. & aBoolean
  343. <
  344. if(self == true) {
  345. return aBoolean;
  346. } else {
  347. return false;
  348. }
  349. >
  350. !
  351. and: aBlock
  352. ^ self = true
  353. ifTrue: aBlock
  354. ifFalse: [ false ]
  355. !
  356. ifFalse: aBlock
  357. "inlined in the Compiler"
  358. ^ self ifTrue: [] ifFalse: aBlock
  359. !
  360. ifFalse: aBlock ifTrue: anotherBlock
  361. "inlined in the Compiler"
  362. ^ self ifTrue: anotherBlock ifFalse: aBlock
  363. !
  364. ifTrue: aBlock
  365. "inlined in the Compiler"
  366. ^ self ifTrue: aBlock ifFalse: []
  367. !
  368. ifTrue: aBlock ifFalse: anotherBlock
  369. "inlined in the Compiler"
  370. <
  371. if(self == true) {
  372. return aBlock._value();
  373. } else {
  374. return anotherBlock._value();
  375. }
  376. >
  377. !
  378. not
  379. ^ self = false
  380. !
  381. or: aBlock
  382. ^ self = true
  383. ifTrue: [ true ]
  384. ifFalse: aBlock
  385. !
  386. | aBoolean
  387. <
  388. if(self == true) {
  389. return true;
  390. } else {
  391. return aBoolean;
  392. }
  393. >
  394. ! !
  395. !Boolean methodsFor: 'converting'!
  396. asBit
  397. ^ self ifTrue: [ 1 ] ifFalse: [ 0 ]
  398. !
  399. asJSON
  400. ^ self
  401. !
  402. asString
  403. < return self.toString() >
  404. ! !
  405. !Boolean methodsFor: 'copying'!
  406. deepCopy
  407. ^ self
  408. !
  409. shallowCopy
  410. ^ self
  411. ! !
  412. !Boolean methodsFor: 'printing'!
  413. printOn: aStream
  414. aStream nextPutAll: self asString
  415. ! !
  416. !Boolean methodsFor: 'testing'!
  417. isBoolean
  418. ^ true
  419. !
  420. isImmutable
  421. ^ true
  422. ! !
  423. Object subclass: #Date
  424. instanceVariableNames: ''
  425. package: 'Kernel-Objects'!
  426. !Date commentStamp!
  427. I am used to work with both dates and times. Therefore `Date today` and `Date now` are both valid in
  428. Amber and answer the same date object.
  429. Date directly maps to the `Date()` JavaScript constructor, and Amber date objects are JavaScript date objects.
  430. ## API
  431. The class-side `instance creation` protocol contains some convenience methods for creating date/time objects such as `#fromSeconds:`.
  432. Arithmetic and comparison is supported (see the `comparing` and `arithmetic` protocols).
  433. The `converting` protocol provides convenience methods for various convertions (to numbers, strings, etc.).!
  434. !Date methodsFor: 'accessing'!
  435. day
  436. ^ self dayOfWeek
  437. !
  438. day: aNumber
  439. self dayOfWeek: aNumber
  440. !
  441. dayOfMonth
  442. <return self.getDate()>
  443. !
  444. dayOfMonth: aNumber
  445. <self.setDate(aNumber)>
  446. !
  447. dayOfWeek
  448. <return self.getDay() + 1>
  449. !
  450. dayOfWeek: aNumber
  451. <return self.setDay(aNumber - 1)>
  452. !
  453. hours
  454. <return self.getHours()>
  455. !
  456. hours: aNumber
  457. <self.setHours(aNumber)>
  458. !
  459. milliseconds
  460. <return self.getMilliseconds()>
  461. !
  462. milliseconds: aNumber
  463. <self.setMilliseconds(aNumber)>
  464. !
  465. minutes
  466. <return self.getMinutes()>
  467. !
  468. minutes: aNumber
  469. <self.setMinutes(aNumber)>
  470. !
  471. month
  472. <return self.getMonth() + 1>
  473. !
  474. month: aNumber
  475. <self.setMonth(aNumber - 1)>
  476. !
  477. seconds
  478. <return self.getSeconds()>
  479. !
  480. seconds: aNumber
  481. <self.setSeconds(aNumber)>
  482. !
  483. time
  484. <return self.getTime()>
  485. !
  486. time: aNumber
  487. <self.setTime(aNumber)>
  488. !
  489. year
  490. <return self.getFullYear()>
  491. !
  492. year: aNumber
  493. <self.setFullYear(aNumber)>
  494. ! !
  495. !Date methodsFor: 'arithmetic'!
  496. + aDate
  497. <return self + aDate>
  498. !
  499. - aDate
  500. <return self - aDate>
  501. ! !
  502. !Date methodsFor: 'comparing'!
  503. < aDate
  504. <return self < aDate>
  505. !
  506. <= aDate
  507. <return self <= aDate>
  508. !
  509. > aDate
  510. <return self >> aDate>
  511. !
  512. >= aDate
  513. <return self >>= aDate>
  514. ! !
  515. !Date methodsFor: 'converting'!
  516. asDateString
  517. <return self.toDateString()>
  518. !
  519. asLocaleString
  520. <return self.toLocaleString()>
  521. !
  522. asMilliseconds
  523. ^ self time
  524. !
  525. asNumber
  526. ^ self asMilliseconds
  527. !
  528. asString
  529. <return self.toString()>
  530. !
  531. asTimeString
  532. <return self.toTimeString()>
  533. ! !
  534. !Date methodsFor: 'printing'!
  535. printOn: aStream
  536. aStream nextPutAll: self asString
  537. ! !
  538. !Date class methodsFor: 'helios'!
  539. heliosClass
  540. ^ 'magnitude'
  541. ! !
  542. !Date class methodsFor: 'instance creation'!
  543. fromMilliseconds: aNumber
  544. ^ self new: aNumber
  545. !
  546. fromSeconds: aNumber
  547. ^ self fromMilliseconds: aNumber * 1000
  548. !
  549. fromString: aString
  550. "Example: Date fromString('2011/04/15 00:00:00')"
  551. ^ self new: aString
  552. !
  553. millisecondsToRun: aBlock
  554. | t |
  555. t := Date now.
  556. aBlock value.
  557. ^ Date now - t
  558. !
  559. new: anObject
  560. <return new Date(anObject)>
  561. !
  562. now
  563. ^ self today
  564. !
  565. today
  566. ^ self new
  567. ! !
  568. Object subclass: #Number
  569. instanceVariableNames: ''
  570. package: 'Kernel-Objects'!
  571. !Number commentStamp!
  572. I am the Amber representation for all numbers.
  573. I am directly mapped to JavaScript Number.
  574. ## API
  575. I provide all necessary methods for arithmetic operations, comparison, conversion and so on with numbers.
  576. My instances can also be used to evaluate a block a fixed number of times:
  577. 5 timesRepeat: [ Transcript show: 'This will be printed 5 times'; cr ].
  578. 1 to: 5 do: [ :aNumber| Transcript show: aNumber asString; cr ].
  579. 1 to: 10 by: 2 do: [ :aNumber| Transcript show: aNumber asString; cr ].!
  580. !Number methodsFor: 'accessing'!
  581. identityHash
  582. ^ self asString, 'n'
  583. ! !
  584. !Number methodsFor: 'arithmetic'!
  585. * aNumber
  586. "Inlined in the Compiler"
  587. <return self * aNumber>
  588. !
  589. + aNumber
  590. "Inlined in the Compiler"
  591. <return self + aNumber>
  592. !
  593. - aNumber
  594. "Inlined in the Compiler"
  595. <return self - aNumber>
  596. !
  597. / aNumber
  598. "Inlined in the Compiler"
  599. <return self / aNumber>
  600. !
  601. // aNumber
  602. ^ (self / aNumber) floor
  603. !
  604. \\ aNumber
  605. <return self % aNumber>
  606. !
  607. abs
  608. <return Math.abs(self);>
  609. !
  610. max: aNumber
  611. <return Math.max(self, aNumber);>
  612. !
  613. min: aNumber
  614. <return Math.min(self, aNumber);>
  615. !
  616. negated
  617. ^ 0 - self
  618. ! !
  619. !Number methodsFor: 'comparing'!
  620. < aNumber
  621. "Inlined in the Compiler"
  622. <return self < aNumber>
  623. !
  624. <= aNumber
  625. "Inlined in the Compiler"
  626. <return self <= aNumber>
  627. !
  628. = aNumber
  629. <
  630. return aNumber !!= null &&
  631. typeof aNumber._isNumber === "function" &&
  632. aNumber._isNumber() &&
  633. Number(self) == aNumber
  634. >
  635. !
  636. > aNumber
  637. "Inlined in the Compiler"
  638. <return self >> aNumber>
  639. !
  640. >= aNumber
  641. "Inlined in the Compiler"
  642. <return self >>= aNumber>
  643. ! !
  644. !Number methodsFor: 'converting'!
  645. & aNumber
  646. <return self & aNumber>
  647. !
  648. @ aNumber
  649. ^ Point x: self y: aNumber
  650. !
  651. asJSON
  652. ^ self
  653. !
  654. asJavascript
  655. ^ '(', self printString, ')'
  656. !
  657. asNumber
  658. ^ self
  659. !
  660. asPoint
  661. ^ Point x: self y: self
  662. !
  663. asString
  664. < return String(self) >
  665. !
  666. atRandom
  667. ^ (Random new next * self) truncated + 1
  668. !
  669. ceiling
  670. <return Math.ceil(self);>
  671. !
  672. floor
  673. <return Math.floor(self);>
  674. !
  675. rounded
  676. <return Math.round(self);>
  677. !
  678. to: aNumber
  679. | array first last count |
  680. first := self truncated.
  681. last := aNumber truncated + 1.
  682. count := 1.
  683. array := Array new.
  684. (last - first) timesRepeat: [
  685. array at: count put: first.
  686. count := count + 1.
  687. first := first + 1 ].
  688. ^ array
  689. !
  690. to: stop by: step
  691. | array value pos |
  692. value := self.
  693. array := Array new.
  694. pos := 1.
  695. step = 0 ifTrue: [ self error: 'step must be non-zero' ].
  696. step < 0
  697. ifTrue: [ [ value >= stop ] whileTrue: [
  698. array at: pos put: value.
  699. pos := pos + 1.
  700. value := value + step ]]
  701. ifFalse: [ [ value <= stop ] whileTrue: [
  702. array at: pos put: value.
  703. pos := pos + 1.
  704. value := value + step ]].
  705. ^ array
  706. !
  707. truncated
  708. <
  709. if(self >>= 0) {
  710. return Math.floor(self);
  711. } else {
  712. return Math.floor(self * (-1)) * (-1);
  713. };
  714. >
  715. !
  716. | aNumber
  717. <return self | aNumber>
  718. ! !
  719. !Number methodsFor: 'copying'!
  720. copy
  721. ^ self
  722. !
  723. deepCopy
  724. ^ self copy
  725. ! !
  726. !Number methodsFor: 'enumerating'!
  727. timesRepeat: aBlock
  728. | count |
  729. count := 1.
  730. [ count > self ] whileFalse: [
  731. aBlock value.
  732. count := count + 1 ]
  733. !
  734. to: stop by: step do: aBlock
  735. | value |
  736. value := self.
  737. step = 0 ifTrue: [ self error: 'step must be non-zero' ].
  738. step < 0
  739. ifTrue: [ [ value >= stop ] whileTrue: [
  740. aBlock value: value.
  741. value := value + step ]]
  742. ifFalse: [ [ value <= stop ] whileTrue: [
  743. aBlock value: value.
  744. value := value + step ]]
  745. !
  746. to: stop do: aBlock
  747. "Evaluate aBlock for each number from self to aNumber."
  748. | nextValue |
  749. nextValue := self.
  750. [ nextValue <= stop ]
  751. whileTrue:
  752. [ aBlock value: nextValue.
  753. nextValue := nextValue + 1 ]
  754. ! !
  755. !Number methodsFor: 'mathematical functions'!
  756. ** exponent
  757. ^ self raisedTo: exponent
  758. !
  759. arcCos
  760. <return Math.acos(self);>
  761. !
  762. arcSin
  763. <return Math.asin(self);>
  764. !
  765. arcTan
  766. <return Math.atan(self);>
  767. !
  768. cos
  769. <return Math.cos(self);>
  770. !
  771. ln
  772. <return Math.log(self);>
  773. !
  774. log
  775. <return Math.log(self) / Math.LN10;>
  776. !
  777. log: aNumber
  778. <return Math.log(self) / Math.log(aNumber);>
  779. !
  780. raisedTo: exponent
  781. <return Math.pow(self, exponent);>
  782. !
  783. sign
  784. self isZero
  785. ifTrue: [ ^ 0 ].
  786. self positive
  787. ifTrue: [ ^ 1 ]
  788. ifFalse: [ ^ -1 ].
  789. !
  790. sin
  791. <return Math.sin(self);>
  792. !
  793. sqrt
  794. <return Math.sqrt(self)>
  795. !
  796. squared
  797. ^ self * self
  798. !
  799. tan
  800. <return Math.tan(self);>
  801. ! !
  802. !Number methodsFor: 'printing'!
  803. printOn: aStream
  804. aStream nextPutAll: self asString
  805. !
  806. printShowingDecimalPlaces: placesDesired
  807. <return self.toFixed(placesDesired)>
  808. ! !
  809. !Number methodsFor: 'testing'!
  810. even
  811. ^ 0 = (self \\ 2)
  812. !
  813. isImmutable
  814. ^ true
  815. !
  816. isNumber
  817. ^ true
  818. !
  819. isZero
  820. ^ self = 0
  821. !
  822. negative
  823. "Answer whether the receiver is mathematically negative."
  824. ^ self < 0
  825. !
  826. odd
  827. ^ self even not
  828. !
  829. positive
  830. "Answer whether the receiver is positive or equal to 0. (ST-80 protocol)."
  831. ^ self >= 0
  832. ! !
  833. !Number class methodsFor: 'helios'!
  834. heliosClass
  835. ^ 'magnitude'
  836. ! !
  837. !Number class methodsFor: 'instance creation'!
  838. e
  839. <return Math.E;>
  840. !
  841. pi
  842. <return Math.PI>
  843. ! !
  844. Object subclass: #Point
  845. instanceVariableNames: 'x y'
  846. package: 'Kernel-Objects'!
  847. !Point commentStamp!
  848. I represent an x-y pair of numbers usually designating a geometric coordinate.
  849. ## API
  850. Instances are traditionally created using the binary `#@` message to a number:
  851. 100@120
  852. Points can then be arithmetically manipulated:
  853. 100@100 + (10@10)
  854. ...or for example:
  855. (100@100) * 2
  856. **NOTE:** Creating a point with a negative y-value will need a space after `@` in order to avoid a parsing error:
  857. 100@ -100 "but 100@-100 would not parse"!
  858. !Point methodsFor: 'accessing'!
  859. x
  860. ^ x
  861. !
  862. x: aNumber
  863. x := aNumber
  864. !
  865. y
  866. ^ y
  867. !
  868. y: aNumber
  869. y := aNumber
  870. ! !
  871. !Point methodsFor: 'arithmetic'!
  872. * aPoint
  873. ^ Point x: self x * aPoint asPoint x y: self y * aPoint asPoint y
  874. !
  875. + aPoint
  876. ^ Point x: self x + aPoint asPoint x y: self y + aPoint asPoint y
  877. !
  878. - aPoint
  879. ^ Point x: self x - aPoint asPoint x y: self y - aPoint asPoint y
  880. !
  881. / aPoint
  882. ^ Point x: self x / aPoint asPoint x y: self y / aPoint asPoint y
  883. ! !
  884. !Point methodsFor: 'comparing'!
  885. < aPoint
  886. ^ self x < aPoint x and: [
  887. self y < aPoint y ]
  888. !
  889. <= aPoint
  890. ^ self x <= aPoint x and: [
  891. self y <= aPoint y ]
  892. !
  893. = aPoint
  894. ^ aPoint class = self class and: [
  895. (aPoint x = self x) & (aPoint y = self y) ]
  896. !
  897. > aPoint
  898. ^ self x > aPoint x and: [
  899. self y > aPoint y ]
  900. !
  901. >= aPoint
  902. ^ self x >= aPoint x and: [
  903. self y >= aPoint y ]
  904. ! !
  905. !Point methodsFor: 'converting'!
  906. asPoint
  907. ^ self
  908. ! !
  909. !Point methodsFor: 'printing'!
  910. printOn: aStream
  911. "Print receiver in classic x@y notation."
  912. x printOn: aStream.
  913. aStream nextPutAll: '@'.
  914. (y notNil and: [ y negative ]) ifTrue: [
  915. "Avoid ambiguous @- construct"
  916. aStream space ].
  917. y printOn: aStream
  918. ! !
  919. !Point methodsFor: 'transforming'!
  920. dist: aPoint
  921. "Answer the distance between aPoint and the receiver."
  922. | dx dy |
  923. dx := aPoint x - x.
  924. dy := aPoint y - y.
  925. ^ (dx * dx + (dy * dy)) sqrt
  926. !
  927. translateBy: delta
  928. "Answer a Point translated by delta (an instance of Point)."
  929. ^ (delta x + x) @ (delta y + y)
  930. ! !
  931. !Point class methodsFor: 'helios'!
  932. heliosClass
  933. ^ 'magnitude'
  934. ! !
  935. !Point class methodsFor: 'instance creation'!
  936. x: aNumber y: anotherNumber
  937. ^ self new
  938. x: aNumber;
  939. y: anotherNumber;
  940. yourself
  941. ! !
  942. Object subclass: #Random
  943. instanceVariableNames: ''
  944. package: 'Kernel-Objects'!
  945. !Random commentStamp!
  946. I an used to generate a random number and I am implemented as a trivial wrapper around javascript `Math.random()`.
  947. ## API
  948. The typical use case it to use the `#next` method like the following:
  949. Random new next
  950. This will return a float x where x < 1 and x > 0. If you want a random integer from 1 to 10 you can use `#atRandom`
  951. 10 atRandom
  952. A random number in a specific interval can be obtained with the following:
  953. (3 to: 7) atRandom
  954. Be aware that `#to:` does not create an Interval as in other Smalltalk implementations but in fact an `Array` of numbers, so it's better to use:
  955. 5 atRandom + 2
  956. Since `#atRandom` is implemented in `SequencableCollection` you can easy pick an element at random:
  957. #('a' 'b' 'c') atRandom
  958. As well as letter from a `String`:
  959. 'abc' atRandom
  960. Since Amber does not have Characters this will return a `String` of length 1 like for example `'b'`.!
  961. !Random methodsFor: 'accessing'!
  962. next
  963. <return Math.random()>
  964. !
  965. next: anInteger
  966. ^ (1 to: anInteger) collect: [ :each | self next ]
  967. ! !
  968. Object subclass: #UndefinedObject
  969. instanceVariableNames: ''
  970. package: 'Kernel-Objects'!
  971. !UndefinedObject commentStamp!
  972. I describe the behavior of my sole instance, `nil`. `nil` represents a prior value for variables that have not been initialized, or for results which are meaningless.
  973. `nil` is the Smalltalk equivalent of the `undefined` JavaScript object.
  974. __note:__ When sending messages to the `undefined` JavaScript object, it will be replaced by `nil`.!
  975. !UndefinedObject methodsFor: 'class creation'!
  976. subclass: aString instanceVariableNames: anotherString
  977. "Kept for file-in compatibility."
  978. ^ self subclass: aString instanceVariableNames: anotherString package: nil
  979. !
  980. subclass: aString instanceVariableNames: aString2 category: aString3
  981. "Kept for file-in compatibility."
  982. ^ self subclass: aString instanceVariableNames: aString2 package: aString3
  983. !
  984. subclass: aString instanceVariableNames: aString2 classVariableNames: classVars poolDictionaries: pools category: aString3
  985. "Kept for file-in compatibility. ignores class variables and pools."
  986. ^ self subclass: aString instanceVariableNames: aString2 package: aString3
  987. !
  988. subclass: aString instanceVariableNames: aString2 package: aString3
  989. ^ ClassBuilder new
  990. superclass: self subclass: aString asString instanceVariableNames: aString2 package: aString3
  991. ! !
  992. !UndefinedObject methodsFor: 'converting'!
  993. asJSON
  994. ^ null
  995. ! !
  996. !UndefinedObject methodsFor: 'copying'!
  997. deepCopy
  998. ^ self
  999. !
  1000. shallowCopy
  1001. ^ self
  1002. ! !
  1003. !UndefinedObject methodsFor: 'printing'!
  1004. printOn: aStream
  1005. aStream nextPutAll: 'nil'
  1006. ! !
  1007. !UndefinedObject methodsFor: 'testing'!
  1008. ifNil: aBlock
  1009. "inlined in the Compiler"
  1010. ^ self ifNil: aBlock ifNotNil: []
  1011. !
  1012. ifNil: aBlock ifNotNil: anotherBlock
  1013. "inlined in the Compiler"
  1014. ^ aBlock value
  1015. !
  1016. ifNotNil: aBlock
  1017. "inlined in the Compiler"
  1018. ^ self
  1019. !
  1020. ifNotNil: aBlock ifNil: anotherBlock
  1021. "inlined in the Compiler"
  1022. ^ anotherBlock value
  1023. !
  1024. isImmutable
  1025. ^ true
  1026. !
  1027. isNil
  1028. ^ true
  1029. !
  1030. notNil
  1031. ^ false
  1032. ! !
  1033. !UndefinedObject class methodsFor: 'instance creation'!
  1034. new
  1035. self error: 'You cannot create new instances of UndefinedObject. Use nil'
  1036. ! !