Chris@0: #!/usr/local/bin/pl -g serql_welcome -L0 -G0 -T0 -s
Chris@0: 
Chris@0: :- dynamic
Chris@0:         user:file_search_path/2.
Chris@0: :- multifile
Chris@0:         user:file_search_path/2.
Chris@0: 
Chris@0: :- prolog_load_context(directory, Dir),
Chris@0:    atom_concat(Dir,'/SeRQL',SeRQLDir),
Chris@0:    asserta(user:file_search_path(serql, SeRQLDir)).
Chris@0: 
Chris@0: :- load_files([ serql(load)
Chris@0:               ],
Chris@0:               [ silent(true)
Chris@0:               ]).
Chris@0: 
Chris@0: 
Chris@0: :- use_module(dbinit).
Chris@0: 
Chris@0: entailment(Ent) :- settings:set_setting(serql_parms:default_entailment, Ent).
Chris@0: 
Chris@0: 
Chris@0: server :-
Chris@0:         serql_server([port(2020)]).
Chris@0: 
Chris@0: server(Port) :-
Chris@0:         serql_server([port(Port)]).
Chris@0: 
Chris@0: :- use_module(library('semweb/rdf_db')).
Chris@0: 
Chris@0: :- rdf_register_ns(mo,'http://purl.org/ontology/mo/').
Chris@0: 
Chris@0: load :- 
Chris@0: 	rdf_load('rdf_dump.rdf').
Chris@0: 
Chris@0: :-
Chris@0:  nl,
Chris@0:  writeln(' - Magnatune RDF server'),
Chris@0:  writeln('   Yves Raimond, Centre for Digital Music, Queen Mary, University of London'),
Chris@0:  nl,
Chris@0:  writeln('USAGE'),
Chris@0:  writeln(' --------------------------------'),nl,
Chris@0:  writeln('   * Use a RDF dump (fast, but static)'),
Chris@0:  writeln('     CODE: (1st time) init_db,load (nth time) init_db,entailment(none)'),
Chris@0:  writeln('     You can reset the DB by deleting the db/ directory'),
Chris@0:  nl,
Chris@0:  writeln(' --------------------------------'),
Chris@0:  nl,
Chris@0:  writeln(' - Then, launch the server using server/0 or server(+Port)'),nl.
Chris@0: 
Chris@0: :- init_db, server.
Chris@0: :- entailment(none).
Chris@0: