"ACTION"; "ADVANCED"; "ADVANCED_CHECKED"; "CHOICES"; "CURRENT_CHOICES";
"EXPRESSION"; "ID"; "IDEN"; "ID_TO_URIS"; "INTERPRETATIONS";
"INTERPRETATIONS_LABELS"; "MSG"; "NEW_ALIASES"; "NEXT_LINK"; "NO_CHOICES";
- "PAGE"; "PAGES"; "PREV_LINK"; "QUERY_KIND"; "QUERY_SUMMARY"; "RESULTS";
+ "PAGE"; "PAGES"; "PAGELIST"; "PREV_LINK"; "QUERY_KIND"; "QUERY_SUMMARY"; "RESULTS";
"SEARCH_ENGINE_URL"; "SIMPLE_CHECKED"; "TITLE";
]
let string_tail s =
let len = String.length s in
String.sub s 1 (len-1)
-let nonvar s =
+let nonvar uri =
+ let s = UriManager.string_of_uri uri in
let len = String.length s in
let suffix = String.sub s (len-4) 4 in
not (suffix = ".var")
params)
let page_RE = Pcre.regexp "¶m\\.page=\\d+"
-let identifier_RE = Pcre.regexp "^\\s*\\w+\\s*$"
+let identifier_RE = Pcre.regexp "^\\s*(\\w|')+\\s*$"
+let qualified_mutind_RE =
+ Pcre.regexp "^\\s*cic:(/(\\w|')+)+\\.ind#xpointer\\(1/\\d+\\)\\s*$"
let query_kind_of_req (req: Http_types.request) =
match req#path with
| "/hint" -> "Hint"
| "/locate" -> "Locate"
| "/elim" -> "Elim"
+ | "/instance" -> "Instance"
| _ -> ""
(* given a uri with a query part in input try to find in it a string
(** HTML encoding, e.g.: "<" -> "<" *)
let html_encode = Netencoding.Html.encode_from_latin1
+let fold_n_to_m f n m acc =
+ let rec aux acc =
+ function
+ i when i <= m -> aux (f i acc) (i + 1)
+ | _ -> acc
+ in
+ aux acc n
+
let send_results results
?(id_to_uris = CicTextualParser2.EnvironmentP3.of_string "")
(req: Http_types.request) outchan
results_no / results_per_page + 1
in
let pages = if pages = 0 then 1 else pages in
+ let additional_pages = 3 in
let (summary, results) = MooglePp.theory_of_result page results in
[ tag "PAGE", string_of_int page;
- tag "PAGES", string_of_int pages;
+ tag "PAGES", string_of_int pages ^ " Pages";
+ tag "PAGELIST",
+ (let inf = page - additional_pages in
+ let sup = page + additional_pages in
+ let superinf = inf - (sup - pages) in
+ let supersup = sup + (1 - inf) in
+ let n,m =
+ if inf >= 1 && sup <= pages then
+ inf,sup
+ else if inf < 1 then
+ 1, (if supersup <= pages then supersup else pages)
+ else (* sup > pages *)
+ (if superinf >= 1 then superinf else 1),pages
+ in
+ fold_n_to_m
+ (fun n acc -> acc ^ " " ^
+ (if n = page then string_of_int n
+ else page_link (string_of_int n) n))
+ n m "");
tag "PREV_LINK", (if page > 1 then page_link "Prev" (page-1) else "");
tag "NEXT_LINK",
(if page < pages then page_link "Next" (page+1) else "");
tag "RESULTS", results ]
| `Error msg ->
[ tag "PAGE", "1";
- tag "PAGES", "1";
+ tag "PAGES", "1 Page";
+ tag "PAGELIST", "";
tag "PREV_LINK", "";
tag "NEXT_LINK", "";
tag "QUERY_KIND", query_kind;
let exec_action dbd (req: Http_types.request) outchan =
let term_str = req#param "expression" in
try
- if req#path = "/elim" && not (Pcre.pmatch ~rex:identifier_RE term_str) then
+ if req#path = "/elim" &&
+ not (Pcre.pmatch ~rex:identifier_RE term_str ||
+ Pcre.pmatch ~rex:qualified_mutind_RE term_str) then
raise Not_a_MutInd;
let (context, metasenv) = ([], []) in
let id_to_uris_raw =
| id::tail when id<>"" ->
(fun id' ->
if id = id' then
- Some (List.map (fun u -> Netencoding.Url.decode u) tail)
+ Some (List.map
+ (fun u -> UriManager.uri_of_string
+ (Netencoding.Url.decode u))
+ tail)
else
f id')
| _ -> failwith "Can't parse choices")
struct
let interactive_user_uri_choice ~selection_mode ?ok
?enable_button_for_non_vars ~(title: string) ~(msg: string)
- ~(id: string) (choices: string list)
+ ~(id: string) (choices: UriManager.uri list)
=
match id_to_choices id with
| Some choices -> choices
let uris =
match req#path with
| "/match" -> MetadataQuery.match_term ~dbd term
+ | "/instance" -> MetadataQuery.instance ~dbd term
| "/hint" ->
let status = ProofEngineTypes.initial_status term metasenv in
let intros = PrimitiveTactics.intros_tac () in
(match subgoals with
| proof, [goal] ->
let (uri,metasenv,bo,ty) = proof in
- List.map fst (MetadataQuery.hint ~dbd (proof, goal))
+ List.map fst (MetadataQuery.experimental_hint ~dbd (proof, goal))
| _ -> assert false)
| "/elim" ->
let uri =
match term with
| Cic.MutInd (uri, typeno, _) ->
- UriManager.string_of_uriref (uri, [typeno])
+ UriManager.uri_of_string
+ (UriManager.string_of_uriref (uri, [typeno]))
| _ -> raise Not_a_MutInd
in
MetadataQuery.elim ~dbd uri
| _ -> assert false
in
+ let uris = List.map UriManager.string_of_uri uris in
send_results ~id_to_uris (`Results uris) req outchan
with
| Not_a_MutInd ->
send_results (`Results []) req outchan
else begin
let results = MetadataQuery.locate ~dbd expression in
+ let results = List.map UriManager.string_of_uri results in
send_results (`Results results) req outchan
end
| "/hint"
| "/elim"
+ | "/instance"
| "/match" -> exec_action dbd req outchan
| invalid_request ->
Http_daemon.respond_error ~code:(`Status (`Client_error `Bad_request))
let restore_environment () =
match
- Helm_registry.get_opt Helm_registry.get "search_engine.environment_dump"
+ Helm_registry.get_opt Helm_registry.string "search_engine.environment_dump"
with
| None -> ()
| Some fname ->