This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the 64-bit tests more paranoid.
[perl5.git] / x2p / util.h
1 /* $RCSfile: util.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:30 $
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.h,v $
9  */
10
11 /* is the string for makedir a directory name or a filename? */
12
13 #define fatal Myfatal
14
15 #define MD_DIR 0
16 #define MD_FILE 1
17
18 #ifdef SETUIDGID
19     int         eaccess();
20 #endif
21
22 char    *getwd();
23 int     makedir();
24
25 char * cpy2 ( char *to, char *from, int delim );
26 char * cpytill ( char *to, char *from, int delim );
27 void growstr ( char **strptr, int *curlen, int newlen );
28 char * instr ( char *big, char *little );
29 char * safecpy ( char *to, char *from, int len );
30 char * savestr ( char *str );
31 void croak ( char *pat, ... );
32 void fatal ( char *pat, ... );
33 void warn  ( char *pat, ... );
34 int prewalk ( int numit, int level, int node, int *numericptr );
35
36 Malloc_t safemalloc (MEM_SIZE nbytes);
37 Malloc_t safecalloc (MEM_SIZE elements, MEM_SIZE size);
38 Malloc_t saferealloc (Malloc_t where, MEM_SIZE nbytes);
39 Free_t   safefree (Malloc_t where);