// tcl wrapper for vtkLSW object
//
#define VTK_STREAMS_FWD_ONLY
#include "vtkSystemIncludes.h"
#include "vtkLSW.h"

#include "vtkTclUtil.h"

ClientData vtkLSWNewCommand()
{
  vtkLSW *temp = vtkLSW::New();
  return ((ClientData)temp);
}

int vtkHapticCppCommand(vtkHaptic *op, Tcl_Interp *interp,
             int argc, char *argv[]);
int VTKTCL_EXPORT vtkLSWCppCommand(vtkLSW *op, Tcl_Interp *interp,
             int argc, char *argv[]);

int VTKTCL_EXPORT vtkLSWCommand(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 vtkLSWCppCommand((vtkLSW *)(((vtkTclCommandArgStruct *)cd)->Pointer),interp, argc, argv);
}

int VTKTCL_EXPORT vtkLSWCppCommand(vtkLSW *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("vtkLSW",argv[1]))
        {
        argv[2] = (char *)((void *)op);
        return TCL_OK;
        }
      if (vtkHapticCppCommand((vtkHaptic *)op,interp,argc,argv) == TCL_OK)
        {
        return TCL_OK;
        }
      }
    return TCL_ERROR;
    }

  if (!strcmp("GetSuperClassName",argv[1]))
    {
    Tcl_SetResult(interp,(char *) "vtkHaptic", 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))
    {
    vtkLSW  *temp20;
    int vtkLSWCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->NewInstance();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkLSWCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("SafeDownCast",argv[1]))&&(argc == 3))
    {
    vtkObject  *temp0;
    vtkLSW  *temp20;
    int vtkLSWCommand(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,vtkLSWCommand);
      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("New",argv[1]))&&(argc == 2))
    {
    vtkLSW  *temp20;
    int vtkLSWCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->New();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkLSWCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("DataRecieve",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->DataRecieve();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Initialize",argv[1]))&&(argc == 2))
    {
    int      temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->Initialize();
      char tempResult[1024];
      sprintf(tempResult,"%i",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("Liberate",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->Liberate();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Run",argv[1]))&&(argc == 2))
    {
    int      temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->Run();
      char tempResult[1024];
      sprintf(tempResult,"%i",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("DebugOn",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->DebugOn();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("DebugOff",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->DebugOff();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetLeftToolDepth",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetLeftToolDepth();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetLeftToolYaw",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetLeftToolYaw();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetLeftToolPitch",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetLeftToolPitch();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetLeftToolAperture",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetLeftToolAperture();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetLeftToolTwist",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetLeftToolTwist();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetRightToolDepth",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetRightToolDepth();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetRightToolYaw",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetRightToolYaw();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetRightToolPitch",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetRightToolPitch();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetRightToolAperture",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetRightToolAperture();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetRightToolTwist",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetRightToolTwist();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("UpdateDevice",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->UpdateDevice();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }

  if (!strcmp("ListInstances",argv[1]))
    {
    vtkTclListInstances(interp,(ClientData)vtkLSWCommand);
    return TCL_OK;
    }

  if (!strcmp("ListMethods",argv[1]))
    {
    vtkHapticCppCommand(op,interp,argc,argv);
    Tcl_AppendResult(interp,"Methods from vtkLSW:\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,"  GetClassName\n",NULL);
    Tcl_AppendResult(interp,"  New\n",NULL);
    Tcl_AppendResult(interp,"  DataRecieve\n",NULL);
    Tcl_AppendResult(interp,"  Initialize\n",NULL);
    Tcl_AppendResult(interp,"  Liberate\n",NULL);
    Tcl_AppendResult(interp,"  Run\n",NULL);
    Tcl_AppendResult(interp,"  DebugOn\n",NULL);
    Tcl_AppendResult(interp,"  DebugOff\n",NULL);
    Tcl_AppendResult(interp,"  GetLeftToolDepth\n",NULL);
    Tcl_AppendResult(interp,"  GetLeftToolYaw\n",NULL);
    Tcl_AppendResult(interp,"  GetLeftToolPitch\n",NULL);
    Tcl_AppendResult(interp,"  GetLeftToolAperture\n",NULL);
    Tcl_AppendResult(interp,"  GetLeftToolTwist\n",NULL);
    Tcl_AppendResult(interp,"  GetRightToolDepth\n",NULL);
    Tcl_AppendResult(interp,"  GetRightToolYaw\n",NULL);
    Tcl_AppendResult(interp,"  GetRightToolPitch\n",NULL);
    Tcl_AppendResult(interp,"  GetRightToolAperture\n",NULL);
    Tcl_AppendResult(interp,"  GetRightToolTwist\n",NULL);
    Tcl_AppendResult(interp,"  UpdateDevice\n",NULL);
    return TCL_OK;
    }

  if (vtkHapticCppCommand((vtkHaptic *)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;
}