tcl » wrapper
gmlTcl_Array.h

00001 /**
00002  * gmlTcl_Array.h --
00003  *
00004  *    A array type type for Tcl.
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 February, 2004 (JL).
00012  */
00013 #ifndef __GMLTCL_ARRAY__
00014 #define __GMLTCL_ARRAY__
00015   #if defined(__cplusplus)
00016   extern "C" {
00017   #endif
00018 
00019 #include "tcl.h"
00020 
00021 
00022 extern Tcl_ObjType gmlTcl_ArrayObjType;
00023 
00024 /**
00025  * gmlTcl_ArrayInit --
00026  *
00027  *  Register the "array" object type into the interpreter.
00028  *  Register the "aset" and "aslice" commands.
00029  */
00030 int gmlTcl_ArrayInit (Tcl_Interp * interp);
00031 
00032 /**
00033  * gmlTcl_ArrayExit --
00034  *
00035  *  @bug Do nothing.
00036  */
00037 void gmlTcl_ArrayExit (Tcl_Interp * interp);
00038 
00039 
00040   #if defined(__cplusplus)
00041   }
00042   #endif
00043 #endif /* __GMLTCL_ARRAY__ */
00044