(* deliver resolve request to http_getter *)
let doc = ClientHTTP.get (sprintf "%sresolve?uri=%s" (getter_url ()) uri) in
let res = ref Unknown in
- Pxp_yacc.process_entity Pxp_yacc.default_config (`Entry_content [])
- (Pxp_yacc.create_entity_manager ~is_document:true Pxp_yacc.default_config
+ Pxp_yacc.process_entity PxpHelmConf.pxp_config (`Entry_content [])
+ (Pxp_yacc.create_entity_manager ~is_document:true PxpHelmConf.pxp_config
(Pxp_yacc.from_string doc))
(function
| Pxp_yacc.E_start_tag ("url",["value",url],_) -> res := Resolved url
let (slash_RE, til_slash_RE, no_slashes_RE) =
(Pcre.regexp "/", Pcre.regexp "^.*/", Pcre.regexp "^[^/]*$")
in
- fun lsuri ->
+ fun regexp ->
if remote () then
- ls_remote lsuri
+ ls_remote regexp
else begin
let pat =
- "^" ^
- (match lsuri with Cic p -> ("cic:" ^ p) | Theory p -> ("theory:" ^ p))
+ "^" ^ regexp
+(* (match lsuri with Cic p -> ("cic:" ^ p) | Theory p -> ("theory:" ^ p)) *)
in
let (dir_RE, obj_RE) =
(Pcre.regexp (pat ^ "/"), Pcre.regexp (pat ^ "(\\.|$)"))