perl 5.002beta2 patch: toke.c
[p5sagit/p5-mst-13.2.git] / dosish.h
1 #define ABORT() abort();
2
3 /*
4  * fwrite1() should be a routine with the same calling sequence as fwrite(),
5  * but which outputs all of the bytes requested as a single stream (unlike
6  * fwrite() itself, which on some systems outputs several distinct records
7  * if the number_of_items parameter is >1).
8  */
9 #define fwrite1 fwrite
10
11 #define Stat(fname,bufptr) stat((fname),(bufptr))
12 #define Fstat(fd,bufptr)   fstat((fd),(bufptr))
13
14 #define my_getenv(var)  getenv(var)