home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / TRAP3.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  470 b   |  20 lines
  1. %====================== trap/3                ===============================
  2. domains
  3.    file = dd
  4.  
  5. predicates
  6.    nondeterm process(STRING)
  7.    error(INTEGER)
  8.  
  9. clauses
  10.    process("a").
  11.    process("b"):- writedevice(dd).
  12.  
  13.    error(E):- writef("\n\n>> Error code=%", E),beep.
  14.  
  15. goal    write("\n\nTEST OF TRAPPING PROGRAMMING ERRORS"),
  16.     trap( process(A), E, error(E) ),
  17.     write("\nSucces process: A=", A),
  18.     write("\nNow try second clause in process"),
  19.     fail.
  20.