aboutsummaryrefslogtreecommitdiff
path: root/tool/mksrczip.tcl
blob: 4431c3d666a97a9ed1c9ce3ffc162485421b5de2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/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