#!/usr/bin/perl

my @files = split(' ',`ls *-oa.ttl`);

print <<EOM
\@prefix    void: <http://rdfs.org/ns/void#> .
\@prefix     lib: <http://www.swi-prolog.org/rdf/library/> .
\@prefix     owl: <http://www.w3.org/2002/07/owl#> .
\@prefix     rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
\@prefix    rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
\@prefix dcterms: <http://purl.org/dc/terms/> .
\@prefix    foaf: <http://xmlns.com/foaf/0.1/> .
\@prefix     obo: <http://purl.obolibrary.org/obo/> .
\@prefix    gpad: <http://geneontology.org/data/gpad/> .
\@prefix        : <http://geneontology.org/data/gpad/> .

EOM
    ;

my @ns = ();
foreach (@files) {
    my $n = $_;
    #$n =~ s/\..*//;
    $n =~ s/\-oa.*//;
    $n = ":$n";
    push(@ns, $n);
    print "$n\n";
    print "  a void:Dataset ;\n";
    print "  void:dataDump <$_> .\n";
    my $g = $n . "_gpi";
    print "$g\n";
    print "  a void:Dataset ;\n";
    print "  void:dataDump <$n-gpi.ttl> .\n";
    push(@ns, $g);
}

print ":gpad_all\n";
print "  a void:Dataset ;\n";
printf "  void:subset %s .\n", join(", ", @ns);
print `cat void-subsets.ttl`;