Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-02 13:27:32 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

create_module: enforce lowercase file and dir and function names

Browse Source 
closes #914
This commit is contained in:
Felix Ruess
2015-03-05 14:40:16 +01:00
parent cddd494522
commit 6581181cc9
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
create_module
+7 -7
View File
@@ -36,9 +36,9 @@ printf "Not all options are accessible from this program,\n";
printf "see http://wiki.paparazziuav.org/wiki/Modules for more information.\n"; printf "see http://wiki.paparazziuav.org/wiki/Modules for more information.\n";
(*printf "Please follow the instruction or pass a module xml file as intput\n\n";;*) (*printf "Please follow the instruction or pass a module xml file as intput\n\n";;*)
printf "Please follow the instruction\n\n";; printf "Please follow the instruction\n\n";;
let name = ask "Enter your module name";; let name = String.lowercase (ask "Enter your module name");;
if name = "" then quit_with_error "module name must not be empty. Leaving." 1;; if name = "" then quit_with_error "module name must not be empty. Leaving." 1;;
let dir = ask "Enter a module directory or leave blank if same as name";; let dir = String.lowercase (ask "Enter a module directory or leave blank if same as name");;
let desc = ask "Enter a short description of your module";; let desc = ask "Enter a short description of your module";;
let init_list = ref [];; let init_list = ref [];;
@@ -54,24 +54,24 @@ let ask_init = fun () ->
printf "You already added an init function.\n" printf "You already added an init function.\n"
else begin else begin
printf "Initialization function to call, eg \"foo_init()\":\n"; printf "Initialization function to call, eg \"foo_init()\":\n";
let name = ask_param "function" Mandatory in let name = String.lowercase (ask_param "function" Mandatory) in
add_to_list init_list name add_to_list init_list name
end; end;
true;; true;;
let ask_periodic = fun () -> let ask_periodic = fun () ->
printf "Parameters for a periodic function:\n"; printf "Parameters for a periodic function:\n";
let name = ask_param "function name" Mandatory in let name = String.lowercase (ask_param "function name" Mandatory) in
let freq = ask_param "call frequency" Mandatory in let freq = ask_param "call frequency" Mandatory in
let start = ask_param "start function" Optional in let start = String.lowercase (ask_param "start function" Optional) in
let stop = ask_param "stop function" Optional in let stop = String.lowercase (ask_param "stop function" Optional) in
let auto = ask_param "autorun flag [TRUE, FALSE, LOCK (default)]" Optional in let auto = ask_param "autorun flag [TRUE, FALSE, LOCK (default)]" Optional in
add_to_list periodic_list (name, freq, start, stop, auto); add_to_list periodic_list (name, freq, start, stop, auto);
true;; true;;
let ask_event = fun () -> let ask_event = fun () ->
printf "Parameters for an event function:\n"; printf "Parameters for an event function:\n";
let name = ask_param "function name" Mandatory in let name = String.lowercase(ask_param "function name" Mandatory) in
add_to_list event_list name; add_to_list event_list name;
true;; true;;