INTERFACE QToken;

TYPE
  T = {
    Unknown, EOF,

    (* Keywords *)
    And, Contains, Else, End, Foreach,
    If, In, Is, Local, Not, Or, Proc,
    Readonly, Return,

    (* Punctuation *)
    Dollar, Ampersand, LParen, RParen, Plus, Comma, Colon, Less,
    Equal, Greater, At, LSquare, RSquare, LBrace, RBrace,

    (* Others---values are stored in the Lexer.T for these *)
    Cardinal, Name, String
  };

CONST
  Name = ARRAY T OF TEXT {
    "<*Unknown*>", "<*EOF*>",

    (* Keywords *)
    "and", "contains", "else", "end", "foreach",
    "if", "in", "is", "local", "not", "or", "proc",
    "readonly", "return",

    (* Punctuation *)
    "$", "&", "(", ")", "+", ",", ":", "<",
    "=", ">", "@", "[", "]", "{", "}",

    (* Others---values are stored in the Lexer.T for these *)
    "<cardinal>", "<name>", "<string>"
  };

END QToken.