equal
deleted
inserted
replaced
3484 delimiter := String streamContents:[:s | self skipToEndOfLineRememberingIn:s]. |
3484 delimiter := String streamContents:[:s | self skipToEndOfLineRememberingIn:s]. |
3485 delimiter := delimiter withoutSeparators. |
3485 delimiter := delimiter withoutSeparators. |
3486 delimiter isEmpty ifTrue:[ |
3486 delimiter isEmpty ifTrue:[ |
3487 self parseError:'invalid delimiter in comment' |
3487 self parseError:'invalid delimiter in comment' |
3488 ]. |
3488 ]. |
3489 ((delimiter first isLetter or:[ delimiter first == $_ ]) |
3489 ((delimiter first isLetterOrUnderline) |
3490 and:[delimiter from:2 conform:[:ch | ch isLetterOrDigit]]) ifFalse:[ |
3490 and:[delimiter from:2 conform:[:ch | ch isLetterOrDigit]]) ifFalse:[ |
3491 "/ treat as regular comment |
3491 "/ treat as regular comment |
3492 commentType := #regularComment. |
3492 commentType := #regularComment. |
3493 source position:startPos. |
3493 source position:startPos. |
3494 ] ifTrue:[ |
3494 ] ifTrue:[ |
3723 ! ! |
3723 ! ! |
3724 |
3724 |
3725 !Scanner class methodsFor:'documentation'! |
3725 !Scanner class methodsFor:'documentation'! |
3726 |
3726 |
3727 version |
3727 version |
3728 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.330 2015-02-07 15:40:12 cg Exp $' |
3728 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.331 2015-02-07 15:40:38 cg Exp $' |
3729 ! |
3729 ! |
3730 |
3730 |
3731 version_CVS |
3731 version_CVS |
3732 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.330 2015-02-07 15:40:12 cg Exp $' |
3732 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.331 2015-02-07 15:40:38 cg Exp $' |
3733 ! ! |
3733 ! ! |
3734 |
3734 |
3735 |
3735 |
3736 Scanner initialize! |
3736 Scanner initialize! |