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
1.2 KiB
32 lines
1.2 KiB
|
|
set exebase [file rootname [file tail [info nameofexecutable]]] |
|
|
|
puts stdout "------------------------" |
|
puts stdout "message from script" |
|
puts stdout "exebase : $exebase" |
|
puts stdout "::tcl_interactive : $::tcl_interactive" |
|
puts stdout "::tclsh(istty) : $::tclsh(istty)" |
|
puts stdout "------------------------" |
|
|
|
|
|
#optionally read part or all of stdin, |
|
#but we don't know how to put data back into stdin - so partial read should only be done if there is a protocol for the data to be read and processed. |
|
#set inputdata [read stdin] |
|
|
|
if {"-noeval" ni $::argv} { |
|
set ::tclsh(evalinput) 1 |
|
} else { |
|
if {"-eat2" in $::argv} { |
|
set eat [read stdin 2] |
|
puts stdout "stdin read: [string length $eat] bytes" |
|
puts stdout $eat |
|
puts stdout "info exist ::tclsh(inputbuffer): [info exists ::tclsh(inputbuffer)]" |
|
} |
|
#set ::tclsh(evalinput) 0 |
|
} |
|
#now that we have set the evalinput flag for PIPEREPL - when we exit this script - the piperepl will read from stdin and evaluate any remaining input as tcl code. |
|
#This means that no matter what we do with ::tclsh(dorepl) - it could be overridden by the script on the input. that's ok. |
|
|
|
if {"-dorepl" in $::argv} { |
|
set ::tclsh(dorepl) 1 |
|
} |