perl 5.002gamma: hints/sco.sh
[p5sagit/p5-mst-13.2.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 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))
17
18#define my_getenv(var) getenv(var)