Revision: 41446
          http://brlcad.svn.sourceforge.net/brlcad/?rev=41446&view=rev
Author:   starseeker
Date:     2010-11-23 18:58:49 +0000 (Tue, 23 Nov 2010)

Log Message:
-----------
Equally untested, but try to add the paths from the system tcl to the auto_path 
for btclsh/bwish

Modified Paths:
--------------
    brlcad/branches/cmake/src/bwish/main.c

Modified: brlcad/branches/cmake/src/bwish/main.c
===================================================================
--- brlcad/branches/cmake/src/bwish/main.c      2010-11-23 18:11:46 UTC (rev 
41445)
+++ brlcad/branches/cmake/src/bwish/main.c      2010-11-23 18:58:49 UTC (rev 
41446)
@@ -216,9 +216,17 @@
 int
 main(int argc, char **argv)
 {
+    struct bu_vls str;
+    bu_vls_init(&str);
+    bu_vls_printf(&str, "lappend auto_path {%s}", TCL_SYSTEM_AUTO_PATH);
     /* Create the interpreter */
     INTERP = Tcl_CreateInterp();
     Tcl_FindExecutable(argv[0]);
+    if(bu_vls_strlen(&str) > 0) {
+           Tcl_Eval(interp, bu_vls_addr(&str));
+           bu_log("Tcl_Eval Result:\n%s\n", Tcl_GetStringResult(interp));
+    }
+    bu_vls_free(&str);
     Cad_Main(argc, argv, Cad_AppInit, INTERP);
 
     return 0;


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

------------------------------------------------------------------------------
Increase Visibility of Your 3D Game App & Earn a Chance To Win $500!
Tap into the largest installed PC base & get more eyes on your game by
optimizing for Intel(R) Graphics Technology. Get started today with the
Intel(R) Software Partner Program. Five $500 cash prizes are up for grabs.
http://p.sf.net/sfu/intelisp-dev2dev
_______________________________________________
BRL-CAD Source Commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/brlcad-commits

Reply via email to