Check-in [aca04fd88d]
Overview
Comment: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
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:aca04fd88d1a88abd0561604702de38ed929503e
User & Date: rkeene on 2009-04-18 03:04:04
Other Links: manifest | tags
Context
2009-04-18
03:11
Updated client to sort list output check-in: 1efd339cd7 user: rkeene tags: trunk
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
Changes

Added .fossil-settings/ignore-glob version [f6e6d8eca3].

            1  +client/teapot-client.kit
            2  +client/teapot-client.kit/*

Added client/Makefile version [3e756cea1a].

            1  +all: teapot-client.kit
            2  +
            3  +teapot-client.kit: teapot-client.tcl lib/teapotclient0.1/pkgIndex.tcl lib/teapotclient0.1/teapotclient.tcl
            4  +	rm -rf teapot-client-tmp.vfs
            5  +	mkdir teapot-client-tmp.vfs
            6  +	cp -r lib teapot-client.tcl teapot-client-tmp.vfs/
            7  +	echo 'package require starkit' > teapot-client-tmp.vfs/main.tcl
            8  +	echo 'starkit::startup' >> teapot-client-tmp.vfs/main.tcl
            9  +	echo 'source $$starkit::topdir/teapot-client.tcl' >> teapot-client-tmp.vfs/main.tcl
           10  +	./teapot-client.tcl get teapot-client-tmp.vfs/ tcl tcl md5 fileutil
           11  +	$$(../../starkit2exe/support/find-tclkit) ../../starkit2exe/support/sdx.kit wrap teapot-client-tmp.kit
           12  +	rm -rf teapot-client-tmp.vfs
           13  +	mv teapot-client-tmp.kit teapot-client.kit
           14  +
           15  +clean:
           16  +	rm -f teapot-client.kit
           17  +	rm -rf teapot-client-tmp.vfs
           18  +
           19  +distclean: clean
           20  +
           21  +.PHONY: all clean distclean

Modified client/lib/teapotclient0.1/teapotclient.tcl from [b940fef8b1] to [e6f656d8b6].

     5      5   
     6      6   package require md5
     7      7   package require http
     8      8   package require fileutil
     9      9   
    10     10   namespace eval ::teapotclient {}
    11     11   namespace eval ::teapotclient {
    12         -	set pkgcachedir "/tmp/DELETEME_teapotclient_[string tolower [md5::md5 -hex [list [info script] $::tcl_platform(user)]]].cache"
           12  +	proc __get_tmpdir {} {
           13  +		foreach checkenv [list TMPDIR TEMP TMP TEMPDIR] {
           14  +			if {[info exists ::env($checkenv)]} {
           15  +				return $::env($checkenv)
           16  +			}
           17  +		}
           18  +		return "/tmp"
           19  +	}
           20  +
           21  +	set pkgcachedir [file join [__get_tmpdir] "DELETEME_teapotclient_[string tolower [md5::md5 -hex [list [info script] $::tcl_platform(user)]]].cache"]
    13     22   
    14     23           # Conversions from Teapot-style names to local ones
    15     24   	set osTeapotToLocal(tcl) *
    16     25   	set osTeapotToLocal(linux-*) linux
    17     26   	set osTeapotToLocal(win32) windows
    18     27   	set osTeapotToLocal(solaris*) solaris
    19     28   	set osTeapotToLocal(freebsd) freebsd_*
................................................................................
   146    155   			if {[lsearch $existingExts $dep] == -1} {
   147    156   				lappend existingExts $dep
   148    157   				lappend fetchDeps $dep
   149    158   			}
   150    159   		}
   151    160   
   152    161   		if {[info exists fetchDeps]} {
   153         -			set addRet [download_extensions_teapot $rootdir $servers $fetchDeps $os $cpu $existingExts]
          162  +			set addRet [download_extensions $rootdir $servers $fetchDeps $os $cpu $existingExts]
   154    163   			array set retarr $addRet
   155    164   		}
   156    165   
   157    166   		return [array get retarr]
   158    167   	}
   159    168   
   160    169   	proc get_extensions {server {limitos "*"} {limitcpu "*"}} {

Modified client/teapot-client.tcl from [74f5cdd85f] to [dbdef8ce98].

     3      3   set teapotservers [list teapot.activestate.com]
     4      4   
     5      5   lappend auto_path [file join [file dirname [info script]] lib]
     6      6   
     7      7   package require teapotclient
     8      8   
     9      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>??"
           10  +	puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>"
           11  +	puts stderr "Usage: teapot-client list ?<os> ?<cpu>??"
    12     12   }
    13     13   
    14     14   set cmd [lindex $argv 0]
    15     15   set argv [lrange $argv 1 end]
    16     16   
    17     17   switch -- $cmd {
    18     18   	"get" {