diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

SWI IO is used in RDF packages.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/RDF/rdf.pl
View File

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

6
packages/RDF/rdf_write.pl
View File

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

1
packages/RDF/test_rdf.pl
View File

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

4
packages/RDF/test_write.pl
View File

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