#include <tcl.h> 
#include <values.h> 

extern int fpgadoit(int, int);
extern int initfpga();

int Tcl_FpgaCmd (clientData, interp, objc, objv)
char *clientData; Tcl_Interp *interp; 
int objc; 
Tcl_Obj **objv;
{
   int value, idx; 
   int in1, in2;

   if (objc != 3) {
      return(TCL_ERROR);
   }

   if (Tcl_GetIntFromObj (interp, objv[1], &value) != TCL_OK)
      return TCL_ERROR;
   in1 = value;
   if (Tcl_GetIntFromObj (interp, objv[2], &value) != TCL_OK)
      return TCL_ERROR;
   in2 = value;

   value = fpgadoit(in1 , in2);
   Tcl_SetIntObj (Tcl_GetObjResult (interp), value); return TCL_OK;
} 

int DLLEXPORT
Fpgacom_Init(Tcl_Interp *interp)
 {
     if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
         return TCL_ERROR;
     }
     /* changed this to check for an error - GPS */
     if (Tcl_PkgProvide(interp, "Fpga", "1.0") == TCL_ERROR) {
         return TCL_ERROR;
     }
     initfpga();
     Tcl_CreateObjCommand(interp, "fpga", Tcl_FpgaCmd, 0, NULL);
     return TCL_OK;
 }