1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00

Enhance the TCL scrip that generates sqlite3-all.c so that it outputs all

text in its original order.

FossilOrigin-Name: 83ff1a28e3e7a99fa90d5079897d76529c4256eed859bf7cb98b860fbedfdc5b
This commit is contained in:
drh
2022-06-22 18:51:47 +00:00
parent f221e4b5d6
commit 2b0ea0204f
3 changed files with 12 additions and 7 deletions

View File

@ -74,6 +74,11 @@ while {[regexp $BEGIN $line]} {
incr N $n
while {[gets $in line]>=0} {
if {[regexp $BEGIN $line]} break
if {$N>0} {
write_one_file $all
set N 0
set all {}
}
puts $out1 $line
}
}