8 lines
158 B
Prolog
8 lines
158 B
Prolog
:- module(pio, [phrase_from_file/2]).
|
|
|
|
:- use_module(library(dcgs)).
|
|
|
|
phrase_from_file(NT, File) :-
|
|
'$file_to_chars'(File, Chars),
|
|
phrase(NT, Chars).
|