equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
9 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
10 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
11 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
12 hereby transferred. |
10 hereby transferred. |
13 " |
11 " |
14 |
|
15 "{ Package: 'stx:libcomp' }" |
12 "{ Package: 'stx:libcomp' }" |
16 |
13 |
17 Object subclass:#CompilationErrorHandler |
14 Object subclass:#CompilationErrorHandler |
18 instanceVariableNames:'myStream currentSource' |
15 instanceVariableNames:'myStream currentSource failBlock' |
19 classVariableNames:'' |
16 classVariableNames:'' |
20 poolDictionaries:'' |
17 poolDictionaries:'' |
21 category:'System-Compiler' |
18 category:'System-Compiler' |
22 ! |
19 ! |
23 |
20 |
52 ^ self new reader:aStream |
49 ^ self new reader:aStream |
53 ! ! |
50 ! ! |
54 |
51 |
55 !CompilationErrorHandler methodsFor:'accessing'! |
52 !CompilationErrorHandler methodsFor:'accessing'! |
56 |
53 |
|
54 failBlock:something |
|
55 failBlock := something. |
|
56 ! |
|
57 |
57 source:aString |
58 source:aString |
58 currentSource := aString |
59 currentSource := aString |
59 ! ! |
60 ! ! |
60 |
61 |
61 !CompilationErrorHandler methodsFor:'error handling'! |
62 !CompilationErrorHandler methodsFor:'error handling'! |
84 will eventually open a TextBox here, showing the error .... |
85 will eventually open a TextBox here, showing the error .... |
85 " |
86 " |
86 "/ position printOn:Transcript. |
87 "/ position printOn:Transcript. |
87 "/ Transcript show:' '. |
88 "/ Transcript show:' '. |
88 Transcript showCR:aMessage. |
89 Transcript showCR:aMessage. |
|
90 failBlock notNil ifTrue:[ failBlock value ]. |
89 ^ false |
91 ^ false |
90 |
92 |
91 "Created: / 30.7.1999 / 18:10:30 / cg" |
93 "Created: / 30.7.1999 / 18:10:30 / cg" |
92 ! |
94 ! |
93 |
95 |
114 ! ! |
116 ! ! |
115 |
117 |
116 !CompilationErrorHandler class methodsFor:'documentation'! |
118 !CompilationErrorHandler class methodsFor:'documentation'! |
117 |
119 |
118 version |
120 version |
119 ^ '$Header: /cvs/stx/stx/libcomp/CompilationErrorHandler.st,v 1.7 2004-03-12 10:11:37 penk Exp $' |
121 ^ '$Header: /cvs/stx/stx/libcomp/CompilationErrorHandler.st,v 1.8 2009-10-12 07:48:13 cg Exp $' |
|
122 ! |
|
123 |
|
124 version_CVS |
|
125 ^ '$Header: /cvs/stx/stx/libcomp/CompilationErrorHandler.st,v 1.8 2009-10-12 07:48:13 cg Exp $' |
120 ! ! |
126 ! ! |