81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
set cpuTeapotToLocal(ix86) [list x86 intel i?86 i86pc]
set cpuTeapotToLocal(sparc) [list sun4*]
set cpuTeapotToLocal(universal) [list *]
set cpuTeapotToLocal(powerpc) [list 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 {
|
|
|
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
set cpuTeapotToLocal(ix86) [list x86 intel i?86 i86pc]
set cpuTeapotToLocal(sparc) [list sun4*]
set cpuTeapotToLocal(universal) [list *]
set cpuTeapotToLocal(powerpc) [list ppc]
proc download_extensions {rootdir servers extensions os cpu {existingExts ""}} {
foreach chkdefext [list Tcl Tk msgcat] {
if {[lsearch -exact $existingExts $chkdefext] == -1} {
lappend existingExts $chkdefext
}
}
foreach server $servers {
foreach {pkg pkginfo} [get_extensions $server $os $cpu] {
foreach pkginstance $pkginfo {
|