Return to soak1.tcl CVS log

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

sqlite3

    1: #!/usr/bin/tclsh
    2: #
    3: # Usage:
    4: #
    5: #    tclsh soak1.tcl local-makefile.mk ?target? ?scenario?
    6: #
    7: # This generates many variations on local-makefile.mk (by modifing
    8: # the OPT = lines) and runs them will fulltest, one by one.  The
    9: # constructed makefiles are named "soak1.mk".
   10: #
   11: # If ?target? is provided, that is the makefile target that is run.
   12: # The default is "fulltest"
   13: #
   14: # If ?scenario? is provided, it is the name of a single scenario to
   15: # be run.   All other scenarios are skipped.
   16: #
   17: set localmake [lindex $argv 0]
   18: set target [lindex $argv 1]
   19: set scene [lindex $argv 2]
   20: if {$target==""} {set target fulltest}
   21: if {$scene==""} {set scene all}
   22: 
   23: set in [open $localmake]
   24: set maketxt [read $in]
   25: close $in
   26: regsub -all {\\\n} $maketxt {} maketxt
   27: #set makefilename "soak1-[expr {int(rand()*1000000000)}].mk"
   28: set makefilename "soak1.mk"
   29: 
   30: # Generate a makefile
   31: #
   32: proc generate_makefile {pattern} {
   33:   global makefilename maketxt
   34:   set out [open $makefilename w]
   35:   set seen_opt 0
   36:   foreach line [split $maketxt \n] {
   37:     if {[regexp {^ *#? *OPTS[ =+]} $line]} {
   38:       if {!$seen_opt} {
   39:          puts $out "OPTS += -DSQLITE_NO_SYNC=1"
   40:          foreach x $pattern {
   41:            puts $out "OPTS += -D$x"
   42:          }
   43:          set seen_opt 1
   44:       }
   45:     } else {
   46:       puts $out $line
   47:     }
   48:   }
   49:   close $out
   50: }
   51: 
   52: # Run a test
   53: #
   54: proc scenario {id title pattern} {
   55:   global makefilename target scene
   56:   if {$scene!="all" && $scene!=$id && $scene!=$title} return
   57:   puts "**************** $title ***************"
   58:   generate_makefile $pattern
   59:   exec make -f $makefilename clean >@stdout 2>@stdout
   60:   exec make -f $makefilename $target >@stdout 2>@stdout
   61: }
   62: 
   63: ###############################################################################
   64: # Add new scenarios here
   65: #
   66: scenario 0 {Default} {}
   67: scenario 1 {Debug} {
   68:   SQLITE_DEBUG=1
   69:   SQLITE_MEMDEBUG=1
   70: }
   71: scenario 2 {Everything} {
   72:   SQLITE_DEBUG=1
   73:   SQLITE_MEMDEBUG=1
   74:   SQLITE_ENABLE_MEMORY_MANAGEMENT=1
   75:   SQLITE_ENABLE_COLUMN_METADATA=1
   76:   SQLITE_ENABLE_LOAD_EXTENSION=1 HAVE_DLOPEN=1
   77:   SQLITE_ENABLE_MEMORY_MANAGEMENT=1
   78: }
   79: scenario 3 {Customer-1} {
   80:   SQLITE_DEBUG=1 SQLITE_MEMDEBUG=1
   81:   SQLITE_THREADSAFE=1 SQLITE_OS_UNIX=1
   82:   SQLITE_DISABLE_LFS=1
   83:   SQLITE_DEFAULT_AUTOVACUUM=1
   84:   SQLITE_DEFAULT_PAGE_SIZE=1024
   85:   SQLITE_MAX_PAGE_SIZE=4096
   86:   SQLITE_DEFAULT_CACHE_SIZE=64
   87:   SQLITE_DEFAULT_TEMP_CACHE_SIZE=32
   88:   SQLITE_TEMP_STORE=3
   89:   SQLITE_OMIT_PROGRESS_CALLBACK=1
   90:   SQLITE_OMIT_LOAD_EXTENSION=1
   91:   SQLITE_OMIT_VIRTUALTABLE=1
   92:   SQLITE_ENABLE_IOTRACE=1
   93: }
   94: scenario 4 {Small-Cache} {
   95:   SQLITE_DEBUG=1 SQLITE_MEMDEBUG=1
   96:   SQLITE_THREADSAFE=1 SQLITE_OS_UNIX=1
   97:   SQLITE_DEFAULT_AUTOVACUUM=1
   98:   SQLITE_DEFAULT_PAGE_SIZE=1024
   99:   SQLITE_MAX_PAGE_SIZE=2048
  100:   SQLITE_DEFAULT_CACHE_SIZE=13
  101:   SQLITE_DEFAULT_TEMP_CACHE_SIZE=11
  102:   SQLITE_TEMP_STORE=1
  103: }