equal
deleted
inserted
replaced
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libcomp' }" |
12 "{ Package: 'stx:libcomp' }" |
13 |
13 |
14 CompilationErrorHandler subclass:#TextCollectingCompilationErrorHandler |
14 CompilationErrorHandler subclass:#TextCollectingCompilationErrorHandler |
15 instanceVariableNames:'' |
15 instanceVariableNames:'lines' |
16 classVariableNames:'' |
16 classVariableNames:'' |
17 poolDictionaries:'' |
17 poolDictionaries:'' |
18 category:'System-Compiler' |
18 category:'System-Compiler' |
19 ! |
19 ! |
20 |
20 |
41 ! ! |
41 ! ! |
42 |
42 |
43 !TextCollectingCompilationErrorHandler methodsFor:'error handling'! |
43 !TextCollectingCompilationErrorHandler methodsFor:'error handling'! |
44 |
44 |
45 error:aMessage position:position to:endPos from:aCompiler |
45 error:aMessage position:position to:endPos from:aCompiler |
|
46 (lines includes:aMessage) ifTrue:[^ self ]. |
|
47 lines add:aMessage. |
46 myStream nextPutLine:(aMessage allBold colorizeAllWith:Color red darkened). |
48 myStream nextPutLine:(aMessage allBold colorizeAllWith:Color red darkened). |
47 |
49 |
48 "Created: / 02-11-2010 / 12:52:23 / cg" |
50 "Created: / 02-11-2010 / 12:52:23 / cg" |
49 ! |
51 ! |
50 |
52 |
51 warning:aMessage position:position to:endPos from:aCompiler |
53 warning:aMessage position:position to:endPos from:aCompiler |
|
54 (lines includes:aMessage) ifTrue:[^ self ]. |
|
55 lines add:aMessage. |
52 myStream nextPutLine:aMessage. |
56 myStream nextPutLine:aMessage. |
53 |
57 |
54 "Created: / 02-11-2010 / 12:51:30 / cg" |
58 "Created: / 02-11-2010 / 12:51:30 / cg" |
55 ! ! |
59 ! ! |
56 |
60 |
|
61 !TextCollectingCompilationErrorHandler methodsFor:'initialization'! |
|
62 |
|
63 initialize |
|
64 lines := OrderedCollection new. |
|
65 |
|
66 "Created: / 02-11-2010 / 13:00:55 / cg" |
|
67 ! ! |
|
68 |
57 !TextCollectingCompilationErrorHandler class methodsFor:'documentation'! |
69 !TextCollectingCompilationErrorHandler class methodsFor:'documentation'! |
58 |
70 |
59 version_CVS |
71 version_CVS |
60 ^ '$Header: /cvs/stx/stx/libcomp/TextCollectingCompilationErrorHandler.st,v 1.1 2010-11-02 11:53:33 cg Exp $' |
72 ^ '$Header: /cvs/stx/stx/libcomp/TextCollectingCompilationErrorHandler.st,v 1.2 2010-11-02 12:01:10 cg Exp $' |
61 ! ! |
73 ! ! |