amalgame/commit
IMPROVED: steps reporting in related matcher
author | Jacco van Ossenbruggen |
---|---|
Mon Mar 2 15:32:10 2020 +0100 | |
committer | Jacco van Ossenbruggen |
Mon Mar 2 15:32:10 2020 +0100 | |
commit | d4d913879ef733387c73497b6ffa735129d8529f |
tree | 2283523d1824b8eab9519f1981bc1a62e49ef1c5 |
parent | bc8755516caa37e97350f936cda6e1e0237d1656 |
Diff style: patch stat
diff --git a/lib/ag_modules/related_match.pl b/lib/ag_modules/related_match.pl index 7907d9d..d1e254f 100644 --- a/lib/ag_modules/related_match.pl +++ b/lib/ag_modules/related_match.pl @@ -3,19 +3,19 @@ :- use_module(library(assoc)). :- use_module(library(option)). -:- use_module(library(semweb/rdf_db)). +:- use_module(library(semweb/rdf11)). :- use_module(library(skos/util)). related_match(align(S, T, Prov0), BackgroundMatches, align(S, T, [Prov|Prov0]), Options) :- option(steps(MaxSteps), Options), - related(S, MaxSteps, AncS, R1, Steps1), - related(T, MaxSteps, AncT, R2, Steps2), + related(S, MaxSteps, AncS, RS, StepsS), + related(T, MaxSteps, AncT, RT, StepsT), get_assoc(AncS-AncT, BackgroundMatches, _), Prov = [method(related_match), source(AncS), target(AncT), - steps(Steps1/Steps2), - graph([R1,R2]) + steps((StepsS,StepsT)), + graph([RS,RT]) ]. related(R, MaxSteps, Related, rdf(R, Prop, Related), Steps) :-