#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 vtkAABBCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkAABBNewCommand(); int vtkToolScissorsCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkToolScissorsNewCommand(); int vtkCilindroCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkCilindroNewCommand(); int vtkEsferaCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkEsferaNewCommand(); int vtkInfoColisionCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkInfoColisionNewCommand(); int vtkModeloDeformableCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkModeloDeformableNewCommand(); int vtkModeloEstaticoCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkModeloEstaticoNewCommand(); int vtkModeloGeometricoCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkModeloGeometricoNewCommand(); int vtkModeloHerramientaCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkModeloHerramientaNewCommand(); int vtkOBBCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkOBBNewCommand(); int vtkColisionCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkColisionNewCommand(); int vtkToolCollectionCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkToolCollectionNewCommand(); int vtkModeloDeformableCollectionCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkModeloDeformableCollectionNewCommand(); int vtkToolGPincersCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkToolGPincersNewCommand(); int vtkInfoColisionCollectionCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkInfoColisionCollectionNewCommand(); int vtkInteractorStyleEsquiCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]); ClientData vtkInteractorStyleEsquiNewCommand(); 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 Vtkesquicolisiontcl_SafeInit(Tcl_Interp *interp);} extern "C" {int VTK_EXPORT Vtkesquicolisiontcl_Init(Tcl_Interp *interp);} extern void vtkTclGenericDeleteObject(ClientData cd); int VTK_EXPORT Vtkesquicolisiontcl_SafeInit(Tcl_Interp *interp) { return Vtkesquicolisiontcl_Init(interp); } int VTK_EXPORT Vtkesquicolisiontcl_Init(Tcl_Interp *interp) { vtkTclCreateNew(interp,(char *) "vtkAABB", vtkAABBNewCommand, vtkAABBCommand); vtkTclCreateNew(interp,(char *) "vtkToolScissors", vtkToolScissorsNewCommand, vtkToolScissorsCommand); vtkTclCreateNew(interp,(char *) "vtkCilindro", vtkCilindroNewCommand, vtkCilindroCommand); vtkTclCreateNew(interp,(char *) "vtkEsfera", vtkEsferaNewCommand, vtkEsferaCommand); vtkTclCreateNew(interp,(char *) "vtkInfoColision", vtkInfoColisionNewCommand, vtkInfoColisionCommand); vtkTclCreateNew(interp,(char *) "vtkModeloDeformable", vtkModeloDeformableNewCommand, vtkModeloDeformableCommand); vtkTclCreateNew(interp,(char *) "vtkModeloEstatico", vtkModeloEstaticoNewCommand, vtkModeloEstaticoCommand); vtkTclCreateNew(interp,(char *) "vtkModeloGeometrico", vtkModeloGeometricoNewCommand, vtkModeloGeometricoCommand); vtkTclCreateNew(interp,(char *) "vtkModeloHerramienta", vtkModeloHerramientaNewCommand, vtkModeloHerramientaCommand); vtkTclCreateNew(interp,(char *) "vtkOBB", vtkOBBNewCommand, vtkOBBCommand); vtkTclCreateNew(interp,(char *) "vtkColision", vtkColisionNewCommand, vtkColisionCommand); vtkTclCreateNew(interp,(char *) "vtkToolCollection", vtkToolCollectionNewCommand, vtkToolCollectionCommand); vtkTclCreateNew(interp,(char *) "vtkModeloDeformableCollection", vtkModeloDeformableCollectionNewCommand, vtkModeloDeformableCollectionCommand); vtkTclCreateNew(interp,(char *) "vtkToolGPincers", vtkToolGPincersNewCommand, vtkToolGPincersCommand); vtkTclCreateNew(interp,(char *) "vtkInfoColisionCollection", vtkInfoColisionCollectionNewCommand, vtkInfoColisionCollectionCommand); vtkTclCreateNew(interp,(char *) "vtkInteractorStyleEsqui", vtkInteractorStyleEsquiNewCommand, vtkInteractorStyleEsquiCommand); char pkgName[]="vtkesquiColisionTCL"; char pkgVers[]=VTK_TCL_TO_STRING(VTK_MAJOR_VERSION) "." VTK_TCL_TO_STRING(VTK_MINOR_VERSION); Tcl_PkgProvide(interp, pkgName, pkgVers); return TCL_OK; }