49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
set osTeapotToLocal(irix) irix_*
set cpuTeapotToLocal(ix86) x86
set cpuTeapotToLocal(sparc) sun4*
set cpuTeapotToLocal(universal) *
set cpuTeapotToLocal(powerpc) ppc
proc download_extensions {rootdir servers extensions os cpu {existingExts "Tcl Tk"}} {
foreach server $servers {
foreach {pkg pkginfo} [get_extensions $server $os $cpu] {
foreach pkginstance $pkginfo {
lappend pkginstance $server
lappend pkgdata($pkg) $pkginstance
}
}
|
|
>
>
>
>
>
|
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
set osTeapotToLocal(irix) irix_*
set cpuTeapotToLocal(ix86) x86
set cpuTeapotToLocal(sparc) sun4*
set cpuTeapotToLocal(universal) *
set cpuTeapotToLocal(powerpc) ppc
proc download_extensions {rootdir servers extensions os cpu {existingExts ""}} {
foreach chkdefext [list Tcl Tk] {
if {[lsearch -exact $existingExts $chkdefext] == -1} {
lappend existingExts $chkdefext
}
}
foreach server $servers {
foreach {pkg pkginfo} [get_extensions $server $os $cpu] {
foreach pkginstance $pkginfo {
lappend pkginstance $server
lappend pkgdata($pkg) $pkginstance
}
}
|
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
set pkginfo [lindex $pkgdata($extension) 0]
set ver [lindex $pkginfo 0]
set arch [lindex $pkginfo 1]
set server [lindex $pkginfo 2]
set pkgdir [file join $rootdir lib $extension$ver]
file mkdir $pkgdir $::teapotclient::pkgcachedir
set url "http://$server/package/name/$extension/ver/$ver/arch/$arch/file"
set urlcachefile [file join $::teapotclient::pkgcachedir [::md5::md5 -hex $url]]
if {![file exists $urlcachefile]} {
set tmpfd [open $urlcachefile w]
|
|
|
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
set pkginfo [lindex $pkgdata($extension) 0]
set ver [lindex $pkginfo 0]
set arch [lindex $pkginfo 1]
set server [lindex $pkginfo 2]
set pkgdir [file join $rootdir $extension$ver]
file mkdir $pkgdir $::teapotclient::pkgcachedir
set url "http://$server/package/name/$extension/ver/$ver/arch/$arch/file"
set urlcachefile [file join $::teapotclient::pkgcachedir [::md5::md5 -hex $url]]
if {![file exists $urlcachefile]} {
set tmpfd [open $urlcachefile w]
|