Make replace.tcl useful with TCL 8.4

FossilOrigin-Name: 2dd61dd97b0326b59b0bc3c83b4d4b9acf811c5acae4d1003e7525ba7a26daf5
This commit is contained in:
larrybr 2021-09-10 22:00:43 +00:00
parent 3a9793e40f
commit 31aa366293
3 changed files with 8 additions and 8 deletions

View File

@ -1,5 +1,5 @@
C Fix\s(luckily\sharmless)\stypo\sin\smemdb.c\sper\shttps://sqlite.org/forum/forumpost/15af8872d5999df1
D 2021-09-10T18:35:59.336
C Make\sreplace.tcl\suseful\swith\sTCL\s8.4
D 2021-09-10T22:00:43.203
F .fossil-settings/empty-dirs dbb81e8fc0401ac46a1491ab34a7f2c7c0452f2f06b54ebb845d024ca8283ef1
F .fossil-settings/ignore-glob 35175cdfcf539b2318cb04a9901442804be81cd677d8b889fcc9149c21f239ea
F LICENSE.md df5091916dbb40e6e9686186587125e1b2ff51f022cc334e886c19a0e9982724
@ -1868,7 +1868,7 @@ F tool/offsets.c 8ed2b344d33f06e71366a9b93ccedaa38c096cc1dbd4c3c26ad08c611528584
F tool/omittest.tcl 3d222272b1d840b4e3d67bff0cb743ce3f633faddadb3702b2056b726775db8f
F tool/opcodesum.tcl 740ed206ba8c5040018988129abbf3089a0ccf4a
F tool/pagesig.c ff0ca355fd3c2398e933da5e22439bbff89b803b
F tool/replace.tcl 60f91e8dd06ab81f74d213ecbd9c9945f32ac048
F tool/replace.tcl 937c931ad560688e85bdd6258bdc754371bb1e2732e1fb28ef441e44c9228fce
F tool/restore_jrnl.tcl 6957a34f8f1f0f8285e07536225ec3b292a9024a
F tool/rollback-test.c 9fc98427d1e23e84429d7e6d07d9094fbdec65a5
F tool/run-speed-test.sh f95d19fd669b68c4c38b6b475242841d47c66076
@ -1922,7 +1922,7 @@ F vsixtest/vsixtest.tcl 6a9a6ab600c25a91a7acc6293828957a386a8a93
F vsixtest/vsixtest.vcxproj.data 2ed517e100c66dc455b492e1a33350c1b20fbcdc
F vsixtest/vsixtest.vcxproj.filters 37e51ffedcdb064aad6ff33b6148725226cd608e
F vsixtest/vsixtest_TemporaryKey.pfx e5b1b036facdb453873e7084e1cae9102ccc67a0
P 733b7d4f95a4e2f0df323974f323c40c2486b188d442e74306a4b580fd8a8bd8
R bf19e79ff40640b01f2973dda8410fff
P d577030cdad165474b082afbe64782e2eb3290331b0e3045b1e85ee6fe011504
R e11d4d0cf2b693b49f8aa8017ef21f60
U larrybr
Z 5d6be29a69cdd0f15d2296fc562161c5
Z c88549a8ac5b53702887ce858b5cfbe8

View File

@ -1 +1 @@
d577030cdad165474b082afbe64782e2eb3290331b0e3045b1e85ee6fe011504
2dd61dd97b0326b59b0bc3c83b4d4b9acf811c5acae4d1003e7525ba7a26daf5

View File

@ -9,7 +9,7 @@ fconfigure stderr -translation binary -encoding binary
set mode [string tolower [lindex $argv 0]]
set from [lindex $argv 1]
set to [lindex $argv 2]
if {$mode ni [list exact regsub include]} {exit 1}
if {-1 == [lsearch -exact [list exact regsub include] $mode]} {exit 1}
if {[string length $from]==0} {exit 2}
while {![eof stdin]} {
set line [gets stdin]