Errorsg/4

Вы можете применять предикат errormsg для доступа к файлам, имеющим

такую же структуру, как и файл PROLOG.ERR

errormsg(Filename, ErrorNo, ErrorMsg, ExtraHelpMsg)

/* (i,i,0,0) */

Ниже приведен пример типичного применения errormsg в описании преди-

ката, позволяющего получить описание ошибки по ее коду.

/* Пример использования errormsg */

predicates

error(integer)

main

/* .... */

clauses

error(o):-!.% discard break.

error(E):-

errorsg("PROLOG.ERR",E,ErrorMsg,_),

write("\nSorry; the error\n", E, ":", ErrorMsg),

write("\nhas occured in your program."),

write("\nYour database will be saved in the file error.sav"),

save("error.sav").

goal

trap(main,ExitCode, error(ExitCode)).