error.c 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147
  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. void err_hdr(char *s)
  21. {
  22. if (FileName) {
  23. fprint(ERROUT, "\"%s\", line %d: %s", FileName, LineNumber, s);
  24. }
  25. else fprint(ERROUT, s);
  26. }
  27. #if __STDC__
  28. /*VARARGS1*/
  29. void error(char *fmt, ...)
  30. {
  31. va_list ap;
  32. va_start(ap, fmt);
  33. err_hdr("");
  34. err_occurred = 1;
  35. doprnt(ERROUT, fmt, ap);
  36. fprint(ERROUT, "\n");
  37. va_end(ap);
  38. }
  39. /*VARARGS1*/
  40. void warning(char *fmt, ...)
  41. {
  42. va_list ap;
  43. va_start(ap, fmt);
  44. err_hdr("(warning) ");
  45. doprnt(ERROUT, fmt, ap);
  46. fprint(ERROUT, "\n");
  47. va_end(ap);
  48. }
  49. /*VARARGS1*/
  50. void crash(char *fmt, ...)
  51. {
  52. va_list ap;
  53. va_start(ap, fmt);
  54. err_hdr("CRASH\007 ");
  55. doprnt(ERROUT, fmt, ap);
  56. fprint(ERROUT, "\n");
  57. va_end(ap);
  58. sys_stop(S_ABORT);
  59. }
  60. /*VARARGS1*/
  61. void fatal(char *fmt, ...)
  62. {
  63. va_list ap;
  64. va_start(ap, fmt);
  65. err_hdr("fatal error -- ");
  66. doprnt(ERROUT, fmt, ap);
  67. fprint(ERROUT, "\n");
  68. va_end(ap);
  69. sys_stop(S_EXIT);
  70. }
  71. #else /* __STDC__ */
  72. /*VARARGS1*/
  73. error(va_alist)
  74. va_dcl
  75. {
  76. char *fmt;
  77. va_list ap;
  78. err_hdr("");
  79. err_occurred = 1;
  80. va_start(ap);
  81. fmt = va_arg(ap, char *);
  82. doprnt(ERROUT, fmt, ap);
  83. fprint(ERROUT, "\n");
  84. va_end(ap);
  85. }
  86. /*VARARGS1*/
  87. warning(va_alist)
  88. va_dcl
  89. {
  90. char *fmt;
  91. va_list ap;
  92. err_hdr("(warning) ");
  93. va_start(ap);
  94. fmt = va_arg(ap, char *);
  95. doprnt(ERROUT, fmt, ap);
  96. fprint(ERROUT, "\n");
  97. va_end(ap);
  98. }
  99. /*VARARGS1*/
  100. crash(va_alist)
  101. va_dcl
  102. {
  103. char *fmt;
  104. va_list ap;
  105. err_hdr("CRASH\007 ");
  106. va_start(ap);
  107. fmt = va_arg(ap, char *);
  108. doprnt(ERROUT, fmt, ap);
  109. fprint(ERROUT, "\n");
  110. va_end(ap);
  111. sys_stop(S_ABORT);
  112. }
  113. /*VARARGS1*/
  114. fatal(va_alist)
  115. va_dcl
  116. {
  117. char *fmt;
  118. va_list ap;
  119. err_hdr("fatal error -- ");
  120. va_start(ap);
  121. fmt = va_arg(ap, char *);
  122. doprnt(ERROUT, fmt, ap);
  123. fprint(ERROUT, "\n");
  124. va_end(ap);
  125. sys_stop(S_EXIT);
  126. }
  127. #endif