error.c 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106
  1. /*
  2. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  3. * See the copyright notice in the ACK home directory, in the file "Copyright".
  4. */
  5. /* $Header$ */
  6. /* E R R O R A N D D I A G N O S T I C R O U T I N E S */
  7. #include <system.h>
  8. #include <varargs.h>
  9. #include "arith.h"
  10. #include "errout.h"
  11. #include "LLlex.h"
  12. /* This file contains the (non-portable) error-message and diagnostic
  13. functions. Beware, they are called with a variable number of
  14. arguments!
  15. */
  16. int err_occurred;
  17. err_hdr(s)
  18. char *s;
  19. {
  20. if (FileName) {
  21. fprint(ERROUT, "\"%s\", line %d: %s", FileName, LineNumber, s);
  22. }
  23. else fprint(ERROUT, s);
  24. }
  25. /*VARARGS1*/
  26. error(va_alist)
  27. va_dcl
  28. {
  29. char *fmt;
  30. va_list ap;
  31. err_hdr("");
  32. va_start(ap);
  33. fmt = va_arg(ap, char *);
  34. doprnt(ERROUT, fmt, ap);
  35. fprint(ERROUT, "\n");
  36. va_end(ap);
  37. }
  38. /*VARARGS1*/
  39. warning(va_alist)
  40. va_dcl
  41. {
  42. char *fmt;
  43. va_list ap;
  44. err_hdr("(warning) ");
  45. va_start(ap);
  46. fmt = va_arg(ap, char *);
  47. doprnt(ERROUT, fmt, ap);
  48. fprint(ERROUT, "\n");
  49. va_end(ap);
  50. }
  51. /*VARARGS1*/
  52. strict(va_alist)
  53. va_dcl
  54. {
  55. char *fmt;
  56. va_list ap;
  57. err_hdr("(strict) ");
  58. va_start(ap);
  59. fmt = va_arg(ap, char *);
  60. doprnt(ERROUT, fmt, ap);
  61. fprint(ERROUT, "\n");
  62. va_end(ap);
  63. }
  64. /*VARARGS1*/
  65. crash(va_alist)
  66. va_dcl
  67. {
  68. char *fmt;
  69. va_list ap;
  70. err_hdr("CRASH\007 ");
  71. va_start(ap);
  72. fmt = va_arg(ap, char *);
  73. doprnt(ERROUT, fmt, ap);
  74. fprint(ERROUT, "\n");
  75. va_end(ap);
  76. sys_stop(S_ABORT);
  77. }
  78. /*VARARGS1*/
  79. fatal(va_alist)
  80. va_dcl
  81. {
  82. char *fmt;
  83. va_list ap;
  84. err_hdr("fatal error -- ");
  85. va_start(ap);
  86. fmt = va_arg(ap, char *);
  87. doprnt(ERROUT, fmt, ap);
  88. fprint(ERROUT, "\n");
  89. va_end(ap);
  90. sys_stop(S_EXIT);
  91. }