01: /*
02: * JavaGetInterpCmd.java --
03: *
04: * Implements the built-in "java::getinterp" command.
05: *
06: * Copyright (c) 1997 Sun Microsystems, Inc.
07: *
08: * See the file "license.terms" for information on usage and
09: * redistribution of this file, and for a DISCLAIMER OF ALL
10: * WARRANTIES.
11: *
12: * RCS: @(#) $Id: JavaGetInterpCmd.java,v 1.1.1.1 1998/10/14 21:09:14 cvsadmin Exp $
13: */
14:
15: package tcl.lang;
16:
17: /*
18: * Implements the built-in "java::getinterp" command.
19: */
20:
21: class JavaGetInterpCmd implements Command {
22:
23: /*----------------------------------------------------------------------
24: *
25: * cmdProc --
26: *
27: * This procedure is invoked to process the "java::getInterp" Tcl
28: * command. See the user documentation for details on what it
29: * does.
30: *
31: * Results:
32: * None.
33: *
34: * Side effects:
35: * A standard Tcl result is stored in the interpreter.
36: *
37: *----------------------------------------------------------------------
38: */
39:
40: public void cmdProc(Interp interp, // Current interpreter.
41: TclObject argv[]) // Argument list.
42: throws TclException // A standard Tcl exception.
43: {
44: interp.setResult(ReflectObject.newInstance(interp,
45: Interp.class, interp));
46: }
47:
48: } // end JavaGetInterpCmd
|