#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>

#include "../include/oberon.h"

#include "oberon-internals.h"

void
oberon_error(oberon_context_t * ctx, const char * fmt, ...)
{
        va_list ptr;
        va_start(ptr, fmt);
        printf("error: ");
        vprintf(fmt, ptr);
        printf("\n");
        printf("  code_index = %i\n", ctx -> code_index);
        printf("  c          = %c\n", ctx -> c);
        printf("  token      = %i\n", ctx -> token);
        va_end(ptr);
        exit(1);
}