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

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

связанном списке

Обращение chain_last(БДанн,Цепь,ПослУкз)

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

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

аргументов

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

последнего терма в связанном списке Цепь. Если

связанный список пуст, то дает неудачное завершение.

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

завершение

Ошибки 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_prev(mydba,Ref,Next),!,

rd(Next).

rd(_).

goal

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

db_chains(mydba,Chain),

chain_last(mydba,Chain,Ref),

rd(Ref).