Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-02-06 02:52:42 +08:00
Code Issues Actions 2 Packages Projects Releases Wiki Activity

[flash modes] change some mode names and luftboot unused by default

Browse Source
This commit is contained in:
Gautier Hattenberger
2013-12-17 17:15:01 +01:00
parent c2de941069
commit 2f0060456b
14 changed files with 72 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
sw/supervision/pc_control_panel.ml
View File

@@ -55,10 +55,15 @@ let sessions =
(Xml.children s);
h
let flash_modes_xml_file = Utils.conf_dir // "flash_modes.xml"
let flash_mode_xml = ExtXml.parse_file flash_modes_xml_file
let flash_modes =
let modes = Hashtbl.create 7 in (* table mode -> options *)
let boards = Hashtbl.create 7 in (* table board -> modes *)
let s = ExtXml.child ~select:(fun x -> Xml.attrib x "name" = "flash_modes") control_panel_xml "section" in
let fm_common = Xml.children flash_mode_xml in (* common modes in dedicated file *)
let fm_custom = try
Xml.children (ExtXml.child ~select:(fun x -> Xml.attrib x "name" = "flash_modes") control_panel_xml "section") with
_ -> [] in (* custom mode can be added to personal control_panel.xml file *)
List.iter (fun m ->
let mode = Xml.attrib m "name" in
(* list of boards *)
@@ -76,7 +81,7 @@ let flash_modes =
(* add the new mode with together with the old ones *)
Hashtbl.replace boards b ([mode] @ _modes)
) board_list;
) (Xml.children s);
) (fm_common @ fm_custom);
modes, boards