вход для файла SWI-Prolog

Question

Может ли кто-нибудь показать мне код для чтения строк из строки по строке и распечатать его в консоли? Я могу написать что-то в файл, но есть проблемы, читая его. Я попытался

1. see\1, seen\0;
2. read(Stream, X)
3. Некоторые предикаты найдены в Google, но безуспешно.

Answer 1

Вы могли бы написать что-то вроде:

read_and_just_print(File) :- 
    open(File, read, Stream), 
    repeat, 
    read_line_to_codes(Stream, X), 
    (X \== end_of_file -> atom_codes(X1,X),writeln(X1), fail ; close(Stream), !).