From 24b1d7a0c8d0ad66864d7600ea60888649e54b5b Mon Sep 17 00:00:00 2001
From: drh <>
Date: Thu, 1 Aug 2024 20:18:10 +0000
Subject: [PATCH] Work on a TCL script that will compile and install the TCL
 extension. Works on Linux only, so far.  This is an incremental check-in.

FossilOrigin-Name: 58babd2aa4b5c9c70e1169cdf09f05eb95d7b13f50bb2ec0e487182288172678
---
 manifest             |  14 ++--
 manifest.uuid        |   2 +-
 tool/buildtclext.tcl | 167 +++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 174 insertions(+), 9 deletions(-)
 create mode 100644 tool/buildtclext.tcl

diff --git a/manifest b/manifest
index 19bf09ec46..a7deb9327a 100644
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Clean\sup\sand\srestructure\sthe\sTCL\sconfiguration\ssections\sin\sautoconf.\nThe\snew\s--with-tclsh=FILE\soption\slets\syou\sselect\sthe\sspecific\stclsh\nthat\syou\swant\sto\srun.
-D 2024-08-01T18:10:00.524
+C Work\son\sa\sTCL\sscript\sthat\swill\scompile\sand\sinstall\sthe\sTCL\sextension.\nWorks\son\sLinux\sonly,\sso\sfar.\s\sThis\sis\san\sincremental\scheck-in.
+D 2024-08-01T20:18:10.470
 F .fossil-settings/empty-dirs dbb81e8fc0401ac46a1491ab34a7f2c7c0452f2f06b54ebb845d024ca8283ef1
 F .fossil-settings/ignore-glob 35175cdfcf539b2318cb04a9901442804be81cd677d8b889fcc9149c21f239ea
 F LICENSE.md df5091916dbb40e6e9686186587125e1b2ff51f022cc334e886c19a0e9982724
@@ -2093,6 +2093,7 @@ F tool/GetTclKit.bat d84033c6a93dfe735d247f48ba00292a1cc284dcf69963e5e672444e045
 F tool/Replace.cs 02c67258801c2fb5f63231e0ac0f220b4b36ba91
 F tool/build-all-msvc.bat c817b716e0edeecaf265a6775b63e5f45c34a6544f1d4114a222701ed5ac79ab x
 F tool/build-shell.sh f193b5e3eb4afcb4abbf96bf1475be6cfb74763ee2e50c82bc7ca105e8a136c5
+F tool/buildtclext.tcl 0ef183d0786744d13b06fec85e2cd4ee7369dd58c3ef2f684c5a616d952777d4
 F tool/cg_anno.tcl c1f875f5a4c9caca3d59937b16aff716f8b1883935f1b4c9ae23124705bc8099 x
 F tool/checkSpacing.c 810e51703529a204fc4e1eb060e9ab663e3c06d2
 F tool/cktclsh.sh 6075eef9c6b9ba4b38fef2ca2a66d25f2311bd3c610498d18a9b01f861629cca
@@ -2201,11 +2202,8 @@ F vsixtest/vsixtest.tcl 6195aba1f12a5e10efc2b8c0009532167be5e301abe5b31385638080
 F vsixtest/vsixtest.vcxproj.data 2ed517e100c66dc455b492e1a33350c1b20fbcdc
 F vsixtest/vsixtest.vcxproj.filters 37e51ffedcdb064aad6ff33b6148725226cd608e
 F vsixtest/vsixtest_TemporaryKey.pfx e5b1b036facdb453873e7084e1cae9102ccc67a0
-P 173df1478e89996126e172656e35da8026d4ef145b2341ef56213f00ade14f48
-R 9276dc9ad744c7eb260be766cc2b74e8
-T *branch * autoconf-revamp
-T *sym-autoconf-revamp *
-T -sym-trunk *
+P 8fafc679d91e857602fbbe203144ca98242246660ede5a49c5fec8aaff571151
+R e8c67e263d146ad1487048a2a5cec02e
 U drh
-Z c7858b737379341436d4877837104339
+Z b7f53b5d5d52347992c8bf634ae8776a
 # Remove this line to create a well-formed Fossil manifest.
