Artifact
53e16b4402925ffd88ee3d97818d1e3159163ee5:
/*
* IntListAppendCmd.java --
*
* Check internal TclBlend variables to
* ensure that TclList objects created
* in a Java method are being added
* to the special cleanup queue. In
* this case a list is duplicated by
* the first append method.
*
* Copyright (c) 2002 by Mo DeJong
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: IntListAppendCmd.java,v 1.2 2003/01/09 02:15:40 mdejong Exp $
*/
package tcl.lang;
public class IntListAppendCmd implements Command {
CObject saved = null;
public void
cmdProc(
Interp interp,
TclObject[] objv)
throws TclException
{
// Pass an argument to this method to check the
// cleanup status of the saved CObject
if (objv.length > 2) {
if (saved == null)
interp.setResult(-1);
else
interp.setResult(saved.onCleanupQueue?1:0);
saved = null;
return;
}
TclObject obj = objv[1];
if (obj.isShared())
obj = obj.duplicate();
TclList.append(interp, obj, TclString.newInstance("blue"));
TclList.append(interp, obj, TclString.newInstance("green"));
CObject cobj = (CObject) obj.getInternalRep();
if (!cobj.onCleanupQueue)
throw new TclException(interp, "not added to cleanup queue");
saved = cobj;
interp.setResult("saved");
return;
}
}