Implemented phrase_from_file/2 and /2

2020-04-25 18:00:16 +02:00
parent e27c2b59c8
commit d6772c5ca5
3 changed files with 80 additions and 1 deletions
--- a/src/prolog/lib/pio.pl
+++ b/src/prolog/lib/pio.pl
@@ -0,0 +1,7 @@
+:- module(pio, [phrase_from_file/2]).
+
+:- use_module(library(dcgs)).
+
+phrase_from_file(NT, File) :-
+    '$file_to_chars'(File, Chars),
+    phrase(NT, Chars).