diff --git a/manifest.uuid b/manifest.uuid
index 0be9acc96b..0a50f25895 100644
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-8fafc679d91e857602fbbe203144ca98242246660ede5a49c5fec8aaff571151
+58babd2aa4b5c9c70e1169cdf09f05eb95d7b13f50bb2ec0e487182288172678
diff --git a/tool/buildtclext.tcl b/tool/buildtclext.tcl
new file mode 100644
index 0000000000..947bcf5e4c
--- /dev/null
+++ b/tool/buildtclext.tcl
@@ -0,0 +1,167 @@
+#
+# Run this TCL script to build and optionally install the TCL interface
+# library for SQLite.  Run the script with the specific "tclsh" for which
+# the installation should occur.
+#
+# Options:
+#
+#    --build-only              Only build the extension, don't install it
+#    --install-only            Install an extension previously build
+#    --uninstall               Uninstall the extension
+#
+set installonly 0
+set buildonly 0
+set uninstall 0
+for {set ii 0} {$ii<[llength $argv]} {incr ii} {
+  set a0 [lindex $argv $ii]
+  if {$a0=="--install-only"} {
+    set installonly 1
+  } elseif {$a0=="--build-only"} {
+    set buildonly 1
+  } elseif {$a0=="--uninstall"} {
+    set uninstall 1
+  } else {
+    puts stderr "Unknown option: \"$a0\""
+    exit 1
+  }
+}
+
+# Find the root of the SQLite source tree
+#
+set srcdir [file normalize [file dir $argv0]/..]
+
+# Get the SQLite version number into $VERSION
+#
+set fd [open $srcdir/VERSION]
+set VERSION [string trim [read $fd]]
+close $fd
+
+# Figure out the location of the tclConfig.sh file used by the
+# tclsh that is executing this script.
+#
+if {[catch {
+  set LIBDIR [tcl::pkgconfig get libdir,install]
+}]} {
+  puts stderr "$argv0: tclsh does not support tcl::pkgconfig."
+  exit 1
+}
+if {![file exists $LIBDIR]} {
+  puts stderr "$argv0: cannot find the tclConfig.sh file."
+  puts stderr "$argv0: tclsh reported library directory \"$LIBDIR\"\
+               does not exist."
+  exit 1
+}
+if {![file exists $LIBDIR/tclConfig.sh]} {
+  set n1 $LIBDIR/tcl$::tcl_version
+  if {[file exists $n1/tclConfig.sh]} {
+    set LIBDIR $n1
+  } else {
+    puts stderr "$argv0: cannot find tclConfig.sh in either $LIBDIR or $n1"
+    exit 1
+  }
+}
+
+# Read the tclConfig.sh file into the $tclConfig variable
+#
+set fd [open $LIBDIR/tclConfig.sh rb]
+set tclConfig [read $fd]
+close $fd
+
+# Extract parameter we will need from the tclConfig.sh file
+#
+set TCLMAJOR 8
+regexp {TCL_MAJOR_VERSION='(\d)'} $tclConfig all TCLMAJOR
+set SUFFIX so
+regexp {TCL_SHLIB_SUFFIX='\.([^']+)'} $tclConfig all SUFFIX
+set CC gcc
+regexp {TCL_CC='([^']+)'} $tclConfig all CC
+set CFLAGS -fPIC
+regexp {TCL_SHLIB_CFLAGS='([^']+)'} $tclConfig all CFLAGS
+set opt {}
+regexp {TCL_CFLAGS_OPTIMIZE='([^']+)'} $tclConfig all opt
+if {$opt!=""} {
+  append CFLAGS " $opt"
+}
+set LIBS {}
+regexp {TCL_STUB_LIB_SPEC='([^']+)'} $tclConfig all LIBS
+set INC "-I$srcdir/src"
+set inc {}
+regexp {TCL_INCLUDE_SPEC='([^']+)'} $tclConfig all inc
+if {$inc!=""} {
+  append INC " $inc"
+}
+set cmd {}
+regexp {TCL_SHLIB_LD='([^']+)'} $tclConfig all cmd
+set LDFLAGS $INC
+set CMD [subst $cmd]
+if {$TCLMAJOR>8} {
+  set OUT libtcl9sqlite$VERSION.$SUFFIX
+} else {
+  set OUT libsqlite$VERSION.$SUFFIX
+}
+
+# Uninstall the extension
+#
+if {$uninstall} {
+  set cnt 0
+  foreach dir $auto_path {
+    if {[file isdirectory $dir/sqlite$VERSION]} {
+      incr cnt
+      if {![file writable $dir] || ![file writable $dir/sqlite$VERSION]} {
+        puts "cannot uninstall $dir/sqlite$VERSION - permission denied"
+      } else {
+        puts "uninstalling $dir/sqlite$VERSION..."
+        file delete -force $dir/sqlite$VERSION
+      }
+    }
+  }
+  if {$cnt==0} {
+    puts "nothing to uninstall"
+  }
+  exit
+}
+
+# Figure out where the extension will be installed.
+#
+set DEST {}
+foreach dir $auto_path {
+  if {[file writable $dir]} {
+    set DEST $dir
+    break
+  }
+}
+if {$DEST==""} {
+  puts "None of the directories on $auto_path are writable by this process,"
+  puts "so the installation cannot take place.  Consider running using sudo"
+  puts "to work around this."
+}
+
+if {!$installonly} {
+  # Generate the pkgIndex.tcl file
+  #
+  set fd [open pkgIndex.tcl w]
+  puts $fd [subst -nocommands {# -*- tcl -*-
+# Tcl package index file, version ???
+#
+package ifneeded sqlite3 $VERSION \\
+    [list load [file join \$dir $OUT] sqlite3]
+}]
+  close $fd
+
+  # Generate and execute the command with which to do the compilation.
+  #
+  set cmd "$CMD tclsqlite3.c -o $OUT $LIBS"
+  puts $cmd
+  exec {*}$cmd
+}
+
+# Install the extension
+#
+if {$DEST!="" && !$buildonly} {
+  set DEST2 $DEST/sqlite$VERSION
+  file mkdir $DEST2
+  puts "installing $DEST2/pkgIndex.tcl"
+  file copy -force pkgIndex.tcl $DEST2
+  puts "installing $DEST2/$OUT"
+  file copy -force $OUT $DEST2
+}