- | exc ->
- let msg = sprintf "Uncaught exception: %s" (Printexc.to_string exc) in
- debug_print msg ;
- Http_daemon.respond ~body:(pp_error msg) outchan
-in
-printf "%s started and listening on port %d\n" daemon_name port;
-printf "Current directory is %s\n" (Sys.getcwd ());
-printf "HTML directory is %s\n" pages_dir;
-flush stdout;
-Unix.putenv "http_proxy" "";
-let mqi_handle = C.init ~log:debug_print () in
-Http_daemon.start' ~port (callback mqi_handle);
-C.close mqi_handle;
-printf "%s is terminating, bye!\n" daemon_name
+ | CicTextualParser2.Parse_error msg ->
+ send_results (`Error (pp_error "Parse_error" msg)) req outchan
+ | Unbound_identifier id ->
+ send_results (`Error (pp_error "Unbound identifier" id)) req outchan
+ | exn ->
+ let exn_string = Printexc.to_string exn in
+ debug_print exn_string;
+ let msg = pp_error "Uncaught exception" exn_string in
+ send_results (`Error msg) req outchan
+
+let _ =
+ printf "%s started and listening on port %d\n" daemon_name port;
+ printf "Current directory is %s\n" (Sys.getcwd ());
+ printf "HTML directory is %s\n" pages_dir;
+ flush stdout;
+ Unix.putenv "http_proxy" "";
+ let mqi_handle = C.init ~log:debug_print () in
+ Http_daemon.start' ~port (callback mqi_handle);
+ C.close mqi_handle;
+ printf "%s is terminating, bye!\n" daemon_name
+