diff options
| author | drh <> | 2023-05-10 16:04:04 +0000 |
|---|---|---|
| committer | drh <> | 2023-05-10 16:04:04 +0000 |
| commit | 28f4e7b28692de9d98b07b4ad2cdc91f78d23422 (patch) | |
| tree | b4a9d0e38166a196c8acaef8e7489c85eafac750 /tool/split-sqlite3c.tcl | |
| parent | 0051a56dec8c1412d622b5e758e8ec273f330324 (diff) | |
| download | sqlite-28f4e7b28692de9d98b07b4ad2cdc91f78d23422.tar.gz sqlite-28f4e7b28692de9d98b07b4ad2cdc91f78d23422.zip | |
Enhance the split-sqlite3c.tcl script so that it uses single-character
extensions on subordinate source files, even when the number of subordinates
exceeds 9. This is not yet needed, but might be soon.
FossilOrigin-Name: 4150e416263f24efcbfe68d5b1e15ec7e79df41dff0b6dfdc59f06ee9e205049
Diffstat (limited to 'tool/split-sqlite3c.tcl')
| -rw-r--r-- | tool/split-sqlite3c.tcl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tool/split-sqlite3c.tcl b/tool/split-sqlite3c.tcl index 9751e7de9..0308431da 100644 --- a/tool/split-sqlite3c.tcl +++ b/tool/split-sqlite3c.tcl @@ -48,7 +48,14 @@ set filecnt 0 proc write_one_file {content} { global filecnt incr filecnt - set out [open sqlite3-$filecnt.c w] + set label $filecnt + if {$filecnt>9} { + set label [string index ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnop \ + [expr {$filecnt-10}]] + } else { + set label $filecnt + } + set out [open sqlite3-$label.c w] fconfigure $out -translation lf puts -nonewline $out $content close $out |