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 2 |
client/teapot-client.kit client/teapot-client.kit/* |
Added client/Makefile version [3e756cea1a].
> > > > > > > > > > > > > > > > > > > > > |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
all: teapot-client.kit teapot-client.kit: teapot-client.tcl lib/teapotclient0.1/pkgIndex.tcl lib/teapotclient0.1/teapotclient.tcl rm -rf teapot-client-tmp.vfs mkdir teapot-client-tmp.vfs cp -r lib teapot-client.tcl teapot-client-tmp.vfs/ echo 'package require starkit' > teapot-client-tmp.vfs/main.tcl echo 'starkit::startup' >> teapot-client-tmp.vfs/main.tcl echo 'source $$starkit::topdir/teapot-client.tcl' >> teapot-client-tmp.vfs/main.tcl ./teapot-client.tcl get teapot-client-tmp.vfs/ tcl tcl md5 fileutil $$(../../starkit2exe/support/find-tclkit) ../../starkit2exe/support/sdx.kit wrap teapot-client-tmp.kit rm -rf teapot-client-tmp.vfs mv teapot-client-tmp.kit teapot-client.kit clean: rm -f teapot-client.kit rm -rf teapot-client-tmp.vfs distclean: clean .PHONY: all clean distclean |
Modified client/lib/teapotclient0.1/teapotclient.tcl from [b940fef8b1] to [e6f656d8b6].
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
...
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
package require md5 package require http package require fileutil namespace eval ::teapotclient {} namespace eval ::teapotclient { set pkgcachedir "/tmp/DELETEME_teapotclient_[string tolower [md5::md5 -hex [list [info script] $::tcl_platform(user)]]].cache" # Conversions from Teapot-style names to local ones set osTeapotToLocal(tcl) * set osTeapotToLocal(linux-*) linux set osTeapotToLocal(win32) windows set osTeapotToLocal(solaris*) solaris set osTeapotToLocal(freebsd) freebsd_* ................................................................................ if {[lsearch $existingExts $dep] == -1} { lappend existingExts $dep lappend fetchDeps $dep } } if {[info exists fetchDeps]} { set addRet [download_extensions_teapot $rootdir $servers $fetchDeps $os $cpu $existingExts] array set retarr $addRet } return [array get retarr] } proc get_extensions {server {limitos "*"} {limitcpu "*"}} { |
>
>
>
>
>
>
>
>
>
|
|
|
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
...
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
package require md5 package require http package require fileutil namespace eval ::teapotclient {} namespace eval ::teapotclient { proc __get_tmpdir {} { foreach checkenv [list TMPDIR TEMP TMP TEMPDIR] { if {[info exists ::env($checkenv)]} { return $::env($checkenv) } } return "/tmp" } set pkgcachedir [file join [__get_tmpdir] "DELETEME_teapotclient_[string tolower [md5::md5 -hex [list [info script] $::tcl_platform(user)]]].cache"] # Conversions from Teapot-style names to local ones set osTeapotToLocal(tcl) * set osTeapotToLocal(linux-*) linux set osTeapotToLocal(win32) windows set osTeapotToLocal(solaris*) solaris set osTeapotToLocal(freebsd) freebsd_* ................................................................................ if {[lsearch $existingExts $dep] == -1} { lappend existingExts $dep lappend fetchDeps $dep } } if {[info exists fetchDeps]} { set addRet [download_extensions $rootdir $servers $fetchDeps $os $cpu $existingExts] array set retarr $addRet } return [array get retarr] } proc get_extensions {server {limitos "*"} {limitcpu "*"}} { |
Modified client/teapot-client.tcl from [74f5cdd85f] to [dbdef8ce98].
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
set teapotservers [list teapot.activestate.com] lappend auto_path [file join [file dirname [info script]] lib] package require teapotclient proc print_help {} { puts stderr "Usage: teapot-client.tcl get <dir> <os> <cpu> <packages...>" puts stderr "Usage: teapot-client.tcl list ?<os> ?<cpu>??" } set cmd [lindex $argv 0] set argv [lrange $argv 1 end] switch -- $cmd { "get" { |
| | |
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
set teapotservers [list teapot.activestate.com] lappend auto_path [file join [file dirname [info script]] lib] package require teapotclient proc print_help {} { puts stderr "Usage: teapot-client get <dir> <os> <cpu> <packages...>" puts stderr "Usage: teapot-client list ?<os> ?<cpu>??" } set cmd [lindex $argv 0] set argv [lrange $argv 1 end] switch -- $cmd { "get" { |