[paparazzi-commits] [5450] not working ocaml

[Christophe De Wagter]

Revision: 5450
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=5450
Author:   dewagter
Date:     2010-08-18 09:24:27 +0000 (Wed, 18 Aug 2010)
Log Message:
-----------
not working ocaml

Modified Paths:
--------------
    paparazzi3/trunk/sw/tools/gen_aircraft.ml

Modified: paparazzi3/trunk/sw/tools/gen_aircraft.ml
===================================================================
--- paparazzi3/trunk/sw/tools/gen_aircraft.ml   2010-08-18 02:53:18 UTC (rev 
5449)
+++ paparazzi3/trunk/sw/tools/gen_aircraft.ml   2010-08-18 09:24:27 UTC (rev 
5450)
@@ -129,7 +129,7 @@
     (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 @@
             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 *)