chiark / gitweb /
quis: remove the leading `-' from the name, in case we're invoked as a
[mLib] / alloc.c
CommitLineData
0875b58f 1/* -*-c-*-
2 *
3 * $Id: alloc.c,v 1.1 1998/06/17 23:44:42 mdw Exp $
4 *
5 * Memory allocation functions
6 *
7 * (c) 1998 Straylight/Edgeware
8 */
9
10/*----- Licensing notice --------------------------------------------------*
11 *
12 * This file is part of the mLib utilities library.
13 *
14 * mLib is free software; you can redistribute it and/or modify
15 * it under the terms of the GNU General Public License as published by
16 * the Free Software Foundation; either version 2 of the License, or
17 * (at your option) any later version.
18 *
19 * mLib is distributed in the hope that it will be useful,
20 * but WITHOUT ANY WARRANTY; without even the implied warranty of
21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 * GNU General Public License for more details.
23 *
24 * You should have received a copy of the GNU General Public License
25 * along with mLib; if not, write to the Free Software Foundation,
26 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
27 */
28
29/*----- Revision history --------------------------------------------------*
30 *
31 * $Log: alloc.c,v $
32 * Revision 1.1 1998/06/17 23:44:42 mdw
33 * Initial revision
34 *
35 */
36
37/*----- Header files ------------------------------------------------------*/
38
39/* --- ANSI headers --- */
40
41#include <stdio.h>
42#include <stdlib.h>
43#include <string.h>
44
45/* --- Local headers --- */
46
47#include "alloc.h"
48#include "exc.h"
49#include "track.h"
50
51/*----- Functions provided ------------------------------------------------*/
52
53/* --- @xmalloc@ --- *
54 *
55 * Arguments: @size_t sz@ = size of block to allocate
56 *
57 * Returns: Pointer to allocated block.
58 *
59 * Use: Allocates memory. If there's not enough memory, the
60 * exception @EXC_NOMEM@ is thrown.
61 */
62
63void *xmalloc(size_t sz)
64{
65 void *p = malloc(sz);
66 if (!p)
67 THROW(EXC_NOMEM);
68 return (p);
69}
70
71/* --- @xstrdup@ --- *
72 *
73 * Arguments: @const char *s@ = pointer to a string
74 *
75 * Returns: Pointer to a copy of the string.
76 *
77 * Use: Copies a string (like @strdup@ would, if it existed). If
78 * there's not enough memory, the exception @EXC_NOMEM@ is
79 * thrown.
80 */
81
82char *xstrdup(const char *s)
83{
84 size_t sz = strlen(s) + 1;
85 char *p = xmalloc(sz);
86 memcpy(p, s, sz);
87 return (p);
88}
89
90/* --- @xrealloc@ --- *
91 *
92 * Arguments: @void *p@ = pointer to a block of memory
93 * @size_t sz@ = new size desired for the block
94 *
95 * Returns: Pointer to the resized memory block (which is almost
96 * certainly not in the same place any more).
97 *
98 * Use: Resizes a memory block. If there's not enough memory, the
99 * exception @EXC_NOMEM@ is thrown.
100 */
101
102void *xrealloc(void *p, size_t sz)
103{
104 p = realloc(p, sz);
105 if (!p)
106 THROW(EXC_NOMEM);
107 return (p);
108}
109
110/*----- That's all, folks -------------------------------------------------*/