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

not working ocaml

Browse Source
This commit is contained in:
Christophe De Wagter
2010-08-18 09:24:27 +00:00
parent 7b4515d04b
commit 8cbf20ca56
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/tools/gen_aircraft.ml
+9 -1
View File
@@ -129,7 +129,7 @@ let dump_module_section = fun xml f ->
(Xml.children xml);
!files
(** (String.compare (Xml.attrib x "location") "after" = 0)
(** (String.compare (Xml.attrib x "location") "after" = 0)
Search and dump the makefile sections
**)
let dump_makefile_section = fun xml makefile_ac airframe_infile print_if_loc_after ->
@@ -165,11 +165,19 @@ let dump_target_section = fun xml makefile_ac ->
fprintf makefile_ac "include $(CFG_%s)/%s_%s.makefile\n"
(String.uppercase(Xml.attrib tag "name"))
(Xml.attrib c "name") (Xml.attrib c "type");
let print_if_subsystem_define = (fun c ->
if ExtXml.tag_is c "define" then begin
fprintf makefile_ac "%s = %s\n"
(String.uppercase(Xml.attrib c "name"))
(Xml.attrib c "value");
end) in
List.iter print_if_subsystem_define (Xml.children tag)
end) in
List.iter print_if_subsystem (Xml.children tag)
with _ -> () end;
end)
(Xml.children xml)
(** Extracts the makefile sections of an airframe file *)