75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
-
+
|
set osTeapotToLocal(tcl) [list *]
set osTeapotToLocal(linux-*) [list linux]
set osTeapotToLocal(win32) [list windows]
set osTeapotToLocal(solaris*) [list solaris]
set osTeapotToLocal(freebsd) [list freebsd_*]
set osTeapotToLocal(irix) [list irix_*]
set cpuTeapotToLocal(ix86) [list x86 intel]
set cpuTeapotToLocal(ix86) [list x86 intel i?86]
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} {
|