Check-in [847b413b81]
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
45
46
47
48
49
50

51



52
53
54
55
56
57
58
			foreach ext $failedexts {
				puts "  $ext"
			}
			exit 1
		}
	}
	"list" {

		set os [string tolower $tcl_platform(os)]



		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]
		}







>
|
>
>
>







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]
		}