annotate magnatune/sparql-archived/run.pl @ 27:d95e683fbd35 tip

Enable CORS on urispace redirects as well

#!/usr/local/bin/pl -g serql_welcome -L0 -G0 -T0 -s

:- dynamic
        user:file_search_path/2.
:- multifile
        user:file_search_path/2.

:- prolog_load_context(directory, Dir),
   atom_concat(Dir,'/SeRQL',SeRQLDir),
   asserta(user:file_search_path(serql, SeRQLDir)).

:- load_files([ serql(load)
              ],
              [ silent(true)
              ]).


:- use_module(dbinit).

entailment(Ent) :- settings:set_setting(serql_parms:default_entailment, Ent).


server :-
        serql_server([port(2020)]).

server(Port) :-
        serql_server([port(Port)]).

:- use_module(library('semweb/rdf_db')).

:- rdf_register_ns(mo,'http://purl.org/ontology/mo/').

load :- 
	rdf_load('rdf_dump.rdf').

:-
 nl,
 writeln(' - Magnatune RDF server'),
 writeln('   Yves Raimond, Centre for Digital Music, Queen Mary, University of London'),
 nl,
 writeln('USAGE'),
 writeln(' --------------------------------'),nl,
 writeln('   * Use a RDF dump (fast, but static)'),
 writeln('     CODE: (1st time) init_db,load (nth time) init_db,entailment(none)'),
 writeln('     You can reset the DB by deleting the db/ directory'),
 nl,
 writeln(' --------------------------------'),
 nl,
 writeln(' - Then, launch the server using server/0 or server(+Port)'),nl.

:- init_db, server.
:- entailment(none).