home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / KEYSRCH4.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  606 b   |  21 lines
  1. %====================== key_search/4          ===============================
  2. DOMAINS
  3.   DB_SELECTOR = mydba
  4.  
  5. PREDICATES
  6.   locate(DB_SELECTOR,BT_SELECTOR,STRING)
  7.  
  8. CLAUSES
  9.   locate(DB_SELECTOR,BT_SELECTOR,STRING):-
  10.     key_search(DB_SELECTOR,BT_SELECTOR,STRING,_),!,
  11.     write("\nExact match:").
  12.   locate(_,_,_):-write("\nNot exact match:").
  13.  
  14. GOAL
  15. /* You may need to add a path to REGISTER.BIN */
  16.     db_open(mydba,"register.bin",in_file),
  17.     bt_open(mydba,"person_name",BT_SELECTOR),
  18.     locate(mydba,BT_SELECTOR,"Hoffman"),
  19.     key_current(mydba,BT_SELECTOR,KEY,REF),
  20.     write("\nKEY=",KEY,", REF=",REF).
  21.