Re: [tcljava-dev] PATCH: Jacl

[Mo D. <md...@un...>]

On Sun, 4 Aug 2002 14:06:28 -0600
Tom Poindexter <tpo...@ny...> wrote:

> Here are some patches to Jacl

> 3. jaclsh: sets 'jacl.tcllibpath' property so that init.tcl can add the 
>    installed lib path to auto_path.

Tom, could you explain why this patch is needed, in ChangeLog format?

--- tcljava/src/jacl/tcl/lang/library/init.tcl	Sat May  5 16:38:13 2001
+++ tcljava.tp/src/jacl/tcl/lang/library/init.tcl	Fri Jul 12 14:28:19 2002
@@ -34,6 +34,12 @@
 #    }
 #}
 
+# include jacl/tcljava library path if passed as a system property
+
+if {[info exists env(jacl.tcllibpath)]} {
+	lappend auto_path $env(jacl.tcllibpath)
+}
+
 if {[lsearch -exact $auto_path [info library]] < 0} {
     lappend auto_path [info library]
 }

cheers
Mo