SWI IO is used in RDF packages.

This commit is contained in:
Vítor Santos Costa 2010-07-28 17:15:36 +01:00
parent bfa7285041
commit 0081626e0d
4 changed files with 16 additions and 0 deletions

View File

@ -37,6 +37,9 @@
process_rdf/3 % +File, :OnTriples, :Options
]).
:- expects_dialect(swi).
:- assert(system:swi_io).
:- meta_predicate
load_rdf(+, -, :),
process_rdf(+, :, :).
@ -411,3 +414,5 @@ quote(X) --> [X].
:- multifile prolog:meta_goal/2.
prolog:meta_goal(process_rdf(_,G,_), [G+2]).
:- retract(system:swi_io). %

View File

@ -40,6 +40,9 @@
:- use_module(library(pairs)).
:- use_module(library(debug)).
:- expects_dialect(swi).
:- assert(system:swi_io).
/** <module> Write RDF/XML from a list of triples
@ -634,3 +637,6 @@ to_be_described('http://t-d-b.org?').
ns(Id, Full) :-
rdf_db:ns(Id, Full).
:- retract(system:swi_io).

View File

@ -315,3 +315,4 @@ show_ok(Test) :-
new(D, rdf_diagram(string('Ok for %s', File))),
send(D, triples, OkTriples),
send(D, open).

View File

@ -52,6 +52,9 @@
:- use_module(library(semweb/rdf_db)).
:- use_module(rdf).
:- expects_dialect(swi).
:- assert(system:swi_io).
test_write :-
run_tests([ rdf_write
]).
@ -160,3 +163,4 @@ test(type, true) :-
:- end_tests(rdf_write).
:- retract(system:swi_io).