SLIDE 28 10 / 16
www.software.imdea.org
Fixpoint Code
call to success/7 using Mod TCLP
.
1
:- use_package(tclp_aggregate).
2
:- table call_to_success_fixpoint(_, _, abst_lub).
3
call_to_success(SgKey, Call, Proj, Sg, Sv, AbsInt, Succ) :-
4
call_to_success_fixpoint(SgKey, Sg, st(Sv, Call, Proj, AbsInt, Prime) ),
5
each_extend(Sg, Prime, AbsInt, Sv, Call, Succ).
6
call_to_success_fixpoint(SgKey, Sg, st(Sv, Call, Proj, AbsInt, Prime) ) :-
7
trans_clause(SgKey, _, Clause),
8
do_nr_cl(Clause, Sg, Sv, Call, Proj, AbsInt, Prime).
9
call_to_success_fixpoint(SgKey, Sg, st(Sv, _Call, Proj, AbsInt, Prime) ) :-
10
\+ trans_clause(SgKey, _, _),
11
apply_trusted0(Proj, SgKey, Sg, Sv, AbsInt, _ClId, Prime).
Note: do_nr_cl_clause/7 calls call_to_success/7 .
madrid institute for advanced studies in software development technologies