1 #define ABORT() abort(); 2 3 #define BIT_BUCKET "\dev\nul" 4 #define PERL_SYS_INIT(c,v) 5 #define PERL_SYS_TERM() 6 #define dXSUB_SYS int dummy 7 #define TMPPATH "plXXXXXX" 8 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)) 19 #define Fflush(fp) fflush(fp) 20 21 #define my_getenv(var) getenv(var) 22