equal
deleted
inserted
replaced
1674 "/ dfo |
1674 "/ dfo |
1675 didWarnAboutSTXSpecialComment ifFalse:[ |
1675 didWarnAboutSTXSpecialComment ifFalse:[ |
1676 parserFlags warnSTXSpecialComment ifTrue:[ |
1676 parserFlags warnSTXSpecialComment ifTrue:[ |
1677 self |
1677 self |
1678 warning:'End-of-line comments are a nonstandard feature of ST/X' |
1678 warning:'End-of-line comments are a nonstandard feature of ST/X' |
1679 doNotShowAgainAction:[ ParserFlags warnSTXSpecials:false. parserFlags warnSTXSpecialComment:false ] |
1679 doNotShowAgainAction:[ parserFlags warnSTXSpecialComment:false. ParserFlags warnSTXSpecials:false. ] |
1680 doNotShowAgainForThisMethodAction: [ self disableWarningsOnCurrentMethodFor: #warnSTXSpecials ] |
1680 doNotShowAgainForThisMethodAction: [ self disableWarningsOnCurrentMethodFor: #warnSTXSpecials ] |
1681 position:position to:endPosition. |
1681 position:position to:endPosition. |
1682 " |
1682 " |
1683 only warn once |
1683 only warn once |
1684 " |
1684 " |
1685 didWarnAboutSTXSpecialComment := true |
1685 didWarnAboutSTXSpecialComment := true |
1686 ] |
1686 ] |
1687 ] |
1687 ] |
1688 ]. |
1688 ]. |
1689 |
1689 |
1690 "Modified (format): / 28-02-2012 / 14:53:19 / cg" |
1690 "Modified: / 16-03-2012 / 18:37:11 / cg" |
1691 ! |
1691 ! |
1692 |
1692 |
1693 warnUnderscoreAt:position |
1693 warnUnderscoreAt:position |
1694 "warn about an underscore in an identifier" |
1694 "warn about an underscore in an identifier" |
1695 |
1695 |
3421 ! ! |
3421 ! ! |
3422 |
3422 |
3423 !Scanner class methodsFor:'documentation'! |
3423 !Scanner class methodsFor:'documentation'! |
3424 |
3424 |
3425 version |
3425 version |
3426 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.279 2012-02-29 13:06:49 cg Exp $' |
3426 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.280 2012-03-16 17:47:20 cg Exp $' |
3427 ! |
3427 ! |
3428 |
3428 |
3429 version_CVS |
3429 version_CVS |
3430 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.279 2012-02-29 13:06:49 cg Exp $' |
3430 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.280 2012-03-16 17:47:20 cg Exp $' |
3431 ! ! |
3431 ! ! |
3432 |
3432 |
3433 Scanner initialize! |
3433 Scanner initialize! |