Overview
| Comment: | Made unzipping its own procedure, in the hopes of replacing it with a portable unzipping routine in the future. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 037c0fa43201df9f0d2bffb0c139a840568e728f |
| User & Date: | rkeene on 2009-04-18 22:28:08 |
| Other Links: | manifest | tags |
Context
|
2009-04-18
| ||
| 22:30 | Added extra sanity checks to home directory searching. check-in: de2b9ae717 user: rkeene tags: trunk | |
| 22:28 | Made unzipping its own procedure, in the hopes of replacing it with a portable unzipping routine in the future. check-in: 037c0fa432 user: rkeene tags: trunk | |
| 22:22 | Documentation update check-in: 3913113214 user: rkeene tags: trunk | |
Changes
Modified client/lib/teapotclient0.1/teapotclient.tcl from [a933729bfc] to [0dfe97b138].
33
34
35
36
37
38
39
40
41
42
43
44
45
46
...
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
set ::env(HOME) [file join [__get_tmpdir] FAKEHOME_$tcl_platform(user)]
catch {
file mkdir $::env(HOME)
}
return $::env(HOME)
}
set pkgcachedir [file join [__get_homedir] ".teapot-client" "cachedir"]
# Conversions from Teapot-style names to local ones
set osTeapotToLocal(tcl) *
set osTeapotToLocal(linux-*) linux
set osTeapotToLocal(win32) windows
................................................................................
close $tmpfd
}
set retarr($extension) [list $ver $arch $server]
switch -regexp -- [::fileutil::fileType $urlcachefile] {
"(^| )zip($| )" {
catch {
exec unzip -d $pkgdir -n -qq $urlcachefile
}
# Process $pkgdir/teapot.txt
set teapot [file join $pkgdir teapot.txt]
if {[file exists $teapot]} {
set fd [open $teapot r]
for {gets $fd line} {![eof $fd]} {gets $fd line} {
|
>
>
>
>
|
|
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
...
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
set ::env(HOME) [file join [__get_tmpdir] FAKEHOME_$tcl_platform(user)]
catch {
file mkdir $::env(HOME)
}
return $::env(HOME)
}
proc __unzip {dir file} {
exec unzip -d $dir -n -qq $urlcachefile
}
set pkgcachedir [file join [__get_homedir] ".teapot-client" "cachedir"]
# Conversions from Teapot-style names to local ones
set osTeapotToLocal(tcl) *
set osTeapotToLocal(linux-*) linux
set osTeapotToLocal(win32) windows
................................................................................
close $tmpfd
}
set retarr($extension) [list $ver $arch $server]
switch -regexp -- [::fileutil::fileType $urlcachefile] {
"(^| )zip($| )" {
catch {
__unzip $pkgdir $urlcachefile
}
# Process $pkgdir/teapot.txt
set teapot [file join $pkgdir teapot.txt]
if {[file exists $teapot]} {
set fd [open $teapot r]
for {gets $fd line} {![eof $fd]} {gets $fd line} {
|