01: /*
02: * ------------------------------------------------------------------------
03: * PACKAGE: [incr Tcl]
04: * DESCRIPTION: Object-Oriented Extensions to Tcl
05: *
06: * [incr Tcl] provides object-oriented extensions to Tcl, much as
07: * C++ provides object-oriented extensions to C. It provides a means
08: * of encapsulating related procedures together with their shared data
09: * in a local namespace that is hidden from the outside world. It
10: * promotes code re-use through inheritance. More than anything else,
11: * it encourages better organization of Tcl applications through the
12: * object-oriented paradigm, leading to code that is easier to
13: * understand and maintain.
14: *
15: * ========================================================================
16: * AUTHOR: Michael J. McLennan
17: * Bell Labs Innovations for Lucent Technologies
18: * mmclennan@lucent.com
19: * http://www.tcltk.com/itcl
20: *
21: * RCS: $Id: Itcl.java,v 1.1 2005/09/11 20:56:57 mdejong Exp $
22: * ========================================================================
23: * Copyright (c) 1993-1998 Lucent Technologies, Inc.
24: * ------------------------------------------------------------------------
25: * See the file "license.itcl" for information on usage and redistribution
26: * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
27: */
28:
29: package itcl.lang;
30:
31: import tcl.lang.*;
32:
33: import java.util.Stack;
34:
35: class Itcl {
36:
37: // Constants: ITCL_MAJOR_VERSION -> Itcl.MAJOR_VERSION
38:
39: static int MAJOR_VERSION = 3;
40: static int MINOR_VERSION = 3;
41: static int RELEASE_LEVEL = 2;
42: static int RELEASE_SERIAL = 0;
43:
44: static String VERSION = "3.3";
45: static String PATCH_LEVEL = "3.3.0";
46:
47: // Protection levels:
48: //
49: // PUBLIC - accessible from any namespace
50: // PROTECTED - accessible from namespace that imports in "protected" mode
51: // PRIVATE - accessible only within the namespace that contains it
52: //
53:
54: final static int PUBLIC = 1;
55: final static int PROTECTED = 2;
56: final static int PRIVATE = 3;
57: final static int DEFAULT_PROTECT = 4;
58:
59: } // end class Itcl
60:
61: class Itcl_Stack {
62: Stack s = null;
63: }
64:
65: // Generic linked list.
66:
67: class Itcl_ListElem {
68: Itcl_List owner; // list containing this element
69: Object value; // value associated with this element
70: Itcl_ListElem prev; // previous element in linked list
71: Itcl_ListElem next; // next element in linked list
72: }
73:
74: class Itcl_List {
75: int validate; // validation stamp
76: int num; // number of elements
77: Itcl_ListElem head; // previous element in linked list
78: Itcl_ListElem tail; // next element in linked list
79: }
|