--- a/MiniLogger.st Thu Jul 17 13:54:36 2014 +0200
+++ b/MiniLogger.st Fri Jul 18 17:09:17 2014 +0200
@@ -37,7 +37,6 @@
!MiniLogger class methodsFor:'instance creation'!
instance
-
Instance isNil ifTrue:[Instance := self basicNew].
^Instance
@@ -45,7 +44,6 @@
!
new
-
Logger log: 'Do not use MiniLogger new, use #instance instead' severity: #warn facility: 'STX'.
^self instance
@@ -55,7 +53,6 @@
!MiniLogger class methodsFor:'class initialization'!
initialize
-
(Smalltalk at:#Logger) isNil ifTrue:[Smalltalk at:#Logger put: self instance].
"Created: / 01-09-2011 / 12:26:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -63,52 +60,49 @@
!MiniLogger methodsFor:'logging'!
-facilityOf: originator
+facilityOf:originator
+ ^ originator class
+ perform:#logFacility
+ ifNotUnderstood:[
+ |pkg|
- ^originator class
- perform: #logFacility
- ifNotUnderstood: [
- | pkg |
pkg := originator class package.
- (pkg startsWith: 'stx') ifTrue:[
+ (pkg startsWith:'stx') ifTrue:[
'STX'
] ifFalse:[
- pkg copyFrom: ((pkg lastIndexOf: $:) + 1)
+ pkg copyFrom:((pkg lastIndexOf:$:) + 1)
]
]
"
- Logger facilityOf: Object
- Logger facilityOf: Expecco::Browser
+ Logger facilityOf: Object
+ Logger facilityOf: Expecco::Browser
"
"Created: / 15-09-2011 / 10:20:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
log: message
-
self log: message severity: #debug
"Created: / 15-09-2011 / 10:27:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
log: message facility: facility
-
self log: message severity: #debug facility: facility
"Created: / 14-09-2011 / 21:22:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
log: message severity: severity
-
self log: message severity: #debug originator: thisContext sender receiver
"Created: / 15-09-2011 / 10:25:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
log: message severity: severity attachment: attachment
+ | originator |
- | originator |
originator := thisContext sender receiver.
self log: message severity: severity facility: (self facilityOf: originator) originator: originator attachment: attachment
@@ -118,21 +112,18 @@
!
log: message severity: severity facility: facility
-
self log: message severity: severity facility: facility originator: thisContext sender receiver
"Created: / 14-09-2011 / 21:20:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
log: message severity: severity facility: facility originator: originator
-
self log: message severity: severity facility: facility originator: originator attachment: nil
"Created: / 14-09-2011 / 21:20:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
log: message severity: severity facility: facility originator: originator attachment: attachment
-
"Pricipal logging method. This mimics VM __stxLog__()"
Stderr
@@ -158,7 +149,6 @@
!
log: message severity: severity originator: originator
-
self log: message severity: severity facility: (self facilityOf: originator) originator: originator
"Created: / 15-09-2011 / 10:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -168,20 +158,20 @@
!MiniLogger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.2 2013-03-15 11:21:39 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.3 2014-07-18 15:09:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.2 2013-03-15 11:21:39 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.3 2014-07-18 15:09:17 cg Exp $'
!
version_HG
- ^ '§Changeset: <not expanded> §'
+ ^ '$Changeset: <not expanded> $'
!
version_SVN
- ^ '§Id: MiniLogger.st 10688 2011-09-15 11:05:35Z vranyj1 §'
+ ^ '$Id: MiniLogger.st,v 1.3 2014-07-18 15:09:17 cg Exp $'
! !