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
|
#!/usr/bin/env tclsh
# Download page:
# https://github.com/utelle/wxsqlite3/releases
# Link from download page will redicrect to the codeload.....
set MC_VER 2.2.6
set SQLITE_VER 3.51.1
set THE_URL "https://github.com/utelle/SQLite3MultipleCiphers/releases/download/v${MC_VER}/sqlite3mc-${MC_VER}-sqlite-${SQLITE_VER}-amalgamation.zip"
set SRC_DIR "src"
set FILES [list \
sqlite3mc_amalgamation.c \
sqlite3mc_amalgamation.h \
]
package require http
proc process {} {
if {[catch {
wget $::THE_URL sqlite.zip
puts "Decompressing to 'sqlite' directory."
exec 7z x -osqlite sqlite.zip
#set dir [lindex [glob -directory sqlite wxsqlite3-*] 0]
set dir sqlite
foreach f $::FILES {
copy $dir/$f
}
file rename -force sqlite3mc_amalgamation.c wxsqlite3.c
file rename -force sqlite3mc_amalgamation.h wxsqlite3.h
}]} {
puts $::errorInfo
}
file delete -force sqlite.zip sqlite
}
proc copy {file} {
set fd [open $file r]
set data [read $fd]
close $fd
set data [string map [list sqlite3 wx_sqlite3] $data]
set data [string map [list \
wx_sqlite3mc_amalgamation. wxsqlite3. \
] $data]
set outFile [file tail $file]
puts "Copying $outFile"
set fd [open $outFile w+]
puts $fd $data
close $fd
}
proc wget {url {filename {}}} {
puts "Downloading $url"
if {[catch {package require twapi_crypto}]} {
package require tls 1.7
http::register https 443 [list ::tls::socket -autoservername true]
} else {
http::register https 443 [list ::twapi::tls_socket]
}
if {$filename == ""} {
set filename [file tail $url]
}
set r [http::geturl $url -binary 1]
upvar #0 $r state
while {[lindex [http::code $r] 1] == "302"} {
foreach {name value} $state(meta) {
if {[regexp -nocase ^location$ $name]} {
puts "Redirection to $value"
set r [http::geturl $value -binary 1]
}
}
}
set fo [open $filename w]
fconfigure $fo -translation binary
puts -nonewline $fo [http::data $r]
close $fo
::http::cleanup $r
}
process
|
