This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.000
[perl5.git] / unixish.h
1
2 /*
3  * The following symbols are defined if your operating system supports
4  * functions by that name.  All Unixes I know of support them, thus they
5  * are not checked by the configuration script, but are directly defined
6  * here.
7  */
8
9 /* HAS_IOCTL:
10  *      This symbol, if defined, indicates that the ioctl() routine is
11  *      available to set I/O characteristics
12  */
13 #define HAS_IOCTL               /**/
14  
15 /* HAS_UTIME:
16  *      This symbol, if defined, indicates that the routine utime() is
17  *      available to update the access and modification times of files.
18  */
19 #define HAS_UTIME               /**/
20
21 #define HAS_KILL
22 #define HAS_LINK
23 #define HAS_WAIT
24 /*
25  * The following symbols are defined if your operating system supports
26  * password and group functions in general.  All Unix systems do.
27  */
28 #ifdef I_GRP
29 #define HAS_GROUP
30 #endif
31 #ifdef I_PWD
32 #define HAS_PASSWD
33 #endif
34
35
36 #if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
37 # include <signal.h>
38 #endif
39
40 #ifndef SIGABRT
41 #    define SIGABRT SIGILL
42 #endif
43 #ifndef SIGILL
44 #    define SIGILL 6         /* blech */
45 #endif
46 #define ABORT() kill(getpid(),SIGABRT);
47
48 /*
49  * fwrite1() should be a routine with the same calling sequence as fwrite(),
50  * but which outputs all of the bytes requested as a single stream (unlike
51  * fwrite() itself, which on some systems outputs several distinct records
52  * if the number_of_items parameter is >1).
53  */
54 #define fwrite1 fwrite
55
56 #define Stat(fname,bufptr) stat((fname),(bufptr))
57 #define Fstat(fd,bufptr)   fstat((fd),(bufptr))
58
59 #define my_getenv(var) getenv(var)