#!/usr/bin/perl
use FindBin qw($Bin);
use lib "$Bin/../lib";
if (@ARGV < 2) {
print "Usage: apply_rules <ontology1> <ontology2>\n";
exit 1;
}
use Data::Dumper;
use Biblio::Thesaurus;
use Biblio::Thesaurus::ModRewrite;
my $obj = thesaurusLoad($ARGV[1]);
foreach $i ($obj->allTerms) {
foreach $j ($obj->relations($i)) {
($k,$v) = each(%{$obj->depth_first($i, 1, $j)});
print 'Checking "', $i, ' ' , $j, ' ', $k, '" ...';
$res = `./validate "$i" "$j" "$k" $ARGV[0]`;
if ($res eq '') {
print " OK!\n";
$obj->addRelation($i,$k,$k);
}
else {
print " NOK!\n";
print $res;
}
}
}
$obj->save('merged.iso');
print "Written 'merged.iso'.\n";