amalgame/commit

only suggest non-empty graphs as useful preloaded graphs

authorJacco van Ossenbruggen
Wed Jul 9 10:41:25 2014 +0200
committerJacco van Ossenbruggen
Wed Jul 9 10:41:25 2014 +0200
commit428d0239af9e4215c340c89ec51a62b3ecbd2274
treea4199564aadf0415c4330c400954fc07ce88cddd
parenta9b9169f9078fbb3fda4b2047cda5bc1f4f47713
Diff style: patch stat
diff --git a/lib/ag_modules/preloaded_mapping.pl b/lib/ag_modules/preloaded_mapping.pl
index 87857ff..c8e4c7b 100644
--- a/lib/ag_modules/preloaded_mapping.pl
+++ b/lib/ag_modules/preloaded_mapping.pl
@@ -1,5 +1,6 @@
 :- module(preloaded_matcher,[]).
 
+:- use_module(library(semweb/rdf_db)).
 :- use_module(library(semweb/rdfs)).
 :- use_module(library(amalgame/map)).
 :- use_module(library(amalgame/vocabulary)).
@@ -12,7 +13,12 @@ amalgame_module(amalgame:'SelectPreLoaded').
 
 parameter(name, oneof(Loaded), 'no default',
 	  'url of named mapping graph') :-
-	findall(M, rdfs_individual_of(M, amalgame:'LoadedMapping'), Loaded).
+	findall(M,
+		(   rdfs_individual_of(M, amalgame:'LoadedMapping'),
+		    rdf_graph(M),
+		    rdf_graph_property(M, triples(N)),
+		    N > 0
+		), Loaded).
 
 matcher(Source, Target, Mapping, Options) :-
 	option(name(Graph), Options),