--- a/Scanner.st Thu Jul 18 10:13:34 1996 +0200
+++ b/Scanner.st Thu Jul 18 10:33:49 1996 +0200
@@ -11,13 +11,12 @@
"
Object subclass:#Scanner
- instanceVariableNames:'source lineNr collectedSource token tokenType tokenPosition tokenValue
- tokenName tokenLineNr tokenRadix hereChar peekChar peekChar2
- requestor exitBlock errorFlag ignoreErrors ignoreWarnings
- saveComments currentComments warnSTXSpecialComment
- warnUnderscoreInIdentifier warnOldStyleAssignment warnCommonMistakes
- outStream
- outCol'
+ instanceVariableNames:'source lineNr collectedSource token tokenType tokenPosition
+ tokenValue tokenName tokenLineNr tokenRadix hereChar peekChar
+ peekChar2 requestor exitBlock errorFlag ignoreErrors
+ ignoreWarnings saveComments currentComments warnSTXSpecialComment
+ warnUnderscoreInIdentifier warnOldStyleAssignment
+ warnCommonMistakes outStream outCol'
classVariableNames:'TypeArray ActionArray AllowUnderscoreInIdentifier Warnings
WarnSTXSpecials WarnOldStyleAssignment WarnUnderscoreInIdentifier
WarnCommonMistakes'
@@ -25,7 +24,7 @@
category:'System-Compiler'
!
-!Scanner class methodsFor:'documentation'!
+!Scanner class methodsFor:'documentation'!
copyright
"
@@ -53,7 +52,7 @@
"
! !
-!Scanner class methodsFor:'initialization'!
+!Scanner class methodsFor:'initialization'!
initialize
Warnings := true.
@@ -114,7 +113,7 @@
"
! !
-!Scanner class methodsFor:'instance creation'!
+!Scanner class methodsFor:'instance creation'!
for:aStringOrStream
"return a new scanner reading from aStringOrStream"
@@ -122,7 +121,7 @@
^ (super new) initializeFor:aStringOrStream
! !
-!Scanner class methodsFor:'defaults'!
+!Scanner class methodsFor:'defaults'!
allowUnderscoreInIdentifier
"return true, if underscores are allowed in identifiers"
@@ -411,13 +410,21 @@
!
warnCommonMistake:msg at:position
+ self warnCommonMistake:msg position:position to:position
+
+ "Modified: 18.7.1996 / 10:28:53 / cg"
+!
+
+warnCommonMistake:msg position:pos1 to:pos2
ignoreWarnings ifFalse:[
- warnCommonMistakes ifTrue:[
- self
- warning:msg
- position:position to:position.
- ]
+ warnCommonMistakes ifTrue:[
+ self
+ warning:msg
+ position:pos1 to:pos2.
+ ]
]
+
+ "Created: 18.7.1996 / 10:28:38 / cg"
!
warnOldStyleAssignmentAt:position
@@ -1177,9 +1184,9 @@
].
! !
-!Scanner class methodsFor:'documentation'!
+!Scanner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.47 1996-07-18 08:13:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.48 1996-07-18 08:33:49 cg Exp $'
! !
Scanner initialize!