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

modules.c is not generated anymore

Browse Source
This commit is contained in:
Gautier Hattenberger
2010-02-09 13:01:15 +00:00
parent 045ed48b6e
commit 5603ebb022
3 changed files with 18 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/tools/gen_aircraft.ml
+2 -9
View File
@@ -95,7 +95,6 @@ let extract_makefile = fun airframe_file makefile_ac ->
(Xml.children xml);
(** Look for modules *)
let modules_exist = ref [] in (* Targets requring modules *)
let files = ref [] in
List.iter (fun x ->
if ExtXml.tag_is x "modules" then
@@ -106,17 +105,11 @@ let extract_makefile = fun airframe_file makefile_ac ->
let name = ExtXml.attrib modul "name" in
let dir_name = (String.uppercase name)^"_DIR" in
fprintf f "\n# makefile for module %s\n" name;
fprintf f "%s = $(PAPARAZZI_SRC)/sw/airborne/modules/%s\n" dir_name name;
fprintf f "%s = modules/%s\n" dir_name name;
List.iter (fun l ->
if ExtXml.tag_is l "makefile" then begin
let targets = targets_of_field l in
List.iter (fun t ->
if not (List.mem t !modules_exist) then begin
fprintf f "%s.srcs += $(ACINCLUDE)/modules.c\n" t;
modules_exist := t :: !modules_exist
end;
fprintf f "%s.CFLAGS += -I $(%s)\n" t dir_name
) targets;
List.iter (fun t -> fprintf f "%s.CFLAGS += -I $(%s)\n" t dir_name ) targets;
List.iter (fun field ->
match String.lowercase (Xml.tag field) with
"flag" ->