01: /*
02: * CObject.java --
03: *
04: * A stub class that represents objects created by the NativeTcl
05: * interpreter.
06: *
07: * Copyright (c) 1997 Sun Microsystems, Inc.
08: *
09: * See the file "license.terms" for information on usage and
10: * redistribution of this file, and for a DISCLAIMER OF ALL
11: * WARRANTIES.
12: *
13: * RCS: @(#) $Id: CObject.java,v 1.3 2005/07/14 02:31:58 mdejong Exp $
14: */
15:
16: package tcl.lang;
17:
18: /*
19: * This is a stub class used in Jacl to represent objects created in
20: * the Tcl Blend interpreter. Actually CObjects will never appear inside
21: * Jacl. However, since TclObject (which is shared between the Tcl Blend
22: * and Jacl implementations) makes some references to CObject, we include
23: * a stub class here to make the compiler happy.
24: *
25: * None of the methods in this implementation will ever be called.
26: */
27:
28: class CObject implements InternalRep {
29:
30: public void dispose() {
31: throw new TclRuntimeError("This shouldn't be called");
32: }
33:
34: public InternalRep duplicate() {
35: throw new TclRuntimeError("This shouldn't be called");
36: }
37:
38: final void makeReference(TclObject tobj) {
39: throw new TclRuntimeError("This shouldn't be called");
40: }
41:
42: public String toString() {
43: throw new TclRuntimeError("This shouldn't be called");
44: }
45:
46: final void incrRefCount() {
47: throw new TclRuntimeError("This shouldn't be called");
48: }
49:
50: final void decrRefCount() {
51: throw new TclRuntimeError("This shouldn't be called");
52: }
53:
54: final long getCObjectPtr() {
55: throw new TclRuntimeError("This shouldn't be called");
56: }
57:
58: } // end CObject
|