This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[shell changes from patch from perl5.003_07 to perl5.003_08]
[perl5.git] / dosish.h
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 /* USEMYBINMODE
10  *      This symbol, if defined, indicates that the program should
11  *      use the routine my_binmode(FILE *fp, char iotype) to insure
12  *      that a file is in "binary" mode -- that is, that no translation
13  *      of bytes occurs on read or write operations.
14  */
15 #undef USEMYBINMODE
16
17 /* USE_STAT_RDEV:
18  *      This symbol is defined if this system has a stat structure declaring
19  *      st_rdev
20  */
21 #define USE_STAT_RDEV   /**/
22
23 /* ACME_MESS:
24  *      This symbol, if defined, indicates that error messages should be 
25  *      should be generated in a format that allows the use of the Acme
26  *      GUI/editor's autofind feature.
27  */
28 #undef ACME_MESS        /**/
29
30 /*
31  * fwrite1() should be a routine with the same calling sequence as fwrite(),
32  * but which outputs all of the bytes requested as a single stream (unlike
33  * fwrite() itself, which on some systems outputs several distinct records
34  * if the number_of_items parameter is >1).
35  */
36 #define fwrite1 fwrite
37
38 #define Stat(fname,bufptr) stat((fname),(bufptr))
39 #define Fstat(fd,bufptr)   fstat((fd),(bufptr))
40 #define Fflush(fp)         fflush(fp)
41
42 #define my_getenv(var)  getenv(var)