hg/stx-libcomp: EvalScriptingErrorHandler.st@4f6e4135ab25 (annotated)

3363 40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2	COPYRIGHT (c) 2014 by eXept Software AG
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	All Rights Reserved
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	This software is furnished under a license and may be used
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	only in accordance with the terms of that license and with the
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	inclusion of the above copyright notice. This software may not
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	be provided or otherwise made available to, or used by, any
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	other person. No title to or ownership of the software is
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	hereby transferred.
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libcomp' }"
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	CompilationErrorHandler subclass:#EvalScriptingErrorHandler
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	instanceVariableNames:''
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	classVariableNames:''
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	poolDictionaries:''
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	category:'System-Compiler'
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	!
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!EvalScriptingErrorHandler class methodsFor:'documentation'!
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	copyright
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	"
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	COPYRIGHT (c) 2014 by eXept Software AG
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	All Rights Reserved
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	This software is furnished under a license and may be used
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	only in accordance with the terms of that license and with the
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	inclusion of the above copyright notice. This software may not
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	be provided or otherwise made available to, or used by, any
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	other person. No title to or ownership of the software is
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	hereby transferred.
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	"
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	!
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	documentation
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	"
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	I am the ErrorHandler used when executing eval-scripts
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	"
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	! !
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	!EvalScriptingErrorHandler methodsFor:'error handling'!
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	error:aMessage position:position to:endPos from:aCompiler
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	"error notification.
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	This is sent by the compiler/evaluator if it detects errors."
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
3378 4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	49	\|lineNr pos\|
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	50
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	51	lineNr := myStream lineNumber ? '?'.
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	52	pos := position ? '?'.
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	53	Stderr nextPutAll:('[Error %1/%2] %3' bindWith:lineNr with:pos with:aMessage).
3363 40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	^ #Error
3378 4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	55	!
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	56
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	57	warning:aMessage position:position to:endPos from:aCompiler
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	58	"warning notification.
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	59	This is sent by the compiler/evaluator if it detects something strange."
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	60
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	61	\|lineNr pos\|
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	62
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	63	lineNr := myStream lineNumber ? '?'.
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	64	pos := position ? '?'.
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	65	Stderr nextPutAll:('[Warning %1/%2] %3' bindWith:lineNr with:pos with:aMessage).
4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	66	^ false
3363 40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	! !
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68
3374 0b430a313a88 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	69	!EvalScriptingErrorHandler methodsFor:'queries'!
0b430a313a88 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	70
0b430a313a88 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	71	autoDefineVariables
3376 c9176bc16ede class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	72	"when evaluating with --eval, auto define any variables as workspace vars"
3374 0b430a313a88 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	73
3376 c9176bc16ede class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3374 diff changeset	74	^ #workspace. "/ true
3374 0b430a313a88 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	75	! !
0b430a313a88 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3363 diff changeset	76
3363 40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	!EvalScriptingErrorHandler class methodsFor:'documentation'!
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	version
3378 4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	80	^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.4 2014-02-20 15:18:57 cg Exp $'
3363 40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	!
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	version_CVS
3378 4f6e4135ab25 class: EvalScriptingErrorHandler Claus Gittinger <cg@exept.de> parents: 3376 diff changeset	84	^ '$Header: /cvs/stx/stx/libcomp/EvalScriptingErrorHandler.st,v 1.4 2014-02-20 15:18:57 cg Exp $'
3363 40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	! !
40d79a034294 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86

author	Claus Gittinger <cg@exept.de>
	Thu, 20 Feb 2014 16:18:57 +0100
changeset 3378	4f6e4135ab25
parent 3376	c9176bc16ede
child 3394	cbca0be4dd32
permissions	-rw-r--r--