Artifact 74f5cdd85f2f0248fee0d6b600e65580e3b945a2:
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 73 65 74 20 74 65 61 70 6f tclsh..set teapo
0020: 74 73 65 72 76 65 72 73 20 5b 6c 69 73 74 20 74 tservers [list t
0030: 65 61 70 6f 74 2e 61 63 74 69 76 65 73 74 61 74 eapot.activestat
0040: 65 2e 63 6f 6d 5d 0a 0a 6c 61 70 70 65 6e 64 20 e.com]..lappend
0050: 61 75 74 6f 5f 70 61 74 68 20 5b 66 69 6c 65 20 auto_path [file
0060: 6a 6f 69 6e 20 5b 66 69 6c 65 20 64 69 72 6e 61 join [file dirna
0070: 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d me [info script]
0080: 5d 20 6c 69 62 5d 0a 0a 70 61 63 6b 61 67 65 20 ] lib]..package
0090: 72 65 71 75 69 72 65 20 74 65 61 70 6f 74 63 6c require teapotcl
00a0: 69 65 6e 74 0a 0a 70 72 6f 63 20 70 72 69 6e 74 ient..proc print
00b0: 5f 68 65 6c 70 20 7b 7d 20 7b 0a 09 70 75 74 73 _help {} {..puts
00c0: 20 73 74 64 65 72 72 20 22 55 73 61 67 65 3a 20 stderr "Usage:
00d0: 74 65 61 70 6f 74 2d 63 6c 69 65 6e 74 2e 74 63 teapot-client.tc
00e0: 6c 20 67 65 74 20 3c 64 69 72 3e 20 3c 6f 73 3e l get <dir> <os>
00f0: 20 3c 63 70 75 3e 20 3c 70 61 63 6b 61 67 65 73 <cpu> <packages
0100: 2e 2e 2e 3e 22 0a 09 70 75 74 73 20 73 74 64 65 ...>"..puts stde
0110: 72 72 20 22 55 73 61 67 65 3a 20 74 65 61 70 6f rr "Usage: teapo
0120: 74 2d 63 6c 69 65 6e 74 2e 74 63 6c 20 6c 69 73 t-client.tcl lis
0130: 74 20 3f 3c 6f 73 3e 20 3f 3c 63 70 75 3e 3f 3f t ?<os> ?<cpu>??
0140: 22 0a 7d 0a 0a 73 65 74 20 63 6d 64 20 5b 6c 69 ".}..set cmd [li
0150: 6e 64 65 78 20 24 61 72 67 76 20 30 5d 0a 73 65 ndex $argv 0].se
0160: 74 20 61 72 67 76 20 5b 6c 72 61 6e 67 65 20 24 t argv [lrange $
0170: 61 72 67 76 20 31 20 65 6e 64 5d 0a 0a 73 77 69 argv 1 end]..swi
0180: 74 63 68 20 2d 2d 20 24 63 6d 64 20 7b 0a 09 22 tch -- $cmd {.."
0190: 67 65 74 22 20 7b 0a 09 09 69 66 20 7b 5b 6c 6c get" {...if {[ll
01a0: 65 6e 67 74 68 20 24 61 72 67 76 5d 20 3c 20 34 ength $argv] < 4
01b0: 7d 20 7b 0a 09 09 09 70 72 69 6e 74 5f 68 65 6c } {....print_hel
01c0: 70 0a 09 09 09 65 78 69 74 20 31 0a 09 09 7d 0a p....exit 1...}.
01d0: 0a 09 09 73 65 74 20 64 69 72 20 5b 6c 69 6e 64 ...set dir [lind
01e0: 65 78 20 24 61 72 67 76 20 30 5d 0a 09 09 73 65 ex $argv 0]...se
01f0: 74 20 6f 73 20 5b 6c 69 6e 64 65 78 20 24 61 72 t os [lindex $ar
0200: 67 76 20 31 5d 0a 09 09 73 65 74 20 63 70 75 20 gv 1]...set cpu
0210: 5b 6c 69 6e 64 65 78 20 24 61 72 67 76 20 32 5d [lindex $argv 2]
0220: 0a 09 09 73 65 74 20 70 61 63 6b 61 67 65 73 20 ...set packages
0230: 5b 6c 72 61 6e 67 65 20 24 61 72 67 76 20 33 20 [lrange $argv 3
0240: 65 6e 64 5d 0a 09 09 73 65 74 20 65 78 74 73 69 end]...set extsi
0250: 6e 66 6f 20 5b 3a 3a 74 65 61 70 6f 74 63 6c 69 nfo [::teapotcli
0260: 65 6e 74 3a 3a 64 6f 77 6e 6c 6f 61 64 5f 65 78 ent::download_ex
0270: 74 65 6e 73 69 6f 6e 73 20 24 64 69 72 20 24 74 tensions $dir $t
0280: 65 61 70 6f 74 73 65 72 76 65 72 73 20 24 70 61 eapotservers $pa
0290: 63 6b 61 67 65 73 20 24 6f 73 20 24 63 70 75 5d ckages $os $cpu]
02a0: 0a 09 09 73 65 74 20 65 78 74 73 20 5b 6c 69 73 ...set exts [lis
02b0: 74 5d 0a 09 09 70 75 74 73 20 22 46 65 74 63 68 t]...puts "Fetch
02c0: 65 64 20 45 78 74 65 6e 73 69 6f 6e 73 3a 22 0a ed Extensions:".
02d0: 09 09 66 6f 72 65 61 63 68 20 7b 65 78 74 20 65 ..foreach {ext e
02e0: 78 74 69 6e 66 6f 7d 20 24 65 78 74 73 69 6e 66 xtinfo} $extsinf
02f0: 6f 20 7b 0a 09 09 09 6c 61 70 70 65 6e 64 20 65 o {....lappend e
0300: 78 74 73 20 24 65 78 74 0a 09 09 09 70 75 74 73 xts $ext....puts
0310: 20 22 20 20 24 65 78 74 20 76 5b 6c 69 6e 64 65 " $ext v[linde
0320: 78 20 24 65 78 74 69 6e 66 6f 20 30 5d 22 0a 09 x $extinfo 0]"..
0330: 09 7d 0a 0a 09 09 73 65 74 20 66 61 69 6c 65 64 .}....set failed
0340: 65 78 74 73 20 5b 6c 69 73 74 5d 0a 09 09 66 6f exts [list]...fo
0350: 72 65 61 63 68 20 70 6b 67 20 24 70 61 63 6b 61 reach pkg $packa
0360: 67 65 73 20 7b 0a 09 09 09 69 66 20 7b 5b 6c 73 ges {....if {[ls
0370: 65 61 72 63 68 20 2d 65 78 61 63 74 20 24 65 78 earch -exact $ex
0380: 74 73 20 24 70 6b 67 5d 20 3d 3d 20 2d 31 7d 20 ts $pkg] == -1}
0390: 7b 0a 09 09 09 09 6c 61 70 70 65 6e 64 20 66 61 {.....lappend fa
03a0: 69 6c 65 64 65 78 74 73 20 24 70 6b 67 0a 09 09 iledexts $pkg...
03b0: 09 7d 0a 09 09 7d 0a 09 09 69 66 20 7b 5b 6c 6c .}...}...if {[ll
03c0: 65 6e 67 74 68 20 24 66 61 69 6c 65 64 65 78 74 ength $failedext
03d0: 73 5d 20 21 3d 20 30 7d 20 7b 0a 09 09 09 70 75 s] != 0} {....pu
03e0: 74 73 20 22 46 61 69 6c 65 64 20 74 6f 20 66 65 ts "Failed to fe
03f0: 74 63 68 3a 22 0a 09 09 09 66 6f 72 65 61 63 68 tch:"....foreach
0400: 20 65 78 74 20 24 66 61 69 6c 65 64 65 78 74 73 ext $failedexts
0410: 20 7b 0a 09 09 09 09 70 75 74 73 20 22 20 20 24 {.....puts " $
0420: 65 78 74 22 0a 09 09 09 7d 0a 09 09 09 65 78 69 ext"....}....exi
0430: 74 20 31 0a 09 09 7d 0a 09 7d 0a 09 22 6c 69 73 t 1...}..}.."lis
0440: 74 22 20 7b 0a 09 09 73 65 74 20 6f 73 20 22 2a t" {...set os "*
0450: 22 0a 09 09 73 65 74 20 63 70 75 20 22 2a 22 0a "...set cpu "*".
0460: 09 09 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 ..if {[llength $
0470: 61 72 67 76 5d 20 3e 20 30 7d 20 7b 0a 09 09 09 argv] > 0} {....
0480: 73 65 74 20 6f 73 20 5b 6c 69 6e 64 65 78 20 24 set os [lindex $
0490: 61 72 67 76 20 30 5d 0a 09 09 7d 0a 09 09 69 66 argv 0]...}...if
04a0: 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 61 72 67 76 {[llength $argv
04b0: 5d 20 3e 20 31 7d 20 7b 0a 09 09 09 73 65 74 20 ] > 1} {....set
04c0: 63 70 75 20 5b 6c 69 6e 64 65 78 20 24 61 72 67 cpu [lindex $arg
04d0: 76 20 31 5d 0a 09 09 7d 0a 0a 09 09 70 75 74 73 v 1]...}....puts
04e0: 20 22 45 78 74 65 6e 73 69 6f 6e 73 20 61 76 61 "Extensions ava
04f0: 69 6c 61 62 6c 65 20 66 6f 72 20 4f 53 3d 24 6f ilable for OS=$o
0500: 73 2c 20 43 50 55 3d 24 63 70 75 3a 22 0a 0a 09 s, CPU=$cpu:"...
0510: 09 73 65 74 20 65 78 74 73 69 6e 66 6f 20 5b 3a .set extsinfo [:
0520: 3a 74 65 61 70 6f 74 63 6c 69 65 6e 74 3a 3a 67 :teapotclient::g
0530: 65 74 5f 65 78 74 65 6e 73 69 6f 6e 73 20 24 74 et_extensions $t
0540: 65 61 70 6f 74 73 65 72 76 65 72 73 20 24 6f 73 eapotservers $os
0550: 20 24 63 70 75 5d 0a 09 09 66 6f 72 65 61 63 68 $cpu]...foreach
0560: 20 7b 65 78 74 20 65 78 74 69 6e 66 6f 7d 20 24 {ext extinfo} $
0570: 65 78 74 73 69 6e 66 6f 20 7b 0a 09 09 09 73 65 extsinfo {....se
0580: 74 20 65 78 74 76 65 72 73 20 5b 6c 69 73 74 5d t extvers [list]
0590: 0a 09 09 09 66 6f 72 65 61 63 68 20 65 78 74 69 ....foreach exti
05a0: 6e 66 6f 69 74 65 6d 20 24 65 78 74 69 6e 66 6f nfoitem $extinfo
05b0: 20 7b 0a 09 09 09 09 73 65 74 20 65 78 74 69 6e {.....set extin
05c0: 66 6f 69 74 65 6d 76 65 72 73 20 5b 6c 69 6e 64 foitemvers [lind
05d0: 65 78 20 24 65 78 74 69 6e 66 6f 69 74 65 6d 20 ex $extinfoitem
05e0: 30 5d 0a 09 09 09 09 69 66 20 7b 5b 6c 73 65 61 0].....if {[lsea
05f0: 72 63 68 20 2d 65 78 61 63 74 20 24 65 78 74 76 rch -exact $extv
0600: 65 72 73 20 24 65 78 74 69 6e 66 6f 69 74 65 6d ers $extinfoitem
0610: 76 65 72 73 5d 20 3d 3d 20 2d 31 7d 20 7b 0a 09 vers] == -1} {..
0620: 09 09 09 09 6c 61 70 70 65 6e 64 20 65 78 74 76 ....lappend extv
0630: 65 72 73 20 24 65 78 74 69 6e 66 6f 69 74 65 6d ers $extinfoitem
0640: 76 65 72 73 0a 09 09 09 09 7d 0a 09 09 09 7d 0a vers.....}....}.
0650: 09 09 09 73 65 74 20 65 78 74 76 65 72 73 20 5b ...set extvers [
0660: 6c 73 6f 72 74 20 2d 64 65 63 72 65 61 73 69 6e lsort -decreasin
0670: 67 20 2d 64 69 63 74 69 6f 6e 61 72 79 20 24 65 g -dictionary $e
0680: 78 74 76 65 72 73 5d 0a 0a 09 09 09 70 75 74 73 xtvers].....puts
0690: 20 22 20 20 24 65 78 74 20 5b 6c 69 6e 64 65 78 " $ext [lindex
06a0: 20 24 65 78 74 76 65 72 73 20 30 5d 22 0a 09 09 $extvers 0]"...
06b0: 7d 0a 09 7d 0a 09 64 65 66 61 75 6c 74 20 7b 0a }..}..default {.
06c0: 09 09 70 72 69 6e 74 5f 68 65 6c 70 0a 09 09 65 ..print_help...e
06d0: 78 69 74 20 31 0a 09 7d 0a 7d 0a xit 1..}.}.