OLD | NEW |
1 #!/usr/bin/tclsh | 1 #!/usr/bin/tclsh |
2 # | 2 # |
3 # This script splits the sqlite3.c amalgamated source code files into | 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 | 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 | 5 # number of lines in length (32k or 64k). Each of the split out files |
6 # is #include-ed by the master file. | 6 # is #include-ed by the master file. |
7 # | 7 # |
8 # Splitting files up this way allows them to be used with older compilers | 8 # Splitting files up this way allows them to be used with older compilers |
9 # that cannot handle really long source files. | 9 # that cannot handle really long source files. |
10 # | 10 # |
(...skipping 62 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
73 while {[gets $in line]>=0} { | 73 while {[gets $in line]>=0} { |
74 if {[regexp $BEGIN $line]} break | 74 if {[regexp $BEGIN $line]} break |
75 puts $out1 $line | 75 puts $out1 $line |
76 } | 76 } |
77 } | 77 } |
78 if {$N>0} { | 78 if {$N>0} { |
79 write_one_file $all | 79 write_one_file $all |
80 } | 80 } |
81 close $out1 | 81 close $out1 |
82 close $in | 82 close $in |
OLD | NEW |