Run a tcl script from a shell script

[rbautch]

I want to launch an interactive tcl script from a shell script, but when I try, it seems that the standard input channel gets messed up. For example, the following code:

Code: Select all

puts -nonewline stdout "What is your name?: " 
flush stdout set name [gets stdin]

returns the following error:

Code: Select all

error reading "file0": I/O error while executing "gets stdin"

..but the error only occurs when I launch the tcl script from a shell script. It works fine when I run it directly from bash prompt. Any ideas how to fix this?

[demond]

post your shell script

[rbautch]

Here is the shell script, which basically just launches two tcl scripts. The first tcl script is not interactive, so it runs fine. The second tcl script chokes when I run it from this script, but works fine when I run it from bash prompt. Thanks in advance.

Code: Select all

#!/bin/sh
tivosh netconfig.tcl
tivosh setSSIDwep.tcl

[demond]

hmm not much information there... what's tivosh? a TiVo shell?

[rbautch]

Tivosh is indeed TivoShell, a customized TCL installation for Tivos. I don't have a Linux PC I can test this on, so can you copy the "test" script from my original post and try to run it from bash?...Then from a simple shell script? Thanks!!

[De Kus]

just a little note... you are aware that your script is running from sh not from bash?!

[demond]

just a little note... you are aware that your script is running from sh not from bash?!

on Linux, /bin/sh is merely a symlink to bash

[demond]

...and yes, it runs fine for me in both cases: when given as argument to tclsh on the shell prompt, and when tclsh is invoked from a shell script

[Ofloo]

I want to launch an interactive tcl script from a shell script, but when I try, it seems that the standard input channel gets messed up. For example, the following code:

Code: Select all

puts -nonewline stdout "What is your name?: " 
flush stdout set name [gets stdin]

returns the following error:

Code: Select all

error reading "file0": I/O error while executing "gets stdin"

..but the error only occurs when I launch the tcl script from a shell script. It works fine when I run it directly from bash prompt. Any ideas how to fix this?

are you trying to do something like this ?

Code: Select all

#!/usr/local/bin/tclsh8.4
fileevent stdin readable [list [puts STDIN->[gets stdin]]]
vwait _forever_