[Oberon] HowTo get Scanner's position at found token ?

Chris Glur easlab at absamail.co.za
Sat Jan 27 04:43:41 MET 2007

Since the Texts.Scanner is a descendant [object] of Texts.Reader
I'm guessing that Texts.Reader PROC Pos (VAR R: Reader): LONGINT
might be used ? But how ?

I need to:
set caret = ok
init Scanner from caret position = ok
Scan until 'Token' is found OR EOT = ok
Know the position [: LONGINT] where the 'Token' was found = problem?!

Thanks for any feedback,

== Chris Glur

More information about the Oberon mailing list