Chain_delete/2 Внешняя База Данных

Назначение Уничтожает все термы в связанном списке

Обращение chain_delete(БДанн,Цепь)

Домены (db_selector,string)

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

аргументов

Описание chain_delete удаляет все термы, размещенные в

связанном списке Цепь в базе данных БДанн.

Неудачное Связанный список не найден.

завершение

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

Пример

domains

db_selector = mydba

goal

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

chain_delete(mydba,names).

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

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

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

списка)

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

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

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

аргументов

Описание chain_inserta включает терм Терм, принадлежащий

домену Дом в базу данных БДанн. Он включает терм в

начало связанного списка термов, который определяется

именем Цепь. Указатель на включенный терм

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

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

завершение

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

Пример

domains

db_selector = mydba

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

goal

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

chain_inserta(mydba,mychain,dbdom,f(1,'x',88.99,

"Турбо Пролог"),_),

db_close(mydba).