Topspeed_JPI/TS/MODBASE/ERRORMAN.DEF

DEFINITION MODULE ErrorManager;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/errorman.dev   1.4   30 Dec 1990 18:00:26   coleb  $
 *
 *)


TYPE
  AnErrMsgHandler = PROCEDURE( ARRAY OF CHAR );
  AnErrNumHandler = PROCEDURE( ARRAY OF CHAR,
      CARDINAL );
  AConfirmProc = PROCEDURE( ARRAY OF CHAR ):
      BOOLEAN;
  ATermProc = PROCEDURE();

VAR
  WARN: AnErrMsgHandler;
  WarnNumber: AnErrNumHandler;
  AbortConfirmed: AConfirmProc;

  PROCEDURE AddTermProc( TheTermProc: ATermProc );

  PROCEDURE CallHalt( TheMessage: ARRAY OF CHAR );

  PROCEDURE DoTermProcs();

  PROCEDURE RemoveTermProc(TheTermProc:
      ATermProc);

  PROCEDURE StraightToDOS( TheMessage: ARRAY OF
      CHAR );

  PROCEDURE Init();

END ErrorManager.