diff options
| author | drh <> | 2022-06-22 18:51:47 +0000 |
|---|---|---|
| committer | drh <> | 2022-06-22 18:51:47 +0000 |
| commit | 2b0ea0204f40dacd997085378ab8a331b65b7be8 (patch) | |
| tree | 17e54782dacc809c42e4148176b89a47db3fa017 /tool/split-sqlite3c.tcl | |
| parent | f221e4b5d606144eb5a0e265c7129490f03576fe (diff) | |
| download | sqlite-2b0ea0204f40dacd997085378ab8a331b65b7be8.tar.gz sqlite-2b0ea0204f40dacd997085378ab8a331b65b7be8.zip | |
Enhance the TCL scrip that generates sqlite3-all.c so that it outputs all
text in its original order.
FossilOrigin-Name: 83ff1a28e3e7a99fa90d5079897d76529c4256eed859bf7cb98b860fbedfdc5b
Diffstat (limited to 'tool/split-sqlite3c.tcl')
| -rw-r--r-- | tool/split-sqlite3c.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tool/split-sqlite3c.tcl b/tool/split-sqlite3c.tcl index 230e3f254..9751e7de9 100644 --- a/tool/split-sqlite3c.tcl +++ b/tool/split-sqlite3c.tcl @@ -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 } } |