tcl » wrapper » object
gmlTcl_Object.h

00001 /*
00002  * gmlTcl_Object.h --
00003  *
00004  *    Implement object-oriented scripts in a Tcl interpreter
00005  *      (adds the "method" command).
00006  *
00007  *  Copyright (c) 2004 CLIPS-IMAG
00008  *
00009  *  See the file "gml_LicenseTerms.txt" for information on usage and redistribution
00010  *  of this file, and for a DISCLAIMER OF ALL WARRANTIES.
00011  *
00012  *  Created on March 27, 2004 (FB).
00013  *    Based on "gml_Object.tcl" a script-only implementation of the same
00014  *    thing.
00015  */
00016 
00017 #ifndef __GMLTCL_OBJECT__
00018 #define __GMLTCL_OBJECT__
00019   #if defined(__cplusplus)
00020     extern "C" {
00021   #endif
00022 
00023 
00024 #include "tcl.h"
00025 
00026 
00027 
00028 
00029 
00030 /*
00031  * gmlTcl_ObjectInit --
00032  *
00033  *  Adds object-oriented programming into the interpreter.
00034  */
00035 int gmlTcl_ObjectInit (Tcl_Interp* interp);
00036 
00037 
00038 
00039 /*
00040  * gmlTcl_ObjectExit --
00041  *
00042  *  Removes all resources related to object oriented programming,
00043  *    undefined any classes, objects, methods, etc...
00044  */
00045 void gmlTcl_ObjectExit (Tcl_Interp* interp);
00046 
00047 
00048 
00049 
00050   #if defined(__cplusplus)
00051     }
00052   #endif
00053 #endif