1 /* -*- mode: hugs-c; -*- */
2 /* --------------------------------------------------------------------------
3 * Error handling support functions
5 * Copyright (c) The University of Nottingham and Yale University, 1994-1997.
6 * All rights reserved. See NOTICE for details and conditions of use etc...
7 * Hugs version 1.4, December 1997
9 * $RCSfile: errors.h,v $
11 * $Date: 1998/12/02 13:22:07 $
12 * ------------------------------------------------------------------------*/
14 extern Void internal Args((String)) HUGS_noreturn;
15 extern Void fatal Args((String)) HUGS_noreturn;
18 #define Hilite() WinTextcolor(hWndText,RED);
19 #define Lolite() WinTextcolor(hWndText,BLACK);
20 #define errorStream stderr
22 #define Hilite() doNothing()
23 #define Lolite() doNothing()
24 #define errorStream stdout
27 #define ERRMSG(l) Hilite(); errHead(l); FPrintf(errorStream,
28 #define EEND ); Lolite(); errFail()
30 #define ERRTEXT Hilite(); FPrintf(errorStream,
31 #define ERREXPR(e) Hilite(); printExp(errorStream,e); Lolite()
32 #define ERRTYPE(e) Hilite(); printType(errorStream,e); Lolite()
33 #define ERRCONTEXT(qs) Hilite(); printContext(errorStream,qs); Lolite()
34 #define ERRPRED(pi) Hilite(); printPred(errorStream,pi); Lolite()
35 #define ERRKIND(k) Hilite(); printKind(errorStream,k); Lolite()
36 #define ERRKINDS(ks) Hilite(); printKinds(errorStream,ks); Lolite()
38 extern Void errHead Args((Int)); /* in main.c */
39 extern Void errFail Args((Void)) HUGS_noreturn;
40 extern Void errAbort Args((Void));
42 extern sigProto(breakHandler);
46 /*-------------------------------------------------------------------------*/