readString | first last cc |
first <- index.
[ cc <- self currentChar.
cc isNil ifTrue: [ self error: 'unterminated string constant'].
cc ~= $' ] whileTrue: [ index <- index + 1 ].
last <- index - 1.
self nextChar = $'
ifTrue: [ self nextChar.
^ (text from: first to: index - 2) + self readString ].
self nextLex.
^ text from: first to: last