Artifact db3d2ea33ef999aeb668664af8af29b859690749:
0000: 23 21 20 2f 75 73 72 2f 62 69 6e 2f 65 6e 76 20 #! /usr/bin/env
0010: 74 63 6c 73 68 0a 0a 23 20 54 68 69 73 20 66 69 tclsh..# This fi
0020: 6c 65 20 68 61 73 20 6e 6f 20 6c 69 63 65 6e 73 le has no licens
0030: 65 2e 20 20 49 74 20 69 73 20 69 6e 20 74 68 65 e. It is in the
0040: 20 70 75 62 6c 69 63 20 64 6f 6d 61 69 6e 2e 0a public domain..
0050: 23 20 2d 2d 20 52 6f 79 20 4b 65 65 6e 65 20 3c # -- Roy Keene <
0060: 74 63 6c 40 72 6b 65 65 6e 65 2e 6f 72 67 3e 20 tcl@rkeene.org>
0070: 5b 32 30 30 38 31 30 32 35 54 31 34 30 30 51 5d [20081025T1400Q]
0080: 0a 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 ..package requir
0090: 65 20 6d 64 35 0a 70 61 63 6b 61 67 65 20 72 65 e md5.package re
00a0: 71 75 69 72 65 20 68 74 74 70 0a 70 61 63 6b 61 quire http.packa
00b0: 67 65 20 72 65 71 75 69 72 65 20 66 69 6c 65 75 ge require fileu
00c0: 74 69 6c 0a 0a 6e 61 6d 65 73 70 61 63 65 20 65 til..namespace e
00d0: 76 61 6c 20 3a 3a 74 65 61 70 6f 74 63 6c 69 65 val ::teapotclie
00e0: 6e 74 20 7b 7d 0a 6e 61 6d 65 73 70 61 63 65 20 nt {}.namespace
00f0: 65 76 61 6c 20 3a 3a 74 65 61 70 6f 74 63 6c 69 eval ::teapotcli
0100: 65 6e 74 20 7b 0a 09 70 72 6f 63 20 5f 5f 67 65 ent {..proc __ge
0110: 74 5f 74 6d 70 64 69 72 20 7b 7d 20 7b 0a 09 09 t_tmpdir {} {...
0120: 66 6f 72 65 61 63 68 20 63 68 65 63 6b 65 6e 76 foreach checkenv
0130: 20 5b 6c 69 73 74 20 54 4d 50 44 49 52 20 54 45 [list TMPDIR TE
0140: 4d 50 20 54 4d 50 20 54 45 4d 50 44 49 52 5d 20 MP TMP TEMPDIR]
0150: 7b 0a 09 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 {....if {[info e
0160: 78 69 73 74 73 20 3a 3a 65 6e 76 28 24 63 68 65 xists ::env($che
0170: 63 6b 65 6e 76 29 5d 7d 20 7b 0a 09 09 09 09 72 ckenv)]} {.....r
0180: 65 74 75 72 6e 20 24 3a 3a 65 6e 76 28 24 63 68 eturn $::env($ch
0190: 65 63 6b 65 6e 76 29 0a 09 09 09 7d 0a 09 09 7d eckenv)....}...}
01a0: 0a 09 09 72 65 74 75 72 6e 20 22 2f 74 6d 70 22 ...return "/tmp"
01b0: 0a 09 7d 0a 0a 09 70 72 6f 63 20 5f 5f 67 65 74 ..}...proc __get
01c0: 5f 68 6f 6d 65 64 69 72 20 7b 7d 20 7b 0a 09 09 _homedir {} {...
01d0: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
01e0: 20 3a 3a 65 6e 76 28 48 4f 4d 45 29 5d 7d 20 7b ::env(HOME)]} {
01f0: 0a 09 09 09 72 65 74 75 72 6e 20 24 3a 3a 65 6e ....return $::en
0200: 76 28 48 4f 4d 45 29 0a 09 09 7d 0a 0a 09 09 63 v(HOME)...}....c
0210: 61 74 63 68 20 7b 0a 09 09 09 73 65 74 20 3a 3a atch {....set ::
0220: 65 6e 76 28 48 4f 4d 45 29 20 5b 66 69 6c 65 20 env(HOME) [file
0230: 6e 6f 72 6d 61 6c 69 7a 65 20 7e 5d 0a 09 09 7d normalize ~]...}
0240: 0a 09 09 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 ...if {[info exi
0250: 73 74 73 20 3a 3a 65 6e 76 28 48 4f 4d 45 29 5d sts ::env(HOME)]
0260: 7d 20 7b 0a 09 09 09 72 65 74 75 72 6e 20 24 3a } {....return $:
0270: 3a 65 6e 76 28 48 4f 4d 45 29 0a 09 09 7d 0a 0a :env(HOME)...}..
0280: 09 09 73 65 74 20 3a 3a 65 6e 76 28 48 4f 4d 45 ..set ::env(HOME
0290: 29 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 5f 5f ) [file join [__
02a0: 67 65 74 5f 74 6d 70 64 69 72 5d 20 46 41 4b 45 get_tmpdir] FAKE
02b0: 48 4f 4d 45 5f 24 74 63 6c 5f 70 6c 61 74 66 6f HOME_$tcl_platfo
02c0: 72 6d 28 75 73 65 72 29 5d 0a 09 09 63 61 74 63 rm(user)]...catc
02d0: 68 20 7b 0a 09 09 09 66 69 6c 65 20 6d 6b 64 69 h {....file mkdi
02e0: 72 20 24 3a 3a 65 6e 76 28 48 4f 4d 45 29 0a 09 r $::env(HOME)..
02f0: 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 24 3a 3a .}....return $::
0300: 65 6e 76 28 48 4f 4d 45 29 0a 09 7d 0a 0a 09 73 env(HOME)..}...s
0310: 65 74 20 70 6b 67 63 61 63 68 65 64 69 72 20 5b et pkgcachedir [
0320: 66 69 6c 65 20 6a 6f 69 6e 20 5b 5f 5f 67 65 74 file join [__get
0330: 5f 68 6f 6d 65 64 69 72 5d 20 22 2e 74 65 61 70 _homedir] ".teap
0340: 6f 74 2d 63 6c 69 65 6e 74 22 20 22 63 61 63 68 ot-client" "cach
0350: 65 64 69 72 22 5d 0a 0a 20 20 20 20 20 20 20 20 edir"]..
0360: 23 20 43 6f 6e 76 65 72 73 69 6f 6e 73 20 66 72 # Conversions fr
0370: 6f 6d 20 54 65 61 70 6f 74 2d 73 74 79 6c 65 20 om Teapot-style
0380: 6e 61 6d 65 73 20 74 6f 20 6c 6f 63 61 6c 20 6f names to local o
0390: 6e 65 73 0a 09 73 65 74 20 6f 73 54 65 61 70 6f nes..set osTeapo
03a0: 74 54 6f 4c 6f 63 61 6c 28 74 63 6c 29 20 2a 0a tToLocal(tcl) *.
03b0: 09 73 65 74 20 6f 73 54 65 61 70 6f 74 54 6f 4c .set osTeapotToL
03c0: 6f 63 61 6c 28 6c 69 6e 75 78 2d 2a 29 20 6c 69 ocal(linux-*) li
03d0: 6e 75 78 0a 09 73 65 74 20 6f 73 54 65 61 70 6f nux..set osTeapo
03e0: 74 54 6f 4c 6f 63 61 6c 28 77 69 6e 33 32 29 20 tToLocal(win32)
03f0: 77 69 6e 64 6f 77 73 0a 09 73 65 74 20 6f 73 54 windows..set osT
0400: 65 61 70 6f 74 54 6f 4c 6f 63 61 6c 28 73 6f 6c eapotToLocal(sol
0410: 61 72 69 73 2a 29 20 73 6f 6c 61 72 69 73 0a 09 aris*) solaris..
0420: 73 65 74 20 6f 73 54 65 61 70 6f 74 54 6f 4c 6f set osTeapotToLo
0430: 63 61 6c 28 66 72 65 65 62 73 64 29 20 66 72 65 cal(freebsd) fre
0440: 65 62 73 64 5f 2a 0a 09 73 65 74 20 6f 73 54 65 ebsd_*..set osTe
0450: 61 70 6f 74 54 6f 4c 6f 63 61 6c 28 69 72 69 78 apotToLocal(irix
0460: 29 20 69 72 69 78 5f 2a 0a 0a 09 73 65 74 20 63 ) irix_*...set c
0470: 70 75 54 65 61 70 6f 74 54 6f 4c 6f 63 61 6c 28 puTeapotToLocal(
0480: 69 78 38 36 29 20 78 38 36 0a 09 73 65 74 20 63 ix86) x86..set c
0490: 70 75 54 65 61 70 6f 74 54 6f 4c 6f 63 61 6c 28 puTeapotToLocal(
04a0: 73 70 61 72 63 29 20 73 75 6e 34 2a 0a 09 73 65 sparc) sun4*..se
04b0: 74 20 63 70 75 54 65 61 70 6f 74 54 6f 4c 6f 63 t cpuTeapotToLoc
04c0: 61 6c 28 75 6e 69 76 65 72 73 61 6c 29 20 2a 0a al(universal) *.
04d0: 09 73 65 74 20 63 70 75 54 65 61 70 6f 74 54 6f .set cpuTeapotTo
04e0: 4c 6f 63 61 6c 28 70 6f 77 65 72 70 63 29 20 70 Local(powerpc) p
04f0: 70 63 0a 0a 09 70 72 6f 63 20 64 6f 77 6e 6c 6f pc...proc downlo
0500: 61 64 5f 65 78 74 65 6e 73 69 6f 6e 73 20 7b 72 ad_extensions {r
0510: 6f 6f 74 64 69 72 20 73 65 72 76 65 72 73 20 65 ootdir servers e
0520: 78 74 65 6e 73 69 6f 6e 73 20 6f 73 20 63 70 75 xtensions os cpu
0530: 20 7b 65 78 69 73 74 69 6e 67 45 78 74 73 20 22 {existingExts "
0540: 54 63 6c 20 54 6b 22 7d 7d 20 7b 0a 09 09 66 6f Tcl Tk"}} {...fo
0550: 72 65 61 63 68 20 73 65 72 76 65 72 20 24 73 65 reach server $se
0560: 72 76 65 72 73 20 7b 0a 09 09 09 66 6f 72 65 61 rvers {....forea
0570: 63 68 20 7b 70 6b 67 20 70 6b 67 69 6e 66 6f 7d ch {pkg pkginfo}
0580: 20 5b 67 65 74 5f 65 78 74 65 6e 73 69 6f 6e 73 [get_extensions
0590: 20 24 73 65 72 76 65 72 20 24 6f 73 20 24 63 70 $server $os $cp
05a0: 75 5d 20 7b 0a 09 09 09 09 66 6f 72 65 61 63 68 u] {.....foreach
05b0: 20 70 6b 67 69 6e 73 74 61 6e 63 65 20 24 70 6b pkginstance $pk
05c0: 67 69 6e 66 6f 20 7b 0a 09 09 09 09 09 6c 61 70 ginfo {......lap
05d0: 70 65 6e 64 20 70 6b 67 69 6e 73 74 61 6e 63 65 pend pkginstance
05e0: 20 24 73 65 72 76 65 72 0a 09 09 09 09 09 6c 61 $server......la
05f0: 70 70 65 6e 64 20 70 6b 67 64 61 74 61 28 24 70 ppend pkgdata($p
0600: 6b 67 29 20 24 70 6b 67 69 6e 73 74 61 6e 63 65 kg) $pkginstance
0610: 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a .....}....}...}.
0620: 0a 09 09 66 6f 72 65 61 63 68 20 70 6b 67 20 5b ...foreach pkg [
0630: 61 72 72 61 79 20 6e 61 6d 65 73 20 70 6b 67 64 array names pkgd
0640: 61 74 61 5d 20 7b 0a 09 09 09 73 65 74 20 70 6b ata] {....set pk
0650: 67 64 61 74 61 28 24 70 6b 67 29 20 5b 6c 73 6f gdata($pkg) [lso
0660: 72 74 20 2d 64 65 63 72 65 61 73 69 6e 67 20 2d rt -decreasing -
0670: 64 69 63 74 69 6f 6e 61 72 79 20 24 70 6b 67 64 dictionary $pkgd
0680: 61 74 61 28 24 70 6b 67 29 5d 0a 09 09 7d 0a 0a ata($pkg)]...}..
0690: 09 09 61 72 72 61 79 20 73 65 74 20 65 78 74 44 ..array set extD
06a0: 65 70 65 6e 64 65 6e 63 69 65 73 20 5b 6c 69 73 ependencies [lis
06b0: 74 5d 0a 09 09 66 6f 72 65 61 63 68 20 65 78 74 t]...foreach ext
06c0: 65 6e 73 69 6f 6e 20 24 65 78 74 65 6e 73 69 6f ension $extensio
06d0: 6e 73 20 7b 0a 09 09 09 73 65 74 20 65 78 74 65 ns {....set exte
06e0: 6e 73 69 6f 6e 20 5b 66 69 6c 65 20 74 61 69 6c nsion [file tail
06f0: 20 24 65 78 74 65 6e 73 69 6f 6e 5d 0a 0a 09 09 $extension]....
0700: 09 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 .if {![info exis
0710: 74 73 20 70 6b 67 64 61 74 61 28 24 65 78 74 65 ts pkgdata($exte
0720: 6e 73 69 6f 6e 29 5d 7d 20 7b 0a 09 09 09 09 63 nsion)]} {.....c
0730: 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a 09 09 ontinue....}....
0740: 09 73 65 74 20 70 6b 67 69 6e 66 6f 20 5b 6c 69 .set pkginfo [li
0750: 6e 64 65 78 20 24 70 6b 67 64 61 74 61 28 24 65 ndex $pkgdata($e
0760: 78 74 65 6e 73 69 6f 6e 29 20 30 5d 0a 0a 09 09 xtension) 0]....
0770: 09 73 65 74 20 76 65 72 20 5b 6c 69 6e 64 65 78 .set ver [lindex
0780: 20 24 70 6b 67 69 6e 66 6f 20 30 5d 0a 09 09 09 $pkginfo 0]....
0790: 73 65 74 20 61 72 63 68 20 5b 6c 69 6e 64 65 78 set arch [lindex
07a0: 20 24 70 6b 67 69 6e 66 6f 20 31 5d 0a 09 09 09 $pkginfo 1]....
07b0: 73 65 74 20 73 65 72 76 65 72 20 5b 6c 69 6e 64 set server [lind
07c0: 65 78 20 24 70 6b 67 69 6e 66 6f 20 32 5d 0a 0a ex $pkginfo 2]..
07d0: 09 09 09 73 65 74 20 70 6b 67 64 69 72 20 5b 66 ...set pkgdir [f
07e0: 69 6c 65 20 6a 6f 69 6e 20 24 72 6f 6f 74 64 69 ile join $rootdi
07f0: 72 20 6c 69 62 20 24 65 78 74 65 6e 73 69 6f 6e r lib $extension
0800: 24 76 65 72 5d 0a 09 09 09 66 69 6c 65 20 6d 6b $ver]....file mk
0810: 64 69 72 20 24 70 6b 67 64 69 72 20 24 3a 3a 74 dir $pkgdir $::t
0820: 65 61 70 6f 74 63 6c 69 65 6e 74 3a 3a 70 6b 67 eapotclient::pkg
0830: 63 61 63 68 65 64 69 72 0a 0a 09 09 09 73 65 74 cachedir.....set
0840: 20 75 72 6c 20 22 68 74 74 70 3a 2f 2f 24 73 65 url "http://$se
0850: 72 76 65 72 2f 70 61 63 6b 61 67 65 2f 6e 61 6d rver/package/nam
0860: 65 2f 24 65 78 74 65 6e 73 69 6f 6e 2f 76 65 72 e/$extension/ver
0870: 2f 24 76 65 72 2f 61 72 63 68 2f 24 61 72 63 68 /$ver/arch/$arch
0880: 2f 66 69 6c 65 22 0a 09 09 09 73 65 74 20 75 72 /file"....set ur
0890: 6c 63 61 63 68 65 66 69 6c 65 20 5b 66 69 6c 65 lcachefile [file
08a0: 20 6a 6f 69 6e 20 24 3a 3a 74 65 61 70 6f 74 63 join $::teapotc
08b0: 6c 69 65 6e 74 3a 3a 70 6b 67 63 61 63 68 65 64 lient::pkgcached
08c0: 69 72 20 5b 3a 3a 6d 64 35 3a 3a 6d 64 35 20 2d ir [::md5::md5 -
08d0: 68 65 78 20 24 75 72 6c 5d 5d 0a 0a 09 09 09 69 hex $url]].....i
08e0: 66 20 7b 21 5b 66 69 6c 65 20 65 78 69 73 74 73 f {![file exists
08f0: 20 24 75 72 6c 63 61 63 68 65 66 69 6c 65 5d 7d $urlcachefile]}
0900: 20 7b 0a 09 09 09 09 73 65 74 20 74 6d 70 66 64 {.....set tmpfd
0910: 20 5b 6f 70 65 6e 20 24 75 72 6c 63 61 63 68 65 [open $urlcache
0920: 66 69 6c 65 20 77 5d 0a 09 09 09 09 73 65 74 20 file w].....set
0930: 74 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 token [::http::g
0940: 65 74 75 72 6c 20 24 75 72 6c 20 2d 63 68 61 6e eturl $url -chan
0950: 6e 65 6c 20 24 74 6d 70 66 64 5d 0a 0a 09 09 09 nel $tmpfd].....
0960: 09 3a 3a 68 74 74 70 3a 3a 63 6c 65 61 6e 75 70 .::http::cleanup
0970: 20 24 74 6f 6b 65 6e 0a 09 09 09 09 63 6c 6f 73 $token.....clos
0980: 65 20 24 74 6d 70 66 64 0a 09 09 09 7d 0a 0a 09 e $tmpfd....}...
0990: 09 09 73 65 74 20 72 65 74 61 72 72 28 24 65 78 ..set retarr($ex
09a0: 74 65 6e 73 69 6f 6e 29 20 5b 6c 69 73 74 20 24 tension) [list $
09b0: 76 65 72 20 24 61 72 63 68 20 24 73 65 72 76 65 ver $arch $serve
09c0: 72 5d 0a 09 09 09 73 77 69 74 63 68 20 2d 72 65 r]....switch -re
09d0: 67 65 78 70 20 2d 2d 20 5b 3a 3a 66 69 6c 65 75 gexp -- [::fileu
09e0: 74 69 6c 3a 3a 66 69 6c 65 54 79 70 65 20 24 75 til::fileType $u
09f0: 72 6c 63 61 63 68 65 66 69 6c 65 5d 20 7b 0a 09 rlcachefile] {..
0a00: 09 09 09 22 28 5e 7c 20 29 7a 69 70 28 24 7c 20 ..."(^| )zip($|
0a10: 29 22 20 7b 0a 09 09 09 09 09 63 61 74 63 68 20 )" {......catch
0a20: 7b 0a 09 09 09 09 09 09 65 78 65 63 20 75 6e 7a {.......exec unz
0a30: 69 70 20 2d 64 20 24 70 6b 67 64 69 72 20 2d 6e ip -d $pkgdir -n
0a40: 20 2d 71 71 20 24 75 72 6c 63 61 63 68 65 66 69 -qq $urlcachefi
0a50: 6c 65 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 le......}.......
0a60: 23 20 50 72 6f 63 65 73 73 20 24 70 6b 67 64 69 # Process $pkgdi
0a70: 72 2f 74 65 61 70 6f 74 2e 74 78 74 0a 09 09 09 r/teapot.txt....
0a80: 09 09 73 65 74 20 74 65 61 70 6f 74 20 5b 66 69 ..set teapot [fi
0a90: 6c 65 20 6a 6f 69 6e 20 24 70 6b 67 64 69 72 20 le join $pkgdir
0aa0: 74 65 61 70 6f 74 2e 74 78 74 5d 0a 09 09 09 09 teapot.txt].....
0ab0: 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 .if {[file exist
0ac0: 73 20 24 74 65 61 70 6f 74 5d 7d 20 7b 0a 09 09 s $teapot]} {...
0ad0: 09 09 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e ....set fd [open
0ae0: 20 24 74 65 61 70 6f 74 20 72 5d 0a 09 09 09 09 $teapot r].....
0af0: 09 09 66 6f 72 20 7b 67 65 74 73 20 24 66 64 20 ..for {gets $fd
0b00: 6c 69 6e 65 7d 20 7b 21 5b 65 6f 66 20 24 66 64 line} {![eof $fd
0b10: 5d 7d 20 7b 67 65 74 73 20 24 66 64 20 6c 69 6e ]} {gets $fd lin
0b20: 65 7d 20 7b 0a 09 09 09 09 09 09 09 69 66 20 7b e} {........if {
0b30: 5b 73 74 72 69 6e 67 20 6d 61 74 63 68 20 22 4d [string match "M
0b40: 65 74 61 20 72 65 71 75 69 72 65 20 2a 22 20 24 eta require *" $
0b50: 6c 69 6e 65 5d 7d 20 7b 0a 09 09 09 09 09 09 09 line]} {........
0b60: 09 73 65 74 20 64 65 70 69 6e 66 6f 20 5b 6c 69 .set depinfo [li
0b70: 6e 64 65 78 20 24 6c 69 6e 65 20 32 5d 0a 09 09 ndex $line 2]...
0b80: 09 09 09 09 09 09 73 65 74 20 64 65 70 20 5b 6c ......set dep [l
0b90: 69 6e 64 65 78 20 24 64 65 70 69 6e 66 6f 20 30 index $depinfo 0
0ba0: 5d 0a 09 09 09 09 09 09 09 09 73 65 74 20 64 65 ].........set de
0bb0: 70 65 78 74 72 61 20 5b 6c 72 61 6e 67 65 20 24 pextra [lrange $
0bc0: 64 65 70 69 6e 66 6f 20 31 20 65 6e 64 5d 0a 09 depinfo 1 end]..
0bd0: 09 09 09 09 09 09 09 6c 61 70 70 65 6e 64 20 65 .......lappend e
0be0: 78 74 44 65 70 65 6e 64 65 6e 63 69 65 73 28 24 xtDependencies($
0bf0: 64 65 70 29 20 24 64 65 70 65 78 74 72 61 0a 09 dep) $depextra..
0c00: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 7d 0a ......}.......}.
0c10: 09 09 09 09 09 09 63 6c 6f 73 65 20 24 66 64 0a ......close $fd.
0c20: 09 09 09 09 09 7d 0a 09 09 09 09 7d 0a 09 09 09 .....}.....}....
0c30: 09 22 28 5e 7c 20 29 74 65 78 74 28 24 7c 20 29 ."(^| )text($| )
0c40: 22 20 7b 0a 09 09 09 09 09 75 6e 73 65 74 20 2d " {......unset -
0c50: 6e 6f 63 6f 6d 70 6c 61 69 6e 20 66 64 0a 0a 09 nocomplain fd...
0c60: 09 09 09 09 73 65 74 20 65 78 74 66 69 6c 65 20 ....set extfile
0c70: 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 70 6b 67 64 [file join $pkgd
0c80: 69 72 20 24 7b 65 78 74 65 6e 73 69 6f 6e 7d 2e ir ${extension}.
0c90: 74 63 6c 5d 0a 09 09 09 09 09 73 65 74 20 69 64 tcl]......set id
0ca0: 78 66 69 6c 65 20 5b 66 69 6c 65 20 6a 6f 69 6e xfile [file join
0cb0: 20 24 70 6b 67 64 69 72 20 70 6b 67 49 6e 64 65 $pkgdir pkgInde
0cc0: 78 2e 74 63 6c 5d 0a 0a 09 09 09 09 09 63 61 74 x.tcl].......cat
0cd0: 63 68 20 7b 0a 09 09 09 09 09 09 66 69 6c 65 20 ch {.......file
0ce0: 63 6f 70 79 20 2d 66 6f 72 63 65 20 2d 2d 20 24 copy -force -- $
0cf0: 75 72 6c 63 61 63 68 65 66 69 6c 65 20 24 65 78 urlcachefile $ex
0d00: 74 66 69 6c 65 0a 0a 09 09 09 09 09 09 73 65 74 tfile........set
0d10: 20 66 64 20 5b 6f 70 65 6e 20 24 69 64 78 66 69 fd [open $idxfi
0d20: 6c 65 20 77 5d 0a 09 09 09 09 09 09 70 75 74 73 le w].......puts
0d30: 20 24 66 64 20 22 70 61 63 6b 61 67 65 20 69 66 $fd "package if
0d40: 6e 65 65 64 65 64 20 24 65 78 74 65 6e 73 69 6f needed $extensio
0d50: 6e 20 24 76 65 72 20 5c 5b 6c 69 73 74 20 73 6f n $ver \[list so
0d60: 75 72 63 65 20 5c 5b 66 69 6c 65 20 6a 6f 69 6e urce \[file join
0d70: 20 5c 24 64 69 72 20 5b 66 69 6c 65 20 74 61 69 \$dir [file tai
0d80: 6c 20 24 65 78 74 66 69 6c 65 5d 5c 5d 5c 5d 22 l $extfile]\]\]"
0d90: 0a 09 09 09 09 09 7d 0a 0a 09 09 09 09 09 63 61 ......}.......ca
0da0: 74 63 68 20 7b 0a 09 09 09 09 09 09 63 6c 6f 73 tch {.......clos
0db0: 65 20 24 66 64 0a 09 09 09 09 09 7d 0a 0a 09 09 e $fd......}....
0dc0: 09 09 09 23 20 50 72 6f 63 65 73 73 20 24 65 78 ...# Process $ex
0dd0: 74 66 69 6c 65 0a 09 09 09 09 09 73 65 74 20 66 tfile......set f
0de0: 64 20 5b 6f 70 65 6e 20 24 65 78 74 66 69 6c 65 d [open $extfile
0df0: 20 72 5d 0a 09 09 09 09 09 66 6f 72 20 7b 67 65 r]......for {ge
0e00: 74 73 20 24 66 64 20 6c 69 6e 65 7d 20 7b 21 5b ts $fd line} {![
0e10: 65 6f 66 20 24 66 64 5d 7d 20 7b 67 65 74 73 20 eof $fd]} {gets
0e20: 24 66 64 20 6c 69 6e 65 7d 20 7b 0a 09 09 09 09 $fd line} {.....
0e30: 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 ..if {[string ma
0e40: 74 63 68 20 22 23 20 4d 65 74 61 20 72 65 71 75 tch "# Meta requ
0e50: 69 72 65 20 2a 22 20 24 6c 69 6e 65 5d 7d 20 7b ire *" $line]} {
0e60: 0a 09 09 09 09 09 09 09 73 65 74 20 64 65 70 69 ........set depi
0e70: 6e 66 6f 20 5b 6c 69 6e 64 65 78 20 24 6c 69 6e nfo [lindex $lin
0e80: 65 20 33 5d 0a 09 09 09 09 09 09 09 73 65 74 20 e 3]........set
0e90: 64 65 70 20 5b 6c 69 6e 64 65 78 20 24 64 65 70 dep [lindex $dep
0ea0: 69 6e 66 6f 20 30 5d 0a 09 09 09 09 09 09 09 73 info 0]........s
0eb0: 65 74 20 64 65 70 65 78 74 72 61 20 5b 6c 72 61 et depextra [lra
0ec0: 6e 67 65 20 24 64 65 70 69 6e 66 6f 20 31 20 65 nge $depinfo 1 e
0ed0: 6e 64 5d 0a 09 09 09 09 09 09 09 6c 61 70 70 65 nd]........lappe
0ee0: 6e 64 20 65 78 74 44 65 70 65 6e 64 65 6e 63 69 nd extDependenci
0ef0: 65 73 28 24 64 65 70 29 20 24 64 65 70 65 78 74 es($dep) $depext
0f00: 72 61 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09 ra.......}......
0f10: 7d 0a 09 09 09 09 09 63 6c 6f 73 65 20 24 66 64 }......close $fd
0f20: 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d 0a .....}....}...}.
0f30: 0a 09 09 66 6f 72 65 61 63 68 20 7b 64 65 70 20 ...foreach {dep
0f40: 64 65 70 69 6e 66 6f 7d 20 5b 61 72 72 61 79 20 depinfo} [array
0f50: 67 65 74 20 65 78 74 44 65 70 65 6e 64 65 6e 63 get extDependenc
0f60: 69 65 73 5d 20 7b 0a 09 09 09 73 65 74 20 64 65 ies] {....set de
0f70: 70 52 65 71 20 2d 31 0a 09 09 09 66 6f 72 65 61 pReq -1....forea
0f80: 63 68 20 64 65 70 69 6e 73 74 69 6e 66 6f 20 24 ch depinstinfo $
0f90: 64 65 70 69 6e 66 6f 20 7b 0a 09 09 09 09 73 65 depinfo {.....se
0fa0: 74 20 64 65 70 76 65 72 20 5b 6c 69 6e 64 65 78 t depver [lindex
0fb0: 20 24 64 65 70 69 6e 73 74 69 6e 66 6f 20 30 5d $depinstinfo 0]
0fc0: 0a 09 09 09 09 73 65 74 20 64 65 70 69 6e 73 74 .....set depinst
0fd0: 69 6e 66 6f 20 5b 6c 72 61 6e 67 65 20 24 64 65 info [lrange $de
0fe0: 70 69 6e 73 74 69 6e 66 6f 20 31 20 65 6e 64 5d pinstinfo 1 end]
0ff0: 0a 0a 09 09 09 09 66 6f 72 65 61 63 68 20 7b 76 ......foreach {v
1000: 61 72 20 76 61 6c 7d 20 24 64 65 70 69 6e 73 74 ar val} $depinst
1010: 69 6e 66 6f 20 7b 0a 09 09 09 09 09 73 77 69 74 info {......swit
1020: 63 68 20 2d 2d 20 24 76 61 72 20 7b 0a 09 09 09 ch -- $var {....
1030: 09 09 09 22 2d 70 6c 61 74 66 6f 72 6d 22 20 7b ..."-platform" {
1040: 0a 09 09 09 09 09 09 09 69 66 20 7b 24 76 61 6c ........if {$val
1050: 20 21 3d 20 24 6f 73 7d 20 7b 0a 09 09 09 09 09 != $os} {......
1060: 09 09 09 69 66 20 7b 24 64 65 70 52 65 71 20 3d ...if {$depReq =
1070: 3d 20 2d 31 7d 20 7b 0a 09 09 09 09 09 09 09 09 = -1} {.........
1080: 09 73 65 74 20 64 65 70 52 65 71 20 30 0a 09 09 .set depReq 0...
1090: 09 09 09 09 09 09 7d 0a 09 09 09 09 09 09 09 7d ......}........}
10a0: 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09 7d 0a .......}......}.
10b0: 09 09 09 09 7d 0a 09 09 09 7d 0a 0a 09 09 09 69 ....}....}.....i
10c0: 66 20 7b 24 64 65 70 52 65 71 20 3d 3d 20 30 7d f {$depReq == 0}
10d0: 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a {.....continue.
10e0: 09 09 09 7d 0a 0a 09 09 09 69 66 20 7b 5b 6c 73 ...}.....if {[ls
10f0: 65 61 72 63 68 20 24 65 78 69 73 74 69 6e 67 45 earch $existingE
1100: 78 74 73 20 24 64 65 70 5d 20 3d 3d 20 2d 31 7d xts $dep] == -1}
1110: 20 7b 0a 09 09 09 09 6c 61 70 70 65 6e 64 20 65 {.....lappend e
1120: 78 69 73 74 69 6e 67 45 78 74 73 20 24 64 65 70 xistingExts $dep
1130: 0a 09 09 09 09 6c 61 70 70 65 6e 64 20 66 65 74 .....lappend fet
1140: 63 68 44 65 70 73 20 24 64 65 70 0a 09 09 09 7d chDeps $dep....}
1150: 0a 09 09 7d 0a 0a 09 09 69 66 20 7b 5b 69 6e 66 ...}....if {[inf
1160: 6f 20 65 78 69 73 74 73 20 66 65 74 63 68 44 65 o exists fetchDe
1170: 70 73 5d 7d 20 7b 0a 09 09 09 73 65 74 20 61 64 ps]} {....set ad
1180: 64 52 65 74 20 5b 64 6f 77 6e 6c 6f 61 64 5f 65 dRet [download_e
1190: 78 74 65 6e 73 69 6f 6e 73 20 24 72 6f 6f 74 64 xtensions $rootd
11a0: 69 72 20 24 73 65 72 76 65 72 73 20 24 66 65 74 ir $servers $fet
11b0: 63 68 44 65 70 73 20 24 6f 73 20 24 63 70 75 20 chDeps $os $cpu
11c0: 24 65 78 69 73 74 69 6e 67 45 78 74 73 5d 0a 09 $existingExts]..
11d0: 09 09 61 72 72 61 79 20 73 65 74 20 72 65 74 61 ..array set reta
11e0: 72 72 20 24 61 64 64 52 65 74 0a 09 09 7d 0a 0a rr $addRet...}..
11f0: 09 09 72 65 74 75 72 6e 20 5b 61 72 72 61 79 20 ..return [array
1200: 67 65 74 20 72 65 74 61 72 72 5d 0a 09 7d 0a 0a get retarr]..}..
1210: 09 70 72 6f 63 20 67 65 74 5f 65 78 74 65 6e 73 .proc get_extens
1220: 69 6f 6e 73 20 7b 73 65 72 76 65 72 20 7b 6c 69 ions {server {li
1230: 6d 69 74 6f 73 20 22 2a 22 7d 20 7b 6c 69 6d 69 mitos "*"} {limi
1240: 74 63 70 75 20 22 2a 22 7d 7d 20 7b 0a 09 09 75 tcpu "*"}} {...u
1250: 70 76 61 72 20 3a 3a 74 65 61 70 6f 74 63 6c 69 pvar ::teapotcli
1260: 65 6e 74 3a 3a 6f 73 54 65 61 70 6f 74 54 6f 4c ent::osTeapotToL
1270: 6f 63 61 6c 20 6f 73 54 65 61 70 6f 74 54 6f 4c ocal osTeapotToL
1280: 6f 63 61 6c 0a 09 09 75 70 76 61 72 20 3a 3a 74 ocal...upvar ::t
1290: 65 61 70 6f 74 63 6c 69 65 6e 74 3a 3a 63 70 75 eapotclient::cpu
12a0: 54 65 61 70 6f 74 54 6f 4c 6f 63 61 6c 20 63 70 TeapotToLocal cp
12b0: 75 54 65 61 70 6f 74 54 6f 4c 6f 63 61 6c 0a 0a uTeapotToLocal..
12c0: 09 09 66 69 6c 65 20 6d 6b 64 69 72 20 24 3a 3a ..file mkdir $::
12d0: 74 65 61 70 6f 74 63 6c 69 65 6e 74 3a 3a 70 6b teapotclient::pk
12e0: 67 63 61 63 68 65 64 69 72 0a 09 09 73 65 74 20 gcachedir...set
12f0: 63 61 63 68 65 66 69 6c 65 20 5b 66 69 6c 65 20 cachefile [file
1300: 6a 6f 69 6e 20 24 3a 3a 74 65 61 70 6f 74 63 6c join $::teapotcl
1310: 69 65 6e 74 3a 3a 70 6b 67 63 61 63 68 65 64 69 ient::pkgcachedi
1320: 72 20 54 45 41 50 4f 54 49 4e 46 4f 5d 0a 09 09 r TEAPOTINFO]...
1330: 0a 09 09 73 65 74 20 63 75 72 72 74 69 6d 65 20 ...set currtime
1340: 5b 63 6c 6f 63 6b 20 73 65 63 6f 6e 64 73 5d 0a [clock seconds].
1350: 0a 09 09 69 66 20 7b 5b 66 69 6c 65 20 65 78 69 ...if {[file exi
1360: 73 74 73 20 24 63 61 63 68 65 66 69 6c 65 5d 7d sts $cachefile]}
1370: 20 7b 0a 09 09 09 63 61 74 63 68 20 7b 0a 09 09 {....catch {...
1380: 09 09 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 24 ..set fd [open $
1390: 63 61 63 68 65 66 69 6c 65 20 72 5d 0a 09 09 09 cachefile r]....
13a0: 09 73 65 74 20 64 61 74 61 20 5b 72 65 61 64 20 .set data [read
13b0: 24 66 64 5d 0a 09 09 09 09 63 6c 6f 73 65 20 24 $fd].....close $
13c0: 66 64 0a 0a 09 09 09 09 73 65 74 20 64 61 74 61 fd......set data
13d0: 74 69 6d 65 20 5b 6c 69 6e 64 65 78 20 24 64 61 time [lindex $da
13e0: 74 61 20 30 5d 0a 09 09 09 09 69 66 20 7b 28 24 ta 0].....if {($
13f0: 63 75 72 72 74 69 6d 65 20 2d 20 24 64 61 74 61 currtime - $data
1400: 74 69 6d 65 29 20 3c 20 38 36 34 30 30 7d 20 7b time) < 86400} {
1410: 0a 09 09 09 09 09 73 65 74 20 63 68 69 6c 64 72 ......set childr
1420: 65 6e 20 5b 6c 69 6e 64 65 78 20 24 64 61 74 61 en [lindex $data
1430: 20 31 5d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 1].....}....}..
1440: 09 7d 0a 0a 09 09 69 66 20 7b 21 5b 69 6e 66 6f .}....if {![info
1450: 20 65 78 69 73 74 73 20 63 68 69 6c 64 72 65 6e exists children
1460: 5d 7d 20 7b 0a 09 09 09 70 61 63 6b 61 67 65 20 ]} {....package
1470: 72 65 71 75 69 72 65 20 68 74 74 70 0a 0a 09 09 require http....
1480: 09 73 65 74 20 75 72 6c 20 22 68 74 74 70 3a 2f .set url "http:/
1490: 2f 5b 6a 6f 69 6e 20 5b 6c 69 73 74 20 24 73 65 /[join [list $se
14a0: 72 76 65 72 20 70 61 63 6b 61 67 65 20 6c 69 73 rver package lis
14b0: 74 5d 20 2f 5d 22 0a 0a 09 09 09 73 65 74 20 74 t] /]".....set t
14c0: 6f 6b 65 6e 20 5b 3a 3a 68 74 74 70 3a 3a 67 65 oken [::http::ge
14d0: 74 75 72 6c 20 24 75 72 6c 5d 0a 09 09 09 69 66 turl $url]....if
14e0: 20 7b 5b 3a 3a 68 74 74 70 3a 3a 6e 63 6f 64 65 {[::http::ncode
14f0: 20 24 74 6f 6b 65 6e 5d 20 21 3d 20 22 32 30 30 $token] != "200
1500: 22 7d 20 7b 0a 09 09 09 09 72 65 74 75 72 6e 20 "} {.....return
1510: 5b 6c 69 73 74 5d 0a 09 09 09 7d 0a 0a 09 09 09 [list]....}.....
1520: 73 65 74 20 64 61 74 61 20 5b 3a 3a 68 74 74 70 set data [::http
1530: 3a 3a 64 61 74 61 20 24 74 6f 6b 65 6e 5d 0a 09 ::data $token]..
1540: 09 09 3a 3a 68 74 74 70 3a 3a 63 6c 65 61 6e 75 ..::http::cleanu
1550: 70 20 24 74 6f 6b 65 6e 0a 0a 09 09 09 73 65 74 p $token.....set
1560: 20 77 6f 72 6b 20 5b 6a 6f 69 6e 20 5b 73 70 6c work [join [spl
1570: 69 74 20 24 64 61 74 61 20 5c 6e 5d 20 7b 20 7d it $data \n] { }
1580: 5d 0a 09 09 09 72 65 67 65 78 70 20 7b 5c 5b 5c ]....regexp {\[\
1590: 5b 54 50 4d 5c 5b 5c 5b 28 2e 2a 29 5c 5d 5c 5d [TPM\[\[(.*)\]\]
15a0: 4d 50 54 5c 5d 5c 5d 7d 20 24 77 6f 72 6b 20 2d MPT\]\]} $work -
15b0: 3e 20 63 68 69 6c 64 72 65 6e 0a 0a 09 09 09 63 > children.....c
15c0: 61 74 63 68 20 7b 0a 09 09 09 09 73 65 74 20 66 atch {.....set f
15d0: 64 20 5b 6f 70 65 6e 20 24 63 61 63 68 65 66 69 d [open $cachefi
15e0: 6c 65 20 77 5d 0a 09 09 09 09 70 75 74 73 20 24 le w].....puts $
15f0: 66 64 20 5b 6c 69 73 74 20 24 63 75 72 72 74 69 fd [list $currti
1600: 6d 65 20 24 63 68 69 6c 64 72 65 6e 5d 0a 09 09 me $children]...
1610: 09 09 63 6c 6f 73 65 20 24 66 64 0a 09 09 09 7d ..close $fd....}
1620: 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 20 ...}....foreach
1630: 63 68 69 6c 64 20 24 63 68 69 6c 64 72 65 6e 20 child $children
1640: 7b 0a 09 09 09 73 65 74 20 74 79 70 65 20 5b 6c {....set type [l
1650: 69 6e 64 65 78 20 24 63 68 69 6c 64 20 30 5d 0a index $child 0].
1660: 09 09 09 69 66 20 7b 24 74 79 70 65 20 21 3d 20 ...if {$type !=
1670: 22 70 61 63 6b 61 67 65 22 7d 20 7b 0a 09 09 09 "package"} {....
1680: 09 63 6f 6e 74 69 6e 75 65 0a 09 09 09 7d 0a 0a .continue....}..
1690: 09 09 09 73 65 74 20 70 6b 67 20 5b 6c 69 6e 64 ...set pkg [lind
16a0: 65 78 20 24 63 68 69 6c 64 20 31 5d 0a 09 09 09 ex $child 1]....
16b0: 73 65 74 20 76 65 72 20 5b 6c 69 6e 64 65 78 20 set ver [lindex
16c0: 24 63 68 69 6c 64 20 32 5d 0a 09 09 09 73 65 74 $child 2]....set
16d0: 20 61 72 63 68 20 5b 6c 69 6e 64 65 78 20 24 63 arch [lindex $c
16e0: 68 69 6c 64 20 33 5d 0a 09 09 09 73 65 74 20 61 hild 3]....set a
16f0: 72 63 68 5f 77 6f 72 6b 20 5b 73 70 6c 69 74 20 rch_work [split
1700: 24 61 72 63 68 20 2d 5d 0a 09 09 09 73 65 74 20 $arch -]....set
1710: 61 72 63 68 5f 6f 73 20 5b 6a 6f 69 6e 20 5b 6c arch_os [join [l
1720: 72 61 6e 67 65 20 24 61 72 63 68 5f 77 6f 72 6b range $arch_work
1730: 20 30 20 65 6e 64 2d 31 5d 20 2d 5d 0a 09 09 09 0 end-1] -]....
1740: 73 65 74 20 61 72 63 68 5f 63 70 75 20 5b 6c 69 set arch_cpu [li
1750: 6e 64 65 78 20 24 61 72 63 68 5f 77 6f 72 6b 20 ndex $arch_work
1760: 65 6e 64 5d 0a 0a 09 09 09 69 66 20 7b 24 61 72 end].....if {$ar
1770: 63 68 20 3d 3d 20 22 73 6f 75 72 63 65 22 7d 20 ch == "source"}
1780: 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 0a 09 {.....continue..
1790: 09 09 7d 0a 0a 09 09 09 73 65 74 20 69 73 43 6f ..}.....set isCo
17a0: 6d 70 61 74 4f 53 20 30 0a 09 09 09 69 66 20 7b mpatOS 0....if {
17b0: 24 61 72 63 68 20 3d 3d 20 22 74 63 6c 22 7d 20 $arch == "tcl"}
17c0: 7b 0a 09 09 09 09 73 65 74 20 69 73 43 6f 6d 70 {.....set isComp
17d0: 61 74 4f 53 20 31 0a 09 09 09 7d 20 65 6c 73 65 atOS 1....} else
17e0: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 if {[string matc
17f0: 68 20 24 6c 69 6d 69 74 6f 73 20 24 61 72 63 68 h $limitos $arch
1800: 5f 6f 73 5d 7d 20 7b 0a 09 09 09 09 73 65 74 20 _os]} {.....set
1810: 69 73 43 6f 6d 70 61 74 4f 53 20 31 0a 09 09 09 isCompatOS 1....
1820: 7d 20 65 6c 73 65 20 7b 0a 09 09 09 09 66 6f 72 } else {.....for
1830: 65 61 63 68 20 7b 74 65 61 70 6f 74 20 6c 6f 63 each {teapot loc
1840: 61 6c 7d 20 5b 61 72 72 61 79 20 67 65 74 20 6f al} [array get o
1850: 73 54 65 61 70 6f 74 54 6f 4c 6f 63 61 6c 5d 20 sTeapotToLocal]
1860: 7b 0a 09 09 09 09 09 69 66 20 7b 5b 73 74 72 69 {......if {[stri
1870: 6e 67 20 6d 61 74 63 68 20 24 6c 69 6d 69 74 6f ng match $limito
1880: 73 20 24 6c 6f 63 61 6c 5d 20 7c 7c 20 5b 73 74 s $local] || [st
1890: 72 69 6e 67 20 6d 61 74 63 68 20 24 6c 6f 63 61 ring match $loca
18a0: 6c 20 24 6c 69 6d 69 74 6f 73 5d 7d 20 7b 0a 09 l $limitos]} {..
18b0: 09 09 09 09 09 69 66 20 7b 5b 73 74 72 69 6e 67 .....if {[string
18c0: 20 6d 61 74 63 68 20 24 74 65 61 70 6f 74 20 24 match $teapot $
18d0: 61 72 63 68 5f 6f 73 5d 20 7c 7c 20 5b 73 74 72 arch_os] || [str
18e0: 69 6e 67 20 6d 61 74 63 68 20 24 61 72 63 68 5f ing match $arch_
18f0: 6f 73 20 24 74 65 61 70 6f 74 5d 7d 20 7b 0a 09 os $teapot]} {..
1900: 09 09 09 09 09 09 73 65 74 20 69 73 43 6f 6d 70 ......set isComp
1910: 61 74 4f 53 20 31 0a 09 09 09 09 09 09 09 62 72 atOS 1........br
1920: 65 61 6b 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 eak.......}.....
1930: 09 7d 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 .}.....}....}...
1940: 09 69 66 20 7b 21 24 69 73 43 6f 6d 70 61 74 4f .if {!$isCompatO
1950: 53 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 S} {.....continu
1960: 65 0a 09 09 09 7d 0a 0a 09 09 09 73 65 74 20 69 e....}.....set i
1970: 73 43 6f 6d 70 61 74 43 50 55 20 30 0a 09 09 09 sCompatCPU 0....
1980: 69 66 20 7b 24 61 72 63 68 20 3d 3d 20 22 74 63 if {$arch == "tc
1990: 6c 22 7d 20 7b 0a 09 09 09 09 73 65 74 20 69 73 l"} {.....set is
19a0: 43 6f 6d 70 61 74 43 50 55 20 31 0a 09 09 09 7d CompatCPU 1....}
19b0: 20 65 6c 73 65 69 66 20 7b 5b 73 74 72 69 6e 67 elseif {[string
19c0: 20 6d 61 74 63 68 20 24 6c 69 6d 69 74 63 70 75 match $limitcpu
19d0: 20 24 61 72 63 68 5f 63 70 75 5d 7d 20 7b 0a 09 $arch_cpu]} {..
19e0: 09 09 09 73 65 74 20 69 73 43 6f 6d 70 61 74 43 ...set isCompatC
19f0: 50 55 20 31 0a 09 09 09 7d 20 65 6c 73 65 20 7b PU 1....} else {
1a00: 0a 09 09 09 09 66 6f 72 65 61 63 68 20 7b 74 65 .....foreach {te
1a10: 61 70 6f 74 20 6c 6f 63 61 6c 7d 20 5b 61 72 72 apot local} [arr
1a20: 61 79 20 67 65 74 20 63 70 75 54 65 61 70 6f 74 ay get cpuTeapot
1a30: 54 6f 4c 6f 63 61 6c 5d 20 7b 0a 09 09 09 09 09 ToLocal] {......
1a40: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 if {[string matc
1a50: 68 20 24 6c 69 6d 69 74 63 70 75 20 24 6c 6f 63 h $limitcpu $loc
1a60: 61 6c 5d 20 7c 7c 20 5b 73 74 72 69 6e 67 20 6d al] || [string m
1a70: 61 74 63 68 20 24 6c 6f 63 61 6c 20 24 6c 69 6d atch $local $lim
1a80: 69 74 63 70 75 5d 7d 20 7b 0a 09 09 09 09 09 09 itcpu]} {.......
1a90: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 if {[string matc
1aa0: 68 20 24 74 65 61 70 6f 74 20 24 61 72 63 68 5f h $teapot $arch_
1ab0: 63 70 75 5d 20 7c 7c 20 5b 73 74 72 69 6e 67 20 cpu] || [string
1ac0: 6d 61 74 63 68 20 24 61 72 63 68 5f 63 70 75 20 match $arch_cpu
1ad0: 24 74 65 61 70 6f 74 5d 7d 20 7b 0a 09 09 09 09 $teapot]} {.....
1ae0: 09 09 09 73 65 74 20 69 73 43 6f 6d 70 61 74 43 ...set isCompatC
1af0: 50 55 20 31 0a 09 09 09 09 09 09 09 62 72 65 61 PU 1........brea
1b00: 6b 0a 09 09 09 09 09 09 7d 0a 09 09 09 09 09 7d k.......}......}
1b10: 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 09 69 .....}....}....i
1b20: 66 20 7b 21 24 69 73 43 6f 6d 70 61 74 43 50 55 f {!$isCompatCPU
1b30: 7d 20 7b 0a 09 09 09 09 63 6f 6e 74 69 6e 75 65 } {.....continue
1b40: 0a 09 09 09 7d 0a 0a 09 09 09 6c 61 70 70 65 6e ....}.....lappen
1b50: 64 20 70 6b 67 69 6e 66 6f 28 24 70 6b 67 29 20 d pkginfo($pkg)
1b60: 5b 6c 69 73 74 20 24 76 65 72 20 24 61 72 63 68 [list $ver $arch
1b70: 5d 0a 09 09 7d 0a 0a 09 09 66 6f 72 65 61 63 68 ]...}....foreach
1b80: 20 70 6b 67 20 5b 61 72 72 61 79 20 6e 61 6d 65 pkg [array name
1b90: 73 20 70 6b 67 69 6e 66 6f 5d 20 7b 0a 09 09 09 s pkginfo] {....
1ba0: 73 65 74 20 70 6b 67 69 6e 66 6f 28 24 70 6b 67 set pkginfo($pkg
1bb0: 29 20 5b 6c 73 6f 72 74 20 2d 64 65 63 72 65 61 ) [lsort -decrea
1bc0: 73 69 6e 67 20 2d 64 69 63 74 69 6f 6e 61 72 79 sing -dictionary
1bd0: 20 24 70 6b 67 69 6e 66 6f 28 24 70 6b 67 29 5d $pkginfo($pkg)]
1be0: 0a 09 09 7d 0a 0a 09 09 72 65 74 75 72 6e 20 5b ...}....return [
1bf0: 61 72 72 61 79 20 67 65 74 20 70 6b 67 69 6e 66 array get pkginf
1c00: 6f 5d 0a 09 7d 0a 0a 09 70 72 6f 63 20 73 65 74 o]..}...proc set
1c10: 63 61 63 68 65 64 69 72 20 7b 64 69 72 7d 20 7b cachedir {dir} {
1c20: 0a 09 09 73 65 74 20 3a 3a 74 65 61 70 6f 74 63 ...set ::teapotc
1c30: 6c 69 65 6e 74 3a 3a 70 6b 67 63 61 63 68 65 64 lient::pkgcached
1c40: 69 72 20 24 64 69 72 0a 09 7d 0a 7d 0a 0a 70 61 ir $dir..}.}..pa
1c50: 63 6b 61 67 65 20 70 72 6f 76 69 64 65 20 74 65 ckage provide te
1c60: 61 70 6f 74 63 6c 69 65 6e 74 20 30 2e 31 0a apotclient 0.1.