Chris@21: :- module(cmn_mapping,[]). Chris@21: Chris@21: /** Chris@21: * Cmn mapping for 303 redirects Chris@21: */ Chris@21: Chris@21: :- use_module(mapping). Chris@21: Chris@21: sparql_end_point('http://dbtune.org/cmn/sparql/'). Chris@21: html_renderer('http://dig.csail.mit.edu/2005/ajar/ajaw/tab.html?uri='). Chris@21: directory('http://dbtune.org/cmn/all/'). Chris@21: namespace('http://dbtune.org/cmn/'). Chris@21: Chris@21: /** Chris@21: * Redirecting resources whithin the namespace Chris@21: */ Chris@21: Chris@21: mapping:see_other_rdf(requested_pattern(T),redirect_pattern([SparqlEndPoint,'?query=describe%20%3C',NameSpace,Path,'%3E'])) :- Chris@21: T\=[all,_], Chris@21: sparql_end_point(SparqlEndPoint), Chris@21: namespace(NameSpace), Chris@21: concat_atom(T,'/',Path). Chris@21: mapping:see_other(requested_pattern(T),redirect_pattern([Renderer,NameSpace,Path])) :- Chris@21: T\=[all,_], Chris@21: html_renderer(Renderer), Chris@21: namespace(NameSpace), Chris@21: concat_atom(T,'/',Path). Chris@21: Chris@21: Chris@21: /** Chris@21: * directories Chris@21: */ Chris@21: directory_query(Concept, Chris@21: [SparqlEndPoint, Chris@21: '?query=construct { %3fx a ', Concept, Chris@21: '} where { %3fx a ', Concept, '.}' Chris@21: ]) :- Chris@21: sparql_end_point(SparqlEndPoint). Chris@21: Chris@21: mapping:see_other_rdf(requested_pattern([all,composer]), redirect_pattern(Query)) :- Chris@24: directory_query('%3Chttp://purl.org/ontology/mo/Composer%3E', Query). Chris@21: Chris@21: mapping:see_other(requested_pattern([all,Concept]),redirect_pattern([Renderer,Directory,Concept])) :- Chris@21: html_renderer(Renderer), Chris@21: directory(Directory).