Fileerror/2

В Турбо Прологе предикат fileerror применяется, когда возникает

ошибка при работе с файлами. (Такие ошибки могут возникать в Турбо Проло-

ге при записи или чтении файлов в редакторе).

Если вы определите ваш собственный предикат fileerror, то запомните,

что он всегда выполняется успешно и работает только в .EXE программах.

Предикат fileerror должен быть объявлен как

global predicates

fileerror(integer, string) - (i,i) language c

Необходимо отметить, что это объявление является правильным даже

тогда, когда исходный текст написан на Прологе.

Ниже приведен пример введенного пользователем предиката fileerror:

clauses

fileerror(V,FileName):-

makewindow(1,7,23,"Error!",5,5,20,45),

writef("\nError:% accessing file:%",V,File Name),

readchar(-),

removewindow,fail.

fileerror(_,_).