|
@@ -6,7 +6,11 @@
|
|
|
/* 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 */
|
|
|
|
|
|
#include <system.h>
|
|
|
+#if __STDC__
|
|
|
+#include <stdarg.h>
|
|
|
+#else
|
|
|
#include <varargs.h>
|
|
|
+#endif
|
|
|
|
|
|
#include "errout.h"
|
|
|
#include "LLlex.h"
|
|
@@ -27,6 +31,58 @@ err_hdr(s)
|
|
|
else fprint(ERROUT, s);
|
|
|
}
|
|
|
|
|
|
+#if __STDC__
|
|
|
+/*VARARGS1*/
|
|
|
+error(char *fmt, ...)
|
|
|
+{
|
|
|
+ va_list ap;
|
|
|
+
|
|
|
+ va_start(ap, fmt);
|
|
|
+ err_hdr("");
|
|
|
+ err_occurred = 1;
|
|
|
+ doprnt(ERROUT, fmt, ap);
|
|
|
+ fprint(ERROUT, "\n");
|
|
|
+ va_end(ap);
|
|
|
+}
|
|
|
+
|
|
|
+/*VARARGS1*/
|
|
|
+warning(char *fmt, ...)
|
|
|
+{
|
|
|
+ va_list ap;
|
|
|
+
|
|
|
+ va_start(ap, fmt);
|
|
|
+ err_hdr("(warning) ");
|
|
|
+ doprnt(ERROUT, fmt, ap);
|
|
|
+ fprint(ERROUT, "\n");
|
|
|
+ va_end(ap);
|
|
|
+}
|
|
|
+
|
|
|
+/*VARARGS1*/
|
|
|
+crash(char *fmt, ...)
|
|
|
+{
|
|
|
+ va_list ap;
|
|
|
+
|
|
|
+ va_start(ap, fmt);
|
|
|
+ err_hdr("CRASH\007 ");
|
|
|
+ doprnt(ERROUT, fmt, ap);
|
|
|
+ fprint(ERROUT, "\n");
|
|
|
+ va_end(ap);
|
|
|
+ sys_stop(S_ABORT);
|
|
|
+}
|
|
|
+
|
|
|
+/*VARARGS1*/
|
|
|
+fatal(char *fmt, ...)
|
|
|
+{
|
|
|
+ va_list ap;
|
|
|
+
|
|
|
+ va_start(ap, fmt);
|
|
|
+ err_hdr("fatal error -- ");
|
|
|
+ doprnt(ERROUT, fmt, ap);
|
|
|
+ fprint(ERROUT, "\n");
|
|
|
+ va_end(ap);
|
|
|
+ sys_stop(S_EXIT);
|
|
|
+}
|
|
|
+#else /* __STDC__ */
|
|
|
/*VARARGS1*/
|
|
|
error(va_alist)
|
|
|
va_dcl
|
|
@@ -89,3 +145,4 @@ fatal(va_alist)
|
|
|
va_end(ap);
|
|
|
sys_stop(S_EXIT);
|
|
|
}
|
|
|
+#endif
|