:- module(ahm_thesaurus,
	  [ run_thesaurus/0
	  ]).

user:file_search_path(data,       metadata('AHM')).

:- use_module(library(semweb/rdf_db)).
:- use_module(library(semweb/rdf_cache)).

:- rdf_register_ns(ahm,	   'http://purl.org/collections/nl/am/').

:- use_module([ library(xmlrdf/xmlrdf),
		library(semweb/rdf_cache),
		library(semweb/rdf_library),
		library(semweb/rdf_turtle_write)
	      ]).
:- use_module(rewrite_thes).

load_ontologies :-
	rdf_load_library(dc),
	rdf_load_library(skos),
	rdf_load_library(rdfs),
	rdf_load_library(owl),
	rdf_load(data('rdf/am-thesaurus-schema.ttl'),[graph(thesaurus_schema)]).

:- initialization			% run *after* loading this file
	rdf_set_cache_options([ global_directory('cache/rdf'),
				create_global_directory(true)
			      ]),
	load_ontologies.

load_thesaurus:-
        absolute_file_name(data('src/thesaurus.xml'), File,
			   [ access(read)
			   ]),
	load(File).

load(File) :-
	rdf_current_ns(ahm, Prefix),
	load_xml_as_rdf(File,
			[ dialect(xml),
			  unit(record),
			  prefix(Prefix),
			  graph(thesaurus)
			]).


run_thesaurus:-
	load_thesaurus,
	rewrite,
	rdf_assert(ahm:'AM_ConceptScheme', rdf:type, skos:'ConceptScheme', thesaurus),
	rdf_assert(ahm:'AM_ConceptScheme', rdfs:label, literal('AHM thesaurus')),
	save_thesaurus.

save_thesaurus:-
	absolute_file_name(data('rdf/am-thesaurus.ttl'), File,
			   [ access(write)
			   ]),
	rdf_save_turtle(File,[graph(thesaurus)]).