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

use select to filter variable lists when printing equations of two variables

Browse Source
This commit is contained in:
Mark Thom
2020-04-29 11:05:10 -03:00
parent 2495fb796d
commit 2df4083602
1 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/prolog/toplevel.pl
View File

@@ -78,7 +78,7 @@ needs_bracketing(Value, Op) :-
memberchk(EqSpec, [fx,xfx,yfx]) memberchk(EqSpec, [fx,xfx,yfx])
). ).
write_goal(G, VarList, MasterVarList, MaxDepth) :- write_goal(G, VarList, MaxDepth) :-
( G = (Var = Value) -> ( G = (Var = Value) ->
( var(Value) -> ( var(Value) ->
select((Var = _), VarList, NewVarList) select((Var = _), VarList, NewVarList)
@@ -94,10 +94,10 @@ write_goal(G, VarList, MasterVarList, MaxDepth) :-
) )
; G == [] -> ; G == [] ->
write('true') write('true')
; write_term(G, [quoted(true), variable_names(MasterVarList), max_depth(MaxDepth)]) ; write_term(G, [quoted(true), variable_names(VarList), max_depth(MaxDepth)])
). ).
write_last_goal(G, VarList, MasterVarList, MaxDepth) :- write_last_goal(G, VarList, MaxDepth) :-
( G = (Var = Value) -> ( G = (Var = Value) ->
( var(Value) -> ( var(Value) ->
select((Var = _), VarList, NewVarList) select((Var = _), VarList, NewVarList)
@@ -117,16 +117,16 @@ write_last_goal(G, VarList, MasterVarList, MaxDepth) :-
) )
; G == [] -> ; G == [] ->
write('true') write('true')
; write_term(G, [quoted(true), variable_names(MasterVarList), max_depth(MaxDepth)]) ; write_term(G, [quoted(true), variable_names(VarList), max_depth(MaxDepth)])
). ).
write_eq((G1, G2), VarList, MasterVarList, MaxDepth) :- write_eq((G1, G2), VarList, MaxDepth) :-
!, !,
write_goal(G1, VarList, MasterVarList, MaxDepth), write_goal(G1, VarList, MaxDepth),
write(', '), write(', '),
write_eq(G2, VarList, MasterVarList, MaxDepth). write_eq(G2, VarList, MaxDepth).
write_eq(G, VarList, MasterVarList, MaxDepth) :- write_eq(G, VarList, MaxDepth) :-
write_last_goal(G, VarList, MasterVarList, MaxDepth). write_last_goal(G, VarList, MaxDepth).
graphic_token_char(C) :- graphic_token_char(C) :-
memberchk(C, ['#', '$', '&', '*', '+', '-', '.', ('/'), ':', memberchk(C, ['#', '$', '&', '*', '+', '-', '.', ('/'), ':',
@@ -154,14 +154,14 @@ write_eqs_and_read_input(B, VarList) :-
), ),
( B0 == B -> ( B0 == B ->
( Goals == [] -> ( Goals == [] ->
write('true.'), nl write('true.'), nl
; thread_goals(Goals, ThreadedGoals, (',')), ; thread_goals(Goals, ThreadedGoals, (',')),
write_eq(ThreadedGoals, NewVarList, NewVarList, 20), write_eq(ThreadedGoals, NewVarList, 20),
write('.'), write('.'),
nl nl
) )
; thread_goals(Goals, ThreadedGoals, (',')), ; thread_goals(Goals, ThreadedGoals, (',')),
write_eq(ThreadedGoals, NewVarList, NewVarList, 20), write_eq(ThreadedGoals, NewVarList, 20),
read_input(ThreadedGoals, NewVarList) read_input(ThreadedGoals, NewVarList)
). ).
@@ -170,12 +170,12 @@ read_input(ThreadedGoals, NewVarList) :-
( C = w -> ( C = w ->
nl, nl,
write(' '), write(' '),
write_eq(ThreadedGoals, NewVarList, NewVarList, 0), write_eq(ThreadedGoals, NewVarList, 0),
read_input(ThreadedGoals, NewVarList) read_input(ThreadedGoals, NewVarList)
; C = p -> ; C = p ->
nl, nl,
write(' '), write(' '),
write_eq(ThreadedGoals, NewVarList, NewVarList, 20), write_eq(ThreadedGoals, NewVarList, 20),
read_input(ThreadedGoals, NewVarList) read_input(ThreadedGoals, NewVarList)
; member(C, [';', ' ', n]) -> ; member(C, [';', ' ', n]) ->
nl, write('; '), false nl, write('; '), false