home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / gofer / Sources / h / errors < prev    next >
Encoding:
Text File  |  1993-02-12  |  1.5 KB  |  37 lines
  1. /* --------------------------------------------------------------------------
  2.  * errors.h:    Copyright (c) Mark P Jones 1991-1993.   All rights reserved.
  3.  *              See goferite.h for details and conditions of use etc...
  4.  *              Gofer version 2.28 January 1993
  5.  *
  6.  * Error handling support functions
  7.  * ------------------------------------------------------------------------*/
  8.  
  9. #define errorStream     stdout
  10. #define ERROR(l)         errHead(l);fprintf(errorStream,
  11. #define EEND            ); errFail()
  12. #define ETHEN         );
  13. #define ERRTEXT         fprintf(errorStream,
  14. #define ERREXPR(e)     printExp(errorStream,e)
  15. #define ERRTYPE(e)     printType(errorStream,e)
  16. #define ERRCONTEXT(qs)   printContext(errorStream,qs)
  17. #define ERRPRED(pi)      printPred(errorStream,pi)
  18. #define ERRKIND(k)     printKind(errorStream,k)
  19. #define ERRSIG(sig)     printSig(errorStream,sig)
  20.  
  21. extern Void errHead      Args((Int));              /* in main.c            */
  22. extern Void errFail      Args((Void));
  23. extern Void errAbort     Args((Void));
  24.  
  25. extern sigProto(breakHandler);
  26.  
  27. extern Bool breakOn      Args((Bool));           /* in machdep.c       */
  28.  
  29. extern Void printExp     Args((FILE *,Cell));      /* in output.c          */
  30. extern Void printType    Args((FILE *,Cell));
  31. extern Void printContext Args((FILE *,List));
  32. extern Void printPred    Args((FILE *,Cell));
  33. extern Void printKind     Args((FILE *,Kind));
  34. extern Void printSig     Args((FILE *,Cell));
  35.  
  36. /*-------------------------------------------------------------------------*/
  37.