amalgame/commit
node_info -> rdf11
author | Jacco van Ossenbruggen |
---|---|
Wed Feb 26 17:35:22 2020 +0100 | |
committer | Jacco van Ossenbruggen |
Wed Feb 26 17:50:47 2020 +0100 | |
commit | d71fecdff6c09175345d8ce01f35d272180075c2 |
tree | 20e8cd284cebcff39204319d3c6cce420c9dff78 |
parent | 086932f79f5eb0be50e41950933c0f92801b2e2a |
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'),