home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / Exceptions / exceptions.e next >
Encoding:
Text File  |  1992-09-02  |  699 b   |  27 lines
  1. -> general exception catcher for test purposes
  2.  
  3. OPT MODULE
  4.  
  5. EXPORT PROC report_exception()
  6.   DEF e[5]:ARRAY
  7.   IF exception
  8.     WriteF('Program caused exception: ')
  9.     IF exception<10000
  10.       WriteF('\d\n',exception)
  11.     ELSE
  12.       SELECT exception
  13.         CASE "MEM";  WriteF('no memory\n')
  14.         CASE "OPEN"; WriteF('could not open file \s\n',IF exceptioninfo THEN exceptioninfo ELSE '')
  15.         CASE "^C";   WriteF('***BREAK\n')
  16.         -> and others...
  17.         DEFAULT
  18.           e[4]:=0
  19.           ^e:=exception
  20.           WHILE e[]=0 DO e++
  21.           WriteF('"\s" ',e)
  22.           WriteF(IF exceptioninfo<1000 THEN '[\d]\n' ELSE '[\h]\n',exceptioninfo)
  23.       ENDSELECT
  24.     ENDIF
  25.   ENDIF
  26. ENDPROC
  27.