Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

report unused rels

  • Loading branch information...
commit 5122c0e72f71a7135d48d508cc4c2338827a7c9b 1 parent 106c4a6
Chris Mungall authored
Showing with 8 additions and 0 deletions.
  1. +8 −0 obo-check-xps.pl
8 obo-check-xps.pl
View
@@ -30,6 +30,7 @@
$/ = "\n\n";
my %done = ();
+my %stanzatype=();
my %name = ();
my @flagged = ();
my %referenced;
@@ -60,6 +61,7 @@
flag("\"$name{$id}\" present twice: ",$_);
}
$done{$id} = 1;
+ $stanzatype{$id} = $stanza_type;
if (/id:\s*(.*)/) {
my $full = $1;
$name{$id} = $full;
@@ -125,6 +127,12 @@
flag("unreferenced anon class", $_);
}
}
+ if ($stanzatype{$_} eq 'typedef') {
+ if (!$referenced{$_}) {
+ flag("unreferenced relation", $_);
+ }
+
+ }
}
print STDERR "n_xps: $n_xps\n";
Please sign in to comment.
Something went wrong with that request. Please try again.