# This script attempts to install SQLite3 so that it can be used # by TCL. Invoke this script with single argument which is the # version number of SQLite. Example: # # tclsh tclinstaller.tcl 3.0 # set VERSION [lindex $argv 0] set LIBFILE .libs/libtclsqlite3[info sharedlibextension] if { ![info exists env(DESTDIR)] } { set env(DESTDIR) "" } if { ![info exists env(TCLLIBDIR)] } { set env(TCLLIBDIR) [lindex $auto_path 0] } set LIBDIR $env(DESTDIR)$env(TCLLIBDIR) set LIBDIR_INSTALL $env(TCLLIBDIR) set LIBNAME [file tail $LIBFILE] set LIB $LIBDIR/sqlite3/$LIBNAME set LIB_INSTALL $LIBDIR_INSTALL/sqlite3/$LIBNAME file delete -force $LIBDIR/sqlite3 file mkdir $LIBDIR/sqlite3 set fd [open $LIBDIR/sqlite3/pkgIndex.tcl w] puts $fd "package ifneeded sqlite3 $VERSION \[list load $LIB_INSTALL sqlite3\]" close $fd # We cannot use [file copy] because that will just make a copy of # a symbolic link. We have to open and copy the file for ourselves. # set in [open $LIBFILE] fconfigure $in -translation binary set out [open $LIB w] fconfigure $out -translation binary puts -nonewline $out [read $in] close $in close $out