Chain_first/3 Внешняя База Данных

Назначение Возвращает указатель для первого терма в связанном

списке

Обращение chain_first(БДанн,Цепь,ПервУкз)

Домены (db_selector,string,ref)

Шаблоны описания (вх,вх,вых)

аргументов

Описание chain_first возвращает указатель ПервУкз на первый

терм в данном связанном списке Цепь в базе данных,

определенной БДанн. chain_first завершается неудачно,

если в связанном списке Цепь отсутствуют термы.

Неудачное Если нет термов в связанном списке.

завершение

Ошибки 1034 База данных не открыта.

Пример

domains

db_selector = mydba

dbdom = city(cityno,cityname);

person(firstname,lastname,street,cityno,code)

cityno,cityname,firstname,lastname,street,

code = string

predicates

rd(Ref)

clauses

rd(Ref):-

ref_term(mydba,dbdom,Ref,Term),

write(Term),nl,

fail.

rd(Ref):-

chain_next(mydba,Ref,Next),!,

rd(Next).

rd(_).

goal

db_open(mydba,"register.bin",in_file),

db_chains(mydba,Chain),

chain_first(mydba,Chain,Ref),

rd(Ref).