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

don't generate trailing whitespaces in Makefile.ac

Browse Source
This commit is contained in:
Felix Ruess
2010-11-27 18:48:10 +01:00
parent 5c57ed32b6
commit 8306062e84
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/tools/gen_aircraft.ml
+4 -4
View File
@@ -232,7 +232,7 @@ let parse_subsystems = fun makefile_ac tag firmware ->
match Xml.tag firmware with
"subsystem" ->
begin try
fprintf makefile_ac "# -subsystem: '%s' \n" (Xml.attrib firmware "name");
fprintf makefile_ac "# -subsystem: '%s'\n" (Xml.attrib firmware "name");
let has_subtype = ref false in
begin try
has_subtype := not (String.compare (Xml.attrib firmware "type") "" = 0)
@@ -258,8 +258,8 @@ let parse_targets = fun makefile_ac tag target ->
match Xml.tag target with
| "target" ->
begin try
fprintf makefile_ac "\n###########\n# -target: '%s' \n" (Xml.attrib target "name");
fprintf makefile_ac "ifeq ($(TARGET), %s) \n" (Xml.attrib target "name");
fprintf makefile_ac "\n###########\n# -target: '%s'\n" (Xml.attrib target "name");
fprintf makefile_ac "ifeq ($(TARGET), %s)\n" (Xml.attrib target "name");
let print_if_subsystem = (fun c ->
if ExtXml.tag_is c "param" then begin
fprintf makefile_ac "%s = %s\n"
@@ -313,7 +313,7 @@ let dump_firmware_sections = fun xml makefile_ac ->
if ExtXml.tag_is tag "firmware" then begin
begin try
fprintf makefile_ac "\n####################################################\n";
fprintf makefile_ac "# makefile firmware '%s' \n" (Xml.attrib tag "name");
fprintf makefile_ac "# makefile firmware '%s'\n" (Xml.attrib tag "name");
fprintf makefile_ac "####################################################\n";
List.iter (parse_targets makefile_ac tag) (Xml.children tag )
with _ -> () end;