equal
deleted
inserted
replaced
774 exitBlock notNil ifTrue:[exitBlock value] |
774 exitBlock notNil ifTrue:[exitBlock value] |
775 ]. |
775 ]. |
776 ^ correctIt |
776 ^ correctIt |
777 |
777 |
778 "Created: / 13.5.1998 / 16:45:56 / cg" |
778 "Created: / 13.5.1998 / 16:45:56 / cg" |
|
779 ! |
|
780 |
|
781 correctableSelectorWarning:message position:pos1 to:pos2 |
|
782 "report a warning which can be corrected by compiler - |
|
783 return non-false, if correction is wanted (there is more than |
|
784 true/false returned here)" |
|
785 |
|
786 |correctIt| |
|
787 |
|
788 requestor isNil ifTrue:[ |
|
789 correctIt := false |
|
790 ] ifFalse:[ |
|
791 correctIt := requestor correctableSelectorWarning:message position:pos1 to:pos2 from:self |
|
792 ]. |
|
793 correctIt == false ifTrue:[ |
|
794 exitBlock notNil ifTrue:[exitBlock value] |
|
795 ]. |
|
796 ^ correctIt |
|
797 |
|
798 "Created: / 19.1.2000 / 16:28:03 / cg" |
779 ! |
799 ! |
780 |
800 |
781 lastTokenLineNumber |
801 lastTokenLineNumber |
782 "return the line number of the token which was just read." |
802 "return the line number of the token which was just read." |
783 |
803 |
2031 ! ! |
2051 ! ! |
2032 |
2052 |
2033 !Scanner class methodsFor:'documentation'! |
2053 !Scanner class methodsFor:'documentation'! |
2034 |
2054 |
2035 version |
2055 version |
2036 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.114 2000-01-17 11:14:57 cg Exp $' |
2056 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.115 2000-01-19 16:02:11 cg Exp $' |
2037 ! ! |
2057 ! ! |
2038 Scanner initialize! |
2058 Scanner initialize! |