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

[generator] prettify gen_module output

Browse Source
This commit is contained in:
Felix Ruess
2015-01-02 16:53:34 +01:00
parent 2fce396db4
commit 7183e0998a
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/tools/generators/gen_modules.ml
+12 -4
View File
@@ -175,10 +175,18 @@ let print_periodic_functions = fun modules ->
end
else begin
let status = get_status_name f module_name in
let start = (ExtXml.attrib_or_default f "start" "") in
lprintf out_h "if (%s == MODULES_START) { %s; %s = MODULES_RUN; }\n" status start status;
let stop = (ExtXml.attrib_or_default f "stop" "") in
lprintf out_h "if (%s == MODULES_STOP) { %s; %s = MODULES_IDLE; }\n" status stop status;
lprintf out_h "if (%s == MODULES_START) {\n" status;
right ();
try lprintf out_h "%s;\n" (Xml.attrib f "start") with _ -> ();
lprintf out_h "%s = MODULES_RUN;\n" status;
left ();
lprintf out_h "}\n";
lprintf out_h "if (%s == MODULES_STOP) {\n" status;
right ();
try lprintf out_h "%s;\n" (Xml.attrib f "stop") with _ -> ();
lprintf out_h "%s = MODULES_IDLE;\n" status;
left ();
lprintf out_h "}\n";
end
)
periodic)