#include "vtkTclUtil.h" #include "vtkVersion.h" #define VTK_TCL_TO_STRING(x) VTK_TCL_TO_STRING0(x) #define VTK_TCL_TO_STRING0(x) #x extern "C" { #if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4) && (TCL_RELEASE_LEVEL >= TCL_FINAL_RELEASE) typedef int (*vtkTclCommandType)(ClientData, Tcl_Interp *,int, CONST84 char *[]); #else typedef int (*vtkTclCommandType)(ClientData, Tcl_Interp *,int, char *[]); #endif } int vtkEsquiPolyDataReaderCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkEsquiPolyDataReaderNewCommand(); int vtkEsquiPolyDataCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkEsquiPolyDataNewCommand(); int vtkContactCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkContactNewCommand(); int vtkLinkCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkLinkNewCommand(); int vtkCaraCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkCaraNewCommand(); int vtkMallaT2Command(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkMallaT2NewCommand(); int vtkOrganCollectionCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkOrganCollectionNewCommand(); int vtkEsquiContactCollectionCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkEsquiContactCollectionNewCommand(); int vtkEsquiLinkCollectionCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkEsquiLinkCollectionNewCommand(); int vtkSimulationCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkSimulationNewCommand(); int vtkEsquiCaraCollectionCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkEsquiCaraCollectionNewCommand(); extern Tcl_HashTable vtkInstanceLookup; extern Tcl_HashTable vtkPointerLookup; extern Tcl_HashTable vtkCommandLookup; extern void vtkTclDeleteObjectFromHash(void *); extern void vtkTclListInstances(Tcl_Interp *interp, ClientData arg); extern "C" {int VTK_EXPORT Vtkesquitmeshtcl_SafeInit(Tcl_Interp *interp);} extern "C" {int VTK_EXPORT Vtkesquitmeshtcl_Init(Tcl_Interp *interp);} extern void vtkTclGenericDeleteObject(ClientData cd); int VTK_EXPORT Vtkesquitmeshtcl_SafeInit(Tcl_Interp *interp) { return Vtkesquitmeshtcl_Init(interp); } int VTK_EXPORT Vtkesquitmeshtcl_Init(Tcl_Interp *interp) { vtkTclCreateNew(interp,(char *) "vtkEsquiPolyDataReader", vtkEsquiPolyDataReaderNewCommand, vtkEsquiPolyDataReaderCommand); vtkTclCreateNew(interp,(char *) "vtkEsquiPolyData", vtkEsquiPolyDataNewCommand, vtkEsquiPolyDataCommand); vtkTclCreateNew(interp,(char *) "vtkContact", vtkContactNewCommand, vtkContactCommand); vtkTclCreateNew(interp,(char *) "vtkLink", vtkLinkNewCommand, vtkLinkCommand); vtkTclCreateNew(interp,(char *) "vtkCara", vtkCaraNewCommand, vtkCaraCommand); vtkTclCreateNew(interp,(char *) "vtkMallaT2", vtkMallaT2NewCommand, vtkMallaT2Command); vtkTclCreateNew(interp,(char *) "vtkOrganCollection", vtkOrganCollectionNewCommand, vtkOrganCollectionCommand); vtkTclCreateNew(interp,(char *) "vtkEsquiContactCollection", vtkEsquiContactCollectionNewCommand, vtkEsquiContactCollectionCommand); vtkTclCreateNew(interp,(char *) "vtkEsquiLinkCollection", vtkEsquiLinkCollectionNewCommand, vtkEsquiLinkCollectionCommand); vtkTclCreateNew(interp,(char *) "vtkSimulation", vtkSimulationNewCommand, vtkSimulationCommand); vtkTclCreateNew(interp,(char *) "vtkEsquiCaraCollection", vtkEsquiCaraCollectionNewCommand, vtkEsquiCaraCollectionCommand); char pkgName[]="vtkesquiTMeshTCL"; char pkgVers[]=VTK_TCL_TO_STRING(VTK_MAJOR_VERSION) "." VTK_TCL_TO_STRING(VTK_MINOR_VERSION); Tcl_PkgProvide(interp, pkgName, pkgVers); return TCL_OK; }