amalgame/commit

node_info -> rdf11

authorJacco van Ossenbruggen
Wed Feb 26 17:35:22 2020 +0100
committerJacco van Ossenbruggen
Wed Feb 26 17:50:47 2020 +0100
commitd71fecdff6c09175345d8ce01f35d272180075c2
tree20e8cd284cebcff39204319d3c6cce420c9dff78
parent086932f79f5eb0be50e41950933c0f92801b2e2a
Diff style: patch stat
diff --git a/api/node_info.pl b/api/node_info.pl
index 1a9783e..ff9ed11 100644
--- a/api/node_info.pl
+++ b/api/node_info.pl
@@ -9,7 +9,7 @@
 :- use_module(library(http/http_dispatch)).
 :- use_module(library(http/http_parameters)).
 :- use_module(library(http/html_write)).
-:- use_module(library(semweb/rdf_db)).
+:- use_module(library(semweb/rdf11)).
 :- use_module(library(semweb/rdfs)).
 :- use_module(library(semweb/rdf_persistency)).
 
@@ -93,6 +93,10 @@ html_cell(Vs) -->
 	},
 	!,
 	html_cell_list(Vs).
+html_cell(@(V, _Lang)) -->
+    !,
+    html(V).
+
 html_cell(V) -->
 	html(V).
 
@@ -249,7 +253,7 @@ amalgame_info(URL, Strategy,
 	->  Input = [input - \(cp_label:rdf_link(InputMapping))]
 	;   Input = []
 	),
-	(   rdf_has(Type, skos:definition, literal(DefLit))
+	(   rdf_has(Type, skos:definition, DefLit)
 	->  Definition = [about - DefLit]
 	;   Definition = []
 	),
@@ -332,8 +336,6 @@ ag_prov(R, _A, 'generated by', \rdf_link(Agent)) :-
 ag_prov(R, _A, 'generated at', \rdf_link(Time)) :-
 	rdf(R, prov:wasGeneratedBy, Process),
 	rdf_has(Process, prov:endedAtTime,Time).
-	% literal_text(Time, TS).
-
 
 ag_prov(R, A, 'first created at', \rdf_link(V)) :-
 	(   rdf_has(R, dc:date, V, RealProp),
@@ -341,16 +343,16 @@ ag_prov(R, A, 'first created at', \rdf_link(V)) :-
 	->  true
 	;   rdf_has(R, dc:date, V)
 	).
-ag_prov(S, S, 'last modified at', \rdf_link(literal(type(xsd:dateTime,Modified)))) :-
+ag_prov(S, S, 'last modified at', \rdf_link(Modified^^xsd:dateTime)) :-
 	rdf_graph(S),
 	rdf_journal_file(S,File),
 	time_file(File,Time),
 	xsd_timestamp(Time, Modified).
 ag_prov(R, A, owl:'version', V) :-
-	(   rdf_has(R, owl:versionInfo, literal(V), RealProp),
-	    rdf(R, RealProp, literal(V), A)
+	(   rdf_has(R, owl:versionInfo, V, RealProp),
+	    rdf(R, RealProp, V, A)
 	->  true
-	;   rdf(R, owl:versionInfo, literal(V))
+	;   rdf(R, owl:versionInfo, V)
 	).
 ag_prov(Graph, Graph, contributors, Vs) :-
 	rdfs_individual_of(Graph, amalgame:'AlignmentStrategy'),