Overview
| Comment: | Renamed teapot.tcl to teapot-client.tcl |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | d64ee24bd06d9556508500e46c9198aedc6eb3bd |
| User & Date: | rkeene on 2009-04-18 02:48:01 |
| Other Links: | manifest | tags |
Context
|
2009-04-18
| ||
| 03:04 | Added Makefile to build Starkit Fixed bug in teapot client package Updated teapot client package to use various temporary directory possibilities Updated help on teapot client check-in: aca04fd88d user: rkeene tags: trunk | |
| 02:48 | Renamed teapot.tcl to teapot-client.tcl check-in: d64ee24bd0 user: rkeene tags: trunk | |
| 02:43 | Added teapot project (client-only so far), derivative of starkit2exe check-in: 1bf8a9efe1 user: rkeene tags: trunk | |
Changes
Added client/teapot-client.tcl version [74f5cdd85f].
1 +#! /usr/bin/env tclsh 2 + 3 +set teapotservers [list teapot.activestate.com] 4 + 5 +lappend auto_path [file join [file dirname [info script]] lib] 6 + 7 +package require teapotclient 8 + 9 +proc print_help {} { 10 + puts stderr "Usage: teapot-client.tcl get <dir> <os> <cpu> <packages...>" 11 + puts stderr "Usage: teapot-client.tcl list ?<os> ?<cpu>??" 12 +} 13 + 14 +set cmd [lindex $argv 0] 15 +set argv [lrange $argv 1 end] 16 + 17 +switch -- $cmd { 18 + "get" { 19 + if {[llength $argv] < 4} { 20 + print_help 21 + exit 1 22 + } 23 + 24 + set dir [lindex $argv 0] 25 + set os [lindex $argv 1] 26 + set cpu [lindex $argv 2] 27 + set packages [lrange $argv 3 end] 28 + set extsinfo [::teapotclient::download_extensions $dir $teapotservers $packages $os $cpu] 29 + set exts [list] 30 + puts "Fetched Extensions:" 31 + foreach {ext extinfo} $extsinfo { 32 + lappend exts $ext 33 + puts " $ext v[lindex $extinfo 0]" 34 + } 35 + 36 + set failedexts [list] 37 + foreach pkg $packages { 38 + if {[lsearch -exact $exts $pkg] == -1} { 39 + lappend failedexts $pkg 40 + } 41 + } 42 + if {[llength $failedexts] != 0} { 43 + puts "Failed to fetch:" 44 + foreach ext $failedexts { 45 + puts " $ext" 46 + } 47 + exit 1 48 + } 49 + } 50 + "list" { 51 + set os "*" 52 + set cpu "*" 53 + if {[llength $argv] > 0} { 54 + set os [lindex $argv 0] 55 + } 56 + if {[llength $argv] > 1} { 57 + set cpu [lindex $argv 1] 58 + } 59 + 60 + puts "Extensions available for OS=$os, CPU=$cpu:" 61 + 62 + set extsinfo [::teapotclient::get_extensions $teapotservers $os $cpu] 63 + foreach {ext extinfo} $extsinfo { 64 + set extvers [list] 65 + foreach extinfoitem $extinfo { 66 + set extinfoitemvers [lindex $extinfoitem 0] 67 + if {[lsearch -exact $extvers $extinfoitemvers] == -1} { 68 + lappend extvers $extinfoitemvers 69 + } 70 + } 71 + set extvers [lsort -decreasing -dictionary $extvers] 72 + 73 + puts " $ext [lindex $extvers 0]" 74 + } 75 + } 76 + default { 77 + print_help 78 + exit 1 79 + } 80 +}
Deleted client/teapot.tcl version [384fceb21a].
1 -#! /usr/bin/env tclsh 2 - 3 -set teapotservers [list teapot.activestate.com] 4 - 5 -lappend auto_path [file join [file dirname [info script]] lib] 6 - 7 -package require teapotclient 8 - 9 -proc print_help {} { 10 - puts stderr "Usage: teapot.tcl get <dir> <os> <cpu> <packages...>" 11 - puts stderr "Usage: teapot.tcl list ?<os> ?<cpu>??" 12 -} 13 - 14 -set cmd [lindex $argv 0] 15 -set argv [lrange $argv 1 end] 16 - 17 -switch -- $cmd { 18 - "get" { 19 - if {[llength $argv] < 4} { 20 - print_help 21 - exit 1 22 - } 23 - 24 - set dir [lindex $argv 0] 25 - set os [lindex $argv 1] 26 - set cpu [lindex $argv 2] 27 - set packages [lrange $argv 3 end] 28 - set extsinfo [::teapotclient::download_extensions $dir $teapotservers $packages $os $cpu] 29 - set exts [list] 30 - puts "Fetched Extensions:" 31 - foreach {ext extinfo} $extsinfo { 32 - lappend exts $ext 33 - puts " $ext v[lindex $extinfo 0]" 34 - } 35 - 36 - set failedexts [list] 37 - foreach pkg $packages { 38 - if {[lsearch -exact $exts $pkg] == -1} { 39 - lappend failedexts $pkg 40 - } 41 - } 42 - if {[llength $failedexts] != 0} { 43 - puts "Failed to fetch:" 44 - foreach ext $failedexts { 45 - puts " $ext" 46 - } 47 - exit 1 48 - } 49 - } 50 - "list" { 51 - set os "*" 52 - set cpu "*" 53 - if {[llength $argv] > 0} { 54 - set os [lindex $argv 0] 55 - } 56 - if {[llength $argv] > 1} { 57 - set cpu [lindex $argv 1] 58 - } 59 - 60 - puts "Extensions available for OS=$os, CPU=$cpu:" 61 - 62 - set extsinfo [::teapotclient::get_extensions $teapotservers $os $cpu] 63 - foreach {ext extinfo} $extsinfo { 64 - set extvers [list] 65 - foreach extinfoitem $extinfo { 66 - set extinfoitemvers [lindex $extinfoitem 0] 67 - if {[lsearch -exact $extvers $extinfoitemvers] == -1} { 68 - lappend extvers $extinfoitemvers 69 - } 70 - } 71 - set extvers [lsort -decreasing -dictionary $extvers] 72 - 73 - puts " $ext [lindex $extvers 0]" 74 - } 75 - } 76 - default { 77 - print_help 78 - exit 1 79 - } 80 -}