This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reverse copyright update (#18801) for files not changed in 2003.
[perl5.git] / x2p / util.h
... / ...
CommitLineData
1/* $RCSfile: util.h,v $$Revision: 4.1 $$Date: 92/08/07 18:29:30 $
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.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
22char *getwd();
23int makedir();
24
25char * cpy2 ( char *to, char *from, int delim );
26char * cpytill ( char *to, char *from, int delim );
27void growstr ( char **strptr, int *curlen, int newlen );
28char * instr ( char *big, char *little );
29char * safecpy ( char *to, char *from, int len );
30char * savestr ( char *str );
31void croak ( char *pat, ... );
32void fatal ( char *pat, ... );
33void warn ( char *pat, ... );
34int prewalk ( int numit, int level, int node, int *numericptr );
35
36Malloc_t safemalloc (MEM_SIZE nbytes);
37Malloc_t safecalloc (MEM_SIZE elements, MEM_SIZE size);
38Malloc_t saferealloc (Malloc_t where, MEM_SIZE nbytes);
39Free_t safefree (Malloc_t where);