package require tcc4tcl
set tcc4tcl [tcc4tcl::new]

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

$tcc4tcl cproc test {Tcl_Interp* interp} void {
  printf("running\n");
  Unix_sockets_Init(interp);
  return;
}

$tcc4tcl go