WIP

trealla-prolog · Sep 25, 2023 · 8b72bee · 8b72bee
1 parent 93ea068
commit 8b72bee
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/samples/like.txt b/samples/like.txt
@@ -0,0 +1 @@
+I like it. Anything can follow!
diff --git a/samples/test_phrase_from_file.pl b/samples/test_phrase_from_file.pl
@@ -0,0 +1,8 @@
+:- use_module(library(pio)).
+:- use_module(library(dcgs)).
+
+like(What) --> "I like ", seq(What), ".", ... .
+
+test :-  phrase_from_file(like(What), 'samples/like.txt'), write_term(What,[double_quotes(true)]), nl, fail; true.
+
+% $ tpl -g test,halt samples/test_phrase_from_file.pl