From 1dcee6d13b69278da5abb7d56425672b9cfe6c26 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 20 Feb 2012 16:20:33 +0000 Subject: 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 --- tcl_loader.c | 11 ++++++++--- 1 file 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 #include +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: -- cgit v1.2.1