Browse Source

scriptlib update showargs.tcl to only show args, hello.tcl to emit on stdout & stderr

master
Julian Noble 1 year ago
parent
commit
99e9e2131d
  1. 3
      scriptlib/hello.tcl
  2. 29
      scriptlib/showargs.tcl

3
scriptlib/hello.tcl

@ -0,0 +1,3 @@
puts stdout "hello on stdout"
puts stderr "hello on stderr"

29
scriptlib/showargs.tcl

@ -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…
Cancel
Save