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

Enhance the split-sqlite3c.tcl script so that it uses single-character

Browse Source 
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
This commit is contained in:
drh
2023-05-10 16:04:04 +00:00
parent 0051a56dec
commit 28f4e7b286
3 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tool/split-sqlite3c.tcl
View File

@ -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