| OLD | NEW |
|---|
| (Empty) |
| 1 #!/usr/bin/tclsh | |
| 2 # | |
| 3 # This script splits the sqlite3.c amalgamated source code files into | |
| 4 # several smaller files such that no single files is more than a fixed | |
| 5 # number of lines in length (32k or 64k). Each of the split out files | |
| 6 # is #include-ed by the master file. | |
| 7 # | |
| 8 # Splitting files up this way allows them to be used with older compilers | |
| 9 # that cannot handle really long source files. | |
| 10 # | |
| 11 set MAX 32768 ;# Maximum number of lines per file. | |
| 12 | |
| 13 set BEGIN {^/\*+ Begin file ([a-zA-Z0-9_.]+) \*+/} | |
| 14 set END {^/\*+ End of %s \*+/} | |
| 15 | |
| 16 set in [open sqlite3.c] | |
| 17 set out1 [open sqlite3-all.c w] | |
| 18 | |
| 19 # Copy the header from sqlite3.c into sqlite3-all.c | |
| 20 # | |
| 21 while {[gets $in line]} { | |
| 22 if {[regexp $BEGIN $line]} break | |
| 23 puts $out1 $line | |
| 24 } | |
| 25 | |
| 26 # Gather the complete content of a file into memory. Store the | |
| 27 # content in $bufout. Store the number of lines is $nout | |
| 28 # | |
| 29 proc gather_one_file {firstline bufout nout} { | |
| 30 regexp $::BEGIN $firstline all filename | |
| 31 set end [format $::END $filename] | |
| 32 upvar $bufout buf $nout n | |
| 33 set buf $firstline\n | |
| 34 global in | |
| 35 set n 0 | |
| 36 while {[gets $in line]>=0} { | |
| 37 incr n | |
| 38 append buf $line\n | |
| 39 if {[regexp $end $line]} break | |
| 40 } | |
| 41 } | |
| 42 | |
| 43 # Write a big chunk of text in to an auxiliary file "sqlite3-NNN.c". | |
| 44 # Also add an appropriate #include to sqlite3-all.c | |
| 45 # | |
| 46 set filecnt 0 | |
| 47 proc write_one_file {content} { | |
| 48 global filecnt | |
| 49 incr filecnt | |
| 50 set out [open sqlite3-$filecnt.c w] | |
| 51 puts -nonewline $out $content | |
| 52 close $out | |
| 53 puts $::out1 "#include \"sqlite3-$filecnt.c\"" | |
| 54 } | |
| 55 | |
| 56 # Continue reading input. Store chunks in separate files and add | |
| 57 # the #includes to the main sqlite3-all.c file as necessary to reference | |
| 58 # the extra chunks. | |
| 59 # | |
| 60 set all {} | |
| 61 set N 0 | |
| 62 while {[regexp $BEGIN $line]} { | |
| 63 set buf {} | |
| 64 set n 0 | |
| 65 gather_one_file $line buf n | |
| 66 if {$n+$N>=$MAX} { | |
| 67 write_one_file $all | |
| 68 set all {} | |
| 69 set N 0 | |
| 70 } | |
| 71 append all $buf | |
| 72 incr N $n | |
| 73 while {[gets $in line]>=0} { | |
| 74 if {[regexp $BEGIN $line]} break | |
| 75 puts $out1 $line | |
| 76 } | |
| 77 } | |
| 78 if {$N>0} { | |
| 79 write_one_file $all | |
| 80 } | |
| 81 close $out1 | |
| 82 close $in | |
| OLD | NEW |
|---|
Chromium Code Reviews
Issue 2846743003:
[sql] Remove SQLite 3.10.2 reference directory. (Closed)
