Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-21 20:04:09 +08:00
Code Issues Actions 28 Packages Projects Releases Wiki Activity

lighter code to print empty function if no module loaded

Browse Source
This commit is contained in:
Gautier Hattenberger
2009-04-01 15:46:26 +00:00
parent 4b9b4f2e37
commit 73bbbf833b
1 changed files with 11 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/tools/gen_modules.ml
+11 -21
View File
@@ -192,13 +192,6 @@ let parse_modules modules out_c =
nl ();
fprintf out_h "#endif // MODULES_C\n"
let print_empty_functions = fun () ->
fprintf out_h "#ifdef MODULES_C\n";
fprintf out_h "\nstatic inline void modules_init(void) {}\n";
fprintf out_h "\nstatic inline void modules_periodic_task(void) {}\n";
fprintf out_h "\nstatic inline void modules_event_task(void) {}\n";
fprintf out_h "\n#endif // MODULES_C\n"
let get_modules = fun dir m ->
match Xml.tag m with
"load" -> begin
@@ -254,20 +247,17 @@ let () =
fprintf out_h "#define MODULES_START 2\n";
fprintf out_h "#define MODULES_STOP 3\n";
nl ();
if (test_section_modules xml) then begin
let modules = (ExtXml.child xml "modules") in
try
let main_freq = Xml.attrib modules "main_freq" in
freq := int_of_string main_freq;
with _ -> ();
let modules_list = List.map (get_modules modules_dir) (Xml.children modules) in
let modules_name =
(List.map (fun l -> try Xml.attrib l "name" with _ -> "") (Xml.children modules)) @
(List.map (fun m -> try Xml.attrib m "name" with _ -> "") modules_list) in
check_dependencies modules_list modules_name;
parse_modules modules_list out_c;
end
else print_empty_functions ();
let modules = try (ExtXml.child xml "modules") with _ -> Xml.Element("modules",[],[]) in
try
let main_freq = Xml.attrib modules "main_freq" in
freq := int_of_string main_freq;
with _ -> ();
let modules_list = List.map (get_modules modules_dir) (Xml.children modules) in
let modules_name =
(List.map (fun l -> try Xml.attrib l "name" with _ -> "") (Xml.children modules)) @
(List.map (fun m -> try Xml.attrib m "name" with _ -> "") modules_list) in
check_dependencies modules_list modules_name;
parse_modules modules_list out_c;
fprintf out_h "\n#endif // USE_MODULES\n";
fprintf out_c "\n#endif // USE_MODULES\n";
finish h_name;