tcl » wrapper » object
gmlTcl_Object_internal.h

00001 /*
00002  * gmlTcl_Object_internal.h --
00003  *
00004  *    gmlTcl_Object internal declarations.
00005  *
00006  *  Copyright (c) 2004 CLIPS-IMAG
00007  *
00008  *  See the file "gml_LicenseTerms.txt" for information on usage and redistribution
00009  *  of this file, and for a DISCLAIMER OF ALL WARRANTIES.
00010  *
00011  *  Created on March 27, 2004 (FB).
00012  *    Based on "gml_Object.tcl" a script-only implementation of the same
00013  *    thing.
00014  */
00015 
00016 #ifndef __GMLTCL_OBJECT_INTERNAL__
00017 #define __GMLTCL_OBJECT_INTERNAL__
00018 
00019 #include "gml/tcl/wrapper/gmlTcl_Object.h"
00020 
00021 #include "gml/base/gml_Errors.h"
00022 
00023 
00024 extern Tcl_ObjType* gmlTclObj_gClassObjType;
00025 
00026 class gmlTclObj_TClass {
00027 public:
00028   
00029   gml_TError                  Init (char* className);
00030   void                        Dispose () {}
00031   
00032   Tcl_Command                 fCommand;
00033 
00034   static Tcl_HashTable        fgClassHashTableStorage;
00035   static Tcl_HashTable*       fgClassHashTable;
00036 
00037   static gmlTclObj_TClass*    ClassFromStringName (char* className);
00038   static int                  InitClasses (Tcl_Interp* interp);
00039   static void                 DisposeClasses ();
00040 };
00041 
00042 
00043 
00044 
00045 #endif