1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
#!/usr/bin/tclsh
#
# Run this script in order to generate a ZIP archive containing various
# command-line tools.
#
# The makefile that invokes this script must first build the following
# binaries:
#
# testfixture -- used to run this script
# sqlite3 -- the SQLite CLI
# sqldiff -- Program to diff two databases
# sqlite3_analyzer -- Space analyzer
# sqlite3_rsync -- Remote db sync
#
# On Windows, add:
#
# sqlite3.def
# sqlite3.dll
#
# Add the --snapshot option to generate a snapshot ZIP archive instead of
# a release ZIP archive.
#
set bSnapshot 0
for {set i 0} {$i<[llength $argv]} {incr i} {
set a [lindex $argv $i]
if {$a eq "-snapshot" || $a eq "--snapshot"} {
set bSnapshot 1
continue
}
puts stderr "unknown argument: $a"
exit 1
}
switch $tcl_platform(os) {
{Windows NT} {
set OS win
set EXE .exe
}
Linux {
set OS linux
set EXE {}
}
Darwin {
set OS osx
set EXE {}
}
default {
set OS unknown
set EXE {}
}
}
switch $tcl_platform(machine) {
arm64 {
set ARCH arm64
}
x86_64 {
set ARCH x64
}
amd64 -
intel {
if {$tcl_platform(pointerSize)==4} {
set ARCH x86
} else {
set ARCH x64
}
}
default {
set ARCH unk
}
}
if {$bSnapshot} {
set in [open [file join [file dirname [file dirname [info script]]] manifest]]
set manifest [read $in]
close $in
regexp {\nD (.{16})} $manifest all date
regsub -all {[-:T]} $date {} v2
} else {
set in [open [file join [file dirname [file dirname [info script]]] VERSION]]
set vers [read $in]
close $in
scan $vers %d.%d.%d v1 v2 v3
set v2 [format 3%02d%02d00 $v2 $v3]
}
set name sqlite-tools-$OS-$ARCH-$v2.zip
set filelist "sqlite3$EXE sqldiff$EXE sqlite3_analyzer$EXE sqlite3_rsync$EXE"
proc make_zip_archive {name filelist} {
file delete -force $name
puts "fossil test-filezip $name $filelist"
if {[catch {exec fossil test-filezip $name {*}$filelist}]} {
puts "^--- Unable. Trying again as:"
puts "zip $name $filelist"
file delete -force $name
exec zip $name {*}$filelist
}
puts "$name: [file size $name] bytes"
}
make_zip_archive $name $filelist
# On Windows, also try to construct a DLL
#
if {$OS eq "win" && [file exists sqlite3.dll] && [file exists sqlite3.def]} {
set name sqlite-dll-win-$ARCH-$v2.zip
set filelist [list sqlite3.def sqlite3.dll]
make_zip_archive $name $filelist
}
|
