#!/usr/bin/tclsh # # Build a ZIP archive for the amalgamation source code found in the current # directory. # 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 dir sqlite-amalgamation-$numvers file delete -force $dir file mkdir $dir set filelist {sqlite3.c sqlite3.h shell.c sqlite3ext.h} foreach f $filelist { file copy $f $dir/$f } set cmd "zip -r $dir.zip $dir" puts $cmd file delete -force $dir.zip exec {*}$cmd file delete -force $dir