Detectgraph/2 Графика

Назначение Определяет графический драйвер и режим его

использования в существующей графической аппаратуре

Обращение detectgraph(Графдрайвер,Графрежим)

Домены (integer,integer)

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

аргументов

Описание detectgraph определяет графический адаптер системы и

выбирает режим с наибольшей разрешающей способностью

для адаптера. Если определено, что не существует

графической аппаратуры в компьютере, параметр

Графдрайвер принимает значение -2.

Замечание: Главная причина вызова detectgraph -

определение рекомендуемого графического режима для

использования в initgraph.

Смотри graphresult,initgraph

dir/3

Назначение Вызывает меню каталога файлов

Обращение dir(Маршр,Маска,ИмяФайлDOS)

Домены (string,string,string)

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

аргументов

Описание dir вызывает каталог файлов Турбо Пролога. Маршр и

Маска определяют файлы, появляющиеся в окне каталога.

Выбирается имя файла (возвращаемое в ИмяФайлDOS)

клавишами курсора, и после того, как указатель меню

будет совмещен с именем нужного файла, нажимается

клавиша ВВОД. dir дает неудачное завершение, если

нажата клавиша КЛЮЧ или, если не найдены файлы,

соответствующие маске.

Пример

config "old.sys"

predicates

extend(string,string)

getfilename(string,string)

clauses

extend(S,S) :- concat(_,".pro",S),!.

extend(S,S1):- concat(S,".pro",S1).

getfilename("",Fname):- dir("","*.pro",Fname),

!.

getfilename(X,X1):- extend(X,X1).

goal

comline(X),

getfilename(X,X1),

file_str(X1,S),

textmode(Rows,Cols),

makewindow(1,23,0,"РЕДАКТОР",0,0,Rows,Cols),

editmsg(S,S1,"","","",0,"",Ret),

removewindow,

Ret<>1,!,

clearwindow,

write("\nВведите имя файла для записи: "),

readln(NewName),

file_str(NewName,S1).

dir/6

Назначение Вызывает меню каталога файлов

Обращение dir(Маршр,Маска,ИмяФайлDOS,ВидКат,ИзмМаск,ВидМарРам)

Домены (string,string,string,string,string,string)

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

аргументов

Описание dir вызывает систему выдачи каталогов файлов Турбо

Пролога с числом аргументов на три большим, чем

dir/3. dir/6 представляет собой расширенную форму

системы выдачи каталога файлов. Результат выполнения

предиката будет подобен вызову каталога в среде Турбо

Пролога, где каталог также выводится на экран и

пользователь может изменить маску файла клавишей F4.

disk/1

Назначение Устанавливает или возвращает текущий дисковод или

маршрут

Обращение disk(МаршрDOS)

Домены (string)

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

аргументов

Описание (вх)

Устанавливает текущий дисковод и маршрут МаршрDOS.

(вых)

Возвращает текущий дисковод и маршрут МаршрDOS.

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

завершение

Ошибки 2009 Недопустимый маршрут.

Пример

goal

disk(Dosp),

write("Enter directory: "),

readln(PathChange),

DosP<>PathChange,

disk(PathChange),

disk(DosPath),

dir(DosPath, "*.*", File),

file_str(File, Str),

display(Str).

введите:

a:\

display/1

Назначение Выводит символьную строку

Обращение display(Строка)

Домены (string)

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

аргументов

Описание display выводит содержание строки Строка в текущее

окно. Содержание строки может просматриваться (но не

изменяться) при помощи клавиш управления курсором.

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

завершение

Ошибки Отсутствуют.

Пример

goal

file_str("prolog.hlp",Help),

display(Help).