61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
set srcfile [file join $file $filetail]
set destdir [file dirname [file join $dir $filetail]]
file copy -force -- $srcfile $destdir
}
vfs::zip::Unmount $mntfd $file
} else {
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) [list *]
|
|
|
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
set srcfile [file join $file $filetail]
set destdir [file dirname [file join $dir $filetail]]
file copy -force -- $srcfile $destdir
}
vfs::zip::Unmount $mntfd $file
} else {
exec unzip -d $dir -n -qq $file
}
}
set pkgcachedir [file join [__get_homedir] ".teapot-client" "cachedir"]
# Conversions from Teapot-style names to local ones
set osTeapotToLocal(tcl) [list *]
|