Check-in [d64ee24bd0]
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         -}