Пример доступа к редактору и каталогу.

Этот пример показывает, как использовать edit и dir для того, чтобы

встроить средства редактирования и возможности отображения каталога не-

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

рать файл из текущего каталога и отредактировать его.

/* Программа CH14EX06.PRO - Доступ к редактору в процессе

работы */

goal

dir("", "*.*", FileName),

file_str(FileName, TextStr),

str_len(TextStr, Len),

str_int(LenStr, Len),

concat("Size ", LenStr, StrSize),

InitPos = 3,

makewindow(1, 7, 7, "Edit Example", 3, 3, 20, 70),

edit(TextStr, OutStringArg, StrSize, FileName,

"After editing, press F10 or Esc to exit this editor",

InitPos, "prolog.err", 1, 1, 1, 1, RetPos, RetStatus),

writef("edited text:\n\n%\n", OutStringArg),

writef("\ncursor position at exit = %", RetPos),

writef("\nexit with (1 or 0): % \n", RetStatus),

write("\n1 = Esc"),

write("\n0 = F10").