2 * IR toolkit for tcl/tk
4 * See the file LICENSE for details.
5 * Sebastian Hammer, Adam Dickmeiss
8 * Revision 1.3 1996-07-03 13:31:14 adam
9 * The xmalloc/xfree functions from YAZ are used to manage memory.
11 * Revision 1.2 1995/08/29 15:30:15 adam
12 * Work on GRS records.
14 * Revision 1.1 1995/08/04 11:32:40 adam
15 * More work on output queue. Memory related routines moved
28 * ir_tcl_malloc: Allocate n byte from the heap
30 void *ir_tcl_malloc (size_t n)
32 void *p = xmalloc (n);
35 logf (LOG_FATAL, "Out of memory. %ld bytes requested", (long) n);
42 * ir_tcl_strdup: Duplicate string
44 int ir_tcl_strdup (Tcl_Interp *interp, char** p, const char *s)
59 logf (LOG_FATAL, "Out of memory in strdup. %ld bytes", len);
62 interp->result = "strdup fail";
70 * ir_strdel: Delete string
72 int ir_tcl_strdel (Tcl_Interp *interp, char **p)