Move the post-configure dot-in-file validation from sqlite-config.tcl to proj.tcl...

FossilOrigin-Name: 0bac496d5c92c979295e702efc01803f6985b54d3d8ca30dce077c9776f7dcf2

diff --git a/autosetup/proj.tcl b/autosetup/proj.tcl
index 75ec46c64c569e028256647e72d580dae2aa06ab..33daa1834717d175d7cc85964e936d0c80f3a0c5 100644 (file)
--- a/autosetup/proj.tcl
+++ b/autosetup/proj.tcl
@@ -67,7 +67,7 @@ array set proj_ {}
 #
 # See: proj-dot-ins-append and proj-dot-ins-process
 #
-set proj_(dot-in-files) {}
+set proj_(dot-in-files) [list]
 set proj_(isatty) [isatty? stdout]
 
 ########################################################################
@@ -1542,7 +1542,7 @@ proc proj-tweak-default-env-dirs {} {
 # processing the file. In the context of that script, the vars
 # $fileIn and $fileOut will be set to the input and output file
 # names.  This can be used, for example, to make the output file
-# executable or perform validation on its.
+# executable or perform validation on its contents.
 #
 # See [proj-dot-ins-process], [proj-dot-ins-list]
 proc proj-dot-ins-append {fileIn args} {
@@ -1576,32 +1576,54 @@ proc proj-dot-ins-list {} {
 }
 
 ########################################################################
-# @proj-dot-ins-process ?-touch?
+# @proj-dot-ins-process ?-touch? ?-validate? ?-clear?
 #
 # Each file which has previously been passed to [proj-dot-ins-append]
 # is processed, with its passing its in-file out-file names to
 # [proj-make-from-dot-in].
 #
-# The optional argument may be the -touch flag, which is passed on to
-# that [proj-make-from-dot-in].
-#
 # The intent is that a project accumulate any number of files to
 # filter and delay their actual filtering until the last stage of the
 # configure script, calling this function at that time.
+#
+# Optional flags:
+#
+# -touch: gets passed on to [proj-make-from-dot-in]
+#
+# -validate: after processing each file, before running the file's
+#  associated script, if any, it runs the file through
+#  proj-validate-no-unresolved-ats, erroring out if that does.
+#
+# -clear: after processing, empty the dot-ins list. This effectively
+#  makes proj-dot-ins-append available for re-use.
 proc proj-dot-ins-process {args} {
   set flags ""
-  if {"-touch" eq $args} {
-    set flags "-touch"
+  set clear 0
+  set validate 0
+  foreach arg $args {
+    switch -exact -- $arg {
+      -touch    {set flags "-touch"}
+      -clear    {incr clear}
+      -validate {incr validate}
+      default   break
+    }
   }
   foreach f $::proj_(dot-in-files) {
-    proj-assert {3==[llength $f]}
+    proj-assert {3==[llength $f]} \
+      "Expecting proj-dot-ins-list to be stored in 3-entry lists"
     lassign $f fIn fOut fScript
     #puts "DOING $fIn  ==> $fOut"
     proj-make-from-dot-in {*}$flags $fIn $fOut
+    if {$validate} {
+      proj-validate-no-unresolved-ats $fOut
+    }
     if {"" ne $fScript} {
       uplevel 1 "set fileIn $fIn; set fileOut $fOut; eval {$fScript}"
     }
   }
+  if {$clear} {
+    set ::proj_(dot-in-files) [list]
+  }
 }
 
 ########################################################################

diff --git a/autosetup/sqlite-config.tcl b/autosetup/sqlite-config.tcl
index 0e50f9dd258df1beac21e26b8406840c4fbfbee0..3042b7bedbf1e5d65c054f6548aafc540f712a5e 100644 (file)
--- a/autosetup/sqlite-config.tcl
+++ b/autosetup/sqlite-config.tcl
@@ -526,7 +526,6 @@ proc sqlite-configure-finalize {} {
   sqlite-handle-common-feature-flags
   sqlite-finalize-feature-flags
   sqlite-process-dot-in-files; # do not [define] anything after this
-  sqlite-post-config-validation
   sqlite-dump-defines
 }
 
@@ -1716,7 +1715,7 @@ proc sqlite-process-dot-in-files {} {
   # (e.g. [proj-check-rpath]) may do so before we "mangle" them here.
   proj-remap-autoconf-dir-vars
 
-  proj-dot-ins-process
+  proj-dot-ins-process -validate
   make-config-header sqlite_cfg.h \
     -bare {SIZEOF_* HAVE_DECL_*} \
     -none {HAVE_CFLAG_* LDFLAGS_* SH_* SQLITE_AUTORECONFIG
@@ -1726,25 +1725,6 @@ proc sqlite-process-dot-in-files {} {
   proj-touch sqlite_cfg.h ; # help avoid frequent unnecessary @SQLITE_AUTORECONFIG@
 }
 
-########################################################################
-# Perform some high-level validation on the generated files...
-#
-# 1) Ensure that no unresolved @VAR@ placeholders are in files which
-#    use those.
-#
-# 2) TBD
-proc sqlite-post-config-validation {} {
-  # Check #1: ensure that files which get filtered for @VAR@ do not
-  # contain any unresolved @VAR@ refs. That may indicate an
-  # unexported/unused var or a typo.
-  set srcdir $::autosetup(srcdir)
-  foreach f [proj-dot-ins-list] {
-    proj-assert {3==[llength $f]} \
-      "Expecting proj-dot-ins-list to be stored in 3-entry lists"
-    proj-validate-no-unresolved-ats [lindex $f 1]
-  }
-}
-
 ########################################################################
 # Handle --with-wasi-sdk[=DIR]
 #

diff --git a/manifest b/manifest
index 580bc0184f00bf1c90652761dd82d899fcfdcccd..3330ee73f4f5e9d2153acd3117d0d0719a71e213 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fix\sa\smemory\sleak\sin\ssqlite3session_diff().
-D 2025-04-10T20:52:47.688
+C Move\sthe\spost-configure\sdot-in-file\svalidation\sfrom\ssqlite-config.tcl\sto\sproj.tcl\sfor\sreuse\sin\sthe\stea\sport\sand\sother\sdownstream\strees.
+D 2025-04-12T19:26:18.238
 F .fossil-settings/binary-glob 61195414528fb3ea9693577e1980230d78a1f8b0a54c78cf1b9b24d0a409ed6a x
 F .fossil-settings/empty-dirs dbb81e8fc0401ac46a1491ab34a7f2c7c0452f2f06b54ebb845d024ca8283ef1
 F .fossil-settings/ignore-glob 35175cdfcf539b2318cb04a9901442804be81cd677d8b889fcc9149c21f239ea
@@ -51,8 +51,8 @@ F autosetup/cc.tcl c0fcc50ca91deff8741e449ddad05bcd08268bc31177e613a6343bbd1fd3e
 F autosetup/find_tclconfig.tcl e64886ffe3b982d4df42cd28ed91fe0b5940c2c5785e126c1821baf61bc86a7e
 F autosetup/jimsh0.c a57c16e65dcffc9c76e496757cb3f7fb47e01ecbd1631a0a5e01751fc856f049
 F autosetup/pkg-config.tcl 4e635bf39022ff65e0d5434339dd41503ea48fc53822c9c5bde88b02d3d952ba
-F autosetup/proj.tcl e4170f543e417fcc1ae3c8aedcf8d6044221dbdeb880d324579730e0c96a6198
-F autosetup/sqlite-config.tcl a61e86a4033e3a77680bfba45e7950950285beaf756ddc2d14bec5147972d2b1
+F autosetup/proj.tcl c9c72d8a9a5d19b02e19a0be515689469997268d80bc0da75d4e9e9c687eaef2
+F autosetup/sqlite-config.tcl 3f771754b89ae10379bb5d9d48d80921568345618f8f37d4a62a8e1fd9cd916c
 F autosetup/system.tcl 51d4be76cd9a9074704b584e5c9cbba616202c8468cf9ba8a4f8294a7ab1dba9
 F configure 9a00b21dfd13757bbfb8d89b30660a89ec1f8f3a79402b8f9f9b6fc475c3303a x
 F contrib/sqlitecon.tcl eb4c6578e08dd353263958da0dc620f8400b869a50d06e271ab0be85a51a08d3
@@ -2216,8 +2216,8 @@ F tool/version-info.c 3b36468a90faf1bbd59c65fd0eb66522d9f941eedd364fabccd7227350
 F tool/warnings-clang.sh bbf6a1e685e534c92ec2bfba5b1745f34fb6f0bc2a362850723a9ee87c1b31a7
 F tool/warnings.sh 49a486c5069de041aedcbde4de178293e0463ae9918ecad7539eedf0ec77a139
 F tool/win/sqlite.vsix deb315d026cc8400325c5863eef847784a219a2f
-P 0e5e0e2f558a417d57c01a2d62cb2117d2adf6ddbc62e6a0208ae23f19b05347
-R ea8e02173c6f4e7238e9e39c21ec2d22
-U dan
-Z fad13ff67cc688b0b5e83e82f9779719
+P a6cbc5db1c4973ea236874bd9c24cd86dc48fbc7a10e424896c0407c7c32ce6a
+R 8e3f8640caee9f2a4ad775a5d04c7122
+U stephan
+Z 308ff2b4328caec8784b3b3f051198b6
 # Remove this line to create a well-formed Fossil manifest.

diff --git a/manifest.uuid b/manifest.uuid
index 97db019baa0c40a6bdf7fd3b22ff65ebbdcf9d37..5c02aefff7f4f36c0f4792c1ad95711b00104258 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-a6cbc5db1c4973ea236874bd9c24cd86dc48fbc7a10e424896c0407c7c32ce6a
+0bac496d5c92c979295e702efc01803f6985b54d3d8ca30dce077c9776f7dcf2