enum {
        EOF_ = 0,
        IDENT,
        MODULE,
        SEMICOLON,
        END,
        DOT,
        COLON,
        BEGIN,
        ASSIGN,
        INTEGER,
        LPAREN,
        RPAREN,
        EQUAL,
        NEQ,
        LESS,
        LEQ,
        GREAT,
        GEQ,
        IN,
        IS,
        PLUS,
        MINUS,
        OR,
        STAR,
        SLASH,
        DIV,
        MOD,
        AND,
        NOT,
        COMMA,
        RETURN,
        ARRAY,
        OF,
        LBRACK,
        RBRACK,
        RECORD,
        POINTER,
        TO,
        UPARROW,
        NIL,
        IMPORT,
        REAL,
        CHAR,
        STRING,
        IF,
        THEN,
        ELSE,
        ELSIF,
        WHILE,
        DO,
        REPEAT,
        UNTIL,
        FOR,
        BY,
        LOOP,
        EXIT,
        LBRACE,
        RBRACE,
        DOTDOT,
        CASE,
        BAR,
        WITH,

        CONST,
        TYPE,
        VAR,
        PROCEDURE
};

void
oberon_error(oberon_context_t * ctx, const char * fmt, ...);