equal
deleted
inserted
replaced
4820 self markIdentifierFrom:pos to:pos+10. |
4820 self markIdentifierFrom:pos to:pos+10. |
4821 ^ VariableNode type:#ThisContext context:contextToEvaluateIn. "/ often nil |
4821 ^ VariableNode type:#ThisContext context:contextToEvaluateIn. "/ often nil |
4822 ]. |
4822 ]. |
4823 |
4823 |
4824 (tokenType == #HashLeftParen) ifTrue:[ |
4824 (tokenType == #HashLeftParen) ifTrue:[ |
|
4825 self inArrayLiteral:true. |
4825 self nextToken. |
4826 self nextToken. |
4826 ParseErrorSignal handle:[:ex | |
4827 ParseErrorSignal handle:[:ex | |
|
4828 self inArrayLiteral:false. |
4827 ^ #Error |
4829 ^ #Error |
4828 ] do:[ |
4830 ] do:[ |
4829 val := self array. |
4831 val := self array. |
4830 ]. |
4832 ]. |
|
4833 self inArrayLiteral:false. |
4831 self nextToken. |
4834 self nextToken. |
4832 (self noAssignmentAllowed:'assignment to a constant' at:pos) ifFalse:[ |
4835 (self noAssignmentAllowed:'assignment to a constant' at:pos) ifFalse:[ |
4833 ^ #Error |
4836 ^ #Error |
4834 ]. |
4837 ]. |
4835 ^ ConstantNode type:#Array value:val |
4838 ^ ConstantNode type:#Array value:val |
5985 ! ! |
5988 ! ! |
5986 |
5989 |
5987 !Parser class methodsFor:'documentation'! |
5990 !Parser class methodsFor:'documentation'! |
5988 |
5991 |
5989 version |
5992 version |
5990 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.305 2001-10-09 07:41:57 cg Exp $' |
5993 ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.306 2001-10-17 13:09:06 cg Exp $' |
5991 ! ! |
5994 ! ! |
5992 Parser initialize! |
5995 Parser initialize! |