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:
@ -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
|
||||
}
|
||||
}
|
||||
|
Reference in New Issue
Block a user