This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5.000 patch.0i: fix glaring mistakes in patches a-h
[perl5.git] / unixish.h
CommitLineData
79072805
LW
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 */
a0d0e21e
LW
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
79072805
LW
21#define HAS_KILL
22#define HAS_LINK
79072805 23#define HAS_WAIT
79072805
LW
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
ed6116ce
LW
35
36#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
37# include <signal.h>
38#endif
39
79072805
LW
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
a0d0e21e
LW
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)