map non alnum chars to _ in name and index

tested, working

diff --git a/allParam/tcl/tclParam.c b/allParam/tcl/tclParam.c
index 8afba65332b146d8bdb88e417a749fcbb4f83c7e..9042d08affb304efa1a35369905cd65d6d66f0e2 100644 (file)
--- a/allParam/tcl/tclParam.c
+++ b/allParam/tcl/tclParam.c
@@ -1,4 +1,4 @@
-static const char rcsId[] = "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/tcl/tclParam.c,v 1.32 2005-04-06 13:59:48 hadaq Exp $";
+static const char rcsId[] = "$Header: /misc/hadesprojects/daq/cvsroot/eventbuilder/allParam/tcl/tclParam.c,v 1.33 2005-04-06 14:37:56 hadaq Exp $";
 #define _POSIX_C_SOURCE 199509L
 
 #if HAVE_CONFIG_H
@@ -332,12 +332,15 @@ int Param_getStringArray(const Param * my, const char *name, const char *idx, in
        char lname[PARAM_MAX_NAME_LEN];
        char lidx[PARAM_MAX_NAME_LEN];
 
-       for (i = 0; i <= strlen(name); i++) {
-               lname[i] = tolower(name[i]);
+       for (i = 0; name[i] != '\0'; i++) {
+               lname[i] = isalnum(name[i]) ? tolower(name[i]) : '_';
        }
-       for (i = 0; i <= strlen(idx); i++) {
-               lidx[i] = tolower(idx[i]);
+       lname[i] = '\0';
+
+       for (i = 0; idx[i] != '\0'; i++) {
+               lidx[i] = isalnum(idx[i]) ? tolower(idx[i]) : '_';
        }
+       lidx[i] = '\0';
 
        *rows = 0;
 #ifdef PTHREADS