Win32 pacifying from mjd.
[perl.git] / x2p / util.c
1 /* $RCSfile: util.c,v $$Revision: 4.1 $$Date: 92/08/07 18:29:29 $
2  *
3  *    Copyright (c) 1991-2002, 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     va_end(args);
187 #else
188     fprintf(stderr,pat,a1,a2,a3,a4);
189 #endif
190     exit(1);
191 }
192
193 void
194 fatal(char *pat,...)
195 {
196 #if defined(HAS_VPRINTF)
197     va_list args;
198
199     va_start(args, pat);
200     vfprintf(stderr,pat,args);
201     va_end(args);
202 #else
203     fprintf(stderr,pat,a1,a2,a3,a4);
204 #endif
205     exit(1);
206 }
207
208 #if defined(__APPLE_CC__)
209 __private_extern__      /* warn() conflicts with libc */
210 #endif
211 void
212 warn(char *pat,...)
213 {
214 #if defined(HAS_VPRINTF)
215     va_list args;
216
217     va_start(args, pat);
218     vfprintf(stderr,pat,args);
219     va_end(args);
220 #else
221     fprintf(stderr,pat,a1,a2,a3,a4);
222 #endif
223 }
224