Return to mksqlite3h.tcl CVS log

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

Annotation of embedaddon/sqlite3/tool/mksqlite3h.tcl, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/tclsh
                      2: #
                      3: # This script constructs the "sqlite3.h" header file from the following
                      4: # sources:
                      5: #
                      6: #   1) The src/sqlite.h.in source file.  This is the template for sqlite3.h.
                      7: #   2) The VERSION file containing the current SQLite version number.
                      8: #   3) The manifest file from the fossil SCM.  This gives use the date.
                      9: #   4) The manifest.uuid file from the fossil SCM.  This gives the SHA1 hash.
                     10: #
                     11: # Run this script by specifying the root directory of the source tree
                     12: # on the command-line.
                     13: # 
                     14: # This script performs processing on src/sqlite.h.in. It:
                     15: #
                     16: #   1) Adds SQLITE_EXTERN in front of the declaration of global variables,
                     17: #   2) Adds SQLITE_API in front of the declaration of API functions,
                     18: #   3) Replaces the string --VERS-- with the current library version, 
                     19: #      formatted as a string (e.g. "3.6.17"), and
                     20: #   4) Replaces the string --VERSION-NUMBER-- with current library version,
                     21: #      formatted as an integer (e.g. "3006017").
                     22: #   5) Replaces the string --SOURCE-ID-- with the date and time and sha1 
                     23: #      hash of the fossil-scm manifest for the source tree.
                     24: #
                     25: # This script outputs to stdout.
                     26: #
                     27: # Example usage:
                     28: #
                     29: #   tclsh mksqlite3h.tcl ../sqlite >sqlite3.h
                     30: #
                     31: 
                     32: 
                     33: # Get the source tree root directory from the command-line
                     34: #
                     35: set TOP [lindex $argv 0]
                     36: 
                     37: # Get the SQLite version number (ex: 3.6.18) from the $TOP/VERSION file.
                     38: #
                     39: set in [open $TOP/VERSION]
                     40: set zVersion [string trim [read $in]]
                     41: close $in
                     42: set nVersion [eval format "%d%03d%03d" [split $zVersion .]]
                     43: 
                     44: # Get the fossil-scm version number from $TOP/manifest.uuid.
                     45: #
                     46: set in [open $TOP/manifest.uuid]
                     47: set zUuid [string trim [read $in]]
                     48: close $in
                     49: 
                     50: # Get the fossil-scm check-in date from the "D" card of $TOP/manifest.
                     51: #
                     52: set in [open $TOP/manifest]
                     53: set zDate {}
                     54: while {![eof $in]} {
                     55:   set line [gets $in]
                     56:   if {[regexp {^D (2[-0-9T:]+)} $line all date]} {
                     57:     set zDate [string map {T { }} $date]
                     58:     break
                     59:   }
                     60: }
                     61: close $in
                     62: 
                     63: # Set up patterns for recognizing API declarations.
                     64: #
                     65: set varpattern {^[a-zA-Z][a-zA-Z_0-9 *]+sqlite3_[_a-zA-Z0-9]+(\[|;| =)}
                     66: set declpattern {^ *[a-zA-Z][a-zA-Z_0-9 ]+ \**sqlite3_[_a-zA-Z0-9]+\(}
                     67: 
                     68: # Force the output to use unix line endings, even on Windows.
                     69: fconfigure stdout -translation lf
                     70: 
                     71: # Process the src/sqlite.h.in ext/rtree/sqlite3rtree.h files.
                     72: #
                     73: foreach file [list $TOP/src/sqlite.h.in $TOP/ext/rtree/sqlite3rtree.h] {
                     74:   set in [open $file]
                     75:   while {![eof $in]} {
                     76:   
                     77:     set line [gets $in]
                     78: 
                     79:     # File sqlite3rtree.h contains a line "#include <sqlite3.h>". Omit this
                     80:     # line when copying sqlite3rtree.h into sqlite3.h.
                     81:     #
                     82:     if {[string match {*#include*<sqlite3.h>*} $line]} continue
                     83:   
                     84:     regsub -- --VERS--           $line $zVersion line
                     85:     regsub -- --VERSION-NUMBER-- $line $nVersion line
                     86:     regsub -- --SOURCE-ID--      $line "$zDate $zUuid" line
                     87:   
                     88:     if {[regexp {define SQLITE_EXTERN extern} $line]} {
                     89:       puts $line
                     90:       puts [gets $in]
                     91:       puts ""
                     92:       puts "#ifndef SQLITE_API"
                     93:       puts "# define SQLITE_API"
                     94:       puts "#endif"
                     95:       set line ""
                     96:     }
                     97:   
                     98:     if {([regexp $varpattern $line] && ![regexp {^ *typedef} $line])
                     99:      || ([regexp $declpattern $line])
                    100:     } {
                    101:       set line "SQLITE_API $line"
                    102:     }
                    103:     puts $line
                    104:   }
                    105:   close $in
                    106: }