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

semweb and http compile now (but they don't work properly yet).

Browse Source
This commit is contained in:
Vitor Santos Costa
2010-07-15 23:35:37 +01:00
parent 12fe06aa2e
commit 6183ff0282
158 changed files with 82184 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
packages/semweb/Tests/subprop.pl Normal file
View File

@@ -0,0 +1,32 @@
:- module(subprop,
[ subprop/0
]).
:- use_module('../rdf_db').
rdf_db:ns(test, 'http://www.test.org/').
% :- rdf_debug(10).
t1 :-
rdf_assert(test:a, rdfs:subPropertyOf, test:r1),
rdf_assert(test:jan, test:a, literal(jan)).
t2 :-
rdf_assert(test:a, rdfs:subPropertyOf, test:r1),
rdf_assert(test:a, rdfs:subPropertyOf, test:r2),
rdf_assert(test:jan, test:a, literal(jan)).
t3 :-
rdf_assert(test:a, rdfs:subPropertyOf, test:r1),
rdf_assert(test:a, rdfs:subPropertyOf, test:r2),
rdf_assert(test:b, rdfs:subPropertyOf, test:r3),
rdf_assert(test:b, rdfs:subPropertyOf, test:r4),
rdf_assert(test:c, rdfs:subPropertyOf, test:a),
rdf_assert(test:c, rdfs:subPropertyOf, test:b),
rdf_assert(test:jan, test:a, literal(jan)).
subprop :-
rdf_reset_db,
t3,
rdf_has(test:jan, test:r1, Name),
Name == literal(jan).