33 lines
1.1 KiB
Tcl
33 lines
1.1 KiB
Tcl
# 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
|