%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%Use the prolog rdf parser to%
%%%%translate into prolog%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

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


convert(Input,Output) :-
	rdf_load(Input),
	export_ont(Output).



export_ont(Output) :-  
	open(Output,write,Stream,[buffer(line)]),
	write(Stream, ':- multifile(rdf/3).'),
	nl(Stream),
	convert_owl(Stream).

convert_owl(Stream) :- 
	\+convert_owl2(Stream).
convert_owl2(Stream) :- 
	rdf(S,P,O),
	write(rdf(S,P,O)),
	nl,
	write_term(Stream,rdf(S,P,O),[quoted(true),character_escapes(false)]),
	write(ok),
	write(Stream,'.'),
	nl(Stream),
	fail.