From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 25027 invoked by alias); 14 Jan 2004 09:03:23 -0000 Mailing-List: contact insight-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sources.redhat.com Received: (qmail 25019 invoked from network); 14 Jan 2004 09:03:18 -0000 Received: from unknown (HELO web60305.mail.yahoo.com) (216.109.118.116) by sources.redhat.com with SMTP; 14 Jan 2004 09:03:18 -0000 Message-ID: <20040114090318.75627.qmail@web60305.mail.yahoo.com> Received: from [194.78.161.242] by web60305.mail.yahoo.com via HTTP; Wed, 14 Jan 2004 01:03:18 PST Date: Wed, 14 Jan 2004 09:03:00 -0000 From: Patrick Samson Subject: tcl8.4.1 - tclWinInit - TclpInitLibraryPath() To: insight@sources.redhat.com MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="0-197047712-1074070998=:75231" X-SW-Source: 2004-q1/txt/msg00010.txt.bz2 --0-197047712-1074070998=:75231 Content-Type: text/plain; charset=us-ascii Content-Id: Content-Disposition: inline Content-length: 1118 #ifdef __CYGWIN__ pathv[pathc - 2] = installLib2; This adding is useful for X:/cygwin/bin/tclsh.exe to include "X:/cygwin/usr/share/tcl8.4", which is the place on cygwin where to find init.tcl. Unfortunately, it is of no help to: X:/cygwin/usr/local/pgsql/bin/pgtclsh.exe X:/cygwin/usr/local/pgsql/bin/postgres.exe because it leads to: X:/cygwin/usr/local/pgsql/usr/share/tcl8.4 A way to solve this problem is to define the TCL_LIBRARY environment variable. I think that there is a better way to accommodate all applications on cygwin, without the need to define TCL_LIBRARY, by moving the use of installLib2 to AppendDllPath(). As the dll is X:/cygwin/bin/tcl84.dll, AppendDllPath() would return: X:/cygwin/usr/share/tcl8.4 whatever the application executable path is. I don't have the means to compile/build/test the tcl package from source, but my proposed patch generated with: $ diff -u tclWinInit.c ../../../../tmp/tclWinInit.c is attached. __________________________________ Do you Yahoo!? Yahoo! Hotjobs: Enter the "Signing Bonus" Sweepstakes http://hotjobs.sweepstakes.yahoo.com/signingbonus --0-197047712-1074070998=:75231 Content-Type: text/plain; name="diff_tclWinInit.txt" Content-Description: diff_tclWinInit.txt Content-Disposition: inline; filename="diff_tclWinInit.txt" Content-length: 1133 --- tclWinInit.c 2003-01-23 06:22:16.001000000 +0100 +++ ../../../../tmp/tclWinInit.c 2004-01-07 13:12:30.640625000 +0100 @@ -228,7 +228,15 @@ * because in practice, the DLL is always installed. */ - AppendDllPath(pathPtr, TclWinGetTclInstance(), installLib); + AppendDllPath(pathPtr, TclWinGetTclInstance(), + /* REDHAT LOCAL */ +#ifdef __CYGWIN__ + installLib2 +#else + installLib +#endif + /* END REDHAT LOCAL */ + ); /* @@ -268,17 +276,6 @@ objPtr = Tcl_NewStringObj(path, Tcl_DStringLength(&ds)); Tcl_ListObjAppendElement(NULL, pathPtr, objPtr); Tcl_DStringFree(&ds); - /* REDHAT LOCAL */ -#ifdef __CYGWIN__ - pathv[pathc - 2] = installLib2; - path = Tcl_JoinPath(pathc - 1, pathv, &ds); - pathv[pathc - 2] = str; - objPtr = Tcl_NewStringObj(path, Tcl_DStringLength(&ds)); - Tcl_ListObjAppendElement(NULL, pathPtr, objPtr); - Tcl_DStringFree(&ds); -#endif - /* END REDHAT LOCAL */ - } if (pathc > 3) { str = pathv[pathc - 3]; --0-197047712-1074070998=:75231--