src/oberon-common.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <stdarg.h>
   4
   5 #include "oberon-internals.h"
   6
   7 void
   8 oberon_error(oberon_context_t * ctx, const char * fmt, ...)
   9 {
  10         va_list ptr;
  11         va_start(ptr, fmt);
  12         printf("%s: (%i:%i) ", ctx -> loc.source, ctx -> loc.line, ctx -> loc.col);
  13         vprintf(fmt, ptr);
  14         printf("\n");
  15         va_end(ptr);
  16         exit(1);
  17 }