Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-31 03:57:45 +08:00
Code Issues Actions 27 Packages Projects Releases Wiki Activity

correct a bug when flag has a value in modules' makefile

Browse Source
This commit is contained in:
Gautier Hattenberger
2009-07-23 14:52:34 +00:00
parent 772caea13c
commit 5b84ab2a26
1 changed files with 8 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/tools/gen_aircraft.ml
+8 -10
View File
@@ -120,17 +120,15 @@ let extract_makefile = fun airframe_file makefile_ac ->
List.iter (fun field -> List.iter (fun field ->
match String.lowercase (Xml.tag field) with match String.lowercase (Xml.tag field) with
"flag" -> "flag" ->
List.iter List.iter
(fun target -> (fun target ->
let value = ExtXml.attrib_or_default field "value" "" let value = try "="^(Xml.attrib field "value") with _ -> ""
and name = Xml.attrib field "name" in and name = Xml.attrib field "name" in
fprintf f "%s.CFLAGS += -D%s%s\n" target name value) fprintf f "%s.CFLAGS += -D%s%s\n" target name value)
targets targets
| "file" -> | "file" ->
let name = Xml.attrib field "name" in let name = Xml.attrib field "name" in
List.iter List.iter (fun target -> fprintf f "%s.srcs += $(%s)/%s\n" target dir_name name) targets
(fun target -> fprintf f "%s.srcs += $(%s)/%s\n" target dir_name name)
targets
| "define" -> | "define" ->
let value = Xml.attrib field "value" let value = Xml.attrib field "value"
and name = Xml.attrib field "name" in and name = Xml.attrib field "name" in