Overview
| Comment: | Updated teapot-client to (possibly...) work on Windows |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
847b413b810123693b2c77e76e5c2153 |
| User & Date: | rkeene on 2009-04-18 04:00:40 |
| Other Links: | manifest | tags |
Context
|
2009-04-18
| ||
| 21:22 | Added install target check-in: 3ae29b0fdc user: rkeene tags: trunk | |
| 04:00 | Updated teapot-client to (possibly...) work on Windows check-in: 847b413b81 user: rkeene tags: trunk | |
| 03:58 | Updated teapot-client list to default to using the current system information check-in: 222dca07e6 user: rkeene tags: trunk | |
Changes
Modified client/teapot-client.tcl from [2810807ee8] to [99bcefeb9e].
| ︙ | ︙ | |||
44 45 46 47 48 49 50 |
foreach ext $failedexts {
puts " $ext"
}
exit 1
}
}
"list" {
| > | > > > | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
foreach ext $failedexts {
puts " $ext"
}
exit 1
}
}
"list" {
if {$tcl_platform(platform) == "unix"} {
set os [string tolower $tcl_platform(os)]
} else {
set os [string tolower $tcl_platform(platform)]
}
set cpu [string tolower $tcl_platform(machine)]
if {[llength $argv] > 0} {
set os [lindex $argv 0]
}
if {[llength $argv] > 1} {
set cpu [lindex $argv 1]
}
|
| ︙ | ︙ |