Julian Noble
2 years ago
2 changed files with 5 additions and 27 deletions
@ -0,0 +1,3 @@ |
|||||||
|
puts stdout "hello on stdout" |
||||||
|
puts stderr "hello on stderr" |
||||||
|
|
@ -1,32 +1,7 @@ |
|||||||
puts -nonewline stdout "info script\r\n" |
#puts -nonewline stdout "info script\r\n" |
||||||
puts stdout "[info script]" |
#puts stdout "[info script]" |
||||||
puts stdout "::argc" |
puts stdout "::argc" |
||||||
puts stdout $::argc |
puts stdout $::argc |
||||||
puts stdout "::argv" |
puts stdout "::argv" |
||||||
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-" |
|
||||||
} |
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in new issue