hg/stx-libbasic: MiniLogger.st@02d39aaca894 (annotated)

23572 75f7f0f297a2 #BUGFIX by sr sr parents: 23200 diff changeset	1	"{ Encoding: utf8 }"
75f7f0f297a2 #BUGFIX by sr sr parents: 23200 diff changeset	2
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	3	"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	4	COPYRIGHT (c) 2012-2014 by Jan Vrany & eXept Software AG
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	5	All Rights Reserved
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	6
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	7	This software is furnished under a license and may be used
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	8	only in accordance with the terms of that license and with the
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	9	inclusion of the above copyright notice. This software may not
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	10	be provided or otherwise made available to, or used by, any
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	11	other person. No title to or ownership of the software is
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	12	hereby transferred.
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	13	"
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	14	"{ Package: 'stx:libbasic' }"
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	15
17308 ec60fc02a37f Fix in MiniLogger>>#log:severity:facility:originator:attachment: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17171 diff changeset	16	"{ NameSpace: Smalltalk }"
ec60fc02a37f Fix in MiniLogger>>#log:severity:facility:originator:attachment: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17171 diff changeset	17
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	18	Object subclass:#MiniLogger
17068 500f5e2c282f class: MiniLogger Stefan Vogel <sv@exept.de> parents: 16897 diff changeset	19	instanceVariableNames:''
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	20	classVariableNames:'ALL DEBUG ENTER ERROR FATAL INFO Instance LEAVE LogFormat
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	21	LogOnStderr LogOnTranscript NONE Severities TRACE TRACE0 TRACE1
21609 34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	22	TRACE2 TRACE3 Threshold ThresholdPerClass ThresholdPerPackage
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	23	TimestampFormat WARN WARNING'
17068 500f5e2c282f class: MiniLogger Stefan Vogel <sv@exept.de> parents: 16897 diff changeset	24	poolDictionaries:''
500f5e2c282f class: MiniLogger Stefan Vogel <sv@exept.de> parents: 16897 diff changeset	25	category:'System-Debugging-Support'
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	26	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	27
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	28	Magnitude subclass:#Severity
17068 500f5e2c282f class: MiniLogger Stefan Vogel <sv@exept.de> parents: 16897 diff changeset	29	instanceVariableNames:'name value'
500f5e2c282f class: MiniLogger Stefan Vogel <sv@exept.de> parents: 16897 diff changeset	30	classVariableNames:''
500f5e2c282f class: MiniLogger Stefan Vogel <sv@exept.de> parents: 16897 diff changeset	31	poolDictionaries:''
500f5e2c282f class: MiniLogger Stefan Vogel <sv@exept.de> parents: 16897 diff changeset	32	privateIn:MiniLogger
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	33	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	34
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	35	!MiniLogger class methodsFor:'documentation'!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	36
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	37	copyright
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	38	"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	39	COPYRIGHT (c) 2012-2014 by Jan Vrany & eXept Software AG
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	40	All Rights Reserved
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	41
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	42	This software is furnished under a license and may be used
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	43	only in accordance with the terms of that license and with the
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	44	inclusion of the above copyright notice. This software may not
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	45	be provided or otherwise made available to, or used by, any
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	46	other person. No title to or ownership of the software is
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	47	hereby transferred.
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	48	"
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	49	!
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	50
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	51	documentation
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	52	"
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	53	A very simple logger for Smalltalk/X. This one is always present.
20505 51482561b0d3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20504 diff changeset	54	It mimics the protocol of the loggers found in stx:goodies/loggia,
51482561b0d3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20504 diff changeset	55	which can be activated by setting the global 'Logger' to an instance of
20733 3a3d8e7e94fd #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20732 diff changeset	56	one of them.
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	57
e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	58	All
e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	59	'Transcript show: 'Processor [info]: xxx'
20505 51482561b0d3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20504 diff changeset	60	should be rewritten over time to use the Logger.
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	61
20505 51482561b0d3 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20504 diff changeset	62	'Object infoPrint' and 'Object debugPrint' have been changed to
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	63	forward their messages to the global 'Logger' if not nil.
e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	64
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	65	Usage:
20507 2e4f8ef70102 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20506 diff changeset	66	Logger info: 'Hello world'.
2e4f8ef70102 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20506 diff changeset	67	Logger debug: 'Hello world'.
2e4f8ef70102 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20506 diff changeset	68	Logger warning: 'Hello world'.
2e4f8ef70102 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20506 diff changeset	69	Logger error: 'Hello world'.
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	70
20506 20572a649fb8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20505 diff changeset	71	to disable logging:
20572a649fb8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20505 diff changeset	72	MiniLogger logOnTranscript:false.
20572a649fb8 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20505 diff changeset	73	MiniLogger logOnStderr:false.
20733 3a3d8e7e94fd #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20732 diff changeset	74
3a3d8e7e94fd #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20732 diff changeset	75	for selective logging:
3a3d8e7e94fd #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20732 diff changeset	76	Logger loggingThreshold: Logger severityALL.
3a3d8e7e94fd #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20732 diff changeset	77	Logger loggingThreshold: Logger severityINFO.
3a3d8e7e94fd #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20732 diff changeset	78	Logger loggingThreshold: Logger severityNONE.
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	79
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	80	ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	81
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	82	The following keywords are expanded in the message:
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	83	'LINE' linenumber in the sending method
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	84	'RECEIVER' printstring of receiver in sending context
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	85	'CLASS' class of receiver in sending context
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	86	'MCLASS' class of sendig method
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	87	'SELECTOR' selector of sending method
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	88	'WHO' who-string of sending method
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	89	'WHERE' who-string plus linenumber of sending method
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	90
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	91	i.e.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	92	Logger info:'%(WHERE) - some message here'
22505 a85d5e597dd0 #DOCUMENTATION by mawalch mawalch parents: 22185 diff changeset	93
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	94	For more examples, see #examples.
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	95
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	96	[author:]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	97	Jan Vrany <jan.vrany@fit.cvut.cz>
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	98
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	99	[instance variables:]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	100
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	101	[class variables:]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	102
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	103	[see also:]
22505 a85d5e597dd0 #DOCUMENTATION by mawalch mawalch parents: 22185 diff changeset	104	Loggia logging framework (stx:goodies/loggia)
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	105	"
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	106	!
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	107
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	108	examples
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	109	"
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	110	Simple logging (make sure logging threshold is lower or equal then
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	111	Logger severityDEBUG, see #loggingThreshold:)
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	112	[exBegin]
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	113	Logger debug: 'Hello world!!'
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	114	[exEnd]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	115
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	116
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	117	You may use #<severity>:with:with: utility to format log message:
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	118	[exBegin]
e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	119	\|hostname port\|
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	120
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	121	hostname := 'www.google.com'.
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	122	port := 80.
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	123	Logger error: 'Cannot connect to %1 port %2' with: hostname with: port
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	124	[exEnd]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	125
21641 7c6e06a43728 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21640 diff changeset	126	and even automatically include a lineNumber:
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	127	[exBegin]
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	128	Logger info: '[%(CLASS)>>%(SELECTOR):%(LINE)] Hello world!!'
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	129	[exEnd]
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	130
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	131
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	132	"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	133	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	134
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	135	!MiniLogger class methodsFor:'initialization'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	136
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	137	initialize
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	138	LogOnStderr := true.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	139	LogOnTranscript := true.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	140
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	141	ALL := Severity new initializeWithName:#all value:0.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	142	ENTER := Severity new initializeWithName:#enter value:10.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	143	LEAVE := Severity new initializeWithName:#leave value:10.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	144	TRACE3 := Severity new initializeWithName:#trace3 value:20.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	145	TRACE2 := Severity new initializeWithName:#trace2 value:30.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	146	TRACE1 := Severity new initializeWithName:#trace1 value:40.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	147	TRACE0 := Severity new initializeWithName:#trace0 value:50.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	148	TRACE := Severity new initializeWithName:#trace value:50.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	149	DEBUG := Severity new initializeWithName:#debug value:60.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	150	INFO := Severity new initializeWithName:#info value:70.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	151	WARN := Severity new initializeWithName:#warn value:88.
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	152	WARNING := Severity new initializeWithName:#warning value:88.
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	153	ERROR := Severity new initializeWithName:#error value:99.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	154	FATAL := Severity new initializeWithName:#fatal value:100.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	155	NONE := Severity new initializeWithName:#none value:65535.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	156
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	157	Severities := {ENTER. LEAVE. TRACE3. TRACE2. TRACE1. TRACE0. TRACE. DEBUG. INFO. WARN. WARNING. ERROR. FATAL.}.
17068 500f5e2c282f class: MiniLogger Stefan Vogel <sv@exept.de> parents: 16897 diff changeset	158	Threshold := InfoPrinting ifTrue:[INFO] ifFalse:[WARN].
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	159
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	160	(Smalltalk at:#Logger) isNil ifTrue:[
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	161	Smalltalk at:#Logger put:self
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	162	].
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	163
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	164	"Modified: / 13-08-2014 / 14:36:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	165	! !
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	166
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	167	!MiniLogger class methodsFor:'accessing-log format'!
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	168
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	169	logFormat
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	170	"will be used for the log message as:
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	171	%1 [%2] (%3): %4
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	172	with %1: facility (area)
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	173	with %2: secerity (area)
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	174	with %3: timestamp
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	175	with %4: caller/originator
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	176	with %5: message"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	177
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	178	^ LogFormat ? '%1 [%2] (%3): %5'
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	179
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	180	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	181	MiniLogger logFormat:'%1 [%2]: %5'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	182	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	183	MiniLogger logFormat:'%3 %1 [%2]: %5'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	184	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	185	MiniLogger logFormat:nil.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	186	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	187	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	188	!
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	189
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	190	logFormat:aFormatString
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	191	"will be used for the log message as:
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	192	%1 [%2] (%3): %4
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	193	with %1: facility (area)
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	194	with %2: secerity (area)
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	195	with %3: timestamp
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	196	with %4: caller/originator
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	197	with %5: message.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	198	Pass anil argument to return to the default format.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	199	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	200
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	201	LogFormat := aFormatString
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	202
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	203	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	204	MiniLogger logFormat:'%1 [%2]: %5'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	205	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	206	MiniLogger logFormat:'%3 %1 [%2]: %5'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	207	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	208	MiniLogger logFormat:nil.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	209	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	210	"
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	211	!
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	212
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	213	logOnStderr
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	214	^ LogOnStderr
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	215	!
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	216
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	217	logOnStderr:aBoolean
22505 a85d5e597dd0 #DOCUMENTATION by mawalch mawalch parents: 22185 diff changeset	218	"enable/disable logging on stderr"
a85d5e597dd0 #DOCUMENTATION by mawalch mawalch parents: 22185 diff changeset	219
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	220	LogOnStderr := aBoolean
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	221
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	222	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	223	MiniLogger logOnStderr:false
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	224	MiniLogger logOnTranscript:false
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	225
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	226	MiniLogger logOnStderr:true
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	227	MiniLogger logOnTranscript:true
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	228	"
22505 a85d5e597dd0 #DOCUMENTATION by mawalch mawalch parents: 22185 diff changeset	229
a85d5e597dd0 #DOCUMENTATION by mawalch mawalch parents: 22185 diff changeset	230	"Modified (comment): / 25-01-2018 / 12:13:53 / mawalch"
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	231	!
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	232
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	233	logOnTranscript
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	234	^ LogOnTranscript
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	235	!
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	236
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	237	logOnTranscript:aBoolean
22505 a85d5e597dd0 #DOCUMENTATION by mawalch mawalch parents: 22185 diff changeset	238	"enable/disable logging on the Transcript"
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	239
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	240	LogOnTranscript := aBoolean
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	241
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	242	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	243	MiniLogger logOnStderr:false
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	244	MiniLogger logOnTranscript:false
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	245
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	246	MiniLogger logOnStderr:true
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	247	MiniLogger logOnTranscript:true
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	248	"
22505 a85d5e597dd0 #DOCUMENTATION by mawalch mawalch parents: 22185 diff changeset	249
a85d5e597dd0 #DOCUMENTATION by mawalch mawalch parents: 22185 diff changeset	250	"Modified (comment): / 25-01-2018 / 12:13:36 / mawalch"
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	251	!
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	252
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	253	timestampFormat
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	254	"will be used for the log message"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	255
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	256	^ TimestampFormat ? '%(year)-%(mon)-%(day) %h:%m:%s.%i'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	257	!
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	258
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	259	timestampFormat:aTimestampFormatString
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	260	"will be used for the log message"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	261
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	262	TimestampFormat := aTimestampFormatString
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	263	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	264
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	265	!MiniLogger class methodsFor:'accessing-severities'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	266
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	267	severities
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	268	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	269
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	270	^ Severities.
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	271
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	272	"Modified (comment): / 06-02-2019 / 18:17:15 / Claus Gittinger"
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	273	!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	274
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	275	severityDEBUG
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	276	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	277
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	278	^ DEBUG
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	279
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	280	"Created: / 13-08-2014 / 14:15:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	281	"Modified (comment): / 06-02-2019 / 18:18:21 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	282	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	283
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	284	severityENTER
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	285	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	286
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	287	^ ENTER
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	288
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	289	"Created: / 13-08-2014 / 14:14:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	290	"Modified (comment): / 06-02-2019 / 18:18:24 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	291	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	292
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	293	severityERROR
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	294	"setting this as treshold will print errors"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	295	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	296
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	297	^ ERROR
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	298
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	299	"Created: / 13-08-2014 / 14:15:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	300	"Modified (comment): / 06-02-2019 / 18:18:30 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	301	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	302
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	303	severityFATAL
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	304	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	305
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	306	^ FATAL
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	307
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	308	"Created: / 13-08-2014 / 14:15:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	309	"Modified (comment): / 06-02-2019 / 18:18:33 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	310	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	311
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	312	severityINFO
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	313	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	314
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	315	^ INFO
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	316
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	317	"Created: / 13-08-2014 / 14:15:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	318	"Modified (comment): / 06-02-2019 / 18:18:37 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	319	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	320
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	321	severityLEAVE
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	322	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	323
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	324	^ LEAVE
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	325
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	326	"Created: / 13-08-2014 / 14:14:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	327	"Modified (comment): / 06-02-2019 / 18:18:40 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	328	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	329
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	330	severityTRACE
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	331	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	332
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	333	^ TRACE
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	334
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	335	"Created: / 13-08-2014 / 14:15:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	336	"Modified (comment): / 06-02-2019 / 18:18:43 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	337	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	338
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	339	severityTRACE0
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	340	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	341
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	342	^ TRACE0
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	343
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	344	"Created: / 13-08-2014 / 14:14:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	345	"Modified (comment): / 06-02-2019 / 18:18:45 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	346	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	347
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	348	severityTRACE1
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	349	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	350
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	351	^ TRACE1
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	352
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	353	"Created: / 13-08-2014 / 14:14:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	354	"Modified (format): / 06-02-2019 / 18:18:51 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	355	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	356
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	357	severityTRACE2
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	358	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	359
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	360	^ TRACE2
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	361
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	362	"Created: / 13-08-2014 / 14:14:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	363	"Modified (comment): / 06-02-2019 / 18:18:54 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	364	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	365
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	366	severityTRACE3
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	367	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	368
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	369	^ TRACE3
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	370
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	371	"Created: / 13-08-2014 / 14:14:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	372	"Modified (comment): / 06-02-2019 / 18:18:57 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	373	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	374
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	375	severityWARN
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	376	"setting this as treshold will print warnings and errors"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	377	"ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	378
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	379	^ WARN
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	380
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	381	"Created: / 13-08-2014 / 14:15:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	382	"Modified (comment): / 06-02-2019 / 18:19:01 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	383	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	384
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	385	!MiniLogger class methodsFor:'accessing-severities-special'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	386
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	387	severityALL
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	388	"setting this as treshold will print all"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	389
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	390	^ ALL
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	391
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	392	"Created: / 13-08-2014 / 14:14:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	393	"Modified (comment): / 06-02-2019 / 18:14:48 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	394	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	395
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	396	severityNONE
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	397	"setting this as treshold will suppress all logging"
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	398
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	399	^ NONE
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	400
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	401	"Created: / 13-08-2014 / 14:15:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	402	"Modified (comment): / 06-02-2019 / 18:14:40 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	403	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	404
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	405	!MiniLogger class methodsFor:'configuration'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	406
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	407	loggingThreshold
22710 731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	408	"Return the logging threshold.
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	409	No messages with severity lower than threshold will be logged.
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	410	The default is
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	411	InfoPrinting ifTrue:[INFO] ifFalse:[WARN]
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	412	meaning that by default, no trace and debug logs are generated."
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	413
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	414	^ Threshold
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	415
22710 731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	416	"
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	417	self loggingThreshold:INFO.
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	418	self trace:'blabla'.
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	419	self loggingThreshold:TRACE.
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	420	self trace:'blabla'.
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	421	self loggingThreshold:INFO.
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	422	"
731015dd01c5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 22505 diff changeset	423
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	424	"Created: / 13-08-2014 / 14:36:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	425	!
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	426
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	427	loggingThreshold:severity
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	428	"Sets logging threshold.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	429	All severities higher or equal to the given one will be logged.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	430	Use `Logger severityNONE` to suppress logging completely
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	431	or `Logger severityALL` to log all messages.
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	432	ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	433
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	434	(
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	435	(Severities includes:severity)
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	436	or:[ severity == ALL or:[ severity == NONE ] ]
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	437	) ifFalse:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	438	self error:'Invalid severity. Use of Logger severityXXX'.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	439	^ self.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	440	].
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	441	Threshold := severity
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	442
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	443	"
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	444	Logger loggingThreshold: Logger severityALL.
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	445	Logger loggingThreshold: Logger severityINFO.
23669 27c60ac0dcdb #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23572 diff changeset	446	Logger loggingThreshold: Logger severityDEBUG. -- only debug, warnings and errors
27c60ac0dcdb #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23572 diff changeset	447	Logger loggingThreshold: Logger severityWARN. -- only warnings and errors
27c60ac0dcdb #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23572 diff changeset	448	Logger loggingThreshold: Logger severityERROR. -- only errors
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	449
20485 8eb2274f91ae #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20218 diff changeset	450	Logger loggingThreshold: Logger severityNONE.
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	451	"
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	452
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	453	"Created: / 13-08-2014 / 14:34:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	454	"Modified: / 26-08-2014 / 08:23:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	455	"Modified (comment): / 09-10-2014 / 09:35:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	456	"Modified (comment): / 01-03-2017 / 10:42:31 / cg"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	457	"Modified (comment): / 06-02-2019 / 18:17:57 / Claus Gittinger"
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	458	!
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	459
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	460	loggingThreshold:aLimitOrNil forClass:aClass
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	461	"allows individual per-class setting of the threshold (useful during debugging).
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	462	With a nil limit, the default is reinstalled for that class.
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	463	ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	464
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	465	"/ the original scheme asked the class;
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	466	"/ but that required adding a getter to debugged classes, which
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	467	"/ is easily forgotten and checked in.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	468	"/ Better keep that nfo here, so wemight even provide a GUI for it some time in the future...
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	469
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	470	"/ remember the class name - in case it is reloaded/changes identity etc.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	471	aLimitOrNil isNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	472	ThresholdPerClass notNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	473	ThresholdPerClass removeKey:(aClass theNonMetaclass name) ifAbsent:[].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	474	ThresholdPerClass isEmpty ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	475	ThresholdPerClass := nil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	476	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	477	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	478	^ self
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	479	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	480	ThresholdPerClass isNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	481	ThresholdPerClass := Dictionary new.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	482	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	483	ThresholdPerClass at:aClass theNonMetaclass name put:aLimitOrNil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	484
21609 34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	485	"
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	486	Logger severityThresholdOf: Object
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	487	Logger severityThresholdOf: Expecco::Browser
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	488
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	489	Logger loggingThreshold:(Logger severityDEBUG) forClass:(Expecco::Browser).
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	490	Logger loggingThreshold:(Logger severityDEBUG) forPackage:'stx:libbasic'.
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	491	Logger loggingThreshold:(Logger severityDEBUG) forPackage:'exept:workflow'.
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	492
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	493	Logger loggingThreshold:nil forClass:(Expecco::Browser).
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	494	Logger loggingThreshold:nil forPackage:'stx:libbasic'.
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	495	"
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	496
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	497	"Created: / 01-03-2017 / 10:52:25 / cg"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	498	"Modified (comment): / 06-02-2019 / 18:18:03 / Claus Gittinger"
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	499	!
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	500
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	501	loggingThreshold:aLimitOrNil forPackage:aPackageName
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	502	"allows individual per-package setting of the threshold (useful during debugging).
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	503	With a nil limit, the default is reinstalled for that class.
bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	504	ALL > FATAL > ERROR > WARN > INFO > DEBUG > TRACE0 > TRACE3 > NONE"
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	505
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	506	"/ the original scheme only asked the class;
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	507	"/ but that required adding many getters to debugged packages,
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	508	"/ which are easily forgotten and checked in.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	509	"/ Better keep that info here, so we might even provide a GUI for it some time in the future...
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	510
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	511	"/ remember the class name - in case it is reloaded/changes identity etc.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	512	aLimitOrNil isNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	513	ThresholdPerPackage notNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	514	ThresholdPerPackage removeKey:(aPackageName) ifAbsent:[].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	515	ThresholdPerPackage isEmpty ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	516	ThresholdPerPackage := nil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	517	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	518	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	519	^ self
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	520	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	521	ThresholdPerPackage isNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	522	ThresholdPerPackage := Dictionary new.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	523	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	524	ThresholdPerPackage at:aPackageName put:aLimitOrNil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	525
21609 34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	526	"
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	527	Logger severityThresholdOf: Object
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	528	Logger severityThresholdOf: Expecco::Browser
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	529
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	530	Logger loggingThreshold:(Logger severityDEBUG) forClass:(Expecco::Browser).
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	531	Logger loggingThreshold:(Logger severityDEBUG) forPackage:'stx:libbasic'.
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	532	Logger loggingThreshold:(Logger severityDEBUG) forPackage:'exept:workflow'.
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	533
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	534	Logger loggingThreshold:nil forClass:(Expecco::Browser).
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	535	Logger loggingThreshold:nil forPackage:'stx:libbasic'.
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	536	"
34d4dda50ad5 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21608 diff changeset	537
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	538	"Created: / 01-03-2017 / 10:53:42 / cg"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	539	"Modified (comment): / 06-02-2019 / 18:18:07 / Claus Gittinger"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	540	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	541
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	542	!MiniLogger class methodsFor:'logging'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	543
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	544	log: message
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	545	self log:message severity:DEBUG originator:(thisContext sender receiver).
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	546
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	547	"Created: / 15-09-2011 / 10:27:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	548	"Modified: / 02-12-2014 / 10:52:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	549	"Modified (format): / 01-03-2017 / 10:27:52 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	550	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	551
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	552	log: message facility: facility
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	553	self log: message severity: DEBUG facility: facility originator: thisContext sender receiver
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	554
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	555	"Created: / 14-09-2011 / 21:22:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	556	"Modified: / 02-12-2014 / 10:53:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	557	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	558
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	559	log: message severity: severity
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	560	self log: message severity: severity originator: thisContext sender receiver
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	561
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	562	"Created: / 15-09-2011 / 10:25:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	563	"Modified: / 02-12-2014 / 10:53:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	564	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	565
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	566	log: message severity: severity attachment: attachment
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	567	\| originator \|
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	568
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	569	originator := thisContext sender receiver.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	570	self log: message severity: severity facility: (self facilityOf: originator) originator: originator attachment: attachment
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	571
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	572	"Created: / 15-09-2011 / 11:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	573	"Modified: / 15-03-2013 / 11:20:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	574	"Modified (format): / 26-08-2014 / 08:23:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	575	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	576
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	577	log: message severity: severity facility: facility
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	578	self log: message severity: severity facility: facility originator: thisContext sender receiver
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	579
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	580	"Created: / 14-09-2011 / 21:20:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	581	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	582
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	583	log: message severity: severity facility: facility originator: originator
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	584	self log: message severity: severity facility: facility originator: originator attachment: nil
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	585
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	586	"Created: / 14-09-2011 / 21:20:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	587	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	588
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	589	log:message severity:severity facility:facilityArg originator:originator attachment:attachment
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	590	"Pricipal logging method. This mimics VM __stxLog__()"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	591
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	592	\| severityXlated messageXlated prevLogOnTranscript facility severityName words secondWord\|
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	593
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	594	(self canLog) ifFalse:[^ self].
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	595
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	596	severityXlated := severity.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	597
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	598	severityXlated isSymbol ifTrue:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	599	"/ Be backward compatible, allow for symbolic severities
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	600	"/ but when encountered, issue a warning...
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	601	severityXlated := Severities detect:[:each\| each name == severityXlated] ifNone:[].
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	602
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	603	"/ This will be enabled later, so far it generates
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	604	"/ way to much warnings. at least stx:libjava & exept:jdi has to be rewritten
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	605
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	606	"/ self log: 'using symbols as severity is deprecated, use Logger severityXXX to get severity object' severity: WARN facility: 'STX' originator: self.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	607	"/ caller := thisContext sender.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	608	"/ [ caller notNil and: [ caller receiver ~~ originator ] ] whileTrue:[ caller := caller sender ].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	609	"/ self log: 'caller is ', caller printString severity: INFO facility: 'STX' originator: self.
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	610	] ifFalse:[
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	611	"/ Now check whether the severity is one of the predefined ones,
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	612	"/ if not, issue an error
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	613	(Severities includesIdentical:severityXlated) ifFalse:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	614	\| caller \|
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	615
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	616	caller := thisContext sender.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	617	[caller notNil and:[caller receiver ~~ originator]] whileTrue:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	618	caller := caller sender
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	619	].
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	620	self log:('no such severity (%1, called from %2), use one from predefined severities. Original message will be logged as INFO' bindWith:severityXlated with:caller)
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	621	severity: ERROR facility: 'STX' originator: self.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	622	severityXlated := INFO.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	623	].
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	624	].
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	625
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	626	messageXlated := message value asString.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	627	facility := facilityArg.
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	628
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	629	"/ hack to allow calls from #infoPrint/#errorPrint.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	630	"/ if this is an oldStyle #infoPrint or #errorPrint, do not append another facility and severity
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	631	words := messageXlated asCollectionOfWords.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	632	(words size >= 2
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	633	and:[words first isAlphaNumeric
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	634	and:[((secondWord := words second) startsWith:$[ )
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	635	and:[(secondWord endsWith:$]) or:[(secondWord endsWith:']:')]]]]) ifTrue:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	636	facility := words first.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	637	severityName := secondWord copyFrom:2 to:(secondWord indexOf:$])-1.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	638	severityXlated := Severities detect:[:each\| each name = severityName]
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	639	ifNone:[Severity new initializeWithName:severityName value:severity value].
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	640
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	641	messageXlated := messageXlated copyFrom:(messageXlated indexOf:$])+1.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	642	(messageXlated startsWith:$:) ifTrue:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	643	messageXlated := messageXlated copyFrom:2.
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	644	].
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	645	(messageXlated startsWith:Character space) ifTrue:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	646	messageXlated := messageXlated copyFrom:2.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	647	].
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	648	].
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	649
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	650	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	651	(ThresholdPerClass isNil and:[ThresholdPerPackage isNil]) ifTrue:[
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	652	(Threshold > severityXlated) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	653	] ifFalse:[
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	654	((self severityThresholdOf:originator) > severityXlated) ifTrue:[^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	655	].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	656
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	657	thisContext isRecursive ifTrue:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	658	'STX:Logger [error]: recursive logger invocation.' _errorPrintCR.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	659	^ self.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	660	].
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	661
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	662	"/ to avoid recursion, turn off logOnTranscript while logging
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	663	"/ had this problem with RecursionLock, which wanted to issue a warning
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	664	"/ ("cleanup for dead process") from inside Transcript code.
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	665	prevLogOnTranscript := LogOnTranscript.
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	666	[
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	667	LogOnTranscript := false.
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	668
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	669	self basicLog:messageXlated severity:severityXlated facility:facility
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	670	originator:originator attachment:attachment.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	671
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	672	(prevLogOnTranscript and:[Transcript isView]) ifTrue:[
23200 43417d0ac3f2 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 23148 diff changeset	673	Transcript
43417d0ac3f2 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 23148 diff changeset	674	nextPutAll:facility;
43417d0ac3f2 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 23148 diff changeset	675	nextPutAll:' [';
24103 759b7342d559 #BUGFIX by Stefan Reise sr parents: 24020 diff changeset	676	nextPutAll:severityXlated printString;
23200 43417d0ac3f2 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 23148 diff changeset	677	nextPutAll:']: ';
43417d0ac3f2 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 23148 diff changeset	678	nextPutLine:messageXlated.
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	679	].
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	680	] ensure:[
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	681	LogOnTranscript := prevLogOnTranscript.
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	682	].
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	683
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	684	"
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	685	Logger log:'test message' severity:self severityINFO facility: 'TEST'
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	686	Logger log:'test message' severity:#info facility: 'TEST'
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	687	Logger log:'test message' severity:#bla facility: 'TEST'
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	688	Logger log:'test message' severity:123 facility: 'TEST'
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	689
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	690	Logger log:'test message' severity: DEBUG facility: 'TEST'
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	691	Logger log:'test message' severity: INFO facility: 'TEST'
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	692	Logger log:'test message' asUnicode16String severity: INFO facility: 'TEST'
23572 75f7f0f297a2 #BUGFIX by sr sr parents: 23200 diff changeset	693	Logger log:'test message äöüß' severity: INFO facility: 'TEST'
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	694	Logger log:'test message' severity: WARNING facility: 'TEST'
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	695	Logger log:'test message' severity: ERROR facility: 'TEST'
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	696	'test message' infoPrintCR
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	697	'test message' errorPrintCR
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	698	"
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	699
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	700	"backward compatibility with infoPrint/errorPrint callers:
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	701	'foo [info] test message' infoPrintCR
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	702	'bar [error] test message' errorPrintCR
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	703	'foo [info]: test message' infoPrintCR
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	704	'bar [error]: test message' errorPrintCR
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	705	"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	706
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	707	"Created: / 14-09-2011 / 21:18:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17308 ec60fc02a37f Fix in MiniLogger>>#log:severity:facility:originator:attachment: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17171 diff changeset	708	"Modified: / 20-01-2015 / 18:40:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	709	"Modified: / 01-03-2017 / 11:15:46 / cg"
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	710	"Modified: / 28-06-2018 / 11:15:42 / Stefan Vogel"
23200 43417d0ac3f2 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 23148 diff changeset	711	"Modified: / 10-07-2018 / 00:16:35 / Claus Gittinger"
23671 bb9ad1ca0117 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 23669 diff changeset	712	"Modified (format): / 06-02-2019 / 18:12:24 / Claus Gittinger"
24103 759b7342d559 #BUGFIX by Stefan Reise sr parents: 24020 diff changeset	713	"Modified: / 02-05-2019 / 13:50:07 / Stefan Reise"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	714	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	715
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	716	log: message severity: severity originator: originator
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	717	self log: message severity: severity facility: (self facilityOf: originator) originator: originator
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	718
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	719	"Created: / 15-09-2011 / 10:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	720	"Modified: / 15-03-2013 / 11:20:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	721	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	722
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	723	!MiniLogger class methodsFor:'logging - utils'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	724
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	725	debug: message
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	726	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	727	((Threshold > DEBUG) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	728
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	729	self log:(self expand:message) severity: DEBUG originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	730
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	731	"Modified: / 02-12-2014 / 10:54:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	732	"Modified: / 13-03-2017 / 15:32:39 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	733	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	734
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	735	debug: format with: arg1
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	736	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	737	((Threshold > DEBUG) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	738
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	739	self log:(self expand:format with: arg1) severity:DEBUG originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	740
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	741	"Modified: / 02-12-2014 / 10:54:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	742	"Modified (format): / 13-03-2017 / 15:37:47 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	743	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	744
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	745	debug: format with: arg1 with: arg2
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	746	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	747	((Threshold > DEBUG) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	748
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	749	self log: (self expand:format with:arg1 with:arg2) severity: DEBUG originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	750
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	751	"Modified: / 02-12-2014 / 10:54:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	752	"Modified: / 13-03-2017 / 15:39:04 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	753	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	754
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	755	debug:format with:arg1 with:arg2 with:arg3
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	756	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	757	((Threshold > DEBUG) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	758
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	759	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: DEBUG originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	760
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	761	"Modified: / 02-12-2014 / 10:54:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	762	"Modified: / 13-03-2017 / 15:41:26 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	763	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	764
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	765	enter:message
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	766	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	767	((Threshold > ENTER) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	768
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	769	self log:(self expand:message) severity:ENTER originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	770
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	771	"Modified: / 02-12-2014 / 10:54:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	772	"Modified: / 13-03-2017 / 15:35:15 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	773	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	774
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	775	enter: format with: arg1
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	776	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	777	((Threshold > ENTER) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	778
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	779	self log: (self expand:format with: arg1) severity: ENTER originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	780
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	781	"Modified: / 02-12-2014 / 10:54:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	782	"Modified: / 13-03-2017 / 15:37:51 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	783	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	784
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	785	enter: format with: arg1 with: arg2
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	786	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	787	((Threshold > ENTER) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	788
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	789	self log: (self expand:format with:arg1 with:arg2) severity: ENTER originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	790
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	791	"Modified: / 02-12-2014 / 10:54:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	792	"Modified: / 13-03-2017 / 15:39:07 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	793	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	794
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	795	enter: format with: arg1 with: arg2 with:arg3
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	796	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	797	((Threshold > ENTER) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	798
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	799	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: ENTER originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	800
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	801	"Modified: / 02-12-2014 / 10:54:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	802	"Modified: / 13-03-2017 / 15:41:32 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	803	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	804
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	805	error: message
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	806	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	807	((Threshold > ERROR) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	808
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	809	self log:(self expand:message) severity:ERROR originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	810
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	811	"Modified: / 02-12-2014 / 10:54:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	812	"Modified: / 13-03-2017 / 15:35:29 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	813	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	814
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	815	error: format with: arg1
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	816	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	817	((Threshold > ERROR) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	818
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	819	self log: (self expand:format with: arg1) severity: ERROR originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	820
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	821	"Modified: / 02-12-2014 / 10:54:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	822	"Modified: / 13-03-2017 / 15:37:55 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	823	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	824
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	825	error: format with: arg1 with: arg2
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	826	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	827	((Threshold > ERROR) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	828
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	829	self log: (self expand:format with:arg1 with:arg2) severity: ERROR originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	830
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	831	"Modified: / 02-12-2014 / 10:54:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	832	"Modified: / 13-03-2017 / 15:39:12 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	833	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	834
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	835	error: format with: arg1 with: arg2 with:arg3
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	836	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	837	((Threshold > ERROR) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	838
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	839	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: ERROR originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	840
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	841	"Modified: / 02-12-2014 / 10:54:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	842	"Modified: / 13-03-2017 / 15:41:37 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	843	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	844
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	845	fatal: message
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	846	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	847	((Threshold > FATAL) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	848
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	849	self log:(self expand:message) severity:FATAL originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	850
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	851	"Modified: / 02-12-2014 / 10:54:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	852	"Modified: / 13-03-2017 / 15:35:41 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	853	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	854
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	855	fatal: format with: arg1
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	856	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	857	((Threshold > FATAL) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	858
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	859	self log: (self expand:format with: arg1) severity: FATAL originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	860
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	861	"Modified: / 02-12-2014 / 10:54:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	862	"Modified: / 13-03-2017 / 15:37:58 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	863	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	864
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	865	fatal: format with: arg1 with: arg2
21614 a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	866	"/ a quick rejector to avoid overhead in deployed apps
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	867	((Threshold > FATAL) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
a84ce930ffde #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21609 diff changeset	868
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	869	self log: (self expand:format with:arg1 with:arg2) severity: FATAL originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	870
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	871	"Modified: / 02-12-2014 / 10:54:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	872	"Modified: / 13-03-2017 / 15:40:17 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	873	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	874
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	875	fatal: format with: arg1 with: arg2 with:arg3
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	876	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	877	((Threshold > FATAL) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	878
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	879	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: FATAL originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	880
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	881	"Modified: / 02-12-2014 / 10:54:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	882	"Modified: / 13-03-2017 / 15:41:40 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	883	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	884
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	885	info: message
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	886	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	887	((Threshold > INFO) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	888
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	889	self log:(self expand:message) severity:INFO originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	890
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	891	"Modified: / 02-12-2014 / 10:55:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	892	"Modified: / 13-03-2017 / 15:35:51 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	893	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	894
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	895	info: format with: arg1
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	896	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	897	((Threshold > INFO) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	898
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	899	self log: (self expand:format with: arg1) severity: INFO originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	900
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	901	"Modified: / 02-12-2014 / 10:55:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	902	"Modified: / 13-03-2017 / 15:38:01 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	903	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	904
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	905	info: format with: arg1 with: arg2
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	906	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	907	((Threshold > INFO) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	908
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	909	self log: (self expand:format with:arg1 with:arg2) severity: INFO originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	910
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	911	"Modified: / 02-12-2014 / 10:55:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	912	"Modified: / 13-03-2017 / 15:40:26 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	913	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	914
24020 97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	915	info:format with:arg1 with:arg2 with:arg3
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	916	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	917	((Threshold > INFO) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	918
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	919	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: INFO originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	920
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	921	"Modified: / 02-12-2014 / 10:55:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	922	"Modified: / 13-03-2017 / 15:41:43 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	923	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	924
24020 97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	925	info:format with:arg1 with:arg2 with:arg3 with:arg4
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	926	"/ a quick rejector to avoid overhead in deployed apps
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	927	((Threshold > INFO) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	928
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	929	self log: (self expand:format with:arg1 with:arg2 with:arg3 with:arg4) severity: INFO originator: thisContext sender receiver
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	930
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	931	"Modified: / 02-12-2014 / 10:55:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	932	"Modified: / 13-03-2017 / 15:41:43 / cg"
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	933	!
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	934
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	935	leave: message
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	936	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	937	((Threshold > LEAVE) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	938
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	939	self log:(self expand:message) severity:LEAVE originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	940
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	941	"Modified: / 02-12-2014 / 10:55:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	942	"Modified: / 13-03-2017 / 15:36:02 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	943	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	944
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	945	leave: format with: arg1
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	946	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	947	((Threshold > LEAVE) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	948
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	949	self log: (self expand:format with: arg1) severity: LEAVE originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	950
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	951	"Modified: / 02-12-2014 / 10:55:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	952	"Modified: / 13-03-2017 / 15:38:05 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	953	!
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	954
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	955	leave: format with: arg1 with: arg2
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	956	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	957	((Threshold > LEAVE) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	958
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	959	self log: (self expand:format with:arg1 with:arg2) severity: LEAVE originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	960
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	961	"Modified: / 02-12-2014 / 10:55:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	962	"Modified: / 13-03-2017 / 15:40:32 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	963	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	964
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	965	leave: format with: arg1 with: arg2 with:arg3
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	966	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	967	((Threshold > LEAVE) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	968
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	969	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: LEAVE originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	970
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	971	"Modified: / 02-12-2014 / 10:55:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	972	"Modified: / 13-03-2017 / 15:42:06 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	973	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	974
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	975	trace0: message
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	976	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	977	((Threshold > TRACE0) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	978
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	979	self log:(self expand:message) severity:TRACE0 originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	980
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	981	"Modified: / 02-12-2014 / 10:55:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	982	"Modified: / 13-03-2017 / 15:36:15 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	983	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	984
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	985	trace0: format with: arg1
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	986	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	987	((Threshold > TRACE0) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	988
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	989	self log: (self expand:format with: arg1) severity: TRACE0 originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	990
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	991	"Modified: / 02-12-2014 / 10:55:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	992	"Modified: / 13-03-2017 / 15:38:09 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	993	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	994
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	995	trace0: format with: arg1 with: arg2
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	996	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	997	((Threshold > TRACE0) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	998
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	999	self log: (self expand:format with:arg1 with:arg2) severity: TRACE0 originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1000
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1001	"Modified: / 02-12-2014 / 10:55:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1002	"Modified: / 13-03-2017 / 15:40:35 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1003	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1004
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1005	trace0: format with: arg1 with: arg2 with:arg3
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1006	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1007	((Threshold > TRACE0) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1008
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1009	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: TRACE0 originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1010
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1011	"Modified: / 02-12-2014 / 10:55:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1012	"Modified: / 13-03-2017 / 15:42:09 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1013	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1014
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1015	trace1: message
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1016	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1017	((Threshold > TRACE1) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1018
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1019	self log:(self expand:message) severity:TRACE1 originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1020
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1021	"Modified: / 02-12-2014 / 10:55:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1022	"Modified: / 13-03-2017 / 15:36:26 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1023	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1024
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1025	trace1: format with: arg1
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1026	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1027	((Threshold > TRACE1) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1028
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1029	self log: (self expand:format with: arg1) severity: TRACE1 originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1030
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1031	"Modified: / 02-12-2014 / 10:55:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1032	"Modified: / 13-03-2017 / 15:38:13 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1033	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1034
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1035	trace1: format with: arg1 with: arg2
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1036	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1037	((Threshold > TRACE1) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1038
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1039	self log: (self expand:format with:arg1 with:arg2) severity: TRACE1 originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1040
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1041	"Modified: / 02-12-2014 / 10:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1042	"Modified: / 13-03-2017 / 15:40:40 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1043	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1044
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1045	trace1: format with: arg1 with: arg2 with:arg3
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1046	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1047	((Threshold > TRACE1) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1048
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1049	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: TRACE1 originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1050
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1051	"Modified: / 02-12-2014 / 10:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1052	"Modified: / 13-03-2017 / 15:42:14 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1053	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1054
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1055	trace2: message
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1056	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1057	((Threshold > TRACE2) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1058
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1059	self log:(self expand:message) severity:TRACE2 originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1060
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1061	"Modified: / 02-12-2014 / 10:55:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1062	"Modified: / 13-03-2017 / 15:36:34 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1063	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1064
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1065	trace2: format with: arg1
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1066	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1067	((Threshold > TRACE2) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1068
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1069	self log: (self expand:format with: arg1) severity: TRACE2 originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1070
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1071	"Modified: / 02-12-2014 / 10:55:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1072	"Modified: / 13-03-2017 / 15:38:17 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1073	!
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1074
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1075	trace2: format with: arg1 with: arg2
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1076	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1077	((Threshold > TRACE2) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1078
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1079	self log: (self expand:format with:arg1 with:arg2) severity: TRACE2 originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1080
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1081	"Modified: / 02-12-2014 / 10:55:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1082	"Modified: / 13-03-2017 / 15:40:43 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1083	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1084
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1085	trace2: format with: arg1 with: arg2 with:arg3
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1086	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1087	((Threshold > TRACE2) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1088
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1089	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: TRACE2 originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1090
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1091	"Modified: / 02-12-2014 / 10:55:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1092	"Modified: / 13-03-2017 / 15:42:17 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1093	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1094
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1095	trace3: message
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1096	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1097	((Threshold > TRACE3) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1098
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1099	self log:(self expand:message) severity:TRACE3 originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1100
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1101	"Modified: / 02-12-2014 / 10:55:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1102	"Modified: / 13-03-2017 / 15:36:47 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1103	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1104
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1105	trace3: format with: arg1
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1106	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1107	((Threshold > TRACE3) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1108
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1109	self log: (self expand:format with: arg1) severity: TRACE3 originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1110
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1111	"Modified: / 02-12-2014 / 10:55:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1112	"Modified: / 13-03-2017 / 15:38:19 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1113	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1114
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1115	trace3: format with: arg1 with: arg2
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1116	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1117	((Threshold > TRACE3) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1118
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1119	self log: (self expand:format with:arg1 with:arg2) severity: TRACE3 originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1120
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1121	"Modified: / 02-12-2014 / 10:56:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1122	"Modified: / 13-03-2017 / 15:40:47 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1123	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1124
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1125	trace3: format with: arg1 with: arg2 with:arg3
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1126	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1127	((Threshold > TRACE3) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1128
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1129	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: TRACE3 originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1130
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1131	"Modified: / 02-12-2014 / 10:56:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1132	"Modified: / 13-03-2017 / 15:42:20 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1133	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1134
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1135	trace: message
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1136	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1137	((Threshold > TRACE) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1138
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1139	self log:(self expand:message) severity:TRACE originator:(thisContext sender receiver)
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1140
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1141	"Modified: / 02-12-2014 / 10:56:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1142	"Modified: / 13-03-2017 / 15:36:55 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1143	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1144
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1145	trace: format with: arg1
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1146	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1147	((Threshold > TRACE) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1148
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1149	self log:(self expand:format with: arg1) severity: TRACE originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1150
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1151	"Modified: / 02-12-2014 / 10:56:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1152	"Modified: / 13-03-2017 / 15:38:29 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1153	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1154
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1155	trace: format with: arg1 with: arg2
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1156	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1157	((Threshold > TRACE) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1158
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1159	self log: (self expand:format with:arg1 with:arg2) severity: TRACE originator: thisContext sender receiver
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1160
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1161	"Modified: / 02-12-2014 / 10:56:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1162	"Modified: / 13-03-2017 / 15:40:51 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1163	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1164
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1165	trace: format with: arg1 with: arg2 with:arg3
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1166	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1167	((Threshold > TRACE) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1168
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1169	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: TRACE originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1170
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1171	"Modified: / 02-12-2014 / 10:56:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1172	"Modified: / 13-03-2017 / 15:42:24 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1173	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1174
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1175	warning: message
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1176	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1177	((Threshold > WARN) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1178
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1179	self log:(self expand:message) severity:WARN originator:(thisContext sender receiver)
16856 dd0c453b908f Fix in MiniLogger (WARNING -> WARN) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16845 diff changeset	1180
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1181	"Modified: / 02-12-2014 / 10:56:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1182	"Modified: / 13-03-2017 / 15:37:05 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1183	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1184
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1185	warning: format with: arg1
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1186	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1187	((Threshold > WARN) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1188
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1189	self log: (self expand:format with: arg1) severity: WARN originator: thisContext sender receiver
16856 dd0c453b908f Fix in MiniLogger (WARNING -> WARN) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16845 diff changeset	1190
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1191	"Modified: / 02-12-2014 / 10:56:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1192	"Modified: / 13-03-2017 / 15:38:31 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1193	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1194
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1195	warning:format with:arg1 with:arg2
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1196	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1197	((Threshold > WARN) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1198
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1199	self log: (self expand:format with:arg1 with:arg2) severity: WARN originator: thisContext sender receiver
16856 dd0c453b908f Fix in MiniLogger (WARNING -> WARN) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16845 diff changeset	1200
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	1201	"Modified: / 02-12-2014 / 10:56:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1202	"Modified: / 13-03-2017 / 15:40:54 / cg"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1203	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1204
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1205	warning:format with:arg1 with:arg2 with:arg3
21626 e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1206	"/ a quick rejector to avoid overhead in deployed apps
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1207	((Threshold > WARN) and:[ThresholdPerClass isNil and:[ThresholdPerPackage isNil]]) ifTrue:[ ^ self ].
e4578e01f37f #TUNING by cg Claus Gittinger <cg@exept.de> parents: 21614 diff changeset	1208
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1209	self log: (self expand:format with:arg1 with:arg2 with:arg3) severity: WARN originator: thisContext sender receiver
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1210
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	1211	"Modified: / 02-12-2014 / 10:56:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1212	"Modified: / 13-03-2017 / 15:42:27 / cg"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1213	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1214
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1215	!MiniLogger class methodsFor:'private'!
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1216
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1217	basicLog: message severity: severity facility: facility originator: originator attachment: attachment
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1218	"Principal logging method. This mimics VM __stxLog__()"
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1219
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1220	\|messageAsSent\|
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1221
23572 75f7f0f297a2 #BUGFIX by sr sr parents: 23200 diff changeset	1222	(LogOnStderr not
75f7f0f297a2 #BUGFIX by sr sr parents: 23200 diff changeset	1223	or:[Stderr isNil]) ifTrue:[
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1224	^ self.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1225	].
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1226
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1227	messageAsSent :=
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1228	self logFormat
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1229	bindWith:(facility ? 'STX')
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1230	with:severity name
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1231	with:(Timestamp now printStringFormat:(self timestampFormat))
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1232	with:originator
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1233	with:message.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1234
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1235	"/ If the message is Unicode 16/32 string and stream is external,
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1236	"/ we have to recode the message using locale-specific encoding
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1237	Stderr isExternalStream ifTrue:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1238	messageAsSent := messageAsSent string. "take care of Texts"
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1239	messageAsSent containsNon7BitAscii ifTrue:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1240	OperatingSystem isMSWINDOWSlike ifTrue:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1241	messageAsSent := messageAsSent utf8Encoded.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1242	] ifFalse:[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1243	messageAsSent := OperatingSystem encodePath:messageAsSent.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1244	].
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1245	].
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1246	[
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1247	Stderr nextPutLine: messageAsSent
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1248	] on:StreamError do:[:ex\|
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1249	'STX:Logger [error]: error writing to stream: ' _errorPrint.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1250	ex description _errorPrintCR.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1251	messageAsSent _errorPrintCR.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1252	].
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1253	^ self.
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1254	].
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1255
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1256	Stderr nextPutLine: messageAsSent
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1257
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1258	"Created: / 28-06-2018 / 11:05:17 / Stefan Vogel"
23572 75f7f0f297a2 #BUGFIX by sr sr parents: 23200 diff changeset	1259	"Modified: / 20-12-2018 / 12:33:00 / sr"
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1260	!
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1261
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1262	expand:message
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1263	\|d\|
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1264
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1265	d := Dictionary new.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1266	^ self expand:message addingInfoFrom:(thisContext sender sender) to:d
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1267
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1268	"Created: / 13-03-2017 / 15:34:47 / cg"
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1269	!
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1270
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1271	expand:message addingInfoFrom:aContext to:aDictionary
21682 7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1272	\|messageString mthd rcvr methodWho\|
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1273
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1274	(messageString := message) isString ifFalse:[
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1275	messageString := message value asString.
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1276	messageString isString ifFalse:[ ^ messageString asString].
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1277	].
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1278
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1279	mthd := aContext method.
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1280	rcvr := aContext receiver.
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1281	methodWho := mthd whoString.
21681 08cdd57378f6 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 21644 diff changeset	1282
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1283	aDictionary at:'LINE' put:(aContext lineNumber).
21741 02a8a0495313 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 21682 diff changeset	1284	aDictionary at:'RECEIVER' put:(rcvr displayString).
21682 7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1285	aDictionary at:'CLASS' put:(rcvr class).
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1286	aDictionary at:'MCLASS' put:(mthd mclass).
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1287	aDictionary at:'SELECTOR' put:(mthd selector).
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1288	aDictionary at:'WHO' put:methodWho.
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1289	aDictionary at:'WHERE' put:(methodWho,'@',aContext lineNumber printString).
7d63019a886c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 21681 diff changeset	1290	^ messageString expandPlaceholdersWith:aDictionary
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1291
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1292	"Created: / 13-03-2017 / 15:46:52 / cg"
21741 02a8a0495313 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 21682 diff changeset	1293	"Modified: / 03-05-2017 / 15:38:35 / cg"
21640 721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1294	!
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1295
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1296	expand:message with:arg1
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1297	\|d\|
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1298
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1299	d := Dictionary new.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1300	d at:1 put:arg1.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1301	^ self expand:message addingInfoFrom:(thisContext sender sender) to:d
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1302
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1303	"Created: / 13-03-2017 / 15:37:25 / cg"
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1304	!
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1305
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1306	expand:message with:arg1 with:arg2
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1307	\|d\|
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1308
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1309	d := Dictionary new.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1310	d at:1 put:arg1.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1311	d at:2 put:arg2.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1312	^ self expand:message addingInfoFrom:(thisContext sender sender) to:d
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1313
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1314	"Created: / 13-03-2017 / 15:38:50 / cg"
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1315	!
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1316
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1317	expand:message with:arg1 with:arg2 with:arg3
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1318	\|d\|
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1319
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1320	d := Dictionary new.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1321	d at:1 put:arg1.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1322	d at:2 put:arg2.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1323	d at:3 put:arg3.
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1324	^ self expand:message addingInfoFrom:(thisContext sender sender) to:d
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1325
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1326	"Created: / 13-03-2017 / 15:41:05 / cg"
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1327	!
721cffbe9b6f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21626 diff changeset	1328
24020 97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1329	expand:message with:arg1 with:arg2 with:arg3 with:arg4
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1330	\|d\|
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1331
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1332	d := Dictionary new.
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1333	d at:1 put:arg1.
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1334	d at:2 put:arg2.
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1335	d at:3 put:arg3.
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1336	d at:4 put:arg4.
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1337	^ self expand:message addingInfoFrom:(thisContext sender sender) to:d
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1338
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1339	"Created: / 13-03-2017 / 15:41:05 / cg"
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1340	!
97395eb5a394 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 23671 diff changeset	1341
16782 ee6003ea5c4e class: MiniLogger Claus Gittinger <cg@exept.de> parents: 14881 diff changeset	1342	facilityOf:originator
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1343	^ originator class logFacility
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1344	"/ ^ originator class
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1345	"/ perform:#logFacility
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1346	"/ ifNotUnderstood:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1347	"/ \|pkg\|
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1348	"/
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1349	"/ pkg := originator class package.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1350	"/ (pkg startsWith:'stx') ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1351	"/ 'STX'
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1352	"/ ] ifFalse:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1353	"/ pkg copyFrom:((pkg lastIndexOf:$:) + 1)
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1354	"/ ]
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1355	"/ ]
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1356
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1357	"
16782 ee6003ea5c4e class: MiniLogger Claus Gittinger <cg@exept.de> parents: 14881 diff changeset	1358	Logger facilityOf: Object
ee6003ea5c4e class: MiniLogger Claus Gittinger <cg@exept.de> parents: 14881 diff changeset	1359	Logger facilityOf: Expecco::Browser
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1360	"
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1361
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1362	"Created: / 15-09-2011 / 10:20:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1363	"Modified: / 01-03-2017 / 10:43:23 / cg"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1364	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1365
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1366	severityThresholdOf:originator
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1367	"allow each class to define an individual threshold for Logging"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1368
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1369	\|cls t\|
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1370
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1371	cls := originator class.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1372	ThresholdPerClass notNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1373	t := ThresholdPerClass at:(cls theNonMetaclass name) ifAbsent:nil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1374	t notNil ifTrue:[^ t].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1375	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1376	ThresholdPerPackage notNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1377	t := ThresholdPerPackage at:(cls package) ifAbsent:nil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1378	t notNil ifTrue:[^ t].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1379	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1380
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1381	"/ disabled; the above scheme is better...
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1382	"/ ^ cls
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1383	"/ perform:#logSeverityThreshold
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1384	"/ ifNotUnderstood:[ ^ Threshold ]
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1385	^ Threshold
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1386
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1387	"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1388	Logger severityThresholdOf: Object
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1389	Logger severityThresholdOf: Expecco::Browser
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1390
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1391	Logger loggingThreshold:(Logger severityDEBUG) forClass:(Expecco::Browser).
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1392	Logger loggingThreshold:(Logger severityDEBUG) forPackage:'stx:libbasic'.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1393
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1394	Logger loggingThreshold:nil forClass:(Expecco::Browser).
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1395	Logger loggingThreshold:nil forPackage:'stx:libbasic'.
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1396	"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1397
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1398	"Created: / 15-09-2011 / 10:20:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1399	"Modified (comment): / 01-03-2017 / 10:59:12 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1400	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1401
23148 0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1402	!MiniLogger class methodsFor:'queries'!
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1403
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1404	canLog
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1405	"answer true, if logging can be performed. Subclasse may redefine this."
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1406
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1407	^ (LogOnStderr and:[Stderr notNil])
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1408	or:[LogOnTranscript and:[Transcript isView]].
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1409
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1410	"Created: / 28-06-2018 / 10:47:29 / Stefan Vogel"
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1411	! !
0c8e169a2e11 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 23109 diff changeset	1412
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1413	!MiniLogger::Severity methodsFor:'accessing'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1414
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1415	name
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1416	^ name
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1417	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1418
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1419	value
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1420	^ value
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1421	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1422
21796 25b71e5e33b6 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 21741 diff changeset	1423	!MiniLogger::Severity methodsFor:'arithmetic'!
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1424
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1425	+ aNumber
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1426	\|next\|
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1427
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1428	next := value + aNumber.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1429	aNumber negative ifTrue:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1430	^ MiniLogger severities detectLast:[:each\| each = next or:[each < next]] ifNone:[self class new initializeWithName:#nil value:next]
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1431	].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1432
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1433	^ MiniLogger severities detect:[:each\| each >= next] ifNone:[self class new initializeWithName:#nil value:next]
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1434
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1435	"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1436	MiniLogger severityINFO + 1
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1437	MiniLogger severityTRACE to:MiniLogger severityFATAL do:[:each\| Transcript showCR:each].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1438	MiniLogger severityFATAL downTo:MiniLogger severityTRACE do:[:each\| Transcript showCR:each].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1439	"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1440	! !
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1441
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1442	!MiniLogger::Severity methodsFor:'comparing'!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1443
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1444	< aSeverity
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1445	^ value < aSeverity value
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1446	!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1447
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1448	= aSeverity
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1449	^ self == aSeverity or:[value = aSeverity value]
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1450	!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1451
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1452	hash
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1453	"instances, for which #= answers true must answer the same hash"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1454
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1455	^ value hash
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1456	! !
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1457
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1458	!MiniLogger::Severity methodsFor:'initialization'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1459
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1460	initializeWithName: aString value: anInteger
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1461	name := aString.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1462	value := anInteger
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1463
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1464	"Created: / 13-08-2014 / 13:00:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1465	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1466
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1467	!MiniLogger::Severity methodsFor:'printing & storing'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1468
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1469	printOn:aStream
20218 415a8f568e3f #OTHER by mawalch mawalch parents: 17308 diff changeset	1470	"append a printed representation of the receiver to the argument, aStream"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1471
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1472	name printOn: aStream.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1473
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1474	"Modified: / 13-08-2014 / 13:46:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1475	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1476
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1477	!MiniLogger class methodsFor:'documentation'!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1478
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1479	version
20218 415a8f568e3f #OTHER by mawalch mawalch parents: 17308 diff changeset	1480	^ '$Header$'
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1481	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1482
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1483	version_CVS
20218 415a8f568e3f #OTHER by mawalch mawalch parents: 17308 diff changeset	1484	^ '$Header$'
14881 28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1485	!
28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1486
28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1487	version_HG
28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1488
16782 ee6003ea5c4e class: MiniLogger Claus Gittinger <cg@exept.de> parents: 14881 diff changeset	1489	^ '$Changeset: <not expanded> $'
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1490	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1491
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1492	version_SVN
20218 415a8f568e3f #OTHER by mawalch mawalch parents: 17308 diff changeset	1493	^ '$Id$'
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1494	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1495
14881 28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1496
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1497	MiniLogger initialize!

author	Claus Gittinger <cg@exept.de>
	Wed, 08 May 2019 13:06:46 +0200
changeset 24118	02d39aaca894
parent 24103	759b7342d559
child 24129	ca2d5b78d628
permissions	-rw-r--r--