diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-02-20 16:20:33 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2012-02-20 16:20:33 +0000 |
| commit | 1dcee6d13b69278da5abb7d56425672b9cfe6c26 (patch) | |
| tree | a9d7f8106252f320f73b50c6e645dd3ac1e8ffdf | |
| parent | 6881125ee909e505be1fcf9015c7c19f1b9c79c9 (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.c | 11 |
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: |