home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / modu1096.zip / ISOsym / m2exception.def < prev    next >
Text File  |  1996-09-23  |  950b  |  23 lines
  1. DEFINITION MODULE M2EXCEPTION;
  2.  
  3.   (*  Provides facilities for identifying language exceptions  *)
  4.  
  5.   TYPE M2Exceptions =
  6.     (indexException,        rangeException,      caseSelectException,
  7.      invalidLocation,       functionException,   wholeValueException,
  8.      wholeDivException,     realValueException,  realDivException, 
  9.      complexValueException, complexDivException, protException,
  10.      sysException,          coException,         exException);
  11.  
  12.   PROCEDURE M2Exception() : M2Exceptions;
  13.     (* If the current coroutine is in the exceptional execution state *
  14.      * because of the raising of a language exception, returns the    *
  15.      * corresponding enumeration value, otherwise raises an exception *)
  16.  
  17.   PROCEDURE IsM2Exception() : BOOLEAN;
  18.     (* If the current coroutine is in the exceptional execution state *
  19.      * because of the raising of a language exception, returns TRUE   *
  20.      * and otherwise returns FALSE                      *)
  21.  
  22. END M2EXCEPTION.
  23.