5 * The following symbols are defined if your operating system supports
6 * functions by that name. All Unixes I know of support them, thus they
7 * are not checked by the configuration script, but are directly defined
12 * This symbol, if defined, indicates that the ioctl() routine is
13 * available to set I/O characteristics
15 #define HAS_IOCTL /**/
18 * This symbol, if defined, indicates that the routine utime() is
19 * available to update the access and modification times of files.
21 #define HAS_UTIME /**/
24 * This symbol, if defined, indicates that the getgrnam(),
25 * getgrgid(), and getgrent() routines are available to
28 /*#define HAS_GROUP /**/
31 * This symbol, if defined, indicates that the getpwnam(),
32 * getpwuid(), and getpwent() routines are available to
33 * get password entries.
35 /*#define HAS_PASSWD /**/
40 /* UNLINK_ALL_VERSIONS:
41 * This symbol, if defined, indicates that the program should arrange
42 * to remove all versions of a file if unlink() is called. This is
43 * probably only relevant for VMS.
45 /* #define UNLINK_ALL_VERSIONS /**/
48 * This symbol, if defined, indicates that the program is running under
56 * This symbol, if defined, indicates that the program should
57 * use the routine my_binmode(FILE *fp, char iotype) to insure
58 * that a file is in "binary" mode -- that is, that no translation
59 * of bytes occurs on read or write operations.
64 * This symbol is defined if this system has a stat structure declaring
67 #undef USE_STAT_RDEV /**/
70 * This symbol, if defined, indicates that error messages should be
71 * should be generated in a format that allows the use of the Acme
72 * GUI/editor's autofind feature.
74 #define ACME_MESS /**/
77 * This symbol, if defined, contains a "magic" string which may be used
78 * as the first line of a Perl program designed to be executed directly
79 * by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG
80 * begins with a character other then #, then Perl will only treat
81 * it as a command line if if finds the string "perl" in the first
82 * word; otherwise it's treated as the first line of code in the script.
83 * (IOW, Perl won't hand off to another interpreter via an alternate
84 * shebang sequence that might be legal Perl code.)
86 /* #define ALTERNATE_SHEBANG "#!" / **/
88 #if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
93 # define SIGABRT SIGILL
96 # define SIGILL 6 /* blech */
98 #define ABORT() kill(getpid(),SIGABRT);
100 #define BIT_BUCKET "/dev/null"
101 #define PERL_SYS_INIT(c,v)
103 #define PERL_SYS_TERM()
106 * fwrite1() should be a routine with the same calling sequence as fwrite(),
107 * but which outputs all of the bytes requested as a single stream (unlike
108 * fwrite() itself, which on some systems outputs several distinct records
109 * if the number_of_items parameter is >1).
111 #define fwrite1 fwrite
113 #define Stat(fname,bufptr) stat((fname),(bufptr))
114 #define Fstat(fd,bufptr) fstat((fd),(bufptr))
115 #define Fflush(fp) fflush(fp)
116 #define Mkdir(path,mode) mkdir((path),(mode))
118 /* getenv related stuff */
119 #define my_getenv(var) getenv(var)
120 /* Plan 9 prefers getenv("home") to getenv("HOME")
123 /* For use by POSIX.xs */
124 extern int tcsendbreak(int, int);
126 #endif /* __PLAN9ISH_H__ */