hg/stx-libcomp: comparison Scanner.st

equal deleted inserted replaced

-:891d45ffad68
+:9498c1060445
 ]
 ] whileTrue:[
 nextChar == $_ ifTrue:[
 part := nil.
 ] ifFalse:[
-nextChar == $. ifTrue:[
+(allowPeriodInSymbol and:[nextChar == $.]) ifTrue:[
 part := nil.
 ] ifFalse:[
 part := source nextAlphaNumericWord.
 ]
 ].
 nextChar == $_ ifTrue:[
 self warnUnderscoreAt:source position1Based.
 ] ifFalse:[
 self warnPeriodAt:source position1Based.
 ].
-[(nextChar == $_) or:[nextChar == $.]] whileTrue:[
+[(nextChar == $_) or:[(allowPeriodInSymbol and:[nextChar == $.])]] whileTrue:[
 string := string copyWith:nextChar.
 nextChar := source nextPeek.
 (nextChar notNil and:[nextChar isLetterOrDigit]) ifTrue:[
 string := string , source nextAlphaNumericWord.
 nextChar := source peek.
 ] ifFalse:[
-string last == $. ifTrue:[
+(allowPeriodInSymbol and:[string last == $.]) ifTrue:[
 peekChar := nextChar.
 nextChar := $..
 string := string copyWithoutLast:1.
 tokenValue := token := string asSymbol.
 tokenType := #Symbol.
 ! !
 !Scanner class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.248 2009-05-18 14:28:02 cg Exp $'
+^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.249 2009-05-20 14:15:51 sr Exp $'
 ! !
 Scanner initialize!