chiark - git - mdw - ssr/blob - StraySrc/Libraries/Sapphire/sail/_sh/error

   1 ;
   2 ; error.sh
   3 ;
   4 ; Generation and handling of errors
   5 ;
   6 ; © 1995 Straylight
   7 ;
   8
   9 ;----- Overview -------------------------------------------------------------
  10 ;
  11 ; Functions provided:
  12 ;
  13 ;  error_report
  14 ;  error_reportReal
  15
  16                 [       :LNOT::DEF:error__dfn
  17                 GBLL    error__dfn
  18
  19 ; --- error_report ---
  20 ;
  21 ; On entry:     R0 == error number
  22 ;
  23 ; On exit:      doesn't -- reports error to Termite
  24 ;
  25 ; Use:          Reports an error, attaching the error number etc. and
  26 ;               terminating the script.
  27
  28                 IMPORT  error_report
  29
  30 ; --- error_reportReal ---
  31 ;
  32 ; On entry:     R0 == error block
  33 ;
  34 ; On exit:      doesn't -- reports error to Termite
  35 ;
  36 ; Use:          Reports an error, attaching the error number etc. and
  37 ;               terminating the script.
  38
  39                 IMPORT  error_reportReal
  40
  41                 ]
  42
  43 ;----- That's all, folks ----------------------------------------------------
  44
  45                 END