home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / CNSLTERR.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  844 b   |  31 lines
  1. %====================== consulterror/3         ===============================
  2. DOMAINS
  3.   ILIST=INTEGER*
  4.  
  5. DATABASE
  6.   p1(INTEGER,CHAR,REAL,STRING,SYMBOL,ILIST)
  7.   p2(INTEGER)
  8.  
  9. PREDICATES
  10.   error_routine(integer)
  11. GOAL 
  12.   trap(consult("dd.dba"), Err, error_routine(Err)),
  13.   write("Operation completed successfully..").
  14.  
  15. CLAUSES
  16.   error_routine(Error):-
  17.      Error>1100, Error<1110, !,
  18.      consulterror(Line,LinePos,FilePos),
  19.      write("Line with error is : ",Line,"\nPosition on line : ",LinePos),nl,
  20.      write("File position is : ",FilePos),
  21.      write("\n\nOperation not successful"),
  22.      readchar(_),
  23.      exit.
  24.      
  25. /* -------- CONTENT OF dd.dba ------------------
  26. p1(1,'a',44.44,"Turbo","Prolog",[1,2,3,4])
  27. p1(2,'b',-4.444E-98,"---","++++",[])
  28. p2(88)
  29. p2(99)
  30. ------------------------------------------------*/
  31.