virgil/commit

ADD virgil_warmup/0 to create the indexes and chache

diff --git a/config-available/virgil.pl b/config-available/virgil.pl
index 27c17cd..07bf7a8 100644
--- a/config-available/virgil.pl
+++ b/config-available/virgil.pl
@@ -1,9 +1,13 @@
-:- module(conf_virgil, []).
+:- module(conf_virgil,
+	  [virgil_warmup/0
+	  ]).
 
 /** <module> Adverse Event Mining
 */
 
 :- use_module(library(semweb/rdf_db)).
+:- use_module(library(semweb/rdf_litindex)).
+:- use_module(library(aers_report)).
 
 :- rdf_register_ns(aers, 'http://aers.data2semantics.org/vocab/').
 :- rdf_register_ns(aers_r, 'http://aers.data2semantics.org/report/').
@@ -19,3 +23,9 @@
 	      [ silent(true),
 		if(not_loaded)
 	      ]).
+
+virgil_warmup :-
+	rdf_warm_indexes,
+	rdf_find_literals(a,_),
+	set_prolog_stack(global, limit(4 000 000 000)),
+	cc_count(_).
diff --git a/lib/aers_report.pl b/lib/aers_report.pl
index bfe4fa7..70ebae8 100644
--- a/lib/aers_report.pl
+++ b/lib/aers_report.pl
@@ -90,7 +90,7 @@ cc_count(Count) :-
 	virgil_cache(cc, Count),
 	!.
 cc_count(Count) :-
-	setof(R-D-E, report_drug_reaction([], R, D, E), As),
+	setof(t(R,D,E), report_drug_reaction([], R, D, E), As),
 	length(As, Count),
 	assert(virgil_cache(cc, Count)).