01: /*
02: * ConcatCmd.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: ConcatCmd.java,v 1.1.1.1 1998/10/14 21:09:18 cvsadmin Exp $
12: *
13: */
14:
15: package tcl.lang;
16:
17: import java.io.*;
18: import java.util.*;
19:
20: /**
21: * This class implements the built-in "concat" command in Tcl.
22: */
23: class ConcatCmd implements Command {
24:
25: /**
26: * See Tcl user documentation for details.
27: */
28: public void cmdProc(Interp interp, TclObject argv[])
29: throws TclException {
30: interp.setResult(Util.concat(1, argv.length, argv));
31: }
32: }
|