#!/usr/bin/perl
print "ontology: go/extensions/go-nifstd-bridge.owl\n";
#printf "data-version: %s\n";
print "\n";

while(<>) {
    chomp;
    if (m@^id:\s+(\S+)@) {
        $id = $1;
    }
    if (m@^name:\s+(.*)@) {
        $name{$id} = $1;
    }
    if (m@^xref:\s+NIF_Subcellular:(.*)@) {
        $x = $1;
        print "[Term]\n";
        print "id: $id ! $name{$id}\n";
        print "equivalent_to: http://uri.neuinfo.org/nif/nifstd/$x\n";
        print "\n";
    }
}
exit 0;