// tcl wrapper for vtkSimulation object // #define VTK_STREAMS_FWD_ONLY #include "vtkSystemIncludes.h" #include "vtkSimulation.h" #include "vtkTclUtil.h" ClientData vtkSimulationNewCommand() { vtkSimulation *temp = vtkSimulation::New(); return ((ClientData)temp); } int vtkObjectCppCommand(vtkObject *op, Tcl_Interp *interp, int argc, char *argv[]); int VTKTCL_EXPORT vtkSimulationCppCommand(vtkSimulation *op, Tcl_Interp *interp, int argc, char *argv[]); int VTKTCL_EXPORT vtkSimulationCommand(ClientData cd, Tcl_Interp *interp, int argc, char *argv[]) { if ((argc == 2)&&(!strcmp("Delete",argv[1]))&& !vtkTclInDelete(interp)) { Tcl_DeleteCommand(interp,argv[0]); return TCL_OK; } return vtkSimulationCppCommand((vtkSimulation *)(((vtkTclCommandArgStruct *)cd)->Pointer),interp, argc, argv); } int VTKTCL_EXPORT vtkSimulationCppCommand(vtkSimulation *op, Tcl_Interp *interp, int argc, char *argv[]) { int tempi; double tempd; static char temps[80]; int error; error = 0; error = error; tempi = 0; tempi = tempi; tempd = 0; tempd = tempd; temps[0] = 0; temps[0] = temps[0]; if (argc < 2) { Tcl_SetResult(interp, (char *) "Could not find requested method.", TCL_VOLATILE); return TCL_ERROR; } if (!interp) { if (!strcmp("DoTypecasting",argv[0])) { if (!strcmp("vtkSimulation",argv[1])) { argv[2] = (char *)((void *)op); return TCL_OK; } if (vtkObjectCppCommand((vtkObject *)op,interp,argc,argv) == TCL_OK) { return TCL_OK; } } return TCL_ERROR; } if (!strcmp("GetSuperClassName",argv[1])) { Tcl_SetResult(interp,(char *) "vtkObject", TCL_VOLATILE); return TCL_OK; } if ((!strcmp("GetClassName",argv[1]))&&(argc == 2)) { const char *temp20; error = 0; if (!error) { temp20 = (op)->GetClassName(); if (temp20) { Tcl_SetResult(interp, (char*)temp20, TCL_VOLATILE); } else { Tcl_ResetResult(interp); } return TCL_OK; } } if ((!strcmp("IsA",argv[1]))&&(argc == 3)) { char *temp0; int temp20; error = 0; temp0 = argv[2]; if (!error) { temp20 = (op)->IsA(temp0); char tempResult[1024]; sprintf(tempResult,"%i",temp20); Tcl_SetResult(interp, tempResult, TCL_VOLATILE); return TCL_OK; } } if ((!strcmp("NewInstance",argv[1]))&&(argc == 2)) { vtkSimulation *temp20; int vtkSimulationCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; if (!error) { temp20 = (op)->NewInstance(); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkSimulationCommand); return TCL_OK; } } if ((!strcmp("SafeDownCast",argv[1]))&&(argc == 3)) { vtkObject *temp0; vtkSimulation *temp20; int vtkSimulationCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; temp0 = (vtkObject *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkObject",interp,error)); if (!error) { temp20 = (op)->SafeDownCast(temp0); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkSimulationCommand); return TCL_OK; } } if ((!strcmp("New",argv[1]))&&(argc == 2)) { vtkSimulation *temp20; int vtkSimulationCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; if (!error) { temp20 = (op)->New(); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkSimulationCommand); return TCL_OK; } } if ((!strcmp("GetClassName",argv[1]))&&(argc == 2)) { const char *temp20; error = 0; if (!error) { temp20 = (op)->GetClassName(); if (temp20) { Tcl_SetResult(interp, (char*)temp20, TCL_VOLATILE); } else { Tcl_ResetResult(interp); } return TCL_OK; } } if ((!strcmp("SetOrganCollection",argv[1]))&&(argc == 3)) { vtkOrganCollection *temp0; error = 0; temp0 = (vtkOrganCollection *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkOrganCollection",interp,error)); if (!error) { op->SetOrganCollection(temp0); Tcl_ResetResult(interp); return TCL_OK; } } if ((!strcmp("GetOrganCollection",argv[1]))&&(argc == 2)) { vtkOrganCollection *temp20; int vtkOrganCollectionCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; if (!error) { temp20 = (op)->GetOrganCollection(); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkOrganCollectionCommand); return TCL_OK; } } if ((!strcmp("SetToolCollection",argv[1]))&&(argc == 3)) { vtkToolCollection *temp0; error = 0; temp0 = (vtkToolCollection *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkToolCollection",interp,error)); if (!error) { op->SetToolCollection(temp0); Tcl_ResetResult(interp); return TCL_OK; } } if ((!strcmp("GetToolCollection",argv[1]))&&(argc == 2)) { vtkToolCollection *temp20; int vtkToolCollectionCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; if (!error) { temp20 = (op)->GetToolCollection(); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkToolCollectionCommand); return TCL_OK; } } if ((!strcmp("SetCollisionLibrary",argv[1]))&&(argc == 3)) { vtkColision *temp0; error = 0; temp0 = (vtkColision *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkColision",interp,error)); if (!error) { op->SetCollisionLibrary(temp0); Tcl_ResetResult(interp); return TCL_OK; } } if ((!strcmp("GetCollisionLibrary",argv[1]))&&(argc == 2)) { vtkColision *temp20; int vtkColisionCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; if (!error) { temp20 = (op)->GetCollisionLibrary(); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkColisionCommand); return TCL_OK; } } if ((!strcmp("SetInteractor",argv[1]))&&(argc == 3)) { vtkRenderWindowInteractor *temp0; error = 0; temp0 = (vtkRenderWindowInteractor *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkRenderWindowInteractor",interp,error)); if (!error) { op->SetInteractor(temp0); Tcl_ResetResult(interp); return TCL_OK; } } if ((!strcmp("GetInteractor",argv[1]))&&(argc == 2)) { vtkRenderWindowInteractor *temp20; int vtkRenderWindowInteractorCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; if (!error) { temp20 = (op)->GetInteractor(); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkRenderWindowInteractorCommand); return TCL_OK; } } if ((!strcmp("SimulationStep",argv[1]))&&(argc == 2)) { int temp20; error = 0; if (!error) { temp20 = (op)->SimulationStep(); char tempResult[1024]; sprintf(tempResult,"%i",temp20); Tcl_SetResult(interp, tempResult, TCL_VOLATILE); return TCL_OK; } } if ((!strcmp("SetActiveTool",argv[1]))&&(argc == 3)) { long temp0; error = 0; if (Tcl_GetInt(interp,argv[2],&tempi) != TCL_OK) error = 1; temp0 = tempi; if (!error) { op->SetActiveTool(temp0); Tcl_ResetResult(interp); return TCL_OK; } } if ((!strcmp("GetActiveTool",argv[1]))&&(argc == 2)) { long temp20; error = 0; if (!error) { temp20 = (op)->GetActiveTool(); char tempResult[1024]; sprintf(tempResult,"%li",temp20); Tcl_SetResult(interp, tempResult, TCL_VOLATILE); return TCL_OK; } } if ((!strcmp("SetMovement",argv[1]))&&(argc == 4)) { vtkTypeOfMovement temp0; float temp1; error = 0; if (Tcl_GetDouble(interp,argv[3],&tempd) != TCL_OK) error = 1; temp1 = tempd; if (!error) { op->SetMovement(temp0,temp1); Tcl_ResetResult(interp); return TCL_OK; } } if (!strcmp("ListInstances",argv[1])) { vtkTclListInstances(interp,(ClientData)vtkSimulationCommand); return TCL_OK; } if (!strcmp("ListMethods",argv[1])) { vtkObjectCppCommand(op,interp,argc,argv); Tcl_AppendResult(interp,"Methods from vtkSimulation:\n",NULL); Tcl_AppendResult(interp," GetSuperClassName\n",NULL); Tcl_AppendResult(interp," GetClassName\n",NULL); Tcl_AppendResult(interp," IsA\t with 1 arg\n",NULL); Tcl_AppendResult(interp," NewInstance\n",NULL); Tcl_AppendResult(interp," SafeDownCast\t with 1 arg\n",NULL); Tcl_AppendResult(interp," New\n",NULL); Tcl_AppendResult(interp," GetClassName\n",NULL); Tcl_AppendResult(interp," SetOrganCollection\t with 1 arg\n",NULL); Tcl_AppendResult(interp," GetOrganCollection\n",NULL); Tcl_AppendResult(interp," SetToolCollection\t with 1 arg\n",NULL); Tcl_AppendResult(interp," GetToolCollection\n",NULL); Tcl_AppendResult(interp," SetCollisionLibrary\t with 1 arg\n",NULL); Tcl_AppendResult(interp," GetCollisionLibrary\n",NULL); Tcl_AppendResult(interp," SetInteractor\t with 1 arg\n",NULL); Tcl_AppendResult(interp," GetInteractor\n",NULL); Tcl_AppendResult(interp," SimulationStep\n",NULL); Tcl_AppendResult(interp," SetActiveTool\t with 1 arg\n",NULL); Tcl_AppendResult(interp," GetActiveTool\n",NULL); Tcl_AppendResult(interp," SetMovement\t with 2 args\n",NULL); return TCL_OK; } if (vtkObjectCppCommand((vtkObject *)op,interp,argc,argv) == TCL_OK) { return TCL_OK; } if ((argc >= 2)&&(!strstr(interp->result,"Object named:"))) { char temps2[256]; sprintf(temps2,"Object named: %s, could not find requested method: %s\nor the method was called with incorrect arguments.\n",argv[0],argv[1]); Tcl_AppendResult(interp,temps2,NULL); } return TCL_ERROR; }