01: /*
02: * TestInterpDeleteCmd.java --
03: *
04: * This procedure implements the "testinterpdelete" command.
05: *
06: * Copyright (c) 1997 by Sun Microsystems, Inc.
07: *
08: * See the file "license.terms" for information on usage and redistribution
09: * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
10: *
11: * RCS: @(#) $Id: TestInterpDeleteCmd.java,v 1.1 2006/08/03 23:24:03 mdejong Exp $
12: */
13:
14: package tcl.lang;
15:
16: public class TestInterpDeleteCmd implements Command {
17:
18: public void cmdProc(Interp interp, // Current interpreter.
19: TclObject[] objv) // The argument objects.
20: throws TclException {
21: Interp slaveToDelete;
22:
23: if (objv.length != 2) {
24: throw new TclNumArgsException(interp, 1, objv, "path");
25: }
26: slaveToDelete = InterpSlaveCmd.getSlave(interp, objv[1]);
27: slaveToDelete.dispose();
28: }
29: } // end TestParsevarCmd
|