+let constants_only uri = not (String.sub uri (String.length uri - 4) 4 = ".var")
+let uri_predicate = ref constants_only
+
+let uri_pred_of_conf tryvars varsprefix =
+ if not tryvars then
+ constants_only
+ else
+ let rex = Pcre.regexp ("^" ^ varsprefix) in
+ (fun uri -> Pcre.pmatch ~rex uri)
+