error messages

diff --git a/allParam/tcl/tclParam.c b/allParam/tcl/tclParam.c
index abe80a77a8bfb2641244067efcc4f9aca7e8c7c1..8afba65332b146d8bdb88e417a749fcbb4f83c7e 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.31 2005-01-10 15:54:45 hadaq Exp $";
+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 $";
 #define _POSIX_C_SOURCE 199509L
 
 #if HAVE_CONFIG_H
@@ -56,7 +56,7 @@ static void defaultLogMsg(int priority, const char *message, ...)
        }
 }
 
-void (*ourLogMsg) (int, const char *, ...) = defaultLogMsg;
+static void (*ourLogMsg) (int, const char *, ...) = defaultLogMsg;
 
 void Param_registerLogMsg(void (*f) (int, const char *, ...))
 {
@@ -362,6 +362,12 @@ int Param_getStringArray(const Param * my, const char *name, const char *idx, in
                pthread_mutex_unlock(((TclParam *) (my->specParam))->interpLock);
        }
 #endif                                                 /* PTHREADS */
+       if (*rows == 0) {
+               char s[512];
+
+               sprintf(s, "Parameter %s(%s*) not found", lname, lidx);
+               Param_strerror((Param *) my, s);
+       }
        return retVal;
 }