# HG changeset patch
# User Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>
# Date 1262958466 0
# Node ID 30e654b8fb5653bc25c415ff6b366cc2e680bf62
# Parent  d5d9e4087939172d9af48f03c0bb98ba99127f32
[rpc-light] Never call 'exit i' on error, because that's not good when you run it in a daemon

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>

diff -r d5d9e4087939 -r 30e654b8fb56 rpc-light/p4_rpc.ml
--- a/rpc-light/p4_rpc.ml	Fri Jan 08 13:47:46 2010 +0000
+++ b/rpc-light/p4_rpc.ml	Fri Jan 08 13:47:46 2010 +0000
@@ -107,7 +107,7 @@
 	let module PP = Camlp4.Printers.OCaml.Make(Syntax) in
 	let pp = new PP.printer () in
 	Format.eprintf "Type %a@. not supported.\n%!" pp#ctyp ty;
-	failwith "type_not_supported"
+	failwith "type not supported by rpc-light"
 
 let apply _loc fn fn_i create id modules t a =
 	let args = decompose_args _loc a in
diff -r d5d9e4087939 -r 30e654b8fb56 rpc-light/xmlrpc.ml
--- a/rpc-light/xmlrpc.ml	Fri Jan 08 13:47:46 2010 +0000
+++ b/rpc-light/xmlrpc.ml	Fri Jan 08 13:47:46 2010 +0000
@@ -273,10 +273,12 @@
 	let rec of_xml ?callback accu input =
 		try value (map_tags (basic_types ?callback accu)) input
 		with
-			| Xmlm.Error ((a,b), e) ->
+			| Xmlm.Error ((a,b), e) as exn->
 				eprintf "Characters %i--%i: %s\n%!" a b (Xmlm.error_message e);
-				exit (-1)
-			| e -> eprintf "%s\n%!" (Printexc.to_string e); exit (-1)
+				raise exn
+			| e ->
+				eprintf "%s\n%!" (Printexc.to_string e);
+				raise e
 
 	and basic_types ?callback accu input = function
 		| "int"