--- a/Scanner.st Fri Jan 15 22:22:05 1999 +0100
+++ b/Scanner.st Tue Feb 02 22:44:50 1999 +0100
@@ -1353,17 +1353,21 @@
[ok] whileTrue:[
string := string copyWith:nextChar.
nextChar := source nextPeek.
- (nextChar isAlphaNumeric) ifTrue:[
- string := string , source nextAlphaNumericWord.
- nextChar := source peekOrNil.
- ].
- (nextChar == $_) ifTrue:[
- ok := allowUnderscoreInIdentifier
+ nextChar isNil ifTrue:[
+ ok := false
] ifFalse:[
- (nextChar == $$) ifTrue:[
- ok := allowDollarInIdentifier
+ (nextChar isAlphaNumeric) ifTrue:[
+ string := string , source nextAlphaNumericWord.
+ nextChar := source peekOrNil.
+ ].
+ (nextChar == $_) ifTrue:[
+ ok := allowUnderscoreInIdentifier
] ifFalse:[
- ok := false
+ (nextChar == $$) ifTrue:[
+ ok := allowDollarInIdentifier
+ ] ifFalse:[
+ ok := false
+ ]
]
]
].
@@ -1400,7 +1404,7 @@
^ tokenType
"Created: / 13.9.1995 / 12:56:42 / claus"
- "Modified: / 17.10.1998 / 15:48:28 / cg"
+ "Modified: / 2.2.1999 / 22:29:57 / cg"
!
nextMantissa:radix
@@ -1891,6 +1895,6 @@
!Scanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.89 1998-10-30 12:16:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.90 1999-02-02 21:44:50 cg Exp $'
! !
Scanner initialize!