chiark - git - mdw - mLib/blob - alloc.c

   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
  63 void *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
  82 char *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
 102 void *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 -------------------------------------------------*/