diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use the C luke

Browse Source
This commit is contained in:
Vítor Santos Costa 2018-09-18 19:26:31 +01:00
parent 29f79473e5
commit a2d397976f
1 changed files with 16 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
pl/listing.yap
View File

@ -166,7 +166,7 @@ listing(Stream, [MV|MVs]) :- !,
-> ->
format( Stream, ':- dynamic ~q/~d.~n', [N,Ar]) format( Stream, ':- dynamic ~q/~d.~n', [N,Ar])
; ;
format( Stream, ':- dynamic ~q:~q/~d.~n', [M,N,Ar]) \ format( Stream, ':- dynamic ~q:~q/~d.~n', [M,N,Ar])
), ),
fail. fail.
'$list_clauses'(Stream, M, Pred) :- '$list_clauses'(Stream, M, Pred) :-
@ -224,8 +224,8 @@ listing(Stream, [MV|MVs]) :- !,
Write clause _C_ on stream _S_ as if written by listing/0. Write clause _C_ on stream _S_ as if written by listing/0.
*/ */
portray_clause(Stream, Clause) :- portray_clause(Stream, Clause) :-
copy_term_nat(Clause, CopiedClause), copy_term_nat(Clause, CopiedClause),
writeln(c:CopiedClause), '$beautify_vs'(CopiedClause),
'$portray_clause'(Stream, CopiedClause), '$portray_clause'(Stream, CopiedClause),
fail. fail.
portray_clause(_, _). portray_clause(_, _).
@ -240,15 +240,12 @@ portray_clause(Clause) :-
portray_clause(Stream, Clause). portray_clause(Stream, Clause).
'$portray_clause'(Stream, (Pred :- true)) :- !, '$portray_clause'(Stream, (Pred :- true)) :- !,
'$beautify_vars'(Pred),
format(Stream, '~q.~n', [Pred]). format(Stream, '~q.~n', [Pred]).
'$portray_clause'(Stream, (Pred:-Body)) :- !, '$portray_clause'(Stream, (Pred:-Body)) :- !,
'$beautify_vars'((Pred:-Body)),
format(Stream, '~q :-', [Pred]), format(Stream, '~q :-', [Pred]),
'$write_body'(Body, 3, ',', Stream), '$write_body'(Body, 3, ',', Stream),
format(Stream, '.~n', []). format(Stream, '.~n', []).
'$portray_clause'(Stream, Pred) :- '$portray_clause'(Stream, Pred) :-
'$beautify_vars'(Pred),
format(Stream, '~q.~n', [Pred]). format(Stream, '~q.~n', [Pred]).
'$write_body'(X,I,T,Stream) :- var(X), !, '$write_body'(X,I,T,Stream) :- var(X), !,
@ -257,8 +254,8 @@ portray_clause(Clause) :-
'$write_body'((P,Q), I, T, Stream) :- '$write_body'((P,Q), I, T, Stream) :-
!, !,
'$write_body'(P,I,T, Stream), '$write_body'(P,I,T, Stream),
put(Stream, 0',), %' put(Stream, 0',), %
'$write_body'(Q,I,',',Stream). '$write_body'(Q,I,',',Stream).
'$write_body'((P->Q;S),I,_, Stream) :- '$write_body'((P->Q;S),I,_, Stream) :-
!, !,
format(Stream, '~n~*c(',[I,0' ]), format(Stream, '~n~*c(',[I,0' ]),
@ -319,42 +316,19 @@ portray_clause(Clause) :-
'$beforelit'(_,I,Stream) :- format(Stream,'~n~*c',[I,0' ]). %' '$beforelit'(_,I,Stream) :- format(Stream,'~n~*c',[I,0' ]). %'
'$beautify_vars'(T) :- '$beautify_vs'(T) :-
var(T), '$non_singletons_in_term'(T,[],Fs),
!, '$vv_transform'(Fs,1),
'$list_transform'([T],0). term_variables(T, NFs),
'$beautify_vars'(T) :- '$v_transform'(NFs).
primitive(T),
!.
'$beautify_vars'(T) :-
T =.. [_|Vs0],
'$list_get_vars'(Vs0,[],L),
msort(L,SL),
'$list_transform'(SL,0).
'$list_get_vars'([], Vs, Vs). '$v_transform'([]).
'$list_get_vars'([A|Args], Vs0, Vs) :- '$v_transform'(['$VAR'(-1)|L]) :-
'$list_get_vars_'(A, Vs0, Vs1 ), '$v_transform'(L).
'$list_get_vars'(Args, Vs1, Vs).
'$list_get_vars_'(V,L,[V|L] ) :- '$vv_transform'([],_) :- !.
var(V), !. '$vv_transform'(['$VAR'(M)|L],M) :-
'$list_get_vars_'(Atomic, Vs, Vs) :-
primitive(Atomic), !.
'$list_get_vars_'(Term, Vs0, Vs) :-
Term =.. [_|Args],
'$list_get_vars'(Args, Vs0, Vs).
'$list_transform'([],_) :- !.
'$list_transform'([X,Y|L],M) :-
X == Y,
!,
X = '$VAR'(M),
N is M+1, N is M+1,
'$list_transform'(L,N). '$vv_transform'(L,N).
'$list_transform'(['$VAR'(-1)|L],M) :- !,
'$list_transform'(L,M).
'$list_transform'([_|L],M) :-
'$list_transform'(L,M).
%% @} %% @}