error.c 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148
  1. /* $Id$ */
  2. /*
  3. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. * See the copyright notice in the ACK home directory, in the file "Copyright".
  5. */
  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. #if __STDC__
  9. #include <stdarg.h>
  10. #else
  11. #include <varargs.h>
  12. #endif
  13. #include "errout.h"
  14. #include "LLlex.h"
  15. /* This file contains the (non-portable) error-message and diagnostic
  16. functions. Beware, they are called with a variable number of
  17. arguments!
  18. */
  19. int err_occurred;
  20. err_hdr(s)
  21. char *s;
  22. {
  23. if (FileName) {
  24. fprint(ERROUT, "\"%s\", line %d: %s", FileName, LineNumber, s);
  25. }
  26. else fprint(ERROUT, s);
  27. }
  28. #if __STDC__
  29. /*VARARGS1*/
  30. error(char *fmt, ...)
  31. {
  32. va_list ap;
  33. va_start(ap, fmt);
  34. err_hdr("");
  35. err_occurred = 1;
  36. doprnt(ERROUT, fmt, ap);
  37. fprint(ERROUT, "\n");
  38. va_end(ap);
  39. }
  40. /*VARARGS1*/
  41. warning(char *fmt, ...)
  42. {
  43. va_list ap;
  44. va_start(ap, fmt);
  45. err_hdr("(warning) ");
  46. doprnt(ERROUT, fmt, ap);
  47. fprint(ERROUT, "\n");
  48. va_end(ap);
  49. }
  50. /*VARARGS1*/
  51. crash(char *fmt, ...)
  52. {
  53. va_list ap;
  54. va_start(ap, fmt);
  55. err_hdr("CRASH\007 ");
  56. doprnt(ERROUT, fmt, ap);
  57. fprint(ERROUT, "\n");
  58. va_end(ap);
  59. sys_stop(S_ABORT);
  60. }
  61. /*VARARGS1*/
  62. fatal(char *fmt, ...)
  63. {
  64. va_list ap;
  65. va_start(ap, fmt);
  66. err_hdr("fatal error -- ");
  67. doprnt(ERROUT, fmt, ap);
  68. fprint(ERROUT, "\n");
  69. va_end(ap);
  70. sys_stop(S_EXIT);
  71. }
  72. #else /* __STDC__ */
  73. /*VARARGS1*/
  74. error(va_alist)
  75. va_dcl
  76. {
  77. char *fmt;
  78. va_list ap;
  79. err_hdr("");
  80. err_occurred = 1;
  81. va_start(ap);
  82. fmt = va_arg(ap, char *);
  83. doprnt(ERROUT, fmt, ap);
  84. fprint(ERROUT, "\n");
  85. va_end(ap);
  86. }
  87. /*VARARGS1*/
  88. warning(va_alist)
  89. va_dcl
  90. {
  91. char *fmt;
  92. va_list ap;
  93. err_hdr("(warning) ");
  94. va_start(ap);
  95. fmt = va_arg(ap, char *);
  96. doprnt(ERROUT, fmt, ap);
  97. fprint(ERROUT, "\n");
  98. va_end(ap);
  99. }
  100. /*VARARGS1*/
  101. crash(va_alist)
  102. va_dcl
  103. {
  104. char *fmt;
  105. va_list ap;
  106. err_hdr("CRASH\007 ");
  107. va_start(ap);
  108. fmt = va_arg(ap, char *);
  109. doprnt(ERROUT, fmt, ap);
  110. fprint(ERROUT, "\n");
  111. va_end(ap);
  112. sys_stop(S_ABORT);
  113. }
  114. /*VARARGS1*/
  115. fatal(va_alist)
  116. va_dcl
  117. {
  118. char *fmt;
  119. va_list ap;
  120. err_hdr("fatal error -- ");
  121. va_start(ap);
  122. fmt = va_arg(ap, char *);
  123. doprnt(ERROUT, fmt, ap);
  124. fprint(ERROUT, "\n");
  125. va_end(ap);
  126. sys_stop(S_EXIT);
  127. }
  128. #endif