/* $RCSfile: util.c,v $$Revision: 4.1 $$Date: 92/08/07 18:29:29 $ * * Copyright (c) 1991-1997, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. * * $Log: util.c,v $ */ #include "EXTERN.h" #include "a2p.h" #include "INTERN.h" #include "util.h" #ifdef I_STDARG # include #endif #define FLUSH static char nomem[] = "Out of memory!\n"; /* paranoid version of malloc */ Malloc_t safemalloc(size_t size) { Malloc_t ptr; /* malloc(0) is NASTY on some systems */ ptr = malloc(size ? size : 1); #ifdef DEBUGGING if (debug & 128) fprintf(stderr,"0x%lx: (%05d) malloc %ld bytes\n",(unsigned long)ptr, an++,(long)size); #endif if (ptr != Nullch) return ptr; else { fputs(nomem,stdout) FLUSH; exit(1); } /*NOTREACHED*/ } /* paranoid version of realloc */ Malloc_t saferealloc(void *where, size_t size) { Malloc_t ptr; /* realloc(0) is NASTY on some systems */ ptr = realloc(where, size ? size : 1); #ifdef DEBUGGING if (debug & 128) { fprintf(stderr,"0x%lx: (%05d) rfree\n",(unsigned long)where,an++); fprintf(stderr,"0x%lx: (%05d) realloc %ld bytes\n",(unsigned long)ptr,an++,(long)size); } #endif if (ptr != Nullch) return ptr; else { fputs(nomem,stdout) FLUSH; exit(1); } /*NOTREACHED*/ } /* safe version of free */ Free_t safefree(void *where) { #ifdef DEBUGGING if (debug & 128) fprintf(stderr,"0x%lx: (%05d) free\n",(unsigned long)where,an++); #endif free(where); } /* safe version of string copy */ char * safecpy(char *to, register char *from, register int len) { register char *dest = to; if (from != Nullch) for (len--; len && (*dest++ = *from++); len--) ; *dest = '\0'; return to; } /* copy a string up to some (non-backslashed) delimiter, if any */ char * cpytill(register char *to, register char *from, register int delim) { for (; *from; from++,to++) { if (*from == '\\') { if (from[1] == delim) from++; else if (from[1] == '\\') *to++ = *from++; } else if (*from == delim) break; *to = *from; } *to = '\0'; return from; } char * cpy2(register char *to, register char *from, register int delim) { for (; *from; from++,to++) { if (*from == '\\') *to++ = *from++; else if (*from == '$') *to++ = '\\'; else if (*from == delim) break; *to = *from; } *to = '\0'; return from; } /* return ptr to little string in big string, NULL if not found */ char * instr(char *big, char *little) { register char *t, *s, *x; for (t = big; *t; t++) { for (x=t,s=little; *s; x++,s++) { if (!*x) return Nullch; if (*s != *x) break; } if (!*s) return t; } return Nullch; } /* copy a string to a safe spot */ char * savestr(char *str) { register char *newaddr = (char *) safemalloc((MEM_SIZE)(strlen(str)+1)); (void)strcpy(newaddr,str); return newaddr; } /* grow a static string to at least a certain length */ void growstr(char **strptr, int *curlen, int newlen) { if (newlen > *curlen) { /* need more room? */ if (*curlen) *strptr = (char *) saferealloc(*strptr,(MEM_SIZE)newlen); else *strptr = (char *) safemalloc((MEM_SIZE)newlen); *curlen = newlen; } } void #if defined(I_STDARG) && defined(HAS_VPRINTF) croak(char *pat,...) #else /* I_STDARG */ /*VARARGS1*/ croak(pat,a1,a2,a3,a4) char *pat; int a1,a2,a3,a4; #endif /* I_STDARG */ { #if defined(I_STDARG) && defined(HAS_VPRINTF) va_list args; va_start(args, pat); vfprintf(stderr,pat,args); #else fprintf(stderr,pat,a1,a2,a3,a4); #endif exit(1); } void #if defined(I_STDARG) && defined(HAS_VPRINTF) fatal(char *pat,...) #else /* I_STDARG */ /*VARARGS1*/ fatal(pat,a1,a2,a3,a4) char *pat; int a1,a2,a3,a4; #endif /* I_STDARG */ { #if defined(I_STDARG) && defined(HAS_VPRINTF) va_list args; va_start(args, pat); vfprintf(stderr,pat,args); #else fprintf(stderr,pat,a1,a2,a3,a4); #endif exit(1); } void #if defined(I_STDARG) && defined(HAS_VPRINTF) warn(char *pat,...) #else /* I_STDARG */ /*VARARGS1*/ warn(pat,a1,a2,a3,a4) char *pat; int a1,a2,a3,a4; #endif /* I_STDARG */ { #if defined(I_STDARG) && defined(HAS_VPRINTF) va_list args; va_start(args, pat); vfprintf(stderr,pat,args); #else fprintf(stderr,pat,a1,a2,a3,a4); #endif }