-
/*
* IR toolkit for tcl/tk
- * (c) Index Data 1995
+ * (c) Index Data 1995-1999
* See the file LICENSE for details.
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: queue.c,v $
- * Revision 1.10 1996-06-03 09:04:24 adam
+ * Revision 1.13 2003-03-05 21:21:42 adam
+ * APDU log. default largeSetLowerBound changed from 2 to 1
+ *
+ * Revision 1.12 1999/04/20 10:01:46 adam
+ * Modified calls to ODR encoders/decoders (name argument).
+ *
+ * Revision 1.11 1996/07/03 13:31:14 adam
+ * The xmalloc/xfree functions from YAZ are used to manage memory.
+ *
+ * Revision 1.10 1996/06/03 09:04:24 adam
* Changed a few logf calls.
*
* Revision 1.9 1996/03/20 13:54:05 adam
{
IrTcl_Request **rp;
- if (!z_APDU (p->odr_out, &apdu, 0))
+ if (!z_APDU (p->odr_out, &apdu, 0, 0))
{
Tcl_AppendResult (interp, odr_errmsg (odr_geterror (p->odr_out)),
NULL);
odr_reset (p->odr_out);
return TCL_ERROR;
}
+ if (p->odr_pr)
+ z_APDU (p->odr_pr, &apdu, 0, 0);
rp = &p->request_queue;
while (*rp)
rp = &(*rp)->next;
logf (LOG_DEBUG, "Send %s (%d bytes) fd=%d", msg, rp->len_out,
cs_fileno(p->cs_link));
p->state = IR_TCL_R_Waiting;
- free (rp->buf_out);
+ xfree (rp->buf_out);
rp->buf_out = NULL;
}
return TCL_OK;
p->state = IR_TCL_R_Idle;
for (rp = p->request_queue; rp; rp = rp1)
{
- free (rp->object_name);
- free (rp->callback);
- free (rp->buf_out);
+ xfree (rp->object_name);
+ xfree (rp->callback);
+ xfree (rp->buf_out);
rp1 = rp->next;
- free (rp);
+ xfree (rp);
}
p->request_queue = NULL;
}