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: | 847b413b810123693b2c77e76e5c2153a5b2bc07 |
| 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 44 foreach ext $failedexts { 45 45 puts " $ext" 46 46 } 47 47 exit 1 48 48 } 49 49 } 50 50 "list" { 51 - set os [string tolower $tcl_platform(os)] 51 + if {$tcl_platform(platform) == "unix"} { 52 + set os [string tolower $tcl_platform(os)] 53 + } else { 54 + set os [string tolower $tcl_platform(platform)] 55 + } 52 56 set cpu [string tolower $tcl_platform(machine)] 53 57 if {[llength $argv] > 0} { 54 58 set os [lindex $argv 0] 55 59 } 56 60 if {[llength $argv] > 1} { 57 61 set cpu [lindex $argv 1] 58 62 }