| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163 |
- Smalltalk current createPackage: 'Kernel-Exceptions' properties: #{}!
- Object subclass: #Error
- instanceVariableNames: 'messageText'
- package: 'Kernel-Exceptions'!
- !Error methodsFor: 'accessing'!
- context
- <return self.context>
- !
- jsStack
- <return self.stack>
- !
- messageText
- ^messageText
- !
- messageText: aString
- messageText := aString
- ! !
- !Error methodsFor: 'signaling'!
- signal
- <self.context = smalltalk.getThisContext(); self.smalltalkError = true; throw(self)>
- !
- signal: aString
- self messageText: aString.
- self signal
- ! !
- !Error methodsFor: 'testing'!
- isSmalltalkError
- <return self.smalltalkError === true>
- ! !
- !Error class methodsFor: 'instance creation'!
- signal
- ^self new signal
- !
- signal: aString
- ^self new
- signal: aString
- ! !
- Error subclass: #Continuation
- instanceVariableNames: 'context'
- package: 'Kernel-Exceptions'!
- !Continuation methodsFor: 'initialization'!
- initializeFromContext: aContext
- "Add a cc flag to the error object so Smalltalk knows how to handle it"
- super initialize.
- context := aContext.
- self basicAt: 'cc' put: true
- !
- restore
- context resume
- !
- value: aBlock
- aBlock value: self.
- self signal
- ! !
- !Continuation class methodsFor: 'instance creation'!
- currentDo: aBlock
- ^ self new
- initializeWithContext: thisContext home;
- value: aBlock
- ! !
- Error subclass: #MessageNotUnderstood
- instanceVariableNames: 'message receiver'
- package: 'Kernel-Exceptions'!
- !MessageNotUnderstood methodsFor: 'accessing'!
- message
- ^message
- !
- message: aMessage
- message := aMessage
- !
- messageText
- ^self receiver asString, ' does not understand #', self message selector
- !
- receiver
- ^receiver
- !
- receiver: anObject
- receiver := anObject
- ! !
- Object subclass: #ErrorHandler
- instanceVariableNames: ''
- package: 'Kernel-Exceptions'!
- !ErrorHandler methodsFor: 'error handling'!
- handleError: anError
- anError context ifNotNil: [self logErrorContext: anError context].
- self logError: anError
- ! !
- !ErrorHandler methodsFor: 'private'!
- log: aString
- console log: aString
- !
- logContext: aContext
- aContext home ifNotNil: [
- self logContext: aContext home].
- self log: aContext receiver asString, '>>', aContext selector
- !
- logError: anError
- self log: anError messageText
- !
- logErrorContext: aContext
- aContext ifNotNil: [
- aContext home ifNotNil: [
- self logContext: aContext home]]
- ! !
- ErrorHandler class instanceVariableNames: 'current'!
- !ErrorHandler class methodsFor: 'accessing'!
- current
- ^current ifNil: [current := self new]
- !
- setCurrent: anHandler
- current := anHandler
- ! !
- !ErrorHandler class methodsFor: 'initialization'!
- initialize
- self register
- !
- register
- ErrorHandler setCurrent: self new
- ! !
|
