error.c 556 B

123456789101112131415161718192021222324252627282930313233343536373839
  1. #include <system.h>
  2. #if __STDC__
  3. #include <stdarg.h>
  4. #else
  5. #include <varargs.h>
  6. #endif
  7. extern int nerrors;
  8. #if __STDC__
  9. /*VARARGS*/
  10. error(char *fmt, ...)
  11. {
  12. va_list pvar;
  13. va_start(pvar, fmt);
  14. fprint( STDERR, "!! ERROR : ");
  15. doprnt( STDERR, fmt, pvar);
  16. fprint( STDERR, " !!\n");
  17. va_end(pvar);
  18. nerrors++;
  19. }
  20. #else
  21. /*VARARGS*/
  22. error(va_alist)
  23. va_dcl
  24. {
  25. char *fmt;
  26. va_list pvar;
  27. va_start(pvar);
  28. fmt = va_arg(pvar, char *);
  29. fprint( STDERR, "!! ERROR : ");
  30. doprnt( STDERR, fmt, pvar);
  31. fprint( STDERR, " !!\n");
  32. va_end(pvar);
  33. nerrors++;
  34. }
  35. #endif