Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-07 00:53:41 +08:00
Code Issues Actions 27 Packages Projects Releases Wiki Activity

In message_bind: catch exceptions raised by values_of_string (should be done by callback :-( )

Browse Source
This commit is contained in:
Pascal Brisset
2007-10-16 07:05:31 +00:00
parent e6e86da377
commit 3995bfd2f1
1 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/pprz.ml
+10 -3
View File
@@ -455,10 +455,17 @@ module MessagesOfXml(Class:CLASS_Xml) = struct
let message_bind = fun ?sender msg_name cb ->
match sender with
None ->
Ivy.bind (fun _ args -> cb args.(0) (snd (values_of_string args.(1)))) (sprintf "^([^ ]*) +(%s .*)" msg_name)
Ivy.bind
(fun _ args ->
let values = try snd (values_of_string args.(1)) with _ -> [] in
cb args.(0) values)
(sprintf "^([^ ]*) +(%s .*)" msg_name)
| Some s ->
Ivy.bind (fun _ args -> cb s (snd (values_of_string args.(0)))) (sprintf "^%s +(%s .*)" s msg_name)
Ivy.bind
(fun _ args ->
let values = try snd (values_of_string args.(0)) with _ -> [] in
cb s values)
(sprintf "^%s +(%s .*)" s msg_name)
let message_answerer = fun sender msg_name cb ->
let ivy_cb = fun _ args ->