01: /*
02: * ContinueCmd.java
03: *
04: * Copyright (c) 1997 Cornell University.
05: * Copyright (c) 1997 Sun Microsystems, Inc.
06: *
07: * See the file "license.terms" for information on usage and
08: * redistribution of this file, and for a DISCLAIMER OF ALL
09: * WARRANTIES.
10: *
11: * RCS: @(#) $Id: ContinueCmd.java,v 1.1.1.1 1998/10/14 21:09:20 cvsadmin Exp $
12: *
13: */
14:
15: package tcl.lang;
16:
17: /**
18: * This class implements the built-in "continue" command in Tcl.
19: */
20:
21: class ContinueCmd implements Command {
22: /**
23: * This procedure is invoked to process the "continue" Tcl command.
24: * See the user documentation for details on what it does.
25: * @exception TclException is always thrown.
26: */
27:
28: public void cmdProc(Interp interp, TclObject argv[])
29: throws TclException {
30: if (argv.length != 1) {
31: throw new TclNumArgsException(interp, 1, argv, null);
32: }
33: throw new TclException(interp, null, TCL.CONTINUE);
34: }
35: }
|