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

distribute goal_Expansion over comma

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-12-13 21:33:43 +00:00
parent f89f7e8e98
commit eec588f488
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pl/modules.yap
View File

@ -309,6 +309,8 @@ module(N) :-
expand_goal(G, G) :- expand_goal(G, G) :-
var(G), !. var(G), !.
expand_goal(G, M:NG) :-
'$do_expand'(G, M, NG), !.
expand_goal(M:G, M:NG) :- expand_goal(M:G, M:NG) :-
'$do_expand'(G, M, NG), !. '$do_expand'(G, M, NG), !.
expand_goal(G, NG) :- expand_goal(G, NG) :-
@ -316,6 +318,25 @@ expand_goal(G, NG) :-
'$do_expand'(G, M, NG), !. '$do_expand'(G, M, NG), !.
expand_goal(G, G). expand_goal(G, G).
'$do_expand'((G1,G2), CurMod, (GI1,GI2)) :- !,
'$do_expand'(G1, CurMod, GI1),
'$do_expand'(G2, CurMod, GI2).
'$do_expand'((G1;G2), CurMod, (GI1;GI2)) :- !,
'$do_expand'(G1, CurMod, GI1),
'$do_expand'(G2, CurMod, GI2).
'$do_expand'((G1*->G2), CurMod, (GI1*->GI2)) :- !,
'$do_expand'(G1, CurMod, GI1),
'$do_expand'(G2, CurMod, GI2).
'$do_expand'((G1|G2), CurMod, (GI1|GI2)) :- !,
'$do_expand'(G1, CurMod, GI1),
'$do_expand'(G2, CurMod, GI2).
'$do_expand'((G1->G2), CurMod, (GI1->GI2)) :- !,
'$do_expand'(G1, CurMod, GI1),
'$do_expand'(G2, CurMod, GI2).
'$do_expand'(\+G1, CurMod, \+GI1) :- !,
'$do_expand'(G1, CurMod, GI1).
'$do_expand'(not(G1), CurMod, not(GI1)) :- !,
'$do_expand'(G1, CurMod, GI1).
'$do_expand'(G, CurMod, GI) :- '$do_expand'(G, CurMod, GI) :-
( (
'$pred_exists'(goal_expansion(G,GI), CurMod), '$pred_exists'(goal_expansion(G,GI), CurMod),