home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / CHNFN.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  624 b   |  27 lines
  1. %====================== chain_first/3, chain_next/3 ============================
  2. DOMAINS
  3.   DB_SELECTOR = mydba
  4.   dbdom    = city(CITYNO,CITYNAME);
  5.         person(FIRSTNAME,LASTNAME,STREET,CITYNO,CODE)
  6.   CITYNO, CITYNAME, FIRSTNAME, LASTNAME, STREET, CODE = STRING
  7.  
  8. PREDICATES
  9.   rd(REF)
  10.  
  11. CLAUSES
  12.   rd(REF):-
  13.     ref_term(mydba,dbdom,REF,TERM),
  14.     write(TERM),nl,
  15.     fail.
  16.   rd(REF):-
  17.     chain_next(mydba,REF,NEXT),!,
  18.     rd(NEXT).
  19.   rd(_).
  20.  
  21. GOAL    
  22. /* You may need to add a path to REGISTER.BIN */        
  23.         db_open(mydba,"register.bin",in_file),
  24.     db_chains(mydba,CHAIN),
  25.     chain_first(mydba,CHAIN,REF),
  26.     rd(REF).
  27.