[Plplot-cvs] SF.net SVN: plplot:[12861] trunk/bindings/tcl/tclAPI.c

[<ai...@us...>]

Revision: 12861
          http://sourceforge.net/p/plplot/code/12861
Author:   airwin
Date:     2013-12-13 05:28:03 +0000 (Fri, 13 Dec 2013)
Log Message:
-----------
More useful debug printout of TCL_DIR.

Modified Paths:
--------------
    trunk/bindings/tcl/tclAPI.c

Modified: trunk/bindings/tcl/tclAPI.c
===================================================================
--- trunk/bindings/tcl/tclAPI.c	2013-12-12 22:09:07 UTC (rev 12860)
+++ trunk/bindings/tcl/tclAPI.c	2013-12-13 05:28:03 UTC (rev 12861)
@@ -695,6 +695,7 @@
 int
 pls_auto_path( Tcl_Interp *interp )
 {
+    int         debug        = plsc->debug;
     char *buf, *ptr = NULL, *dn;
     int  return_code = TCL_OK;
 #ifdef DEBUG
@@ -706,6 +707,8 @@
 // Add TCL_DIR
 
 #ifdef TCL_DIR
+    if( debug )
+        fprintf( stderr, "adding %s to auto_path\n", TCL_DIR );
     Tcl_SetVar( interp, "dir", TCL_DIR, TCL_GLOBAL_ONLY );
     if ( tcl_cmd( interp, "set auto_path [linsert $auto_path 0 $dir]" ) == TCL_ERROR )
     {
@@ -713,7 +716,6 @@
         goto finish;
     }
 #ifdef DEBUG
-    fprintf( stderr, "adding %s to auto_path\n", TCL_DIR );
     path = Tcl_GetVar( interp, "auto_path", 0 );
     fprintf( stderr, "auto_path is %s\n", path );
 #endif

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.