1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539 |
- nil subclass: #Object
- instanceVariableNames: ''
- category: 'Kernel'!
- !Object methodsFor: 'accessing'!
- yourself
- ^self
- !
- class
- <return self.klass>
- !
- size
- self error: 'Object not indexable'
- !
- instVarAt: aString
- <return self['@'+aString]>
- !
- instVarAt: aString put: anObject
- <self['@' + aString] = anObject>
- !
- basicAt: aString
- <return self[aString]>
- !
- basicAt: aString put: anObject
- <return self[aString] = anObject>
- !
- basicDelete: aString
- <delete self[aString]>
- ! !
- !Object methodsFor: 'comparing'!
- = anObject
- <return self == anObject>
- !
- ~= anObject
- ^(self = anObject) == false
- ! !
- !Object methodsFor: 'converting'!
- -> anObject
- ^Association key: self value: anObject
- !
- asString
- ^self printString
- !
- asJavascript
- ^self asString
- !
- asJSON
- <return JSON.stringify(self._asJSONObject())>
- !
- asJSONObject
- | object |
- object := Object new.
- self class instanceVariableNames do: [:each |
- object basicAt: each put: (self instVarAt: each) asJSONObject].
- ^object
- ! !
- !Object methodsFor: 'copying'!
- copy
- ^self shallowCopy postCopy
- !
- shallowCopy
- <
- var copy = self.klass._new();
- for(var i in self) {
- if(/^@.+/.test(i)) {
- copy[i] = self[i];
- }
- }
- return copy;
- >
- !
- deepCopy
- <
- var copy = self.klass._new();
- for(var i in self) {
- if(/^@.+/.test(i)) {
- copy[i] = self[i]._deepCopy();
- }
- }
- return copy;
- >
- !
- postCopy
- ! !
- !Object methodsFor: 'error handling'!
- error: aString
- Error signal: aString
- !
- subclassResponsibility
- self error: 'This method is a responsibility of a subclass'
- !
- shouldNotImplement
- self error: 'This method should not be implemented in ', self class name
- !
- try: aBlock catch: anotherBlock
- <try{aBlock()} catch(e) {anotherBlock(e)}>
- !
- doesNotUnderstand: aMessage
- MessageNotUnderstood new
- receiver: self;
- message: aMessage;
- signal
- !
- halt
- self error: 'Halt encountered'
- ! !
- !Object methodsFor: 'initialization'!
- initialize
- ! !
- !Object methodsFor: 'message handling'!
- perform: aSymbol
- ^self perform: aSymbol withArguments: #()
- !
- perform: aSymbol withArguments: aCollection
- ^self basicPerform: aSymbol asSelector withArguments: aCollection
- !
- basicPerform: aSymbol
- ^self basicPerform: aSymbol withArguments: #()
- !
- basicPerform: aSymbol withArguments: aCollection
- <return self[aSymbol].apply(self, aCollection);>
- ! !
- !Object methodsFor: 'printing'!
- printString
- ^'a ', self class name
- !
- printNl
- <console.log(self)>
- ! !
- !Object methodsFor: 'testing'!
- isKindOf: aClass
- ^(self isMemberOf: aClass)
- ifTrue: [true]
- ifFalse: [self class inheritsFrom: aClass]
- !
- isMemberOf: aClass
- ^self class = aClass
- !
- ifNil: aBlock
- "inlined in the Compiler"
- ^self
- !
- ifNil: aBlock ifNotNil: anotherBlock
- "inlined in the Compiler"
- ^anotherBlock value
- !
- ifNotNil: aBlock
- "inlined in the Compiler"
- ^aBlock value
- !
- ifNotNil: aBlock ifNil: anotherBlock
- "inlined in the Compiler"
- ^aBlock value
- !
- isNil
- ^false
- !
- notNil
- ^self isNil not
- !
- isClass
- ^false
- !
- isMetaclass
- ^false
- !
- isNumber
- ^false
- !
- isString
- ^false
- !
- isParseFailure
- ^false
- ! !
- !Object class methodsFor: 'initialization'!
- initialize
- "no op"
- ! !
- Object subclass: #Smalltalk
- instanceVariableNames: ''
- category: 'Kernel'!
- !Smalltalk methodsFor: 'accessing'!
- classes
- <return self.classes()>
- !
- readJSON: anObject
- <return self.readJSObject(anObject)>
- !
- at: aString
- <return self[aString]>
- !
- removeClass: aClass
- aClass isMetaclass ifTrue: [self error: aClass asString, ' is a Metaclass and cannot be removed!!'].
- aClass methodDictionary values do: [:each |
- aClass removeCompiledMethod: each].
- aClass class methodDictionary values do: [:each |
- aClass class removeCompiledMethod: each].
- self basicDelete: aClass name
- ! !
- Smalltalk class instanceVariableNames: 'current'!
- !Smalltalk class methodsFor: 'accessing'!
- current
- <return smalltalk>
- ! !
- Object subclass: #Behavior
- instanceVariableNames: ''
- category: 'Kernel'!
- !Behavior methodsFor: 'accessing'!
- name
- <return self.className || nil>
- !
- superclass
- <return self.superclass || nil>
- !
- subclasses
- <return smalltalk.subclasses(self)>
- !
- allSubclasses
- | result |
- result := self subclasses.
- self subclasses do: [:each |
- result addAll: each allSubclasses].
- ^result
- !
- withAllSubclasses
- ^(Array with: self) addAll: self allSubclasses; yourself
- !
- prototype
- <return self.fn.prototype>
- !
- methodDictionary
- <var dict = smalltalk.Dictionary._new();
- var methods = self.fn.prototype.methods;
- for(var i in methods) {
- if(methods[i].selector) {
- dict._at_put_(methods[i].selector, methods[i]);
- }
- };
- return dict>
- !
- methodsFor: aString
- ^ClassCategoryReader new
- class: self category: aString;
- yourself
- !
- addCompiledMethod: aMethod
- <smalltalk.addMethod(aMethod.selector._asSelector(), aMethod, self)>
- !
- instanceVariableNames
- <return self.iVarNames>
- !
- comment
- ^(self basicAt: 'comment') ifNil: ['']
- !
- comment: aString
- self basicAt: 'comment' put: aString
- !
- commentStamp
- ^ClassCommentReader new
- class: self;
- yourself
- !
- removeCompiledMethod: aMethod
- <delete self.fn.prototype[aMethod.selector._asSelector()];
- delete self.fn.prototype.methods[aMethod.selector];
- smalltalk.init(self);>
- !
- protocols
- | protocols |
- protocols := Array new.
- self methodDictionary do: [:each |
- (protocols includes: each category) ifFalse: [
- protocols add: each category]].
- ^protocols sort
- !
- protocolsDo: aBlock
- "Execute aBlock for each method category with
- its collection of methods in the sort order of category name."
- | methodsByCategory |
- methodsByCategory := Dictionary new.
- self methodDictionary values do: [:m |
- (methodsByCategory at: m category ifAbsentPut: [Array new])
- add: m].
- self protocols do: [:category |
- aBlock value: category value: (methodsByCategory at: category)]
- !
- allInstanceVariableNames
- | result |
- result := self instanceVariableNames copy.
- self superclass ifNotNil: [
- result addAll: self superclass allInstanceVariableNames].
- ^result
- !
- methodAt: aString
- <return smalltalk.methods(self)[aString]>
- !
- methodsFor: aString stamp: aStamp
- "Added for compatibility, right now ignores stamp."
- ^self methodsFor: aString
- !
- commentStamp: aStamp prior: prior
- "Ignored right now."
- ! !
- !Behavior methodsFor: 'instance creation'!
- new
- ^self basicNew initialize
- !
- basicNew
- <return new self.fn()>
- !
- inheritsFrom: aClass
- ^aClass allSubclasses includes: self
- ! !
- Behavior subclass: #Class
- instanceVariableNames: ''
- category: 'Kernel'!
- !Class methodsFor: 'accessing'!
- category
- <return self.category>
- !
- category: aString
- <self.category = aString>
- !
- rename: aString
- <
- smalltalk[aString] = self;
- delete smalltalk[self.className];
- self.className = aString;
- >
- ! !
- !Class methodsFor: 'class creation'!
- subclass: aString instanceVariableNames: anotherString
- ^self subclass: aString instanceVariableNames: anotherString category: nil
- !
- subclass: aString instanceVariableNames: aString2 category: aString3
- ^ClassBuilder new
- superclass: self subclass: aString instanceVariableNames: aString2 category: aString3
- !
- subclass: aString instanceVariableNames: aString2 classVariableNames: classVars poolDictionaries: pools category: aString3
- "Just ignore class variables and pools. Added for compatibility."
- ^self subclass: aString instanceVariableNames: aString2 category: aString3
- ! !
- !Class methodsFor: 'printing'!
- printString
- ^self name
- ! !
- !Class methodsFor: 'testing'!
- isClass
- ^true
- ! !
- Behavior subclass: #Metaclass
- instanceVariableNames: ''
- category: 'Kernel'!
- !Metaclass methodsFor: 'accessing'!
- instanceClass
- <return self.instanceClass>
- !
- instanceVariableNames: aCollection
- ClassBuilder new
- class: self instanceVariableNames: aCollection
- ! !
- !Metaclass methodsFor: 'printing'!
- printString
- ^self instanceClass name, ' class'
- ! !
- !Metaclass methodsFor: 'testing'!
- isMetaclass
- ^true
- ! !
- Object subclass: #CompiledMethod
- instanceVariableNames: ''
- category: 'Kernel'!
- !CompiledMethod methodsFor: 'accessing'!
- source
- ^(self basicAt: 'source') ifNil: ['']
- !
- source: aString
- self basicAt: 'source' put: aString
- !
- category
- ^(self basicAt: 'category') ifNil: ['']
- !
- category: aString
- self basicAt: 'category' put: aString
- !
- selector
- ^self basicAt: 'selector'
- !
- selector: aString
- self basicAt: 'selector' put: aString
- !
- fn
- ^self basicAt: 'fn'
- !
- fn: aBlock
- self basicAt: 'fn' put: aBlock
- !
- messageSends
- ^self basicAt: 'messageSends'
- !
- methodClass
- ^self basicAt: 'methodClass'
- !
- referencedClasses
- ^self basicAt: 'referencedClasses'
- ! !
- Object subclass: #Number
- instanceVariableNames: ''
- category: 'Kernel'!
- !Number methodsFor: 'arithmetic'!
- + aNumber
- "Inlined in the Compiler"
- <return self + aNumber>
- !
- - aNumber
- "Inlined in the Compiler"
- <return self - aNumber>
- !
- * aNumber
- "Inlined in the Compiler"
- <return self * aNumber>
- !
- / aNumber
- "Inlined in the Compiler"
- <return self / aNumber>
- !
- max: aNumber
- <return Math.max(self, aNumber);>
- !
- min: aNumber
- <return Math.min(self, aNumber);>
- !
- modulo: aNumber
- <return self % aNumber>
- ! !
- !Number methodsFor: 'comparing'!
- = aNumber
- "Inlined in the Compiler"
- <return Number(self) == aNumber>
- !
- > aNumber
- "Inlined in the Compiler"
- <return self >> aNumber>
- !
- < aNumber
- "Inlined in the Compiler"
- <return self < aNumber>
- !
- >= aNumber
- "Inlined in the Compiler"
- <return self >>= aNumber>
- !
- <= aNumber
- "Inlined in the Compiler"
- <return self <= aNumber>
- ! !
- !Number methodsFor: 'converting'!
- rounded
- <return Math.round(self);>
- !
- truncated
- <return Math.floor(self);>
- !
- to: aNumber
- | array first last count |
- first := self truncated.
- last := aNumber truncated + 1.
- count := 1.
- (first <= last) ifFalse: [self error: 'Wrong interval'].
- array := Array new.
- (last - first) timesRepeat: [
- array at: count put: first.
- count := count + 1.
- first := first + 1].
- ^array
- !
- asString
- ^self printString
- !
- asJavascript
- ^'(', self printString, ')'
- !
- atRandom
- ^(Random new next * self) truncated + 1
- !
- @ aNumber
- ^Point x: self y: aNumber
- !
- asPoint
- ^Point x: self y: self
- !
- asJSONObject
- ^self
- ! !
- !Number methodsFor: 'enumerating'!
- timesRepeat: aBlock
- | integer count |
- integer := self truncated.
- count := 1.
- [count > self] whileFalse: [
- aBlock value.
- count := count + 1]
- !
- to: aNumber do: aBlock
- ^(self to: aNumber) do: aBlock
- ! !
- !Number methodsFor: 'printing'!
- printString
- <return String(self)>
- ! !
- !Number methodsFor: 'testing'!
- isNumber
- ^true
- !
- even
- ^ 0 = (self modulo: 2)
- !
- odd
- ^ self even not
- ! !
- !Number methodsFor: 'timeouts/intervals'!
- clearInterval
- <clearInterval(Number(self))>
- !
- clearTimeout
- <clearTimeout(Number(self))>
- ! !
- !Number class methodsFor: 'instance creation'!
- pi
- <return Math.PI>
- ! !
- Object subclass: #BlockClosure
- instanceVariableNames: ''
- category: 'Kernel'!
- !BlockClosure methodsFor: 'accessing'!
- compiledSource
- <return self.toString()>
- ! !
- !BlockClosure methodsFor: 'controlling'!
- whileTrue: aBlock
- "inlined in the Compiler"
- <while(self()) {aBlock()}>
- !
- whileFalse: aBlock
- "inlined in the Compiler"
- <while(!!self()) {aBlock()}>
- !
- whileFalse
- "inlined in the Compiler"
- self whileFalse: []
- !
- whileTrue
- "inlined in the Compiler"
- self whileTrue: []
- ! !
- !BlockClosure methodsFor: 'error handling'!
- on: anErrorClass do: aBlock
- self try: self catch: [:error |
- (error isKindOf: anErrorClass)
- ifTrue: [aBlock value: error]
- ifFalse: [error signal]]
- ! !
- !BlockClosure methodsFor: 'evaluating'!
- value
- "inlined in the Compiler"
- <return self();>
- !
- value: anArg
- "inlined in the Compiler"
- <return self(anArg);>
- !
- value: firstArg value: secondArg
- "inlined in the Compiler"
- <return self(firstArg, secondArg);>
- !
- value: firstArg value: secondArg value: thirdArg
- "inlined in the Compiler"
- <return self(firstArg, secondArg, thirdArg);>
- !
- valueWithPossibleArguments: aCollection
- <return self.apply(null, aCollection);>
- !
- new
- "Use the receiver as a JS constructor.
- *Do not* use this method to instanciate Smalltalk objects!!"
- <return new self()>
- ! !
- !BlockClosure methodsFor: 'printing'!
- printString
- ^ String streamContents: [:aStream|
- aStream
- nextPutAll: super printString;
- nextPutAll: '(';
- nextPutAll: self compiledSource;
- nextPutAll: ')';
- cr.
- ]
- ! !
- !BlockClosure methodsFor: 'timeout/interval'!
- valueWithTimeout: aNumber
- <return setTimeout(self, aNumber)>
- !
- valueWithInterval: aNumber
- <return setInterval(self, aNumber)>
- ! !
- Object subclass: #Boolean
- instanceVariableNames: ''
- category: 'Kernel'!
- !Boolean methodsFor: 'comparing'!
- = aBoolean
- <return Boolean(self == true) == aBoolean>
- !
- asJSONObject
- ^self
- ! !
- !Boolean methodsFor: 'controlling'!
- ifTrue: aBlock
- "inlined in the Compiler"
- ^self ifTrue: aBlock ifFalse: []
- !
- ifFalse: aBlock
- "inlined in the Compiler"
- ^self ifTrue: [] ifFalse: aBlock
- !
- ifFalse: aBlock ifTrue: anotherBlock
- "inlined in the Compiler"
- ^self ifTrue: anotherBlock ifFalse: aBlock
- !
- ifTrue: aBlock ifFalse: anotherBlock
- "inlined in the Compiler"
- <
- if(self == true) {
- return aBlock();
- } else {
- return anotherBlock();
- }
- >
- !
- and: aBlock
- ^self = true
- ifTrue: aBlock
- ifFalse: [false]
- !
- or: aBlock
- ^self = true
- ifTrue: [true]
- ifFalse: aBlock
- !
- not
- ^self = false
- ! !
- !Boolean methodsFor: 'copying'!
- shallowCopy
- ^self
- !
- deepCopy
- ^self
- ! !
- !Boolean methodsFor: 'printing'!
- printString
- <return self.toString()>
- ! !
- Object subclass: #Date
- instanceVariableNames: ''
- category: 'Kernel'!
- !Date commentStamp!
- The Date class is used to work with dates and times.!
- !Date methodsFor: 'accessing'!
- year
- <return self.getFullYear()>
- !
- month
- <return self.getMonth() + 1>
- !
- month: aNumber
- <self.setMonth(aNumber - 1)>
- !
- day
- ^self dayOfWeek
- !
- dayOfWeek
- <return self.getDay() + 1>
- !
- dayOfWeek: aNumber
- <return self.setDay(aNumber - 1)>
- !
- day: aNumber
- self day: aNumber
- !
- year: aNumber
- <self.setFullYear(aNumber)>
- !
- dayOfMonth
- <return self.getDate()>
- !
- dayOfMonth: aNumber
- <self.setDate(aNumber)>
- !
- time
- <return self.getTime()>
- !
- time: aNumber
- <self.setTime(aNumber)>
- !
- hours: aNumber
- <self.setHours(aNumber)>
- !
- minutes: aNumber
- <self.setMinutes(aNumber)>
- !
- seconds: aNumber
- <self.setSeconds(aNumber)>
- !
- milliseconds: aNumber
- <self.setMilliseconds(aNumber)>
- !
- hours
- <return self.getHours()>
- !
- minutes
- <return self.getMinutes()>
- !
- seconds
- <return self.getSeconds()>
- !
- milliseconds
- <return self.getMilliseconds()>
- ! !
- !Date methodsFor: 'arithmetic'!
- - aDate
- <return self - aDate>
- !
- + aDate
- <return self + aDate>
- ! !
- !Date methodsFor: 'comparing'!
- < aDate
- <return self < aDate>
- !
- > aDate
- <return self >> aDate>
- !
- <= aDate
- <self <= aDate>
- !
- >= aDate
- <self >>= aDate>
- ! !
- !Date methodsFor: 'converting'!
- asString
- <return self.toString()>
- !
- asMilliseconds
- ^self time
- !
- asDateString
- <return self.toDateString()>
- !
- asTimeString
- <return self.toTimeString()>
- !
- asLocaleString
- <return self.toLocaleString()>
- !
- asNumber
- ^self asMilliseconds
- !
- asJSONObject
- ^self
- ! !
- !Date methodsFor: 'printing'!
- printString
- ^self asString
- ! !
- !Date class methodsFor: 'instance creation'!
- new: anObject
- <return new Date(anObject)>
- !
- fromString: aString
- "Example: Date fromString('2011/04/15 00:00:00')"
- ^self new: aString
- !
- fromSeconds: aNumber
- ^self fromMilliseconds: aNumber * 1000
- !
- fromMilliseconds: aNumber
- ^self new: aNumber
- !
- today
- ^self new
- !
- now
- ^self today
- !
- millisecondsToRun: aBlock
- | t |
- t := Date now.
- aBlock value.
- ^Date now - t
- ! !
- Object subclass: #UndefinedObject
- instanceVariableNames: ''
- category: 'Kernel'!
- !UndefinedObject methodsFor: 'class creation'!
- subclass: aString instanceVariableNames: anotherString
- ^self subclass: aString instanceVariableNames: anotherString category: nil
- !
- subclass: aString instanceVariableNames: aString2 category: aString3
- ^ClassBuilder new
- superclass: self subclass: aString instanceVariableNames: aString2 category: aString3
- ! !
- !UndefinedObject methodsFor: 'copying'!
- shallowCopy
- ^self
- !
- deepCopy
- ^self
- ! !
- !UndefinedObject methodsFor: 'printing'!
- printString
- ^'nil'
- ! !
- !UndefinedObject methodsFor: 'testing'!
- ifNil: aBlock
- "inlined in the Compiler"
- ^self ifNil: aBlock ifNotNil: []
- !
- ifNotNil: aBlock
- "inlined in the Compiler"
- ^self
- !
- ifNil: aBlock ifNotNil: anotherBlock
- "inlined in the Compiler"
- ^aBlock value
- !
- ifNotNil: aBlock ifNil: anotherBlock
- "inlined in the Compiler"
- ^anotherBlock value
- !
- isNil
- ^true
- !
- notNil
- ^false
- ! !
- !UndefinedObject class methodsFor: 'instance creation'!
- new
- self error: 'You cannot create new instances of UndefinedObject. Use nil'
- ! !
- Object subclass: #Collection
- instanceVariableNames: ''
- category: 'Kernel'!
- !Collection methodsFor: 'accessing'!
- size
- self subclassResponsibility
- !
- readStream
- ^self stream
- !
- writeStream
- ^self stream
- !
- stream
- ^self streamClass on: self
- !
- streamClass
- ^self class streamClass
- ! !
- !Collection methodsFor: 'adding/removing'!
- add: anObject
- self subclassResponsibility
- !
- addAll: aCollection
- aCollection do: [:each |
- self add: each].
- ^aCollection
- !
- remove: anObject
- self subclassResponsibility
- ! !
- !Collection methodsFor: 'converting'!
- asArray
- | array index |
- array := Array new.
- index := 0.
- self do: [:each |
- index := index + 1.
- array at: index put: each].
- ^array
- ! !
- !Collection methodsFor: 'copying'!
- , aCollection
- ^self copy
- addAll: aCollection;
- yourself
- !
- copyWith: anObject
- ^self copy add: anObject; yourself
- !
- copyWithAll: aCollection
- ^self copy addAll: aCollection; yourself
- ! !
- !Collection methodsFor: 'enumerating'!
- do: aBlock
- <for(var i=0;i<self.length;i++){aBlock(self[i]);}>
- !
- collect: aBlock
- | newCollection |
- newCollection := self class new.
- self do: [:each |
- newCollection add: (aBlock value: each)].
- ^newCollection
- !
- detect: aBlock
- ^self detect: aBlock ifNone: [self errorNotFound]
- !
- detect: aBlock ifNone: anotherBlock
- <
- for(var i = 0; i < self.length; i++)
- if(aBlock(self[i]))
- return self[i];
- return anotherBlock();
- >
- !
- do: aBlock separatedBy: anotherBlock
- | first |
- first := true.
- self do: [:each |
- first
- ifTrue: [first := false]
- ifFalse: [anotherBlock value].
- aBlock value: each]
- !
- inject: anObject into: aBlock
- | result |
- result := anObject.
- self do: [:each |
- result := aBlock value: result value: each].
- ^result
- !
- 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: 'testing'!
- includes: anObject
- <
- var i = self.length;
- while (i--) {
- if (smalltalk.send(self[i], "__eq", [anObject])) {return true;}
- }
- return false
- >
- !
- notEmpty
- ^self isEmpty not
- !
- isEmpty
- ^self size = 0
- ! !
- !Collection class methodsFor: 'accessing'!
- streamClass
- ^Stream
- ! !
- !Collection class methodsFor: 'instance creation'!
- 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: #SequenceableCollection
- instanceVariableNames: ''
- category: 'Kernel'!
- !SequenceableCollection methodsFor: 'accessing'!
- at: anIndex
- ^self at: anIndex ifAbsent: [
- self errorNotFound]
- !
- at: anIndex ifAbsent: aBlock
- self subclassResponsibility
- !
- at: anIndex put: anObject
- self subclassResponsibility
- !
- first
- ^self at: 1
- !
- fourth
- ^self at: 4
- !
- last
- ^self at: self size
- !
- second
- ^self at: 2
- !
- third
- ^self at: 3
- !
- allButFirst
- ^self copyFrom: 2 to: self size
- !
- allButLast
- ^self copyFrom: 1 to: self size - 1
- !
- indexOf: anObject
- ^self indexOf: anObject ifAbsent: [self errorNotFound]
- !
- indexOf: anObject ifAbsent: aBlock
- <
- for(var i=0;i<self.length;i++){
- if(self[i].__eq(anObject)) {return i+1}
- }
- return aBlock();
- >
- ! !
- !SequenceableCollection methodsFor: 'adding'!
- removeLast
- self remove: self last
- !
- addLast: anObject
- self add: anObject
- ! !
- !SequenceableCollection methodsFor: 'copying'!
- copyFrom: anIndex to: anotherIndex
- self subclassResponsibility
- ! !
- !SequenceableCollection methodsFor: 'enumerating'!
- withIndexDo: aBlock
- <for(var i=0;i<self.length;i++){aBlock(self[i], i+1);}>
- ! !
- SequenceableCollection subclass: #String
- instanceVariableNames: ''
- category: 'Kernel'!
- !String methodsFor: 'accessing'!
- size
- <return self.length>
- !
- at: anIndex
- <return self[anIndex - 1]>
- !
- at: anIndex put: anObject
- self errorReadOnly
- !
- at: anIndex ifAbsent: aBlock
- (self at: anIndex) ifNil: [aBlock]
- !
- escaped
- <return escape(self)>
- !
- unescaped
- <return unescape(self)>
- ! !
- !String methodsFor: 'adding'!
- add: anObject
- self errorReadOnly
- !
- remove: anObject
- self errorReadOnly
- ! !
- !String methodsFor: 'comparing'!
- = aString
- <return String(self) == aString>
- !
- > aString
- <return String(self) >> aString>
- !
- < aString
- <return String(self) < aString>
- !
- >= aString
- <return String(self) >>= aString>
- !
- <= aString
- <return String(self) <= aString>
- ! !
- !String methodsFor: 'converting'!
- asSelector
- "If you change this method, change smalltalk.convertSelector too (see js/boot.js file)"
- | selector |
- selector := '_', self.
- selector := selector replace: ':' with: '_'.
- selector := selector replace: '[+]' with: '_plus'.
- selector := selector replace: '-' with: '_minus'.
- selector := selector replace: '[*]' with: '_star'.
- selector := selector replace: '[/]' with: '_slash'.
- selector := selector replace: '>' with: '_gt'.
- selector := selector replace: '<' with: '_lt'.
- selector := selector replace: '=' with: '_eq'.
- selector := selector replace: ',' with: '_comma'.
- selector := selector replace: '[@]' with: '_at'.
- ^selector
- !
- asJavascript
- <
- if(self.search(/^[a-zA-Z0-9_:.$ ]*$/) == -1)
- return "unescape(\"" + escape(self) + "\")";
- else
- return "\"" + self + "\"";
- >
- !
- tokenize: aString
- <return self.split(aString)>
- !
- asString
- ^self
- !
- asNumber
- <return Number(self)>
- !
- asParser
- ^PPStringParser new string: self
- !
- asChoiceParser
- ^PPChoiceParser withAll: (self asArray collect: [:each | each asParser])
- !
- asCharacterParser
- ^PPCharacterParser new string: self
- !
- asJSONObject
- ^self
- !
- asLowercase
- <return self.toLowerCase()>
- !
- asUppercase
- <return self.toUpperCase()>
- ! !
- !String methodsFor: 'copying'!
- , aString
- <return self + aString>
- !
- copyFrom: anIndex to: anotherIndex
- <return self.substring(anIndex - 1, anotherIndex)>
- !
- shallowCopy
- ^self class fromString: self
- !
- deepCopy
- ^self shallowCopy
- ! !
- !String methodsFor: 'error handling'!
- errorReadOnly
- self error: 'Object is read-only'
- ! !
- !String methodsFor: 'printing'!
- printString
- ^'''', self, ''''
- !
- printNl
- <console.log(self)>
- ! !
- !String methodsFor: 'regular expressions'!
- replace: aString with: anotherString
- ^self replaceRegexp: (RegularExpression fromString: aString flag: 'g') with: anotherString
- !
- replaceRegexp: aRegexp with: aString
- <return self.replace(aRegexp, aString)>
- !
- match: aRegexp
- <return self.search(aRegexp) !!= -1>
- !
- trimLeft: separators
- ^self replaceRegexp: (RegularExpression fromString: '^[', separators, ']+' flag: 'g') with: ''
- !
- trimRight: separators
- ^self replaceRegexp: (RegularExpression fromString: '[', separators, ']+$' flag: 'g') with: ''
- !
- trimLeft
- ^self trimLeft: '\s'
- !
- trimRight
- ^self trimRight: '\s'
- !
- trimBoth
- ^self trimBoth: '\s'
- !
- trimBoth: separators
- ^(self trimLeft: separators) trimRight: separators
- ! !
- !String methodsFor: 'split join'!
- join: aCollection
- ^ String
- streamContents: [:stream | aCollection
- do: [:each | stream nextPutAll: each asString]
- separatedBy: [stream nextPutAll: self]]
- ! !
- !String methodsFor: 'testing'!
- isString
- ^true
- !
- includesSubString: subString
- < return self.indexOf(subString) !!= -1 >
- ! !
- !String class methodsFor: 'accessing'!
- streamClass
- ^StringStream
- !
- cr
- <return '\r'>
- !
- lf
- <return '\n'>
- !
- space
- <return ' '>
- !
- tab
- <return '\t'>
- !
- crlf
- <return '\r\n'>
- ! !
- !String class methodsFor: 'instance creation'!
- fromString: aString
- <return new self.fn(aString)>
- !
- streamContents: blockWithArg
- |stream|
- stream := (self streamClass on: String new).
- blockWithArg value: stream.
- ^ stream contents
- ! !
- SequenceableCollection subclass: #Array
- instanceVariableNames: ''
- category: 'Kernel'!
- !Array methodsFor: 'accessing'!
- size
- <return self.length>
- !
- at: anIndex put: anObject
- <return self[anIndex - 1] = anObject>
- !
- at: anIndex ifAbsent: aBlock
- <
- var value = self[anIndex - 1];
- if(value === undefined) {
- return aBlock();
- } else {
- return value;
- }
- >
- ! !
- !Array methodsFor: 'adding/removing'!
- add: anObject
- <self.push(anObject); return anObject;>
- !
- remove: anObject
- <
- for(var i=0;i<self.length;i++) {
- if(self[i] == anObject) {
- self.splice(i,1);
- break;
- }
- }
- >
- !
- removeFrom: aNumber to: anotherNumber
- <self.splice(aNumber - 1,anotherNumber - 1)>
- ! !
- !Array methodsFor: 'converting'!
- asJavascript
- ^'[', ((self collect: [:each | each asJavascript]) join: ', '), ']'
- !
- asJSONObject
- ^self collect: [:each | each asJSONObject]
- ! !
- !Array methodsFor: 'copying'!
- shallowCopy
- | newCollection |
- newCollection := self class new.
- self do: [:each | newCollection add: each].
- ^newCollection
- !
- deepCopy
- | newCollection |
- newCollection := self class new.
- self do: [:each | newCollection add: each deepCopy].
- ^newCollection
- !
- copyFrom: anIndex to: anotherIndex
- | array |
- array := self class new.
- anIndex to: anotherIndex do: [:each |
- array add: (self at: each)].
- ^array
- ! !
- !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
- !
- printString
- | str |
- str := '' writeStream.
- str nextPutAll: super printString, ' ('.
- self
- do: [:each | str nextPutAll: each printString]
- separatedBy: [str nextPutAll: ' '].
- str nextPutAll: ')'.
- ^str contents
- ! !
- Object subclass: #RegularExpression
- instanceVariableNames: ''
- category: 'Kernel'!
- !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 flag: anotherString
- <return new RegExp(aString, anotherString)>
- !
- fromString: aString
- ^self fromString: aString flag: ''
- ! !
- Object subclass: #Error
- instanceVariableNames: 'messageText'
- category: 'Kernel'!
- !Error methodsFor: 'accessing'!
- messageText
- ^messageText
- !
- messageText: aString
- messageText := aString
- !
- context
- <return self.context>
- ! !
- !Error methodsFor: 'signaling'!
- signal
- <self.context = thisContext; self.smalltalkError = true; throw(self)>
- ! !
- !Error class methodsFor: 'instance creation'!
- signal: aString
- ^self new
- messageText: aString;
- signal
- ! !
- Object subclass: #MethodContext
- instanceVariableNames: ''
- category: 'Kernel'!
- !MethodContext methodsFor: 'accessing'!
- receiver
- <return self.receiver>
- !
- selector
- <return smalltalk.convertSelector(self.selector)>
- !
- home
- <return self.homeContext>
- !
- temps
- <return self.temps>
- !
- printString
- ^super printString, '(', self asString, ')'
- !
- asString
- ^self receiver class printString, ' >> ', self selector
- ! !
- Object subclass: #Association
- instanceVariableNames: 'key value'
- category: 'Kernel'!
- !Association methodsFor: 'accessing'!
- key: aKey
- key := aKey
- !
- key
- ^key
- !
- value: aValue
- value := aValue
- !
- value
- ^value
- ! !
- !Association methodsFor: 'comparing'!
- = anAssociation
- ^self class = anAssociation class and: [
- self key = anAssociation key and: [
- self value = anAssociation value]]
- ! !
- !Association class methodsFor: 'instance creation'!
- key: aKey value: aValue
- ^self new
- key: aKey;
- value: aValue;
- yourself
- ! !
- Collection subclass: #Dictionary
- instanceVariableNames: 'keys'
- category: 'Kernel'!
- !Dictionary methodsFor: 'accessing'!
- size
- ^keys size
- !
- associations
- | associations |
- associations := #().
- keys do: [:each |
- associations add: (Association key: each value: (self at: each))].
- ^associations
- !
- keys
- ^keys copy
- !
- values
- ^keys collect: [:each | self at: each]
- !
- at: aKey put: aValue
- (keys includes: aKey) ifFalse: [keys add: aKey].
- ^self basicAt: aKey put: aValue
- !
- at: aKey ifAbsent: aBlock
- ^(self keys includes: 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
- ^(self basicAt: aKey) ifNotNil: [aBlock value: (self at: aKey)]
- !
- at: aKey ifPresent: aBlock ifAbsent: anotherBlock
- ^(self basicAt: aKey)
- ifNil: anotherBlock
- ifNotNil: [aBlock value: (self at: aKey)]
- !
- at: aKey
- ^self at: aKey ifAbsent: [self errorNotFound]
- ! !
- !Dictionary methodsFor: 'adding/removing'!
- add: anAssociation
- self at: anAssociation key put: anAssociation value
- !
- addAll: aDictionary
- super addAll: aDictionary associations.
- ^aDictionary
- !
- remove: aKey
- self removeKey: aKey
- !
- removeKey: aKey
- keys remove: aKey
- ! !
- !Dictionary methodsFor: 'comparing'!
- = aDictionary
- self class = aDictionary class ifFalse: [^false].
- self associationsDo: [:assoc |
- (aDictionary at: assoc key ifAbsent: [^false]) = assoc value
- ifFalse: [^false]].
- ^true
- ! !
- !Dictionary methodsFor: 'converting'!
- asJSONObject
- | object |
- object := Object new.
- self keysAndValuesDo: [:key :value |
- object basicAt: key put: value asJSONObject].
- ^object
- ! !
- !Dictionary methodsFor: 'copying'!
- shallowCopy
- | copy |
- copy := self class new.
- self associationsDo: [:each |
- copy at: each key put: each value].
- ^copy
- !
- , aCollection
- self shouldNotImplement
- !
- copyFrom: anIndex to: anotherIndex
- self shouldNotImplement
- ! !
- !Dictionary methodsFor: 'enumerating'!
- associationsDo: aBlock
- self associations do: aBlock
- !
- keysAndValuesDo: aBlock
- self associationsDo: [:each |
- aBlock value: each key value: each value]
- !
- do: aBlock
- self values do: aBlock
- !
- select: aBlock
- | newDict |
- newDict := self class new.
- self keysAndValuesDo: [:key :value |
- (aBlock value: value) ifTrue: [newDict at: key put: value]].
- ^newDict
- !
- 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
- !
- includes: anObject
- ^self values includes: anObject
- ! !
- !Dictionary methodsFor: 'initialization'!
- initialize
- super initialize.
- keys := #()
- ! !
- !Dictionary methodsFor: 'printing'!
- printString
- ^ String streamContents: [:aStream|
- aStream
- nextPutAll: super printString;
- nextPutAll: '('.
- self associations
- do: [:anAssociation|
- aStream
- nextPutAll: anAssociation key printString;
- nextPutAll: ' -> ';
- nextPutAll: anAssociation value printString]
-
- separatedBy: [aStream nextPutAll: ' , '].
- aStream nextPutAll: ')'.
- ]
- ! !
- Object subclass: #ClassBuilder
- instanceVariableNames: ''
- category: 'Kernel'!
- !ClassBuilder methodsFor: 'class creation'!
- superclass: aClass subclass: aString
- self superclass: aClass subclass: aString instanceVariableNames: '' category: nil
- !
- superclass: aClass subclass: aString instanceVariableNames: aString2 category: aString3
- | newClass |
- newClass := self addSubclassOf: aClass named: aString instanceVariableNames: (self instanceVariableNamesFor: aString2).
- self setupClass: newClass.
- newClass category: (aString3 ifNil: ['unclassified'])
- !
- class: aClass instanceVariableNames: aString
- aClass isMetaclass ifFalse: [self error: aClass name, ' is not a metaclass'].
- aClass basicAt: 'iVarNames' put: (self instanceVariableNamesFor: aString).
- self setupClass: aClass
- ! !
- !ClassBuilder methodsFor: 'private'!
- instanceVariableNamesFor: aString
- ^(aString tokenize: ' ') reject: [:each | each isEmpty]
- !
- addSubclassOf: aClass named: aString instanceVariableNames: aCollection
- <smalltalk.addClass(aString, aClass, aCollection);
- return smalltalk[aString]>
- !
- setupClass: aClass
- <smalltalk.init(aClass);>
- ! !
- Object subclass: #ClassCategoryReader
- instanceVariableNames: 'class category chunkParser'
- category: 'Kernel'!
- !ClassCategoryReader methodsFor: 'accessing'!
- class: aClass category: aString
- class := aClass.
- category := aString
- ! !
- !ClassCategoryReader methodsFor: 'fileIn'!
- scanFrom: aStream
- | nextChunk |
- nextChunk := (chunkParser emptyChunk / chunkParser chunk) parse: aStream.
- nextChunk isEmptyChunk ifFalse: [
- self compileMethod: nextChunk contents.
- self scanFrom: aStream].
- ! !
- !ClassCategoryReader methodsFor: 'initialization'!
- initialize
- super initialize.
- chunkParser := ChunkParser new.
- ! !
- !ClassCategoryReader methodsFor: 'private'!
- compileMethod: aString
- | method |
- method := Compiler new load: aString forClass: class.
- method category: category.
- class addCompiledMethod: method
- ! !
- Object subclass: #Stream
- instanceVariableNames: 'collection position streamSize'
- category: 'Kernel'!
- !Stream methodsFor: 'accessing'!
- collection
- ^collection
- !
- setCollection: aCollection
- collection := aCollection
- !
- position
- ^position ifNil: [position := 0]
- !
- position: anInteger
- position := anInteger
- !
- streamSize
- ^streamSize
- !
- setStreamSize: anInteger
- streamSize := anInteger
- !
- contents
- ^self collection
- copyFrom: 1
- to: self streamSize
- !
- size
- ^self streamSize
- ! !
- !Stream methodsFor: 'actions'!
- reset
- self position: 0
- !
- close
- !
- flush
- !
- 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 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: ''
- category: 'Kernel'!
- !StringStream methodsFor: 'reading'!
- next: anInteger
- | tempCollection |
- tempCollection := self collection class new.
- anInteger timesRepeat: [
- self atEnd ifFalse: [
- tempCollection := tempCollection, self next]].
- ^tempCollection
- ! !
- !StringStream methodsFor: 'writing'!
- 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)
- !
- cr
- ^self nextPutAll: String cr
- !
- crlf
- ^self nextPutAll: String crlf
- !
- lf
- ^self nextPutAll: String lf
- !
- space
- self nextPut: ' '
- ! !
- Object subclass: #ClassCommentReader
- instanceVariableNames: 'class chunkParser'
- category: 'Kernel'!
- !ClassCommentReader methodsFor: 'accessing'!
- class: aClass
- class := aClass
- ! !
- !ClassCommentReader methodsFor: 'fileIn'!
- scanFrom: aStream
- | nextChunk |
- nextChunk := (chunkParser emptyChunk / chunkParser chunk) parse: aStream.
- nextChunk isEmptyChunk ifFalse: [
- self setComment: nextChunk contents].
- ! !
- !ClassCommentReader methodsFor: 'initialization'!
- initialize
- super initialize.
- chunkParser := ChunkParser new.
- ! !
- !ClassCommentReader methodsFor: 'private'!
- setComment: aString
- class comment: aString
- ! !
- Object subclass: #Random
- instanceVariableNames: ''
- category: 'Kernel'!
- !Random methodsFor: 'accessing'!
- next
- <return Math.random()>
- !
- next: anInteger
- ^1 to: anInteger collect: [:each | self next]
- ! !
- Object subclass: #Point
- instanceVariableNames: 'x y'
- category: 'Kernel'!
- !Point methodsFor: 'accessing'!
- x
- ^x
- !
- y
- ^y
- !
- y: aNumber
- y := aNumber
- !
- x: aNumber
- x := aNumber
- ! !
- !Point methodsFor: 'arithmetic'!
- * aPoint
- ^Point x: self x * aPoint asPoint x y: self y * aPoint asPoint y
- !
- + aPoint
- ^Point x: self x + aPoint asPoint x y: self y + aPoint asPoint y
- !
- - aPoint
- ^Point x: self x - aPoint asPoint x y: self y - aPoint asPoint y
- !
- / aPoint
- ^Point x: self x / aPoint asPoint x y: self y / aPoint asPoint y
- ! !
- !Point methodsFor: 'converting'!
- asPoint
- ^self
- ! !
- !Point class methodsFor: 'instance creation'!
- x: aNumber y: anotherNumber
- ^self new
- x: aNumber;
- y: anotherNumber;
- yourself
- ! !
- Object subclass: #Message
- instanceVariableNames: 'selector arguments'
- category: 'Kernel'!
- !Message methodsFor: 'accessing'!
- selector
- ^selector
- !
- selector: aString
- selector := aString
- !
- arguments: anArray
- arguments := anArray
- !
- arguments
- ^arguments
- ! !
- !Message class methodsFor: 'instance creation'!
- selector: aString arguments: anArray
- ^self new
- selector: aString;
- arguments: anArray;
- yourself
- ! !
- Error subclass: #MessageNotUnderstood
- instanceVariableNames: 'message receiver'
- category: 'Kernel'!
- !MessageNotUnderstood methodsFor: 'accessing'!
- message
- ^message
- !
- message: aMessage
- message := aMessage
- !
- receiver
- ^receiver
- !
- receiver: anObject
- receiver := anObject
- !
- messageText
- ^self receiver asString, ' does not understand #', self message selector
- ! !
- Object subclass: #ErrorHandler
- instanceVariableNames: ''
- category: 'Kernel'!
- !ErrorHandler methodsFor: 'error handling'!
- handleError: anError
- anError context ifNotNil: [self logErrorContext: anError context].
- self logError: anError
- ! !
- !ErrorHandler methodsFor: 'private'!
- logContext: aContext
- aContext home ifNotNil: [
- self logContext: aContext home].
- self log: aContext receiver asString, '>>', aContext selector
- !
- logErrorContext: aContext
- aContext ifNotNil: [
- aContext home ifNotNil: [
- self logContext: aContext home]]
- !
- logError: anError
- self log: anError messageText
- !
- log: aString
- console log: aString
- ! !
- ErrorHandler class instanceVariableNames: 'current'!
- !ErrorHandler class methodsFor: 'accessing'!
- current
- ^current
- !
- setCurrent: anHandler
- current := anHandler
- ! !
- !ErrorHandler class methodsFor: 'initialization'!
- initialize
- self register
- !
- register
- ErrorHandler setCurrent: self new
- ! !
|