8.7 Errorcallback Interface

ORIGIN '~beta/basiclib/betaenv';
LIB_DEF 'processerrcb' '../lib/';

(*
 * COPYRIGHT
 *       Copyright (C) Mjolner Informatics 1995-97
 *       All rights reserved.
 *)

BODY 'private/errorcallbackbody';

--- lib:attributes ---

errCB_initialValue: (# exit -1 #);
errCB_abortProgram: (# exit 0 #);
errCB_abortOperation: (# exit 1 #);
errCB_continueOperation: (# exit 2 #);

errCB: IntegerValue
  (# abort: (# ... #);
     continue: (# ... #);
     fatal: (# ... #);
     addMsg: (# t: ^text enter t[] ... #);
     exceptionType:< exception;
     cleanup: ^object;
     private: @...;
  enter cleanup[]
  ...
 #);

hiErrCB: IntegerObject
  (# abort: (# ... #);
     continue: (# ... #);
     fatal: (# ... #);
     cleanup: ^object;
  enter cleanup[]
  do INNER
  #)