Try triska's toplevel and add some debugging println!s.

2023-07-27 14:46:00 +02:00
parent 30dac8ea41
commit c2658dc6da
2 changed files with 32 additions and 2 deletions
--- a/src/lib_toplevel.pl
+++ b/src/lib_toplevel.pl
@@ -242,3 +242,30 @@ submit_query_and_print_all_results(_, _) :-
    ),
    write('false.'),
    nl.
+
+
+
+toplevel :-
+        read_term(Goal, [variable_names(VNs)]),
+        Goal,
+        write('bindings(['),
+        write_bindings(VNs),
+        write(']).'),
+        nl,
+        false.
+
+write_bindings([]).
+write_bindings([VN|VNs]) :-
+        write_bindings_(VNs, VN).
+
+write_bindings_([], VN) :-
+        write_binding(VN).
+write_bindings_([VN|VNs], Prev) :-
+        write_binding(Prev),
+        write(','),
+        write_bindings_(VNs, VN).
+
+write_binding(Var=Val) :-
+        write(Var),
+        write(=),
+        write_term(Val, [quoted(true),double_quotes(true)]).