logo search
TurboProlog / Документация / TOM_1

Display/1

Как и с помощью других предикатов редактирования, с помощью display

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

чтение текста. Предикат имеет формат:

display(String) /* (i) */

display позволяет пользователю читать текст String, пользуясь средс-

твами редактора, но изменять его не допускается. Потому в режиме display

доступно лишь подмножество средств редактора, включая поиск строки.

dir/3

С помощью этого предиката осуществляется доступ к средствам отобра-

жения каталога:

dir(Path, FileSpec, Filename) /* (i,i,o) */

Причем Path и FilSpec должны быть ограничены, они в совокупности оп-

ределяют группу файлов, которую необходимо высветить на экране. После то-

го как группа файлов появится на экране, пользователь может выбрать один

из них с помощью стрелок управления курсором. Выбранный файл выделяется

повышенной яркостью. Если после выбора файла нажать ВВОД, то режим dir

завершится, а переменная Filename связывается с именем выделенного файла.

Например:

dir("c:\\tprolog2\\bgi","*.chr",NameOfFile)

При обработке этого предиката высвечивается список всех файлов с

расширением .CHR из каталога C:\TPROLOG2\BGI\. Если пользователь выберет

один из файлов, переменная NameOfFile будет связана с полным именем этого

файла (включая путь доступа).

Например, если выбран файл LITT.CHR, то переменная NameOfFile будет

связана с C:\TROLOG2\BGI\LITT.CHR.

dir/6

Этот предикат - расширение средств доступа к каталогам.

dir(Path, FilSpec, FileName, ShowDir, ShgFileMask, ShowPath)

/* (i,i,o,i,i,i) */

Используя эту версию dir, можно сделать так, чтобы окно каталога ра-

ботало так же, как среда Турбо Пролога (высвечиваются каталоги, и маску

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

Дополнительные аргументы имеют следующий смысл:

ShowDir =0 не включать каталоги

=1 включать каталоги

ShgFileMask =0 изменять маску файлов запрещается

=1 изменять маску файлов разрешается

ShowPath =0 не сообщать текущую маску файла

=1 сообщать текущую маску файлов