src/oberon-common.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <stdarg.h>
   4
   5 #include "../include/oberon.h"
   6
   7 #include "oberon-internals.h"
   8
   9 void
  10 oberon_error(oberon_context_t * ctx, const char * fmt, ...)
  11 {
  12         va_list ptr;
  13         va_start(ptr, fmt);
  14         printf("error: ");
  15         vprintf(fmt, ptr);
  16         printf("\n");
  17         printf("  code_index = %i\n", ctx -> code_index);
  18         printf("  c          = %c\n", ctx -> c);
  19         printf("  token      = %i\n", ctx -> token);
  20         va_end(ptr);
  21         exit(1);
  22 }