Примеры

Следующая последовательность запишет значение Text в файл

SOMEFILE.PRO (к которому Пролог обращается, как к myfile), начиная с по-

зиции 100 (относительно начала файла).

Text = "A text to be written in the file",

openmodify(myfile,"somefile.pro")

writedevice (myfile),

filepos(myfile,100,0),

write(Text).

Используя filepos, можно проверить содержимое файла байт за байтом,

как это сделано в программе CH12EX10.PRO. Эта программа запрашивает имя

файла, затем показывает содержимое позиций файла, причем номера позиций

вводятся клавиатуры.

/* Program CH12EX10.PRO */

domains

file = input

predicates

inspect_positions

goal

write("Which file do you want to work with?"),

readln(FileName),

openread(input,FileName),

inspect_positions.

clauses

inspect_position :-

readdevice(keyboard),

nl,write("Position No? "),

readreal(X),

readdevice(input),filepos(input,X,O),

readchar(Y),write("Char is:",Y),

inspect_positions.