Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-05 23:49:00 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

wrap generation of normal define in begin end, define_integer is not part of exception handling

Browse Source
This commit is contained in:
Felix Ruess
2011-12-01 13:31:55 +01:00
parent 4e6ff045b7
commit e4bf595195
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/tools/gen_airframe.ml
+7 -5
View File
@@ -101,11 +101,13 @@ let parse_element = fun prefix s ->
match Xml.tag s with
"define" -> begin
try
try
let value = (ExtXml.float_attrib s "value") *. (code_unit_scale_of_tag s) in
define (prefix^ExtXml.attrib s "name") (string_of_float value);
with
_ -> define (prefix^ExtXml.attrib s "name") (ExtXml.display_entities (ExtXml.attrib s "value"));
begin
try
let value = (ExtXml.float_attrib s "value") *. (code_unit_scale_of_tag s) in
define (prefix^ExtXml.attrib s "name") (string_of_float value);
with
_ -> define (prefix^ExtXml.attrib s "name") (ExtXml.display_entities (ExtXml.attrib s "value"));
end;
define_integer (prefix^(ExtXml.attrib s "name")) (ExtXml.float_attrib s "value") (ExtXml.int_attrib s "integer");
with _ -> ();
end