From 6581181cc9167cac9e624cfe01ef82707f5128a0 Mon Sep 17 00:00:00 2001
From: Felix Ruess <felix.ruess@gmail.com>
Date: Thu, 5 Mar 2015 14:40:16 +0100
Subject: [PATCH] create_module: enforce lowercase file and dir and function
 names

closes #914
---
 create_module | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/create_module b/create_module
index f754f69536..c6555d1f37 100755
--- a/create_module
+++ b/create_module
@@ -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 "Please follow the instruction or pass a module xml file as intput\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;;
-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 init_list = ref [];;
@@ -54,24 +54,24 @@ let ask_init = fun () ->
     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
+    let name = String.lowercase (ask_param "function" Mandatory) in
     add_to_list init_list name
   end;
   true;;
 
 let ask_periodic = fun () ->
   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 start = ask_param "start function" Optional in
-  let stop = ask_param "stop function" Optional in
+  let start =  String.lowercase (ask_param "start 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
   add_to_list periodic_list (name, freq, start, stop, auto);
   true;;
 
 let ask_event = fun () ->
   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;
   true;;