home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH16EX01.PRO < prev    next >
Encoding:
Prolog Source  |  1990-03-26  |  406 b   |  24 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5.  /* Example: trapping the "file not open" error */ 
  6.  
  7. domains
  8.    file = dd
  9.  
  10. predicates
  11.    error(integer)
  12.    process(string)
  13.  
  14. clauses
  15.    process("a").
  16.    process("b") :- writedevice(dd).
  17.  
  18.    error(E) :- writef("\nerror(%)", E).
  19.  
  20. goal
  21.    trap(process(A), E, error(E) ),
  22.    write("\nSuccessful process: A=", A),
  23.    fail.
  24.