INTERFACEToken ; TYPE T = { LParen, RParen, Plus, Star, Assign, Id, Semi, EOF }; CONST Name = ARRAY T OF TEXT { "(", ")", "+", "*", "=", "*ID*", ";", "$" }; PROCEDURE Scan (input: TEXT; VAR cursor: INTEGER; VAR t: T; VAR name: TEXT);
scan 'input' beginning at character 'cursor'. Return the new token, and its name.
END Token.