[perl5.git] / dosish.h

#define ABORT() abort();

#define BIT_BUCKET "/dev/null"  /* Will this work? */
#define PERL_SYS_INIT(c,v)
#define TMPPATH "plXXXXXX"

/*
 * fwrite1() should be a routine with the same calling sequence as fwrite(),
 * but which outputs all of the bytes requested as a single stream (unlike
 * fwrite() itself, which on some systems outputs several distinct records
 * if the number_of_items parameter is >1).
 */
#define fwrite1 fwrite

#define Stat(fname,bufptr) stat((fname),(bufptr))
#define Fstat(fd,bufptr)   fstat((fd),(bufptr))

#define my_getenv(var)  getenv(var)
Commit	Line	Data
79072805	1	#define ABORT() abort();
a0d0e21e	2
c07a80fd	3	#define BIT_BUCKET "/dev/null" /* Will this work? */
c07a80fd	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))
	17
	18	#define my_getenv(var) getenv(var)