This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.003_01: doop.c
[perl5.git] / dosish.h
CommitLineData
79072805 1#define ABORT() abort();
a0d0e21e 2
59c30bed 3#define BIT_BUCKET "\dev\nul"
c07a80fd 4#define PERL_SYS_INIT(c,v)
59c30bed
PP
5#define PERL_SYS_TERM()
6#define dXSUB_SYS int dummy
e632a5f6 7#define TMPPATH "plXXXXXX"
c07a80fd 8
a0d0e21e
LW
9/*
10 * fwrite1() should be a routine with the same calling sequence as fwrite(),
11 * but which outputs all of the bytes requested as a single stream (unlike
12 * fwrite() itself, which on some systems outputs several distinct records
13 * if the number_of_items parameter is >1).
14 */
15#define fwrite1 fwrite
16
17#define Stat(fname,bufptr) stat((fname),(bufptr))
18#define Fstat(fd,bufptr) fstat((fd),(bufptr))
a5f75d66 19#define Fflush(fp) fflush(fp)
a0d0e21e
LW
20
21#define my_getenv(var) getenv(var)