Chain_insertafter/5 Внешняя База Данных

Назначение Включает терм в базу данных (после указанного терма)

Обращение chain_insertafter(БДанн,Дом,Укз,Терм,НовУказ)

Домены (db_selector,<domain>,ref,<term>,ref)

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

аргументов

Описание chain_insertafter включает данный терм Терм справа за

термом с указателем Указ. Новый указатель

возвращается в НовУказ.

Неудачное Никогда не дает.

завершение

Ошибки 1030 Ошибка ввода/вывода диска

1031 Переполнение Системы Расширения Памяти.

1034 База данных не открыта.

1049 Неправилиный ссылочный номер базы данных

Пример

domains

db_selector = mydba

dbdom = f(integer,char,real,string)

goal

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

chain_first(mydba,mychain,FirstRef),

chain_insertafter(mydba,mychain,dbdom,FirstRef,

f(1,'x',88.99,"Турбо Пролог"),_),

db_close(mydba).

Chain_insertz/5 Внешняя База Данных

Назначение Включает терм в базу данных (в конец связанного

списка)

Обращение chain_insertz(БДанн,Цепь,Дом,Терм,Укз)

Домены (db_selector,symbol,<domain>,<term>,ref)

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

аргументов

Описание chain_insertz работает совершенно так же, как и

chain_inserta за исключением того, что терм

включается в конец связанного списка с именем Цепь.

Неудачное Никогда не дает.

завершение

Ошибки 1030 Ошибка ввода/вывода диска

1031 Переполнение Системы Расширения Памяти.

1034 База данных не открыта.

Пример

domains

db_selector = mydba

dbdom = f(integer,char,real,string)

goal

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

chain_insertz(mydba,mychain,dbdom,

f(1,'x',88.99,"Турбо Пролог"),_),

db_close(mydba).

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).