/ Check-in [e54a49e2]
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:fix from Gentoo for allowing TCLLIBDIR to be overridden in env (CVS 3911)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e54a49e264ecd54083587f8d3b17cce4c811fddc
User & Date: vapier 2007-05-03 20:06:11
Context
2007-05-04
08:32
Rework accessPayload() function for clarity. (CVS 3912) check-in: 42d07c70 user: danielk1977 tags: trunk
2007-05-03
20:06
fix from Gentoo for allowing TCLLIBDIR to be overridden in env (CVS 3911) check-in: e54a49e2 user: vapier tags: trunk
18:14
Test some more incremental IO error cases. (CVS 3910) check-in: 64705410 user: danielk1977 tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to tclinstaller.tcl.

     3      3   # version number of SQLite.  Example:
     4      4   #
     5      5   #    tclsh tclinstaller.tcl 3.0
     6      6   #
     7      7   set VERSION [lindex $argv 0]
     8      8   set LIBFILE .libs/libtclsqlite3[info sharedlibextension]
     9      9   if { ![info exists env(DESTDIR)] } { set env(DESTDIR) "" }
    10         -set LIBDIR $env(DESTDIR)[lindex $auto_path 0]
           10  +if { ![info exists env(TCLLIBDIR)] } { set env(TCLLIBDIR) [lindex $auto_path 0] }
           11  +set LIBDIR $env(DESTDIR)$env(TCLLIBDIR)
           12  +set LIBDIR_INSTALL $env(TCLLIBDIR)
    11     13   set LIBNAME [file tail $LIBFILE]
    12     14   set LIB $LIBDIR/sqlite3/$LIBNAME
           15  +set LIB_INSTALL $LIBDIR_INSTALL/sqlite3/$LIBNAME
    13     16   
    14     17   file delete -force $LIBDIR/sqlite3
    15     18   file mkdir $LIBDIR/sqlite3
    16     19   set fd [open $LIBDIR/sqlite3/pkgIndex.tcl w]
    17         -puts $fd "package ifneeded sqlite3 $VERSION \[list load $LIB sqlite3\]"
           20  +puts $fd "package ifneeded sqlite3 $VERSION \[list load $LIB_INSTALL sqlite3\]"
    18     21   close $fd
    19     22   
    20     23   # We cannot use [file copy] because that will just make a copy of
    21     24   # a symbolic link.  We have to open and copy the file for ourselves.
    22     25   #
    23     26   set in [open $LIBFILE]
    24     27   fconfigure $in -translation binary
    25     28   set out [open $LIB w]
    26     29   fconfigure $out -translation binary
    27     30   puts -nonewline $out [read $in]
    28     31   close $in
    29     32   close $out