source/texk/web2c/luatexdir/luafontloader/fontforge/fontforge/memory.c

   1 /* Copyright (C) 2000-2012 by George Williams */
   2 /*
   3  * Redistribution and use in source and binary forms, with or without
   4  * modification, are permitted provided that the following conditions are met:
   5
   6  * Redistributions of source code must retain the above copyright notice, this
   7  * list of conditions and the following disclaimer.
   8
   9  * Redistributions in binary form must reproduce the above copyright notice,
  10  * this list of conditions and the following disclaimer in the documentation
  11  * and/or other materials provided with the distribution.
  12
  13  * The name of the author may not be used to endorse or promote products
  14  * derived from this software without specific prior written permission.
  15
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
  17  * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  18  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
  19  * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  20  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  21  * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
  22  * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  23  * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  24  * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  25  * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  26  */
  27 #include "basics.h"
  28 #include <stdio.h>
  29 #include <stdlib.h>
  30 #include <string.h>
  31
  32 /* wrappers around standard memory routines so we can trap errors. */
  33 static void default_trap(void) {
  34     fprintf(stderr, "Attempt to allocate memory failed.\n" );
  35     abort();
  36 }
  37
  38 static void (*trap)(void) = default_trap;
  39
  40 void galloc_set_trap(void (*newtrap)(void)) {
  41     if ( newtrap==NULL ) newtrap = default_trap;
  42     trap = newtrap;
  43 }
  44
  45 #ifdef USE_OUR_MEMORY
  46 void *galloc(long size) {
  47     void *ret;
  48     /* Avoid malloc(0) as malloc is allowed to return NULL.
  49      * If malloc fails, call trap() to allow it to possibly
  50      * recover memory and try again.
  51      */
  52     while (( ret = malloc(size==0 ? sizeof(int) : size))==NULL )
  53         trap();
  54     memset(ret,0x3c,size);              /* fill with random junk for debugging */
  55 return( ret );
  56 }
  57
  58 void *gcalloc(int cnt,long size) {
  59     void *ret;
  60     while (( ret = calloc(cnt,size))==NULL )
  61         trap();
  62 return( ret );
  63 }
  64
  65 void *grealloc(void *old,long size) {
  66     void *ret;
  67     while (( ret = realloc(old,size))==NULL )
  68         trap();
  69 return( ret );
  70 }
  71
  72 void gfree(void *old) {
  73     free(old);
  74 }
  75 #endif /* USE_OUR_MEMORY */
  76
  77 void NoMoreMemMessage(void) {
  78 /* Output an 'Out of memory' message, then continue */
  79     fprintf(stderr, "Out of memory\n" );
  80 }
  81
  82 char *copy(const char *str) {
  83     char *ret;
  84
  85     if ( str==NULL )
  86 return( NULL );
  87     ret = (char *) galloc(strlen(str)+1);
  88     strcpy(ret,str);
  89 return( ret );
  90 }
  91
  92 char *copyn(const char *str,long n) {
  93     char *ret;
  94
  95     if ( str==NULL )
  96 return( NULL );
  97     ret = (char *) galloc(n+1);
  98     memcpy(ret,str,n);
  99     ret[n]='\0';
 100 return( ret );
 101 }