Re: [tcljava-user] Another question

[Mo D. <md...@cy...>]

On Tue, 15 May 2001, Tam Huynh wrote:

> Please bear with me, i'm just learning this...
> I have set my classpath env var for tclblend.jar and tcljava.jar so why ami
> i getting this error?  My tcl script should be able to call the C function
> once it is loaded right?
> 
> Thanks again for any help..
> 
> public static void main(String args[])
> {
> 	try
> 	{
> 	String myfile = "d:/Tcl83/bin/example.tcl";
> 	Interp newInterp = new Interp();
> 	newInterp.eval("load " + "d:/tcl83/lib/example.dll");
> 	newInterp.evalFile(myfile);
> 	newInterp.dispose();
> 	}
> }
> 
> ERRORS:
> 
> tcl.lang.TclException
> tcl.lang.TclException
>         at tcl.lang.ReturnCmd.cmdProc(ReturnCmd.java)
>         at tcl.lang.Parser.evalObjv(Parser.java)
>         at tcl.lang.Parser.eval2(Parser.java)
>         at tcl.lang.Procedure.cmdProc(Procedure.java)
>         at tcl.lang.Parser.evalObjv(Parser.java)
>         at tcl.lang.Parser.evalObjv(Parser.java)
>         at tcl.lang.Parser.eval2(Parser.java)
>         at tcl.lang.Interp.eval(Interp.java)
>         at tcl.lang.Interp.eval(Interp.java)
>         at Demo1.main(Demo1.java:1003)


You need to deal with a return in the calling code,
the way Tcl exceptions are mapped to Java exception
demand it. Here is a quick snip from
src/jacl/tcl/lang/Shell.java.

        try {
            interp.evalFile(fileName);
        } catch (TclException e) {
            int code = e.getCompletionCode();
            if (code == TCL.RETURN) {
                code = interp.updateReturnInfo();
                if (code != TCL.OK) {
                    System.err.println("command returned bad code: " + code);
                }
            } else if (code == TCL.ERROR) {
                System.err.println(interp.getResult().toString());
            } else {
                System.err.println("command returned bad code: " + code);
            }

Mo