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.
33 lines
702 B
33 lines
702 B
2 years ago
|
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-"
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|