Index: third_party/sqlite/sqlite-src-3080704/tool/split-sqlite3c.tcl |
diff --git a/third_party/sqlite/sqlite-src-3080704/tool/split-sqlite3c.tcl b/third_party/sqlite/sqlite-src-3080704/tool/split-sqlite3c.tcl |
deleted file mode 100644 |
index 287b752828f4157c6ac10b5f85d7dae9576ddd4b..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/tool/split-sqlite3c.tcl |
+++ /dev/null |
@@ -1,82 +0,0 @@ |
-#!/usr/bin/tclsh |
-# |
-# This script splits the sqlite3.c amalgamated source code files into |
-# several smaller files such that no single files is more than a fixed |
-# number of lines in length (32k or 64k). Each of the split out files |
-# is #include-ed by the master file. |
-# |
-# Splitting files up this way allows them to be used with older compilers |
-# that cannot handle really long source files. |
-# |
-set MAX 32768 ;# Maximum number of lines per file. |
- |
-set BEGIN {^/\*+ Begin file ([a-zA-Z0-9_.]+) \*+/} |
-set END {^/\*+ End of %s \*+/} |
- |
-set in [open sqlite3.c] |
-set out1 [open sqlite3-all.c w] |
- |
-# Copy the header from sqlite3.c into sqlite3-all.c |
-# |
-while {[gets $in line]} { |
- if {[regexp $BEGIN $line]} break |
- puts $out1 $line |
-} |
- |
-# Gather the complete content of a file into memory. Store the |
-# content in $bufout. Store the number of lines is $nout |
-# |
-proc gather_one_file {firstline bufout nout} { |
- regexp $::BEGIN $firstline all filename |
- set end [format $::END $filename] |
- upvar $bufout buf $nout n |
- set buf $firstline\n |
- global in |
- set n 0 |
- while {[gets $in line]>=0} { |
- incr n |
- append buf $line\n |
- if {[regexp $end $line]} break |
- } |
-} |
- |
-# Write a big chunk of text in to an auxiliary file "sqlite3-NNN.c". |
-# Also add an appropriate #include to sqlite3-all.c |
-# |
-set filecnt 0 |
-proc write_one_file {content} { |
- global filecnt |
- incr filecnt |
- set out [open sqlite3-$filecnt.c w] |
- puts -nonewline $out $content |
- close $out |
- puts $::out1 "#include \"sqlite3-$filecnt.c\"" |
-} |
- |
-# Continue reading input. Store chunks in separate files and add |
-# the #includes to the main sqlite3-all.c file as necessary to reference |
-# the extra chunks. |
-# |
-set all {} |
-set N 0 |
-while {[regexp $BEGIN $line]} { |
- set buf {} |
- set n 0 |
- gather_one_file $line buf n |
- if {$n+$N>=$MAX} { |
- write_one_file $all |
- set all {} |
- set N 0 |
- } |
- append all $buf |
- incr N $n |
- while {[gets $in line]>=0} { |
- if {[regexp $BEGIN $line]} break |
- puts $out1 $line |
- } |
-} |
-if {$N>0} { |
- write_one_file $all |
-} |
-close $out1 |
-close $in |