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 stdout "[info script]" |
||||
#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-" |
||||
} |
||||
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in new issue