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