1:- module(mbgd, 2 [ 3 complete_genome/1, 4 homologous_member/2, 5 in_mbgd_default/1, 6 mbgd_ortholog/2 7 ]). 8 9:- sparql_endpoint(mbgd, 'https://sparql.nibb.ac.jp/sparql'). 10 11:- rdf_register_prefix(orth, 'http://purl.org/net/orth#'). 12:- rdf_register_prefix(mbgd, 'http://purl.jp/bio/11/mbgd#'). 13:- rdf_register_prefix(mbgdr, 'http://mbgd.genome.ad.jp/rdf/resource/'). 14 15complete_genome(G) :- 16 rdf(G, rdf:type, mbgd:'CompleteGenome'). 17 18homologous_member(O, G) :- 19 rdf_path(O, zeroOrMore(orth:hasHomologous), G), 20 rdf(G, rdf:type, orth:'Gene'). 21 22in_mbgd_default(OC) :- 23 rdf(OC, rdf:type, orth:'OrthologsCluster'), 24 rdf(OC, void:inDataset, mbgdr:default). 25 26mbgd_ortholog(G1, G2) :- 27 in_mbgd_default(OC), 28 homologous_member(OC, G1), 29 homologous_member(OC, G2)