This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Provide default value for $^O in C
[perl5.git] / dosish.h
CommitLineData
79072805 1#define ABORT() abort();
a0d0e21e 2
c07a80fd 3#define BIT_BUCKET "/dev/null" /* Will this work? */
4#define PERL_SYS_INIT(c,v)
e632a5f6 5#define TMPPATH "plXXXXXX"
c07a80fd 6
a0d0e21e
LW
7/*
8 * fwrite1() should be a routine with the same calling sequence as fwrite(),
9 * but which outputs all of the bytes requested as a single stream (unlike
10 * fwrite() itself, which on some systems outputs several distinct records
11 * if the number_of_items parameter is >1).
12 */
13#define fwrite1 fwrite
14
15#define Stat(fname,bufptr) stat((fname),(bufptr))
16#define Fstat(fd,bufptr) fstat((fd),(bufptr))
a5f75d66 17#define Fflush(fp) fflush(fp)
a0d0e21e
LW
18
19#define my_getenv(var) getenv(var)