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

expand_ac_xl updated (multiple files for settings)

Browse Source
This commit is contained in:
Pascal Brisset
2009-06-17 13:26:10 +00:00
parent 7ba132446d
commit 14c1a45ce2
1 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/env.ml
+8 -9
View File
@@ -27,6 +27,7 @@
open Printf
let (//) = Filename.concat
let space_regexp = Str.regexp "[ \t]+"
let make_element = fun t a c -> Xml.Element (t,a,c)
let paparazzi_src =
@@ -67,17 +68,15 @@ let expand_ac_xml = fun ac_conf ->
make_element "cannot_parse" ["file",file;"error", s] [] in
let parse = fun a ->
let file = prefix (ExtXml.attrib ac_conf a) in
parse_file a file in
List.map
(fun filename ->parse_file a (prefix filename))
(Str.split space_regexp (ExtXml.attrib ac_conf a)) in
let parse_opt = fun a others ->
try
parse a :: others
with
ExtXml.Error _ -> others in
let parse_opt = fun a ->
try parse a with ExtXml.Error _ -> [] in
let pervasives = [parse "airframe"; parse "settings"; parse "telemetry"] in
let optionals = parse_opt "radio" (parse_opt "flight_plan" pervasives) in
let pervasives = parse "airframe" @ parse "telemetry" @ parse "settings" in
let optionals = parse_opt "radio" @ parse_opt "flight_plan" @ pervasives in
let children = Xml.children ac_conf@optionals in
make_element (Xml.tag ac_conf) (Xml.attribs ac_conf) children