contrib/perl5/x2p/util.c

   1 /* $RCSfile: util.c,v $$Revision: 4.1 $$Date: 92/08/07 18:29:29 $
   2  *
   3  *    Copyright (c) 1991-1997, Larry Wall
   4  *
   5  *    You may distribute under the terms of either the GNU General Public
   6  *    License or the Artistic License, as specified in the README file.
   7  *
   8  * $Log:        util.c,v $
   9  */
  10
  11 #include "EXTERN.h"
  12 #include "a2p.h"
  13 #include "INTERN.h"
  14 #include "util.h"
  15
  16 #include <stdarg.h>
  17 #define FLUSH
  18
  19 static char nomem[] = "Out of memory!\n";
  20
  21 /* paranoid version of malloc */
  22
  23
  24 Malloc_t
  25 safemalloc(MEM_SIZE size)
  26 {
  27     Malloc_t ptr;
  28
  29     /* malloc(0) is NASTY on some systems */
  30     ptr = malloc(size ? size : 1);
  31 #ifdef DEBUGGING
  32     if (debug & 128)
  33         fprintf(stderr,"0x%lx: (%05d) malloc %ld bytes\n",(unsigned long)ptr,
  34                 an++,(long)size);
  35 #endif
  36     if (ptr != Nullch)
  37         return ptr;
  38     else {
  39         fputs(nomem,stdout) FLUSH;
  40         exit(1);
  41     }
  42     /*NOTREACHED*/
  43     return 0;
  44 }
  45
  46 /* paranoid version of realloc */
  47
  48 Malloc_t
  49 saferealloc(Malloc_t where, MEM_SIZE size)
  50 {
  51     Malloc_t ptr;
  52
  53     /* realloc(0) is NASTY on some systems */
  54     ptr = realloc(where, size ? size : 1);
  55 #ifdef DEBUGGING
  56     if (debug & 128) {
  57         fprintf(stderr,"0x%lx: (%05d) rfree\n",(unsigned long)where,an++);
  58         fprintf(stderr,"0x%lx: (%05d) realloc %ld bytes\n",(unsigned long)ptr,an++,(long)size);
  59     }
  60 #endif
  61     if (ptr != Nullch)
  62         return ptr;
  63     else {
  64         fputs(nomem,stdout) FLUSH;
  65         exit(1);
  66     }
  67     /*NOTREACHED*/
  68     return 0;
  69 }
  70
  71 /* safe version of free */
  72
  73 Free_t
  74 safefree(Malloc_t where)
  75 {
  76 #ifdef DEBUGGING
  77     if (debug & 128)
  78         fprintf(stderr,"0x%lx: (%05d) free\n",(unsigned long)where,an++);
  79 #endif
  80     free(where);
  81 }
  82
  83 /* safe version of string copy */
  84
  85 char *
  86 safecpy(char *to, register char *from, register int len)
  87 {
  88     register char *dest = to;
  89
  90     if (from != Nullch)
  91         for (len--; len && (*dest++ = *from++); len--) ;
  92     *dest = '\0';
  93     return to;
  94 }
  95
  96 /* copy a string up to some (non-backslashed) delimiter, if any */
  97
  98 char *
  99 cpytill(register char *to, register char *from, register int delim)
 100 {
 101     for (; *from; from++,to++) {
 102         if (*from == '\\') {
 103             if (from[1] == delim)
 104                 from++;
 105             else if (from[1] == '\\')
 106                 *to++ = *from++;
 107         }
 108         else if (*from == delim)
 109             break;
 110         *to = *from;
 111     }
 112     *to = '\0';
 113     return from;
 114 }
 115
 116
 117 char *
 118 cpy2(register char *to, register char *from, register int delim)
 119 {
 120     for (; *from; from++,to++) {
 121         if (*from == '\\')
 122             *to++ = *from++;
 123         else if (*from == '$')
 124             *to++ = '\\';
 125         else if (*from == delim)
 126             break;
 127         *to = *from;
 128     }
 129     *to = '\0';
 130     return from;
 131 }
 132
 133 /* return ptr to little string in big string, NULL if not found */
 134
 135 char *
 136 instr(char *big, char *little)
 137 {
 138     register char *t, *s, *x;
 139
 140     for (t = big; *t; t++) {
 141         for (x=t,s=little; *s; x++,s++) {
 142             if (!*x)
 143                 return Nullch;
 144             if (*s != *x)
 145                 break;
 146         }
 147         if (!*s)
 148             return t;
 149     }
 150     return Nullch;
 151 }
 152
 153 /* copy a string to a safe spot */
 154
 155 char *
 156 savestr(char *str)
 157 {
 158     register char *newaddr = (char *) safemalloc((MEM_SIZE)(strlen(str)+1));
 159
 160     (void)strcpy(newaddr,str);
 161     return newaddr;
 162 }
 163
 164 /* grow a static string to at least a certain length */
 165
 166 void
 167 growstr(char **strptr, int *curlen, int newlen)
 168 {
 169     if (newlen > *curlen) {             /* need more room? */
 170         if (*curlen)
 171             *strptr = (char *) saferealloc(*strptr,(MEM_SIZE)newlen);
 172         else
 173             *strptr = (char *) safemalloc((MEM_SIZE)newlen);
 174         *curlen = newlen;
 175     }
 176 }
 177
 178 void
 179 croak(char *pat,...)
 180 {
 181 #if defined(HAS_VPRINTF)
 182     va_list args;
 183
 184     va_start(args, pat);
 185     vfprintf(stderr,pat,args);
 186 #else
 187     fprintf(stderr,pat,a1,a2,a3,a4);
 188 #endif
 189     exit(1);
 190 }
 191
 192 void
 193 fatal(char *pat,...)
 194 {
 195 #if defined(HAS_VPRINTF)
 196     va_list args;
 197
 198     va_start(args, pat);
 199     vfprintf(stderr,pat,args);
 200 #else
 201     fprintf(stderr,pat,a1,a2,a3,a4);
 202 #endif
 203     exit(1);
 204 }
 205
 206 void
 207 warn(char *pat,...)
 208 {
 209 #if defined(HAS_VPRINTF)
 210     va_list args;
 211
 212     va_start(args, pat);
 213     vfprintf(stderr,pat,args);
 214 #else
 215     fprintf(stderr,pat,a1,a2,a3,a4);
 216 #endif
 217 }
 218