aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHans-Christoph Steiner <eighthave@users.sourceforge.net>2012-02-20 16:20:33 +0000
committerHans-Christoph Steiner <eighthave@users.sourceforge.net>2012-02-20 16:20:33 +0000
commit1dcee6d13b69278da5abb7d56425672b9cfe6c26 (patch)
treea9d7f8106252f320f73b50c6e645dd3ac1e8ffdf
parent6881125ee909e505be1fcf9015c7c19f1b9c79c9 (diff)
make debug messages about searching for class names match Pd's internal messages, so they are only posted when sys_verbose is true
svn path=/trunk/externals/loaders/tclpd/; revision=16004
-rw-r--r--tcl_loader.c11
1 files changed, 8 insertions, 3 deletions
diff --git a/tcl_loader.c b/tcl_loader.c
index a572c43..6e6ba8e 100644
--- a/tcl_loader.c
+++ b/tcl_loader.c
@@ -2,6 +2,8 @@
#include <string.h>
#include <unistd.h>
+extern int sys_verbose; /* included in pd, also defined in s_stuff.h */
+
/* from tcl_class.c: */
//void source_table_remove(const char *object_name);
void source_table_add(const char *object_name, const char *source_path);
@@ -22,7 +24,8 @@ extern int tclpd_do_load_lib(t_canvas *canvas, char *objectname) {
}
/* try looking in the path for (objectname).(tcl) ... */
- verbose(-1, "tclpd loader: searching for %s in path...", objectname);
+ if(sys_verbose)
+ verbose(-1, "tclpd loader: searching for %s in path...", objectname);
if ((fd = canvas_open(canvas, objectname, ".tcl",
dirbuf, &nameptr, MAXPDSTRING, 1)) >= 0)
goto found;
@@ -33,12 +36,14 @@ extern int tclpd_do_load_lib(t_canvas *canvas, char *objectname) {
strcat(filename, "/");
strncat(filename, classname, MAXPDSTRING-strlen(filename));
filename[MAXPDSTRING - 1] = 0;
- verbose(-1, "tclpd loader: searching for %s in path...", filename);
+ if(sys_verbose)
+ verbose(-1, "tclpd loader: searching for %s in path...", filename);
if ((fd = canvas_open(canvas, filename, ".tcl",
dirbuf, &nameptr, MAXPDSTRING, 1)) >= 0)
goto found;
- verbose(-1, "tclpd loader: found nothing!");
+ if(sys_verbose)
+ verbose(-1, "tclpd loader: found nothing!");
return 0;
found: