equal
deleted
inserted
replaced
1254 exitBlock value |
1254 exitBlock value |
1255 ]. |
1255 ]. |
1256 ^ correctIt |
1256 ^ correctIt |
1257 |
1257 |
1258 "Created: / 19.1.2000 / 16:28:03 / cg" |
1258 "Created: / 19.1.2000 / 16:28:03 / cg" |
|
1259 ! |
|
1260 |
|
1261 correctableWarning:message position:pos1 to:pos2 |
|
1262 "report an error which can be corrected by compiler - |
|
1263 return non-false, if correction is wanted (there is more than |
|
1264 true/false returned here)" |
|
1265 |
|
1266 |correctIt| |
|
1267 |
|
1268 requestor isNil ifTrue:[ |
|
1269 "/ self showErrorMessage:message position:pos1. |
|
1270 correctIt := false |
|
1271 ] ifFalse:[ |
|
1272 correctIt := requestor correctableWarning:message position:pos1 to:pos2 from:self |
|
1273 ]. |
|
1274 |
|
1275 (correctIt == false or:[correctIt == #Error]) ifTrue:[ |
|
1276 exitBlock value |
|
1277 ]. |
|
1278 ^ correctIt |
|
1279 |
|
1280 "Created: / 02-11-2010 / 13:32:32 / cg" |
1259 ! |
1281 ! |
1260 |
1282 |
1261 errorMessagePrefix |
1283 errorMessagePrefix |
1262 ^ 'Error:' |
1284 ^ 'Error:' |
1263 ! |
1285 ! |
3259 ! ! |
3281 ! ! |
3260 |
3282 |
3261 !Scanner class methodsFor:'documentation'! |
3283 !Scanner class methodsFor:'documentation'! |
3262 |
3284 |
3263 version |
3285 version |
3264 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.255 2010-05-11 11:41:30 cg Exp $' |
3286 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.256 2010-11-02 12:43:04 cg Exp $' |
3265 ! |
3287 ! |
3266 |
3288 |
3267 version_CVS |
3289 version_CVS |
3268 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.255 2010-05-11 11:41:30 cg Exp $' |
3290 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.256 2010-11-02 12:43:04 cg Exp $' |
3269 ! ! |
3291 ! ! |
3270 |
3292 |
3271 Scanner initialize! |
3293 Scanner initialize! |