01: /*
02: * JavaNullCmd.java --
03: *
04: * Implements the built-in "java::null" 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: JavaNullCmd.java,v 1.2 1999/05/09 22:19:45 dejong Exp $
13: *
14: */
15:
16: package tcl.lang;
17:
18: /**
19: * Implements the built-in "java::null" command.
20: */
21:
22: class JavaNullCmd implements Command {
23:
24: /*----------------------------------------------------------------------
25: *
26: * cmdProc --
27: *
28: * This procedure is invoked to process the "java::null" Tcl
29: * command. See the user documentation for details on what it
30: * does.
31: *
32: * Results:
33: * None.
34: *
35: * Side effects:
36: * A standard Tcl result is stored in the interpreter.
37: *
38: *----------------------------------------------------------------------
39: */
40:
41: public void cmdProc(Interp interp, // Current interpreter.
42: TclObject argv[]) // Argument list.
43: throws TclException {
44: interp.setResult(ReflectObject.newInstance(interp, null, null));
45: }
46:
47: } // end JavaNullCmd
|