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} { |