64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
+
+
+
+
+
+
+
|
}
vfs::zip::Unmount $mntfd $file
} else {
exec unzip -d $dir -n -qq $file
}
}
proc __isCompatibleCPU {teapot local} {
}
proc __isCompatibleOS {teapot local} {
}
set pkgcachedir [file join [__get_homedir] ".teapot-client" "cachedir"]
# Conversions from Teapot-style names to local ones
set osTeapotToLocal(tcl) [list *]
set osTeapotToLocal(linux-*) [list linux]
set osTeapotToLocal(win32) [list windows]
set osTeapotToLocal(solaris*) [list solaris sunos]
set osTeapotToLocal(freebsd) [list freebsd_*]
set osTeapotToLocal(irix) [list irix_*]
set cpuTeapotToLocal(ix86) [list x86 intel i?86 i86pc]
set cpuTeapotToLocal(sparc) [list sun4*]
set cpuTeapotToLocal(sparc64) [list sun4u sun4v]
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
|