00001
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00033
00034 #ifndef GROOVX_PKGS_MTX_TCLPKG_MTX_CC_UTC20050628170148_DEFINED
00035 #define GROOVX_PKGS_MTX_TCLPKG_MTX_CC_UTC20050628170148_DEFINED
00036
00037 #include "pkgs/mtx/tclpkg-mtx.h"
00038
00039 #include "mtxobj.h"
00040
00041 #include "nub/objfactory.h"
00042
00043 #include "tcl/objpkg.h"
00044 #include "tcl/pkg.h"
00045
00046 #include "rutz/trace.h"
00047
00048 extern "C"
00049 int Mtx_Init(Tcl_Interp* interp)
00050 {
00051 GVX_TRACE("Mtx_Init");
00052
00053 GVX_PKG_CREATE(pkg, interp, "mtx", "4.$Revision: 10065 $");
00054 pkg->inherit_pkg("Obj");
00055 tcl::def_basic_type_cmds<MtxObj>(pkg, SRC_POS);
00056
00057 pkg->def_getter<MtxObj, rutz::fstring>("print", &mtx::as_string,
00058 SRC_POS);
00059
00060 pkg->def_setter<MtxObj, const char*>("scan", &MtxObj::scan_string,
00061 SRC_POS);
00062
00063 pkg->def_getter<MtxObj, int>("mrows", &mtx::mrows, SRC_POS);
00064 pkg->def_getter<MtxObj, int>("ncols", &mtx::ncols, SRC_POS);
00065 pkg->def_getter<MtxObj, int>("nelems", &mtx::nelems, SRC_POS);
00066
00067 nub::obj_factory::instance().register_creator(&MtxObj::make);
00068 nub::obj_factory::instance().register_alias("MtxObj", "mtx");
00069
00070 GVX_PKG_RETURN(pkg);
00071 }
00072
00073 static const char __attribute__((used)) vcid_groovx_pkgs_mtx_tclpkg_mtx_cc_utc20050628170148[] = "$Id: tclpkg-mtx.cc 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file:
00074 #endif // !GROOVX_PKGS_MTX_TCLPKG_MTX_CC_UTC20050628170148_DEFINED