rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #363 from triska/master

Browse Source 
Delay toplevel output until after the goal succeeds
This commit is contained in:
Mark Thom
2020-04-18 20:37:32 -03:00
committed by GitHub
parent 9daf290432 45ed9405b0
commit 3798dcb98d
2 changed files with 34 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/prolog/lib/format.pl
View File

@@ -55,7 +55,7 @@
Example:
?- phrase(format_("~s~n~`.t~w!~12|", ["hello",there]), Cs).
%@ Cs = [h,e,l,l,o,'\n','.','.','.','.','.','.',t,h,e,r,e,!]
%@ Cs = "hello\n......there!"
%@ ; false.
I place this code in the public domain. Use it in any way you want.
@@ -444,38 +444,38 @@ indent_to(CurrentColumn, Indent) -->
format_("~t~*|", [Delta]).
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
?- portray_clause(a), nl.
a.
?- portray_clause(a).
a.
?- nl, portray_clause((a :- b)), nl.
?- portray_clause((a :- b)).
a :-
b.
?- nl, portray_clause((a :- b, c, d)), nl.
?- portray_clause((a :- b, c, d)).
a :-
b,
c,
d.
?- nl, portray_clause([a,b,c,d]), nl.
?- portray_clause([a,b,c,d]).
"abcd".
?- nl, portray_clause(X).
?- nl, portray_clause((f(X) :- X)).
?- portray_clause(X).
?- portray_clause((f(X) :- X)).
?- nl, portray_clause((h :- ( a -> b; c))).
?- portray_clause((h :- ( a -> b; c))).
?- nl, portray_clause((h :- ( (a -> x ; y) -> b; c))).
?- portray_clause((h :- ( (a -> x ; y) -> b; c))).
?- nl, portray_clause((h(X) :- ( (a(X) ; y(A,B)) -> b; c))).
?- portray_clause((h(X) :- ( (a(X) ; y(A,B)) -> b; c))).
?- nl, portray_clause((h :- (a,d;b,c) ; (b,e;d))).
?- portray_clause((h :- (a,d;b,c) ; (b,e;d))).
?- nl, portray_clause((a :- b ; c ; d)).
?- portray_clause((a :- b ; c ; d)).
?- nl, portray_clause((h :- L = '.')).
?- portray_clause((h :- L = '.')).
?- nl, portray_clause(-->(a, (b, {t}, d))).
?- portray_clause(-->(a, (b, {t}, d))).
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

25
src/prolog/toplevel.pl
View File

@@ -46,16 +46,24 @@ instruction_match(Term, VarList) :-
submit_query_and_print_results(Term, VarList)
).
:- use_module(library(iso_ext)).
% auxiliary predicates, so that using them in setup_call_cleanup/3 works
get_b_value(B) :- '$get_b_value'(B).
clear_attribute_goals :- '$clear_attribute_goals'.
submit_query_and_print_results(Term0, VarList) :-
( expand_goals(Term0, Term) -> true
; Term0 = Term
),
( '$get_b_value'(B), write(' '), call(Term), write_eqs_and_read_input(B, VarList),
!
% clear attribute goal lists, which may be populated by
% copy_term/3 prior to failure.
; '$clear_attribute_goals', write('false.'), nl
).
setup_call_cleanup(bb_put('$first_answer', true),
( get_b_value(B), call(Term), write_eqs_and_read_input(B, VarList),
!
; % clear attribute goal lists, which may be populated by
% copy_term/3 prior to failure.
clear_attribute_goals, write('false.'), nl
),
bb_put('$first_answer', false)).
needs_bracketing(Value, Op) :-
catch((functor(Value, F, _),
@@ -132,6 +140,11 @@ write_eqs_and_read_input(B, VarList) :-
sort(NewVarList, SortedVarList),
'$get_b_value'(B0),
gather_goals(SortedVarList, SortedVarList, Goals),
( bb_get('$first_answer', true) ->
write(' '),
bb_put('$first_answer', false)
; true
),
( B0 == B ->
( Goals == [] ->
write('true.'), nl