equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
2 COPYRIGHT (c) 1989 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 |
5417 moreSharedPools := aParser moreSharedPools. |
5415 moreSharedPools := aParser moreSharedPools. |
5418 doItTemporaries := aParser doItTemporaries. |
5416 doItTemporaries := aParser doItTemporaries. |
5419 selector := aParser selector. |
5417 selector := aParser selector. |
5420 ! ! |
5418 ! ! |
5421 |
5419 |
|
5420 |
5422 !Parser methodsFor:'obsolete'! |
5421 !Parser methodsFor:'obsolete'! |
5423 |
5422 |
5424 correctByDeleting |
5423 correctByDeleting |
5425 "correct (by deleting token) if user wants to; |
5424 "correct (by deleting token) if user wants to; |
5426 return #Error if there was no correction; |
5425 return #Error if there was no correction; |
11661 |badName source newName node definingNode refactoring| |
11660 |badName source newName node definingNode refactoring| |
11662 |
11661 |
11663 source := aCompiler currentSource. |
11662 source := aCompiler currentSource. |
11664 badName := source copyFrom:pos1 to:pos2. |
11663 badName := source copyFrom:pos1 to:pos2. |
11665 |
11664 |
11666 node := DoWhatIMeanSupport |
11665 node := DoWhatIMeanSupport findNodeForInterval:(pos1 to:pos2) in:source. |
11667 findNodeForInterval:(pos1 to:pos2) |
|
11668 in:source. |
|
11669 node isNil ifTrue:[ |
11666 node isNil ifTrue:[ |
11670 Dialog information:'Sorry - could not extract identifier node from the source'. |
11667 Dialog information:'Sorry - could not extract identifier node from the source'. |
11671 ^ nil. |
11668 ^ nil. |
11672 ]. |
11669 ]. |
11673 node isVariable ifFalse:[ |
11670 node isVariable ifFalse:[ |