diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-12 05:17:18 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-12 05:17:18 +0000 |
| commit | 8dd16881e82ee2b655049367968ebd8d28d1d9cc (patch) | |
| tree | 7e3bda91b2f107e0e18a9df18c616379e995a0f0 | |
| parent | 325f274af92e1fbce0d1a54feb1ccae63afaa5ae (diff) | |
use the new log levels for clearer logging
svn path=/trunk/externals/loaders/tclpd/; revision=15729
| -rw-r--r-- | tcl_loader.c | 6 | ||||
| -rw-r--r-- | tcl_typemap.c | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/tcl_loader.c b/tcl_loader.c index 5167cec..9ff6723 100644 --- a/tcl_loader.c +++ b/tcl_loader.c @@ -60,9 +60,9 @@ gotone: result = Tcl_EvalFile(tcl_for_pd, filename); if(result == TCL_OK) { source_table_add(objectname, filename); - post("Tcl loader: loaded %s", filename); + verbose(0, "Tcl loader: loaded %s", filename); } else { - post("Tcl loader: error trying to load %s", filename); + error("Tcl loader: error trying to load %s", filename); tclpd_interp_error(NULL, result); return 0; } @@ -74,7 +74,7 @@ gotone: result = Tcl_Eval(tcl_for_pd, cmd); if(result == TCL_OK) { } else { - post("Tcl loader: error in %s %s::setup", filename, classname); + error("Tcl loader: error in %s %s::setup", filename, classname); tclpd_interp_error(NULL, result); return 0; } diff --git a/tcl_typemap.c b/tcl_typemap.c index 3671025..486f015 100644 --- a/tcl_typemap.c +++ b/tcl_typemap.c @@ -49,7 +49,7 @@ const char* pdatom_type_string(t_atom* a) { case A_POINTER: return "pointer"; default: - post("atom_type_string: unsupported/unknown selector: %d", a->a_type); + error("atom_type_string: unsupported/unknown selector: %d", a->a_type); return "???"; } } |