| #!/usr/bin/tclsh | |
| # | |
| # Build a ZIP archive for the complete, unedited source code that | |
| # corresponds to the current check-out. | |
| # | |
| set VERSION-file [file dirname [file dirname [file normalize $argv0]]]/VERSION | |
| set fd [open ${VERSION-file} rb] | |
| set vers [read $fd] | |
| close $fd | |
| scan $vers %d.%d.%d major minor patch | |
| set numvers [format {3%02d%02d00} $minor $patch] | |
| set cmd "fossil zip current sqlite-src-$numvers.zip --name sqlite-src-$numvers" | |
| puts $cmd | |
| exec {*}$cmd |