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

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