#include <tcl.h>


int Unix_sockets_Init(Tcl_Interp *interp)
{
  printf("called\n");
  if (Tcl_InitStubs(interp, "8.2", 0) == NULL)
    return TCL_ERROR;
  return TCL_OK;
}

static void c_test(Tcl_Interp* interp) {
  printf("running\n");
  return;
}

int tcl_test(ClientData clientdata, Tcl_Interp *ip, int objc, Tcl_Obj *CONST objv[]) {
  if (objc != 1) {
    Tcl_WrongNumArgs(ip, 1, objv, "");
    return TCL_ERROR;
  }

c_test(ip);
  return TCL_OK;
}


/* Immediate: Tcl_CreateObjCommand(interp, "test", tcl_test, NULL, Tcc4tclDeleteClientData); */