Return to mkopts.tcl CVS log

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

Annotation of embedaddon/sqlite3/tool/mkopts.tcl, revision 1.1

1.1     ! misho       1: #!/usr/bin/tclsh
        !             2: #
        !             3: # This script is used to generate the array of strings and the enum
        !             4: # that appear at the beginning of the C code implementation of a
        !             5: # a TCL command and that define the available subcommands for that
        !             6: # TCL command.
        !             7: 
        !             8: set prefix {}
        !             9: while {![eof stdin]} {
        !            10:   set line [gets stdin]
        !            11:   if {$line==""} continue
        !            12:   regsub -all "\[ \t\n,\]+" [string trim $line] { } line
        !            13:   foreach token [split $line { }] {
        !            14:     if {![regexp {(([a-zA-Z]+)_)?([_a-zA-Z]+)} $token all px p2 name]} continue
        !            15:     lappend namelist [string tolower $name]
        !            16:     if {$px!=""} {set prefix $p2}
        !            17:   }
        !            18: }
        !            19: 
        !            20: puts "  static const char *${prefix}_strs\[\] = \173"
        !            21: set col 0
        !            22: proc put_item x {
        !            23:   global col
        !            24:   if {$col==0} {puts -nonewline "   "}
        !            25:   if {$col<2} {
        !            26:     puts -nonewline [format " %-21s" $x]
        !            27:     incr col
        !            28:   } else {
        !            29:     puts $x
        !            30:     set col 0
        !            31:   }
        !            32: }
        !            33: proc finalize {} {
        !            34:   global col
        !            35:   if {$col>0} {puts {}}
        !            36:   set col 0
        !            37: }
        !            38: 
        !            39: foreach name [lsort $namelist] {
        !            40:   put_item \"$name\",
        !            41: }
        !            42: put_item 0
        !            43: finalize
        !            44: puts "  \175;"
        !            45: puts "  enum ${prefix}_enum \173"
        !            46: foreach name [lsort $namelist] {
        !            47:   regsub -all {@} $name {} name
        !            48:   put_item ${prefix}_[string toupper $name],
        !            49: }
        !            50: finalize
        !            51: puts "  \175;"