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