You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
32 lines
702 B
32 lines
702 B
puts -nonewline stdout "info script\r\n" |
|
puts stdout "[info script]" |
|
puts stdout "::argc" |
|
puts stdout $::argc |
|
puts stdout "::argv" |
|
puts stdout "$::argv" |
|
puts stdout "NS" |
|
puts stdout "[namespace current]" |
|
|
|
if {[info exists ::test]} { |
|
puts stdout "::test has existing value" |
|
puts stdout "$::test" |
|
} |
|
|
|
puts stdout "setting ::test to showargs-ran" |
|
set ::test "showargs-ran" |
|
puts stdout "doing basic check of stdin for data" |
|
chan configure stdin -blocking 0 |
|
set indata "" |
|
if {![chan eof stdin]} { |
|
#set indata [read stdin] |
|
} |
|
if {[string length $indata]} { |
|
puts stdout "read from stdin:" |
|
puts stdout $indata |
|
} else { |
|
puts stdout "-no stdin data read-" |
|
} |
|
|
|
|
|
|
|
|
|
|