https://perl5.git.perl.org / perl5.git / blame
| Commit | Line | Data |
|---|---|---|
| 55204971 | 1 | /* $RCSfile: util.h,v $$Revision: 4.0.1.2 $$Date: 91/11/05 19:21:20 $ |
| a687059c | 2 | * |
| d48672a2 | 3 | * Copyright (c) 1991, Larry Wall |
| a687059c | 4 | * |
| d48672a2 LW |
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. | |
| 8d063cd8 LW |
7 | * |
| 8 | * $Log: util.h,v $ | |
| 55204971 LW |
9 | * Revision 4.0.1.2 91/11/05 19:21:20 lwall |
| 10 | * patch11: various portability fixes | |
| 11 | * | |
| d48672a2 LW |
12 | * Revision 4.0.1.1 91/06/07 12:20:43 lwall |
| 13 | * patch4: new copyright notice | |
| 14 | * | |
| fe14fcc3 LW |
15 | * Revision 4.0 91/03/20 01:58:29 lwall |
| 16 | * 4.0 baseline. | |
| 8d063cd8 LW |
17 | * |
| 18 | */ | |
| 19 | ||
| 20 | /* is the string for makedir a directory name or a filename? */ | |
| 21 | ||
| 55204971 LW |
22 | #define fatal Myfatal |
| 23 | ||
| 8d063cd8 LW |
24 | #define MD_DIR 0 |
| 25 | #define MD_FILE 1 | |
| 26 | ||
| 27 | void util_init(); | |
| 28 | int doshell(); | |
| 29 | char *safemalloc(); | |
| 30 | char *saferealloc(); | |
| 31 | char *safecpy(); | |
| 32 | char *safecat(); | |
| 33 | char *cpytill(); | |
| 34 | char *cpy2(); | |
| 35 | char *instr(); | |
| 36 | #ifdef SETUIDGID | |
| 37 | int eaccess(); | |
| 38 | #endif | |
| 39 | char *getwd(); | |
| 40 | void cat(); | |
| 41 | void prexit(); | |
| 42 | char *get_a_line(); | |
| 43 | char *savestr(); | |
| 44 | int makedir(); | |
| 45 | void setenv(); | |
| 46 | int envix(); | |
| 47 | void notincl(); | |
| 48 | char *getval(); | |
| 49 | void growstr(); | |
| 50 | void setdef(); |