Artifact
2a9e8f84745ef3756c5714327ac728d049c991d4:
/*
* ThrowCmd.java --
*
* Implements the java::throw command.
*
* Copyright (c) 1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and
* redistribution of this file, and for a DISCLAIMER OF ALL
* WARRANTIES.
*
* RCS: @(#) $Id: JavaThrowCmd.java,v 1.2 2002/12/30 06:28:06 mdejong Exp $
*/
package tcl.lang;
import java.lang.reflect.*;
import java.beans.*;
/*
* This class implements the built-in "java::throw" command in Tcl.
*/
class JavaThrowCmd implements Command {
/*
*----------------------------------------------------------------------
*
* cmdProc --
*
* This procedure is invoked as part of the Command interface to
* process the "java::throw" Tcl command. It receives a Throwable
* object and throws it by encapsulating the Throwable inside
* a ReflectException, which inherits from TclException. If the
* Throwable is already of type TclException, throw it after
* resetting the interp result to the TclException message.
*
* Results:
* None.
*
* Side effects:
* Can change the interp result, errorInfo, and errorCode.
*
*----------------------------------------------------------------------
*/
public void
cmdProc(
Interp interp, // Current interpreter.
TclObject argv[]) // Argument list.
throws
TclException // Standard Tcl exception.
{
if (argv.length != 2) {
throw new TclNumArgsException(interp, 1, argv, "throwableObj");
}
Object javaObj = null;
javaObj = ReflectObject.get(interp, argv[1]);
if (!(javaObj instanceof Throwable)) {
throw new TclException(interp,
"bad object: must be an instance of Throwable");
} else if (javaObj instanceof TclException) {
TclException te = (TclException) javaObj;
interp.setResult(te.getMessage());
throw te;
} else {
throw new ReflectException(interp, (Throwable)javaObj);
}
}
} // end JavaThrowCmd