home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH19EX01.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  467 b   |  27 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 19, Example Program 1
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8.  /* Example: trapping the "file not open" error */ 
  9.  
  10. domains
  11.    file = dd
  12.  
  13. predicates
  14.    error(integer)
  15.    process(string)
  16.  
  17. clauses
  18.    process("a").
  19.    process("b") :- writedevice(dd).
  20.  
  21.    error(E) :- writef("\nerror(%)", E).
  22.  
  23. goal
  24.    trap(process(A), E, error(E) ),
  25.    write("\nSuccessful process: A=", A),
  26.    fail.
  27.