home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / perl-5.003-base.tgz / perl-5.003-base.tar / fsf / perl / dosish.h < prev    next >
Text File  |  1996-03-25  |  638b  |  22 lines
  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.