At csh you can do
set ignoreeof
or at bash tou can do
export ignoreeof=1
and this will make csh/bash to ignore EOF, i.e. it will not exit on Ctrl+D, or when it reaches the end or file.
Is there a way to make the same with tclsh ?
Is there a way to make tclsh not to exit when it reaches the end of file ?
You might want Expect: save this as tclsh.exp
#! /usr/bin/env expect
log_user 0
spawn tclsh
if {[llength $argv] > 0} {
send -- "set argv [list [lrange $argv 1 end]]; source [lindex $argv 0]\r"
}
interact
then run tclsh.exp somefile.tcl arg arg ...
If tclsh is running a script, it doesn't exit on detecting an EOF on stdin; that's purely a feature of the built-in REPL. You can detect such a condition yourself using eof stdin, at which point you can decide what to do about it.
If you're wanting to make a Ctrl+D not be EOF, then your easiest method is to put the terminal into raw mode, like this:
set sttySettings [exec stty -g <@stdin]
exec stty -echo raw <@stdin
When you're done, switch back like this:
exec stty $sttySettings <@stdin
Make sure you switch back before the program exits!
The other thing is that if you're working with raw input, you've got to handle all line editing yourself. A convenient way to do this is to use a pure Tcl readline-alike system such as this example from the Tcler's Wiki. You might need to adapt it a bit to make Ctrl+D do what you want.
An alternative is to do this which leaves things in cooked mode and just makes Ctrl+D non-special (tested on OSX):
exec stty eof "" <@stdin
Again, you need to set things back on exit, and the fact that it's not special at all might cause problems elsewhere; after that trick above, it's just a normal character.