Chris@8: :- module(peel_mapping,[]).
Chris@7: 
Chris@7: /**
Chris@8:  * Peel mapping for 303 redirects
Chris@7:  */
Chris@7: 
Chris@7: 
Chris@7: :- use_module(mapping).
Chris@7: 
Chris@7: 
Chris@7: sparql_end_point('http://dbtune.org/bbc/peel/sparql/').
Chris@7: html_renderer('http://dig.csail.mit.edu/2005/ajar/ajaw/tab.html?uri=').
Chris@7: directory('http://dbtune.org/bbc/peel/all/').
Chris@7: namespace('http://dbtune.org/bbc/peel/').
Chris@7: 
Chris@7: /**
Chris@7:  * Redirecting resources whithin the namespace
Chris@7:  */
Chris@7: 
Chris@7: mapping:see_other_rdf(requested_pattern(T),redirect_pattern([SparqlEndPoint,'?query=describe%20%3C',NameSpace,Path,'%3E'])) :-
Chris@7: 	T\=[all,_],
Chris@7: 	sparql_end_point(SparqlEndPoint),
Chris@7: 	namespace(NameSpace),
Chris@7: 	concat_atom(T,'/',Path).
Chris@7: mapping:see_other(requested_pattern(T),redirect_pattern([Renderer,NameSpace,Path])) :-
Chris@7: 	T\=[all,_],
Chris@7: 	html_renderer(Renderer),
Chris@7: 	namespace(NameSpace),
Chris@7: 	concat_atom(T,'/',Path).
Chris@7: 
Chris@7: 
Chris@7: /**
Chris@7:  * directories
Chris@7:  */
Chris@7: directory_query(Concept,
Chris@7:                 [SparqlEndPoint,
Chris@7:                  '?query=construct { %3fx a ', Concept,
Chris@7:                  '} where { %3fx a ', Concept, '.}'
Chris@7:                 ]) :-
Chris@7:     sparql_end_point(SparqlEndPoint).
Chris@7: 
Chris@7: mapping:see_other_rdf(requested_pattern([all,artist]), redirect_pattern(Query)) :-
Chris@7:     directory_query('%3Chttp://purl.org/ontology/mo/MusicArtist%3E', Query).
Chris@7: 
Chris@7: mapping:see_other_rdf(requested_pattern([all,track]), redirect_pattern(Query)) :-
Chris@7:     directory_query('%3Chttp://purl.org/ontology/mo/Track%3E', Query).
Chris@7: 
Chris@7: mapping:see_other_rdf(requested_pattern([all,record]), redirect_pattern(Query)) :-
Chris@7:     directory_query('%3Chttp://purl.org/ontology/mo/Record%3E', Query).
Chris@7: 
Chris@7: mapping:see_other_rdf(requested_pattern([all,performance]), redirect_pattern(Query)) :-
Chris@7:     directory_query('%3Chttp://purl.org/ontology/mo/Performance%3E', Query).
Chris@7: 
Chris@7: mapping:see_other_rdf(requested_pattern([all,signal]), redirect_pattern(Query)) :-
Chris@7:     directory_query('%3Chttp://purl.org/ontology/mo/Signal%3E', Query).
Chris@7: 
Chris@7: mapping:see_other_rdf(requested_pattern([all,timeline]), redirect_pattern(Query)) :-
Chris@7:     directory_query('%3Chttp://purl.org/NET/c4dm/timeline.owl#TimeLine%3E', Query).
Chris@7: 
Chris@7: mapping:see_other(requested_pattern([all,Concept]),redirect_pattern([Renderer,Directory,Concept])) :-
Chris@7: 	html_renderer(Renderer),
Chris@7: 	directory(Directory).