-#if 0
-/*
- * ir-tcl_send_APDU: send APDU
- */
-static int ir_tcl_send_APDU (Tcl_Interp *interp, IrTcl_Obj *p, Z_APDU *apdu,
- const char *msg)
-{
- int r;
-
- if (!z_APDU (p->odr_out, &apdu, 0))
- {
- Tcl_AppendResult (interp, odr_errlist [odr_geterror (p->odr_out)],
- NULL);
- odr_reset (p->odr_out);
- return TCL_ERROR;
- }
- p->sbuf = odr_getbuf (p->odr_out, &p->slen, NULL);
- odr_reset (p->odr_out);
- if ((r=cs_put (p->cs_link, p->sbuf, p->slen)) < 0)
- {
- sprintf (interp->result, "cs_put failed in %s", msg);
- do_disconnect (p, NULL, 2, NULL);
- return TCL_ERROR;
- }
- else if (r == 1)
- {
- ir_select_add_write (cs_fileno(p->cs_link), p);
- logf (LOG_DEBUG, "Sent part of %s (%d bytes)", msg, p->slen);
- }
- else
- logf (LOG_DEBUG, "Sent whole %s (%d bytes)", msg, p->slen);
- return TCL_OK;
-}
-#endif
-