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

*** empty log message ***

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2087 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rzf 2008-02-12 09:43:31 +00:00
parent 1ac399f57b
commit 5b2cc724f3
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
cplint/lpadsld.pl
View File

@ -280,7 +280,8 @@ choose_clauses(C,[],C).
choose_clauses(CIn,[D|T],COut):- choose_clauses(CIn,[D|T],COut):-
member((N,R,S),D), member((N,R,S),D),
choose_a_head(N,R,S,CIn,C1),!, already_present_with_a_different_head(N,R,S,CIn),!,
choose_a_head(N,R,S,CIn,C1),
choose_clauses(C1,T,COut). choose_clauses(C1,T,COut).
@ -352,6 +353,13 @@ new_head(N,R,S,N1):-
nth0(N, Numbers, _Elem, Rest), nth0(N, Numbers, _Elem, Rest),
member(N1,Rest). member(N1,Rest).
already_present_with_a_different_head(N,R,S,[(NH,R,SH)|_T]):-
\+ \+ S=SH,NH \= N.
already_present_with_a_different_head(N,R,S,[_H|T]):-
already_present_with_a_different_head(N,R,S,T).
/* checks that a rule R with head N and selection S is already /* checks that a rule R with head N and selection S is already
present in C (or a generalization of it is in C) */ present in C (or a generalization of it is in C) */
already_present(N,R,S,[(N,R,SH)|_T]):- already_present(N,R,S,[(N,R,SH)|_T]):-