Thread: [tcljava-user] [Tcl Java] Help executing tcl script from java - long post with s ource

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Hello:

I looked at a similar request in the archives [30Oct2000] and I am have
trouble getting any
output back from the tcl script. Using the modified sample suggested by Mo
DeJong. I am
able to get an output returned from the simple tcl script when called by
CallTcl.java.
myTest.tcl returns a value to the java program when it contains:

//myTest.tcl
return [exec date]
exit0;

But it hangs when I try:

//mytest.tcl
return [exec xclock \&]
exit0;

It never returns...

What I'm trying to learn is, how to return a process ID of an app launched
by tcl to java. The
original expect script spawned a shell process that returned the process of
the spawned shell.
From there, I used ps -s to get the process id of the java process launched
by the shell. I want
to later kill that java process started by the shell. I get, pipe not
supported exception message
when I tried:

if [catch {open "|$command }]

So I'm experimenting... execute the expect script and get the return, but it
also hangs.
Figure out how to change the script to tcl with out using open| pipe. So I
am using the xclock
to fiddle with how to get the process ID with out hanging.

I am using:
   tcl8.3.2 from TclPro1.5 (solaris-sparc)
   jacl1.2.6 and tclBlend1.2.6
for this exercise...

thanks in advance and then-some :-)

Cliff

// learning sample that executes the tcl script that returns a process id
import tcl.lang.*;
public class CallTcl {
    Interp interp = new Interp();
    public String evalScript( String s ) throws TclException
    {
        interp.eval( "source " + s );
        System.out.println("-> " + interp.getResult().toString() );
        return interp.getResult().toString();
    }

    public static void main( String args[] ) throws Exception
    {
        CallTcl callTcl = new CallTcl();
        String cmd = "myTest.tcl";
        try
        {
            callTcl.evalScript( cmd );
        }
        catch ( TclException te )
        {
            te.printStackTrace();
        }
        callTcl.interp.dispose();
    }
}

// this was the origional expect script I'm trying to convert to tcl
#! /opt/ajuba/TclPro1.5/solaris-sparc/bin/expect --
    global spawn_id env

    set web_start $env(MISC_SHELLPATH)/bin/start.sh
    set web_id [spawn -noecho $web_start]
    set spawn_id $spawn_id
    sleep 2

    set buf01 [exec ps -s$web_id]
    set jindex [lsearch $buf01 "java"]
    set wl_pid [lindex $buf01 [expr $jindex - 3]]

    return $wl_pid