[project @ 2000-11-06 16:43:28 by rrt]

[ghc-hetmet.git] / ghc / interpreter / errors.h

diff --git a/ghc/interpreter/errors.h b/ghc/interpreter/errors.h
index 5bfd966..63f9325 100644 (file)
--- a/ghc/interpreter/errors.h
+++ b/ghc/interpreter/errors.h
@@ -1,31 +1,28 @@
-/* -*- mode: hugs-c; -*- */
+
 /* --------------------------------------------------------------------------
  * Error handling support functions
  *
- * Copyright (c) The University of Nottingham and Yale University, 1994-1997.
- * All rights reserved. See NOTICE for details and conditions of use etc...
- * Hugs version 1.4, December 1997
+ * The Hugs 98 system is Copyright (c) Mark P Jones, Alastair Reid, the
+ * Yale Haskell Group, and the Oregon Graduate Institute of Science and
+ * Technology, 1994-1999, All rights reserved.  It is distributed as
+ * free software under the license in the file "License", which is
+ * included in the distribution.
  *
  * $RCSfile: errors.h,v $
- * $Revision: 1.2 $
- * $Date: 1998/12/02 13:22:07 $
+ * $Revision: 1.9 $
+ * $Date: 2000/03/24 14:32:03 $
  * ------------------------------------------------------------------------*/
 
-extern Void internal   Args((String)) HUGS_noreturn;
-extern Void fatal      Args((String)) HUGS_noreturn;
+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()
@@ -34,13 +31,20 @@ extern Void fatal      Args((String)) HUGS_noreturn;
 #define ERRPRED(pi)      Hilite(); printPred(errorStream,pi); Lolite()
 #define ERRKIND(k)       Hilite(); printKind(errorStream,k); Lolite()
 #define ERRKINDS(ks)     Hilite(); printKinds(errorStream,ks); Lolite()
+#define ERRFD(fd)       Hilite(); printFD(errorStream,fd); Lolite()
 
-extern Void errHead      Args((Int));              /* in main.c            */
-extern Void errFail      Args((Void)) HUGS_noreturn;
-extern Void errAbort     Args((Void));
-
-extern sigProto(breakHandler);
+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 );
 
-#include "output.h"
+extern Void printExp     ( FILE *,Cell );          /* in output.c          */
+extern Void printType    ( FILE *,Cell );
+extern Void printContext ( FILE *,List );
+extern Void printPred    ( FILE *,Cell );
+extern Void printKind    ( FILE *,Kind );
+extern Void printKinds   ( FILE *,Kinds );
+extern Void printFD     ( FILE *,Pair );
 
 /*-------------------------------------------------------------------------*/