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

broken

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-10-10 15:36:51 -05:00
parent 3f4fe6815f
commit df0ee8eaeb
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
library/mapargs.yap
View File

@ -143,11 +143,11 @@ foldargs(Goal, S, V0, V) :-
foldargs_(Goal, S, V0, V, 0, Ar). foldargs_(Goal, S, V0, V, 0, Ar).
foldargs_(Goal, S, V0, V, I, N) :- foldargs_(Goal, S, V0, V, I, N) :-
( I == N -> true ; ( I == N -> V0 = V ;
I1 is I+1, I1 is I+1,
arg(I1, S, A), arg(I1, S, A),
call(Goal, A, V0, V1), call(Goal, A, V0, V1),
foldargs_(Goal, S, V1, V, I, N) ). foldargs_(Goal, S, V1, V, I1, N) ).
foldargs(Goal, S, O1, V0, V) :- foldargs(Goal, S, O1, V0, V) :-
functor(S, N, Ar), functor(S, N, Ar),
@ -155,12 +155,12 @@ foldargs(Goal, S, O1, V0, V) :-
foldargs_(Goal, S, O1, V0, V, 0, Ar). foldargs_(Goal, S, O1, V0, V, 0, Ar).
foldargs_(Goal, S, O1, V0, V, I, N) :- foldargs_(Goal, S, O1, V0, V, I, N) :-
( I == N -> true ; ( I == N -> V0 = V ;
I1 is I+1, I1 is I+1,
arg(I1, S, A), arg(I1, S, A),
arg(I1, O1, A1), arg(I1, O1, A1),
call(Goal, A, A1, V0, V1), call(Goal, A, A1, V0, V1),
foldargs_(Goal, S, O1, V1, V, I, N) ). foldargs_(Goal, S, O1, V1, V, I1, N) ).
foldargs(Goal, S, O1, O2, V0, V) :- foldargs(Goal, S, O1, O2, V0, V) :-
functor(S, N, Ar), functor(S, N, Ar),
@ -169,13 +169,13 @@ foldargs(Goal, S, O1, O2, V0, V) :-
foldargs_(Goal, S, O1, O2, V0, V, 0, Ar). foldargs_(Goal, S, O1, O2, V0, V, 0, Ar).
foldargs_(Goal, S, O1, O2, V0, V, I, N) :- foldargs_(Goal, S, O1, O2, V0, V, I, N) :-
( I == N -> true ; ( I == N -> V0 = V ;
I1 is I+1, I1 is I+1,
arg(I1, S, A), arg(I1, S, A),
arg(I1, O1, A1), arg(I1, O1, A1),
arg(I1, O2, A2), arg(I1, O2, A2),
call(Goal, A, A1, A2, V0, V1), call(Goal, A, A1, A2, V0, V1),
foldargs_(Goal, S, O1, O2, V1, V, I, N) ). foldargs_(Goal, S, O1, O2, V1, V, I1, N) ).
foldargs(Goal, S, O1, O2, O3, V0, V) :- foldargs(Goal, S, O1, O2, O3, V0, V) :-
functor(S, N, Ar), functor(S, N, Ar),
@ -185,14 +185,14 @@ foldargs(Goal, S, O1, O2, O3, V0, V) :-
foldargs_(Goal, S, O1, O2, O3, V0, V, 0, Ar). foldargs_(Goal, S, O1, O2, O3, V0, V, 0, Ar).
foldargs_(Goal, S, O1, O2, O3, V0, V, I, N) :- foldargs_(Goal, S, O1, O2, O3, V0, V, I, N) :-
( I == N -> true ; ( I == N -> V0 = V ;
I1 is I+1, I1 is I+1,
arg(I1, S, A), arg(I1, S, A),
arg(I1, O1, A1), arg(I1, O1, A1),
arg(I1, O2, A2), arg(I1, O2, A2),
arg(I1, O3, A3), arg(I1, O3, A3),
call(Goal, A, A1, A2, A3, V0, V1), call(Goal, A, A1, A2, A3, V0, V1),
foldargs_(Goal, S, O1, O2, O3, V1, V, I, N) ). foldargs_(Goal, S, O1, O2, O3, V1, V, I1, N) ).
goal_expansion(mapargs(Meta, In), (functor(In, _Name, Ar), Mod:Goal)) :- goal_expansion(mapargs(Meta, In), (functor(In, _Name, Ar), Mod:Goal)) :-
@ -382,4 +382,3 @@ goal_expansion(foldargs(Meta, In, Out1, Out2, Out3, Acc0, AccF), (functor(In, Na
compile_aux([ compile_aux([
(RecursionHead :- I == Ar -> VAcc0 = VAccF ; I1 is I+1, arg(I1, In, AIn), arg(I1, Out1, AOut1), arg(I1, Out2, AOut2), arg(I1, Out3, AOut3), Apply, RecursiveCall ) (RecursionHead :- I == Ar -> VAcc0 = VAccF ; I1 is I+1, arg(I1, In, AIn), arg(I1, Out1, AOut1), arg(I1, Out2, AOut2), arg(I1, Out3, AOut3), Apply, RecursiveCall )
], Mod). ], Mod).