--- a/Parser.st Thu Mar 09 00:41:59 1995 +0100
+++ b/Parser.st Sat Mar 18 06:09:18 1995 +0100
@@ -39,7 +39,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.32 1995-03-08 23:41:59 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.33 1995-03-18 05:09:18 claus Exp $
'!
!Parser class methodsFor:'documentation'!
@@ -60,7 +60,7 @@
version
"
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.32 1995-03-08 23:41:59 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.33 1995-03-18 05:09:18 claus Exp $
"
!
@@ -1262,13 +1262,13 @@
self nextToken.
(tokenType ~~ #Identifier) ifTrue:[^ #Error].
var := Variable name:tokenName.
- methodArgs isNil ifTrue:[
+"/ methodArgs isNil ifTrue:[
methodArgs := Array with:var.
- methodArgNames := Array with:tokenName
- ] ifFalse:[
- methodArgs := methodArgs copyWith:var.
- methodArgNames := methodArgNames copyWith:tokenName
- ].
+ methodArgNames := Array with:tokenName.
+"/ ] ifFalse:[
+"/ methodArgs := methodArgs copyWith:var.
+"/ methodArgNames := methodArgNames copyWith:tokenName
+"/ ].
self nextToken.
^ self
].
@@ -1323,7 +1323,7 @@
primitiveNr < 0 ifTrue:[
wmsg := 'ST-80 directive ignored'
] ifFalse:[
- wmsg := 'ST-80 primitive ignored'
+ wmsg := 'ST-80 primitive may not work'
].
self warning:wmsg position:pos
].
@@ -1656,6 +1656,7 @@
(receiver == #Error) ifTrue:[^ #Error].
(tokenType == #Keyword) ifTrue:[
pos1 := tokenPosition.
+ pos2 := tokenPosition + tokenName size - 1.
sel := tokenName.
lno := tokenLineNr.
self nextToken.
@@ -1664,11 +1665,11 @@
args := Array with:arg.
[tokenType == #Keyword] whileTrue:[
sel := sel , tokenName.
+ pos2 := tokenPosition + tokenName size - 1.
self nextToken.
arg := self binaryExpression.
(arg == #Error) ifTrue:[^ #Error].
args := args copyWith:arg.
- pos2 := tokenPosition
].
sel := self selectorCheck:sel for:receiver position:pos1 to:pos2.
try := MessageNode receiver:receiver selector:sel args:args.