1/*
    2  
    3*/
    4
    5:- module(disgenet,
    6          [
    7           refers_to/2,
    8           gene/1,
    9           disease/1,
   10
   11           assoc/1,
   12           gda/1,
   13           gda/3
   14           ]).   15
   16:- use_module(library(sparqlprog)).   17:- use_module(library(semweb/rdf11)).   18
   19:- sparql_endpoint( disgenet, 'http://rdf.disgenet.org/sparql/').   20
   21:- rdf_register_prefix(disgenet,'http://rdf.disgenet.org/').   22:- rdf_register_prefix(disgenet_gda,'http://rdf.disgenet.org/resource/gda/').   23:- rdf_register_prefix(sio, 'http://semanticscience.org/resource/SIO_').   24:- rdf_register_prefix(ncitevs, 'http://ncicb.nci.nih.gov/xml/owl/EVS/Thesaurus.owl#').   25:- rdf_register_prefix(umls, 'http://linkedlifedata.com/resource/umls/id/').   26:- rdf_register_prefix(ncbigene, 'http://identifiers.org/ncbigene/').   27
   28
   29refers_to(A,B) :- rdf(A,sio:'000628',B).
   30
   31disease(D) :- rdf(D,rdf:type,ncitevs:'C7057').
   32gene(G) :- rdf(G,rdf:type,ncitevs:'C16612').
   33assoc(A) :- rdfs_individual_of(A,sio:'000897').
   34gda(A) :- rdfs_individual_of(A,sio:'001121').
   35gda(A,G,D) :- gda(A),refers_to(A,G),gene(G),refers_to(A,D),disease(D)