Comline/1

Предикат comline считывает параметры командой строки при вызове

программы типа .EXE из ДОС; вот его формат:

comline(DosCommandLine) /* (o)*/

Приведенный ниже пример CH16EX03.PRO применяет редактор, который

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

параметра командной строки.

/* Program CH16EX03.PRO -- Редактор */

predicates

extend (string, string)

clauses

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

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

goal

comline(X),

/*must be compiled to. EXE to work correctly*/

extend(X,X1),

file_str(X1,S),

makewindow(1,23,8, "EDITOR", 0,0,43,80),

edit(S,S1,"","","",0,"",1,0,1,1,_,Ret),

removewindow,

Ret><1,1,

file_str(X1,S1).

Если программа откомпилирована в загрузочный модуль, то можно обра-

титься к приведенному выше редактору и отредактировать файл, MYFILE.PRO с

помощью команды ДОС:

>CH16EX03 myfile.PRO