Return to split-sqlite3c.tcl CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / tool

Annotation of embedaddon/sqlite3/tool/split-sqlite3c.tcl, revision 1.1

1.1     ! misho       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