amalgame/commit
Work in progress: towards evidence tracing for sibling selecter
| author | Jacco van Ossenbruggen |
|---|---|
| Fri Aug 29 17:26:51 2014 +0200 | |
| committer | Jacco van Ossenbruggen |
| Fri Aug 29 17:26:51 2014 +0200 | |
| commit | 2ba9b0beac0a2a42cd085cf2071ed013cba08a3e |
| tree | 327115aed479cef3a3a18e975a8a591826341033 |
| parent | 9b89fe6988767fd0fcd9b6ad041c7fd3879566f3 |
Diff style: patch stat
diff --git a/lib/ag_modules/sibling_selecter.pl b/lib/ag_modules/sibling_selecter.pl index bce60f3..69580e5 100644 --- a/lib/ag_modules/sibling_selecter.pl +++ b/lib/ag_modules/sibling_selecter.pl @@ -32,10 +32,11 @@ selecter(AlignmentGraph, SelP, [], Und, Options) :- predsort(ag_map:compare_align(source), Sel0, Sel), predsort(ag_map:compare_align(source), Und0, Und) ), - maplist(ap, Sel, SelP). + maplist(ap(SourceOrTarget, Depth), Sel, SelP). -ap(align(S,T,P), align(S,T,Pnew)) :- - append(P, [[method(sibling_select)]], Pnew). +ap(Type, Depth, align(S,T,P), align(S,T,Pnew)) :- + append(P, [[method(sibling_select), + score([type(Type), maxdepth(Depth)])]], Pnew).