* included in the distribution.
*
* $RCSfile: errors.h,v $
- * $Revision: 1.6 $
- * $Date: 2000/03/13 11:37:16 $
+ * $Revision: 1.9 $
+ * $Date: 2000/03/24 14:32:03 $
* ------------------------------------------------------------------------*/
extern Void internal ( String) HUGS_noreturn;
extern Void fatal ( String) HUGS_noreturn;
-#if HUGS_FOR_WINDOWS
-#define Hilite() WinTextcolor(hWndText,RED);
-#define Lolite() WinTextcolor(hWndText,BLACK);
-#define errorStream stderr
-#else
#define Hilite() doNothing()
#define Lolite() doNothing()
#define errorStream stdout
-#endif
#define ERRMSG(l) Hilite(); errHead(l); FPrintf(errorStream,
#define EEND ); Lolite(); errFail()
+#define EEND_NO_LONGJMP ); Lolite(); errFail_no_longjmp()
#define ETHEN );
#define ERRTEXT Hilite(); FPrintf(errorStream,
#define ERREXPR(e) Hilite(); printExp(errorStream,e); Lolite()
#define ERRKINDS(ks) Hilite(); printKinds(errorStream,ks); Lolite()
#define ERRFD(fd) Hilite(); printFD(errorStream,fd); Lolite()
-extern Void errHead ( Int ); /* in main.c */
-extern Void errFail ( Void) HUGS_noreturn;
-extern Void errAbort ( Void );
-
-extern sigProto(breakHandler);
-
-extern Bool breakOn ( Bool ); /* in machdep.c */
+extern Void errHead ( Int ); /* in main.c */
+extern Void errFail ( Void ) HUGS_noreturn;
+extern Void errFail_no_longjmp ( Void );
+extern Void errAbort ( Void );
+extern Cell errAssert ( Int );
extern Void printExp ( FILE *,Cell ); /* in output.c */
extern Void printType ( FILE *,Cell );