Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-09 22:49:53 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

create_module helper: only one init function

Browse Source
This commit is contained in:
Felix Ruess
2014-11-19 10:53:23 +01:00
parent 68e907947e
commit 9aee8b3777
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
create_module
+7 -3
View File
@@ -50,9 +50,13 @@ let add_to_list = fun l a ->
l := !l @ [a];;
let ask_init = fun () ->
printf "Initialization function to call, eg \"foo_init()\":\n";
let name = ask " - function (mandatory)" in
add_to_list init_list name;
if (List.length !init_list) > 0 then
printf "You already added an init function.\n"
else begin
printf "Initialization function to call, eg \"foo_init()\":\n";
let name = ask_param "function" Mandatory in
add_to_list init_list name
end;
true;;
let ask_periodic = fun () ->