15 lines
459 B
Tcl
15 lines
459 B
Tcl
#!/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
|