+let callback (req : Http_types.request) outchan =
+ match req#path with
+ | "/proofCheck" ->
+ begin
+ CicLogger.log_callback :=
+ (CicLogger.log_to_html
+ ~print_and_flush:(fun s -> fprintf outchan "%s" s; flush outchan));
+ try
+ let uri = req#param "uri" in
+ printf "Request to proof-check \"%s\"..." uri;
+ flush stdout;
+ fprintf outchan "%s" (html_preamble uri);
+ flush outchan;
+ (try
+ CicTypeChecker.typecheck (UriManager.uri_of_string uri);
+ with e ->
+ fprintf outchan "%s\n" (Printexc.to_string e);
+ flush outchan);
+ fprintf outchan "%s" html_postamble;
+ flush outchan;
+ printf " done\n\n";
+ flush stdout
+ with Not_found -> (* 'uri' argument not found *)
+ bad_request outchan
+ end
+ | "/help" ->
+ Http_daemon.respond ~body:usage_string
+ ~headers:["Content-Type", "text/html"] outchan
+ | req -> bad_request outchan
+
+in
+
+printf "Proof Checker started and listening on port %d\n" port;
+flush stdout;
+Http_daemon.start' ~port callback;
+printf "Proof Checker is terminating, bye!\n"