Return to soak1.tcl CVS log

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

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

1.1       misho       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: }