Smalltalk current createPackage: 'Kernel' properties: #{}! nil subclass: #Object instanceVariableNames: '' category: 'Kernel'! !Object methodsFor: 'accessing'! yourself ^self ! class ! size self error: 'Object not indexable' ! instVarAt: aString ! instVarAt: aString put: anObject ! basicAt: aString ! basicAt: aString put: anObject ! basicDelete: aString ! ! !Object methodsFor: 'comparing'! = anObject ^self == anObject ! ~= anObject ^(self = anObject) = false ! == anObject ! ~~ anObject ^(self == anObject) = false ! ! !Object methodsFor: 'converting'! -> anObject ^Association key: self value: anObject ! asString ^self printString ! asJavascript ^self asString ! asJSON ! 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 ! doesNotUnderstand: aMessage MessageNotUnderstood new receiver: self; message: aMessage; signal ! halt self error: 'Halt encountered' ! deprecatedAPI "Just a simple way to deprecate methods. #deprecatedAPI is in the 'error handling' protocol even if it doesn't throw an error, but it could in the future." console warn: thisContext home asString, ' is deprecated!!' ! ! !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 ! ! !Object methodsFor: 'printing'! printString ^'a ', self class name ! printNl ! log: aString block: aBlock | result | console log: aString, ' time: ', (Date millisecondsToRun: [result := aBlock value]) printString. ^result ! storeString "Answer a String representation of the receiver from which the receiver can be reconstructed." ^ String streamContents: [:s | self storeOn: s] ! storeOn: aStream aStream nextPutAll: self printString ! ! !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 ! at: aString ! basicParse: aString ! parse: aString | result | self try: [result := self basicParse: aString] catch: [:ex | (self parseError: ex parsing: aString) signal]. ^result ! parseError: anException parsing: aString | row col message lines badLine code | . lines := aString lines. badLine := lines at: row. badLine := (badLine copyFrom: 1 to: col - 1), ' ===>', (badLine copyFrom: col to: badLine size). lines at: row put: badLine. code := String streamContents: [:s | lines withIndexDo: [:l :i | s nextPutAll: i asString, ': ', l, String lf]]. ^ Error new messageText: ('Parse error on line ' , row , ' column ' , col , ' : ' , message , ' Below is code with line numbers and ===> marker inserted:' , String lf, code) ! reservedWords "JavaScript reserved words" ! readJSObject: anObject ! ! !Smalltalk methodsFor: 'classes'! 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 methodsFor: 'packages'! packages "Return all Package instances in the system." ! packageAt: packageName ! packageAt: packageName ifAbsent: aBlock ^(self packageAt: packageName) ifNil: aBlock ! removePackage: packageName "Removes a package and all its classes." | pkg | pkg := self packageAt: packageName ifAbsent: [self error: 'Missing package: ', packageName]. pkg classes do: [:each | self removeClass: each]. self deletePackage: packageName ! renamePackage: packageName to: newName "Rename a package." | pkg | pkg := self packageAt: packageName ifAbsent: [self error: 'Missing package: ', packageName]. (self packageAt: newName) ifNotNil: [self error: 'Already exists a package called: ', newName]. . pkg name: newName. self deletePackage: packageName. ! ! !Smalltalk methodsFor: 'private'! createPackage: packageName "Create and bind a new package with given name and return it." ! deletePackage: packageName "Deletes a package by deleting its binding, but does not check if it contains classes etc. To remove a package, use #removePackage instead." ! createPackage: packageName properties: aDict "Create and bind a new package with given name and return it." | object |