hg/stx-libbasic: MiniLogger.st@492035ed86ab (annotated)

21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1	"{ Encoding: utf8 }"
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 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
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	22	TRACE2 TRACE3 WARN WARNING Threshold ThresholdPerClass
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	23	ThresholdPerPackage TimestampFormat'
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
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	80	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	81
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	82	[author:]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	83	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	84
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	85	[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	86
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	87	[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	88
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	89	[see also:]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	90	Loggia logging framrwork (stx:goodies/loggia)
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	91	"
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	92	!
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	93
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	94	examples
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	95	"
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	96	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	97	Logger severityDEBUG, see #loggingThreshold:)
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	98	[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	99	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	100	[exEnd]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	101
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	102	You may use #<severity>:with:with: utility to format log message:
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	103	[exBegin]
e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	104	\|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	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	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	107	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	108	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	109	[exEnd]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	110
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	111	When a log message is costly to construct, you may pass a block returning
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	112	the message instead of a string. Then the log message creation is deferred until
e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	113	really needed (i.e. if the severity is not logged, the block is not evaluated.
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	114	Useful for trace messages (severities DEBUG and TRACE?):
21507 e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	115	[exBegin]
e8f27d16c43f #DOCUMENTATION by mawalch mawalch parents: 20959 diff changeset	116	\|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	117
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	118	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	119	Logger trace: [ 'Connecting to %1' bindWith: (IPSocketAddress hostName:hostname) address ]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	120	[exEnd]
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	121
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	122	"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	123	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	124
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	125	!MiniLogger class methodsFor:'initialization'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	126
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	127	initialize
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	128	LogOnStderr := true.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	129	LogOnTranscript := true.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	130
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	131	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	132	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	133	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	134	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	135	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	136	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	137	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	138	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	139	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	140	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	141	WARN := Severity new initializeWithName:#warn value:88.
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	142	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	143	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	144	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	145	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	146
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	147	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	148	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	149
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	150	(Smalltalk at:#Logger) isNil ifTrue:[
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	151	Smalltalk at:#Logger put:self
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	152	].
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	153
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	154	"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	155	! !
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	156
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	157	!MiniLogger class methodsFor:'accessing-log format'!
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	158
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	159	logFormat
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	160	"will be used for the log message as:
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	161	%1 [%2] (%3): %4
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	162	with %1: facility (area)
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	163	with %2: secerity (area)
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	164	with %3: timestamp
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	165	with %4: caller/originator
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	166	with %5: message"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	167
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	168	^ LogFormat ? '%1 [%2] (%3): %5'
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	169
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	170	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	171	MiniLogger logFormat:'%1 [%2]: %5'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	172	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	173	MiniLogger logFormat:'%3 %1 [%2]: %5'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	174	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	175	MiniLogger logFormat:nil.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	176	'hello' errorPrintCR.
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	!
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	logFormat:aFormatString
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	181	"will be used for the log message as:
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	182	%1 [%2] (%3): %4
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	183	with %1: facility (area)
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	184	with %2: secerity (area)
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	185	with %3: timestamp
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	186	with %4: caller/originator
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	187	with %5: message.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	188	Pass anil argument to return to the default format.
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
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	191	LogFormat := aFormatString
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	192
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	193	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	194	MiniLogger logFormat:'%1 [%2]: %5'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	195	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	196	MiniLogger logFormat:'%3 %1 [%2]: %5'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	197	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	198	MiniLogger logFormat:nil.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	199	'hello' errorPrintCR.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	200	"
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	201	!
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	202
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	203	logOnStderr
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	204	^ LogOnStderr
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	205	!
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	206
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	207	logOnStderr:aBoolean
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	208	"enable/disable loggin on stderr"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	209
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	210	LogOnStderr := aBoolean
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	211
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	212	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	213	MiniLogger logOnStderr:false
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	214	MiniLogger logOnTranscript:false
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	215
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	216	MiniLogger logOnStderr:true
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	217	MiniLogger logOnTranscript:true
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	218	"
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	219	!
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	220
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	221	logOnTranscript
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	222	^ LogOnTranscript
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	223	!
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	224
55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	225	logOnTranscript:aBoolean
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	226	"enable/disable loggin on the Transcript"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	227
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	228	LogOnTranscript := aBoolean
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	229
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	230	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	231	MiniLogger logOnStderr:false
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	232	MiniLogger logOnTranscript:false
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	233
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	234	MiniLogger logOnStderr:true
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	235	MiniLogger logOnTranscript:true
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	236	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	237	!
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	238
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	239	timestampFormat
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	240	"will be used for the log message"
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	^ TimestampFormat ? '%(year)-%(mon)-%(day) %h:%m:%s.%i'.
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	243	!
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	244
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	245	timestampFormat:aTimestampFormatString
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	246	"will be used for the log message"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	247
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	248	TimestampFormat := aTimestampFormatString
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	249	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	250
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	251	!MiniLogger class methodsFor:'accessing-severities'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	252
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	253	severities
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	254	^ Severities.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	255	!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	256
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	257	severityDEBUG
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	258	^ DEBUG
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	259
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	260	"Created: / 13-08-2014 / 14:15:11 / 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	261	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	262
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	263	severityENTER
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	264	^ ENTER
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	265
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	266	"Created: / 13-08-2014 / 14:14:06 / 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	267	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	268
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	269	severityERROR
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	270	^ ERROR
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	271
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	272	"Created: / 13-08-2014 / 14:15:35 / 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	273	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	274
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	275	severityFATAL
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	276	^ FATAL
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	277
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	278	"Created: / 13-08-2014 / 14:15:45 / 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	279	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	280
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	281	severityINFO
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	282	^ INFO
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	"Created: / 13-08-2014 / 14:15:21 / 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	285	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	286
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	287	severityLEAVE
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	288	^ LEAVE
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	289
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	290	"Created: / 13-08-2014 / 14:14:19 / 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	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	severityTRACE
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	294	^ TRACE
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	295
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	296	"Created: / 13-08-2014 / 14:15: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	297	!
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	severityTRACE0
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	300	^ TRACE0
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	"Created: / 13-08-2014 / 14:14:59 / 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	303	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	304
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	305	severityTRACE1
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	306	^ TRACE1
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:14:56 / 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	309	!
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	severityTRACE2
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	312	^ TRACE2
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	313
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	314	"Created: / 13-08-2014 / 14:14:53 / 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	315	!
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	severityTRACE3
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	318	^ TRACE3
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	"Created: / 13-08-2014 / 14:14:48 / 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	321	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	322
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	323	severityWARN
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	324	^ WARN
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:15:30 / 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	327	! !
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	!MiniLogger class methodsFor:'accessing-severities-special'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	330
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	331	severityALL
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	332	^ ALL
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	333
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	334	"Created: / 13-08-2014 / 14:14:00 / 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	335	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	336
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	337	severityNONE
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	338	^ NONE
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	339
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	340	"Created: / 13-08-2014 / 14:15:53 / 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	341	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	342
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	343	!MiniLogger class methodsFor:'configuration'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	344
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	345	loggingThreshold
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	346	"Return the logging threshold. No messages with severity lower than
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	347	threshold will be logged."
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	348
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	349	^ Threshold
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	350
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	351	"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	352	!
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	353
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	354	loggingThreshold:severity
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	355	"Sets logging threshold.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	356	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	357	Use `Logger severityNONE` to suppress logging completely
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	358	or `Logger severityALL` to log all messages"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	359
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	360	(
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	361	(Severities includes:severity)
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	362	or:[ severity == ALL or:[ severity == NONE ] ]
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	363	) ifFalse:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	364	self error:'Invalid severity. Use of Logger severityXXX'.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	365	^ self.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	366	].
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	367	Threshold := severity
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	368
16895 df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	369	"
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	370	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	371	Logger loggingThreshold: Logger severityINFO.
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	372	Logger loggingThreshold: Logger severityDEBUG.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	373
20485 8eb2274f91ae #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 20218 diff changeset	374	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	375	"
df368a381d23 Allow for passing a block instead of a String as message. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16856 diff changeset	376
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	377	"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	378	"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	379	"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	380	"Modified (comment): / 01-03-2017 / 10:42:31 / cg"
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	381	!
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	382
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	383	loggingThreshold:aLimitOrNil forClass:aClass
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	384	"allows individual per-class setting of the threshold (useful during debugging).
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	385	With a nil limit, the default is reinstalled for that class."
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	386
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	387	"/ the original scheme asked the class;
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	388	"/ but that required adding a getter to debugged classes, which
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	389	"/ is easily forgotten and checked in.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	390	"/ 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	391
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	392	"/ 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	393	aLimitOrNil isNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	394	ThresholdPerClass notNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	395	ThresholdPerClass removeKey:(aClass theNonMetaclass name) ifAbsent:[].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	396	ThresholdPerClass isEmpty ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	397	ThresholdPerClass := nil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	398	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	399	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	400	^ self
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	401	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	402	ThresholdPerClass isNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	403	ThresholdPerClass := Dictionary new.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	404	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	405	ThresholdPerClass at:aClass theNonMetaclass name put:aLimitOrNil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	406
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	407	"Created: / 01-03-2017 / 10:52:25 / cg"
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	408	!
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	409
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	410	loggingThreshold:aLimitOrNil forPackage:aPackageName
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	411	"allows individual per-package setting of the threshold (useful during debugging).
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	412	With a nil limit, the default is reinstalled for that class."
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	413
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	414	"/ the original scheme only asked the class;
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	415	"/ but that required adding many getters to debugged packages,
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	416	"/ which are easily forgotten and checked in.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	417	"/ 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	418
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	419	"/ 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	420	aLimitOrNil isNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	421	ThresholdPerPackage notNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	422	ThresholdPerPackage removeKey:(aPackageName) ifAbsent:[].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	423	ThresholdPerPackage isEmpty ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	424	ThresholdPerPackage := nil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	425	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	426	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	427	^ self
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	428	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	429	ThresholdPerPackage isNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	430	ThresholdPerPackage := Dictionary new.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	431	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	432	ThresholdPerPackage at:aPackageName put:aLimitOrNil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	433
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	434	"Created: / 01-03-2017 / 10:53:42 / cg"
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	435	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	436
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	437	!MiniLogger class methodsFor:'logging'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	438
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	439	log: message
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	440	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	441
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	442	"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	443	"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	444	"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	445	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	446
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	447	log: message facility: facility
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	448	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	449
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	450	"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	451	"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	452	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	453
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	454	log: message severity: severity
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	455	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	456
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	457	"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	458	"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	459	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	460
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	461	log: message severity: severity attachment: attachment
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	462	\| originator \|
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	463
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	464	originator := thisContext sender receiver.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	465	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	466
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	467	"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	468	"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	469	"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	470	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	471
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	472	log: message severity: severity facility: facility
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	473	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	474
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	475	"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	476	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	477
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	478	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	479	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	480
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	481	"Created: / 14-09-2011 / 21:20:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	482	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	483
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	484	log: message severity: severity facility: facility originator: originator attachment: attachment
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	485	"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	486
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	487	\| severityXlated messageXlated logOnStderr logOnTranscript prevLogOnTranscript \|
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	488
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	489	logOnStderr := self logOnStderr.
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	490	logOnTranscript := self logOnTranscript and:[Transcript isView].
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	491
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	492	(logOnStderr or:[logOnTranscript]) ifFalse:[^ self].
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	493
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	494	severityXlated := severity.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	495
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	496	"/ Be backward compatible, allow for symbolic severities
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	497	"/ but when encountered, issue a warning...
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	498	severity isSymbol ifTrue:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	499	severityXlated := Severities detect:[:each\| each name == severity] ifNone:[].
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	500
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	501	"/ This will be enabled later, so far it generates
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	502	"/ way to much warnings. at least stx:libjava & exept:jdi has to be rewritten
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	503
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	504	"/ 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	505	"/ caller := thisContext sender.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	506	"/ [ caller notNil and: [ caller receiver ~~ originator ] ] whileTrue:[ caller := caller sender ].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	507	"/ self log: 'caller is ', caller printString severity: INFO facility: 'STX' originator: self.
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	508	].
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	509
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	510	"/ Now check whether the severity is one of the predefined ones,
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	511	"/ if not, issue an error
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	512	(Severities includesIdentical: severityXlated) ifFalse:[
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	513	\| caller \|
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	514
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	515	caller := thisContext sender.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	516	[caller notNil and:[caller receiver ~~ originator]] whileTrue:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	517	caller := caller sender
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	518	].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	519	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)
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	520	severity: ERROR facility: 'STX' originator: self.
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	521	severityXlated := INFO.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	522	].
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	523
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	524	severityXlated < Threshold ifTrue:[ ^ self ].
17308 ec60fc02a37f Fix in MiniLogger>>#log:severity:facility:originator:attachment: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17171 diff changeset	525	messageXlated := message value asString.
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	526
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	527	"/ to avoid recursion, turn off logOnTranscript while logging
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	528	"/ had this problem with RecursionLock, which wanted to issue a warning
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	529	"/ ("cleanup for dead process") from inside Transcript code.
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	530	[
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	531	prevLogOnTranscript := LogOnTranscript.
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	532	LogOnTranscript := false.
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	533
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	534	logOnStderr ifTrue:[
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	535	self log:messageXlated severity:severityXlated facility:facility
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	536	originator:originator attachment:attachment on:Stderr.
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	537	].
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	538	logOnTranscript ifTrue:[
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	539	Transcript nextPutLine:messageXlated.
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	540	].
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	541	] ensure:[
8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	542	LogOnTranscript := prevLogOnTranscript.
20504 55cf60d4118e #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20492 diff changeset	543	].
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	544
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	545	"
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	546	Logger log:'test message' severity:self severityINFO facility: 'TEST'
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	547	Logger log:'test message' severity:#info facility: 'TEST'
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	548	Logger log:'test message' severity:#bla facility: 'TEST'
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	549	Logger log:'test message' severity:123 facility: 'TEST'
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	"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	553	"Modified: / 20-01-2015 / 18:40:52 / 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	554	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	555
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	556	log: message severity: severity originator: originator
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	557	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	558
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	559	"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	560	"Modified: / 15-03-2013 / 11:20:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	561	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	562
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	563	!MiniLogger class methodsFor:'logging - utils'!
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	debug: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	566	DEBUG < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	567	self log: message severity: DEBUG originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	568
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	569	"Modified: / 02-12-2014 / 10:54:19 / 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	570	!
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	debug: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	573	DEBUG < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	574	self log: (format bindWith: arg1) severity: DEBUG originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	575
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	576	"Modified: / 02-12-2014 / 10:54:23 / 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	577	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	578
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	579	debug: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	580	DEBUG < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	581	self log: (format bindWith: arg1 with: arg2) severity: DEBUG originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	582
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	583	"Modified: / 02-12-2014 / 10:54:27 / 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	584	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	585
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	586	debug: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	587	DEBUG < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	588	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: DEBUG originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	589
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	590	"Modified: / 02-12-2014 / 10:54:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	591	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	592
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	593	enter: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	594	ENTER < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	595	self log: message severity: ENTER originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	596
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	597	"Modified: / 02-12-2014 / 10:54:30 / 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	598	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	599
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	600	enter: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	601	ENTER < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	602	self log: (format bindWith: arg1) severity: ENTER originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	603
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	604	"Modified: / 02-12-2014 / 10:54:34 / 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	605	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	606
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	607	enter: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	608	ENTER < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	609	self log: (format bindWith: arg1 with: arg2) severity: ENTER originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	610
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	611	"Modified: / 02-12-2014 / 10:54:38 / 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	612	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	613
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	614	enter: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	615	ENTER < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	616	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: ENTER originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	617
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	618	"Modified: / 02-12-2014 / 10:54:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	619	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	620
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	621	error: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	622	ERROR < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	623	self log: message severity: ERROR originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	624
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	625	"Modified: / 02-12-2014 / 10:54:41 / 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	626	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	627
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	628	error: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	629	ERROR < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	630	self log: (format bindWith: arg1) severity: ERROR originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	631
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	632	"Modified: / 02-12-2014 / 10:54:45 / 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	633	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	634
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	635	error: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	636	ERROR < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	637	self log: (format bindWith: arg1 with: arg2) severity: ERROR originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	638
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	639	"Modified: / 02-12-2014 / 10:54:48 / 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	640	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	641
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	642	error: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	643	ERROR < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	644	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: ERROR originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	645
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	646	"Modified: / 02-12-2014 / 10:54:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	647	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	648
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	649	fatal: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	650	FATAL < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	651	self log: message severity: FATAL originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	652
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	653	"Modified: / 02-12-2014 / 10:54:51 / 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	654	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	655
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	656	fatal: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	657	FATAL < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	658	self log: (format bindWith: arg1) severity: FATAL originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	659
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	660	"Modified: / 02-12-2014 / 10:54:54 / 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	661	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	662
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	663	fatal: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	664	FATAL < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	665	self log: (format bindWith: arg1 with: arg2) severity: FATAL originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	666
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	667	"Modified: / 02-12-2014 / 10:54:57 / 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	668	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	669
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	670	fatal: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	671	FATAL < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	672	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: FATAL originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	673
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	674	"Modified: / 02-12-2014 / 10:54:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	675	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	676
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	677	info: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	678	INFO < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	679	self log: message severity: INFO originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	680
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	681	"Modified: / 02-12-2014 / 10:55:01 / 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	682	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	683
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	684	info: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	685	INFO < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	686	self log: (format bindWith: arg1) severity: INFO originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	687
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	688	"Modified: / 02-12-2014 / 10:55:04 / 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	689	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	690
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	691	info: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	692	INFO < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	693	self log: (format bindWith: arg1 with: arg2) severity: INFO originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	694
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	695	"Modified: / 02-12-2014 / 10:55: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	696	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	697
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	698	info: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	699	INFO < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	700	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: INFO originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	701
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	702	"Modified: / 02-12-2014 / 10:55:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	703	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	704
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	705	leave: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	706	LEAVE < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	707	self log: message severity: LEAVE originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	708
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	709	"Modified: / 02-12-2014 / 10:55:14 / 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	710	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	711
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	712	leave: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	713	LEAVE < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	714	self log: (format bindWith: arg1) severity: LEAVE originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	715
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	716	"Modified: / 02-12-2014 / 10:55: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	717	!
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	718
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	719	leave: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	720	LEAVE < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	721	self log: (format bindWith: arg1 with: arg2) severity: LEAVE originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	722
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	723	"Modified: / 02-12-2014 / 10:55:22 / 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	724	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	725
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	726	leave: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	727	LEAVE < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	728	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: LEAVE originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	729
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	730	"Modified: / 02-12-2014 / 10:55:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	731	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	732
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	733	trace0: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	734	TRACE0 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	735	self log: message severity: TRACE0 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	736
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	737	"Modified: / 02-12-2014 / 10:55:25 / 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	738	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	739
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	740	trace0: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	741	TRACE0 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	742	self log: (format bindWith: arg1) severity: TRACE0 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	743
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	744	"Modified: / 02-12-2014 / 10:55:28 / 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	745	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	746
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	747	trace0: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	748	TRACE0 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	749	self log: (format bindWith: arg1 with: arg2) severity: TRACE0 originator: thisContext sender receiver
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:55:31 / 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	752	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	753
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	754	trace0: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	755	TRACE0 < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	756	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: TRACE0 originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	757
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	758	"Modified: / 02-12-2014 / 10:55:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	759	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	760
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	761	trace1: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	762	TRACE1 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	763	self log: message severity: TRACE1 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	764
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	765	"Modified: / 02-12-2014 / 10:55:36 / 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	766	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	767
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	768	trace1: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	769	TRACE1 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	770	self log: (format bindWith: arg1) severity: TRACE1 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	771
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	772	"Modified: / 02-12-2014 / 10:55:39 / 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	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	trace1: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	776	TRACE1 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	777	self log: (format bindWith: arg1 with: arg2) severity: TRACE1 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	778
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	779	"Modified: / 02-12-2014 / 10:55:43 / 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	780	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	781
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	782	trace1: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	783	TRACE1 < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	784	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: TRACE1 originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	785
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	786	"Modified: / 02-12-2014 / 10:55:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	787	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	788
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	789	trace2: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	790	TRACE2 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	791	self log: message severity: TRACE2 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	792
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	793	"Modified: / 02-12-2014 / 10:55:46 / 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	794	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	795
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	796	trace2: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	797	TRACE2 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	798	self log: (format bindWith: arg1) severity: TRACE2 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	799
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	800	"Modified: / 02-12-2014 / 10:55:49 / 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	801	!
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	802
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	803	trace2: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	804	TRACE2 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	805	self log: (format bindWith: arg1 with: arg2) severity: TRACE2 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	806
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	807	"Modified: / 02-12-2014 / 10:55:52 / 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	808	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	809
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	810	trace2: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	811	TRACE2 < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	812	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: TRACE2 originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	813
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	814	"Modified: / 02-12-2014 / 10:55:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	815	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	816
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	817	trace3: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	818	TRACE3 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	819	self log: message severity: TRACE3 originator: thisContext sender receiver
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:55:55 / 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	822	!
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	trace3: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	825	TRACE3 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	826	self log: (format bindWith: arg1) severity: TRACE3 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	827
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	828	"Modified: / 02-12-2014 / 10:55:59 / 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	829	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	830
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	831	trace3: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	832	TRACE3 < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	833	self log: (format bindWith: arg1 with: arg2) severity: TRACE3 originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	834
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	835	"Modified: / 02-12-2014 / 10:56:03 / 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	836	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	837
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	838	trace3: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	839	TRACE3 < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	840	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: TRACE3 originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	841
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	842	"Modified: / 02-12-2014 / 10:56:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
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	trace: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	846	TRACE < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	847	self log: message severity: TRACE originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	848
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	849	"Modified: / 02-12-2014 / 10:56:06 / 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	850	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	851
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	852	trace: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	853	TRACE < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	854	self log: (format bindWith: arg1) severity: TRACE originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	855
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	856	"Modified: / 02-12-2014 / 10:56:09 / 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	857	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	858
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	859	trace: format with: arg1 with: arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	860	TRACE < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	861	self log: (format bindWith: arg1 with: arg2) severity: TRACE originator: thisContext sender receiver
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	862
fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	863	"Modified: / 02-12-2014 / 10:56:14 / 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	864	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	865
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	866	trace: format with: arg1 with: arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	867	TRACE < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	868	self log: (format bindWith: arg1 with: arg2 with:arg3) severity: TRACE originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	869
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	870	"Modified: / 02-12-2014 / 10:56:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	871	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	872
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	873	warning: message
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	874	WARN < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	875	self log: 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	876
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	877	"Modified: / 02-12-2014 / 10:56:20 / 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	878	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	879
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	880	warning: format with: arg1
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	881	WARN < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	882	self log: (format bindWith: 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	883
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	884	"Modified: / 02-12-2014 / 10:56:23 / 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	885	!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	886
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	887	warning:format with:arg1 with:arg2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	888	WARN < Threshold ifTrue:[ ^ self ].
17171 fbca490b0b4c Prepend originator class name to log messages. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17068 diff changeset	889	self log: (format bindWith: 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	890
17171 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:56:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	892	!
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	893
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	894	warning:format with:arg1 with:arg2 with:arg3
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	895	WARN < Threshold ifTrue:[ ^ self ].
20487 371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	896	self log: (format bindWith:arg1 with:arg2 with:arg3) severity: WARN originator: thisContext sender receiver
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	897
371f3e3a0f3b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20485 diff changeset	898	"Modified: / 02-12-2014 / 10:56:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	899	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	900
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	901	!MiniLogger class methodsFor:'private'!
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	902
16782 ee6003ea5c4e class: MiniLogger Claus Gittinger <cg@exept.de> parents: 14881 diff changeset	903	facilityOf:originator
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	904	^ originator class logFacility
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	905	"/ ^ originator class
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	906	"/ perform:#logFacility
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	907	"/ ifNotUnderstood:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	908	"/ \|pkg\|
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	909	"/
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	910	"/ pkg := originator class package.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	911	"/ (pkg startsWith:'stx') ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	912	"/ 'STX'
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	913	"/ ] ifFalse:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	914	"/ pkg copyFrom:((pkg lastIndexOf:$:) + 1)
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	915	"/ ]
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	916	"/ ]
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	917
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	918	"
16782 ee6003ea5c4e class: MiniLogger Claus Gittinger <cg@exept.de> parents: 14881 diff changeset	919	Logger facilityOf: Object
ee6003ea5c4e class: MiniLogger Claus Gittinger <cg@exept.de> parents: 14881 diff changeset	920	Logger facilityOf: Expecco::Browser
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	921	"
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	922
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	923	"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	924	"Modified: / 01-03-2017 / 10:43:23 / cg"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	925	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	926
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	927	log: message severity: severity facility: facilityArg originator: originator attachment: attachment on:aStream
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	928	"Principal logging method. This mimics VM __stxLog__()"
16783 63f50747750a class: MiniLogger Claus Gittinger <cg@exept.de> parents: 16782 diff changeset	929
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	930	\|facility severityName words messageAsSent secondWord\|
16896 9f126475a2eb Bug fix: properly handle Unicode 16/32 strings. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16895 diff changeset	931
20959 47e471e0f343 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20951 diff changeset	932	thisContext isRecursive ifTrue:[
47e471e0f343 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20951 diff changeset	933	'STX [error]: recursive logger invocation.' _errorPrintCR.
47e471e0f343 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20951 diff changeset	934	^ self.
47e471e0f343 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20951 diff changeset	935	].
47e471e0f343 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20951 diff changeset	936
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	937	facility := facilityArg.
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	938	messageAsSent := message.
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	939	severityName := severity name.
20529 e026fd505d16 #BUGFIX by mawalch mawalch parents: 20509 diff changeset	940
20732 8407d1b888f3 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 20631 diff changeset	941	"/ hack to allow calls from infoPrint/errorPrint.
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	942	"/ if this is an oldStyle infoPrint or errorPrint, do not append another facility and severity
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	943	words := messageAsSent asCollectionOfWords.
20610 37a18361b46b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20529 diff changeset	944	(words size >= 2
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	945	and:[words first isAlphaNumeric
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	946	and:[((secondWord := words second) startsWith:$[ )
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	947	and:[(secondWord endsWith:$]) or:[(secondWord endsWith:']:')]]]]) ifTrue:[
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	948	facility := words first.
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	949	severityName := secondWord copyButFirst.
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	950	severityName := severityName copyTo:(severityName indexOf:$])-1.
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	951	messageAsSent := messageAsSent copyFrom:(messageAsSent indexOf:$])+1.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	952	"/ messageAsSent := messageAsSent withoutSeparators.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	953	(messageAsSent startsWith:$:) ifTrue:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	954	messageAsSent := messageAsSent copyFrom:2.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	955	"/ messageAsSent := messageAsSent withoutSeparators.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	956	(messageAsSent startsWith:Character space) ifTrue:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	957	messageAsSent := messageAsSent copyFrom:2.
20617 b5a014b5ebd7 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20610 diff changeset	958	].
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	959	].
f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	960	].
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	961
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	962	messageAsSent :=
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	963	self logFormat
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	964	bindWith:(facility ? 'STX')
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	965	with:severityName
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	966	with:(Timestamp now printStringFormat:(self timestampFormat))
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	967	with:originator
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	968	with:messageAsSent.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	969
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	970	"/ If the message is Unicode 16/32 string and stream is external,
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	971	"/ we have to recode the message using locale-specific encoding
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	972	aStream isExternalStream ifTrue:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	973	messageAsSent := messageAsSent string. "take care of Texts"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	974	messageAsSent containsNon7BitAscii ifTrue:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	975	OperatingSystem isMSWINDOWSlike ifTrue:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	976	messageAsSent := messageAsSent utf8Encoded.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	977	] ifFalse:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	978	messageAsSent := OperatingSystem encodePath:messageAsSent.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	979	].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	980	].
20529 e026fd505d16 #BUGFIX by mawalch mawalch parents: 20509 diff changeset	981	].
e026fd505d16 #BUGFIX by mawalch mawalch parents: 20509 diff changeset	982
e026fd505d16 #BUGFIX by mawalch mawalch parents: 20509 diff changeset	983	aStream nextPutLine: messageAsSent
e026fd505d16 #BUGFIX by mawalch mawalch parents: 20509 diff changeset	984
20508 944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	985	"
944d1ae32584 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 20507 diff changeset	986	'hello' infoPrintCR.
20491 692f8c7c92f4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20490 diff changeset	987
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	988	Logger log:'test message' severity: DEBUG facility: 'TEST'
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	989	Logger log:'test message' severity: INFO facility: 'TEST'
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	990	Logger log:'test message' asUnicode16String severity: INFO facility: 'TEST'
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	991	Logger log:'test message äöüß' severity: INFO facility: 'TEST'
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	992	Logger log:'test message' severity: WARNING facility: 'TEST'
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	993	Logger log:'test message' severity: ERROR facility: 'TEST'
20490 f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	994	'test message' infoPrintCR
f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	995	'test message' errorPrintCR
f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	996	"
f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	997	"backward compatibility with infoPrint/errorPrint callers:
f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	998	'foo [info] test message' infoPrintCR
f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	999	'bar [error] test message' errorPrintCR
f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	1000	'foo [info]: test message' infoPrintCR
f1c27208211f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 20487 diff changeset	1001	'bar [error]: test message' errorPrintCR
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1002	"
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1003
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1004	"Created: / 14-09-2011 / 21:18: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	1005	"Modified: / 02-12-2014 / 10:50:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1006	!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1007
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1008	severityThresholdOf:originator
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1009	"allow each class to define an individual threshold for Logging"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1010
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1011	\|cls t\|
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1012
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1013	cls := originator class.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1014	ThresholdPerClass notNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1015	t := ThresholdPerClass at:(cls theNonMetaclass name) ifAbsent:nil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1016	t notNil ifTrue:[^ t].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1017	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1018	ThresholdPerPackage notNil ifTrue:[
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1019	t := ThresholdPerPackage at:(cls package) ifAbsent:nil.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1020	t notNil ifTrue:[^ t].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1021	].
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1022
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1023	"/ disabled; the above scheme is better...
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1024	"/ ^ cls
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1025	"/ perform:#logSeverityThreshold
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1026	"/ ifNotUnderstood:[ ^ Threshold ]
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1027	^ Threshold
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1028
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1029	"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1030	Logger severityThresholdOf: Object
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1031	Logger severityThresholdOf: Expecco::Browser
21608 492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1032
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1033	Logger loggingThreshold:(Logger severityDEBUG) forClass:(Expecco::Browser).
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1034	Logger loggingThreshold:(Logger severityDEBUG) forPackage:'stx:libbasic'.
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1035
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1036	Logger loggingThreshold:nil forClass:(Expecco::Browser).
492035ed86ab #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 21507 diff changeset	1037	Logger loggingThreshold:nil forPackage:'stx:libbasic'.
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1038	"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1039
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1040	"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	1041	"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	1042	! !
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	!MiniLogger::Severity methodsFor:'accessing'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1045
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1046	name
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1047	^ name
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1048	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1049
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1050	value
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1051	^ value
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1052	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1053
20951 c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1054	!MiniLogger::Severity methodsFor:'arithmethic'!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1055
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1056	+ aNumber
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1057	\|next\|
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1058
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1059	next := value + aNumber.
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1060	aNumber negative ifTrue:[
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1061	^ 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	1062	].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1063
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1064	^ 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	1065
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1066	"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1067	MiniLogger severityINFO + 1
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1068	MiniLogger severityTRACE to:MiniLogger severityFATAL do:[:each\| Transcript showCR:each].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1069	MiniLogger severityFATAL downTo:MiniLogger severityTRACE do:[:each\| Transcript showCR:each].
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1070	"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1071	! !
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1072
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1073	!MiniLogger::Severity methodsFor:'comparing'!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1074
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1075	< aSeverity
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1076	^ value < aSeverity value
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1077	!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1078
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1079	= aSeverity
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1080	^ self == aSeverity or:[value = aSeverity value]
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1081	!
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1082
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1083	hash
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1084	"instances, for which #= answers true must answer the same hash"
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1085
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1086	^ value hash
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1087	! !
c6026bc64d24 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 20848 diff changeset	1088
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1089	!MiniLogger::Severity methodsFor:'initialization'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1090
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1091	initializeWithName: aString value: anInteger
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1092	name := aString.
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1093	value := anInteger
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1094
16826 a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1095	"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	1096	! !
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1097
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1098	!MiniLogger::Severity methodsFor:'printing & storing'!
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1099
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1100	printOn:aStream
20218 415a8f568e3f #OTHER by mawalch mawalch parents: 17308 diff changeset	1101	"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	1102
a7fd70258cef Major refactoring of MiniLogger (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16784 diff changeset	1103	name printOn: aStream.
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	"Modified: / 13-08-2014 / 13:46:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1106	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1107
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1108	!MiniLogger class methodsFor:'documentation'!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1109
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1110	version
20218 415a8f568e3f #OTHER by mawalch mawalch parents: 17308 diff changeset	1111	^ '$Header$'
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1112	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1113
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1114	version_CVS
20218 415a8f568e3f #OTHER by mawalch mawalch parents: 17308 diff changeset	1115	^ '$Header$'
14881 28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1116	!
28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1117
28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1118	version_HG
28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1119
16782 ee6003ea5c4e class: MiniLogger Claus Gittinger <cg@exept.de> parents: 14881 diff changeset	1120	^ '$Changeset: <not expanded> $'
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1121	!
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1122
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1123	version_SVN
20218 415a8f568e3f #OTHER by mawalch mawalch parents: 17308 diff changeset	1124	^ '$Id$'
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1125	! !
ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1126
14881 28ba52b80aa7 Bugfixes: log using specified severity. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13810 diff changeset	1127
13810 ce0b6a1fc5cb initial checkin vrany parents: diff changeset	1128	MiniLogger initialize!

author	Claus Gittinger <cg@exept.de>
	Wed, 01 Mar 2017 10:59:59 +0100
changeset 21608	492035ed86ab
parent 21507	e8f27d16c43f
child 21609	34d4dda50ad5
permissions	-rw-r--r--