1 /* dosish.h 2 * 3 * Copyright (C) 1993, 1994, 1996, 1997, 1998, 1999, 4 * 2000, 2001, 2002, 2007, by Larry Wall and others 5 * 6 * You may distribute under the terms of either the GNU General Public 7 * License or the Artistic License, as specified in the README file. 8 * 9 */ 10 #define ABORT() abort(); 11 12 #ifndef SH_PATH 13 #define SH_PATH "/bin/sh" 14 #endif 15 16 #ifdef DJGPP 17 # define BIT_BUCKET "nul" 18 # define OP_BINARY O_BINARY 19 # define PERL_SYS_INIT_BODY(c,v) \ 20 MALLOC_CHECK_TAINT2(*c,*v) Perl_DJGPP_init(c,v); PERLIO_INIT 21 # define init_os_extras Perl_init_os_extras 22 # define HAS_UTIME 23 # define HAS_KILL 24 char *djgpp_pathexp (const char*); 25 void Perl_DJGPP_init (int *argcp,char ***argvp); 26 # if (DJGPP==2 && DJGPP_MINOR < 2) 27 # define NO_LOCALECONV_MON_THOUSANDS_SEP 28 # endif 29 # ifndef PERL_CORE 30 # define PERL_FS_VER_FMT "%d_%d_%d" 31 # endif 32 # define PERL_FS_VERSION STRINGIFY(PERL_REVISION) "_" \ 33 STRINGIFY(PERL_VERSION) "_" \ 34 STRINGIFY(PERL_SUBVERSION) 35 #else /* DJGPP */ 36 # ifdef WIN32 37 # define PERL_SYS_INIT_BODY(c,v) \ 38 MALLOC_CHECK_TAINT2(*c,*v) Perl_win32_init(c,v); PERLIO_INIT 39 # define PERL_SYS_TERM_BODY() Perl_win32_term() 40 # define BIT_BUCKET "nul" 41 # else 42 # ifdef NETWARE 43 # define PERL_SYS_INIT_BODY(c,v) \ 44 MALLOC_CHECK_TAINT2(*c,*v) Perl_nw5_init(c,v); PERLIO_INIT 45 # define BIT_BUCKET "nwnul" 46 # else 47 # define PERL_SYS_INIT_BODY(c,v) \ 48 MALLOC_CHECK_TAINT2(*c,*v); PERLIO_INIT 49 # define BIT_BUCKET "\\dev\\nul" /* "wanna be like, umm, Newlined, or somethin?" */ 50 # endif /* NETWARE */ 51 # endif 52 #endif /* DJGPP */ 53 54 #ifndef PERL_SYS_TERM_BODY 55 # define PERL_SYS_TERM_BODY() HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM 56 #endif 57 #define dXSUB_SYS 58 59 /* 60 * 5.003_07 and earlier keyed on #ifdef MSDOS for determining if we were 61 * running on DOS, *and* if we had to cope with 16 bit memory addressing 62 * constraints, *and* we need to have memory allocated as unsigned long. 63 * 64 * with the advent of *real* compilers for DOS, they are not locked together. 65 * MSDOS means "I am running on MSDOS". HAS_64K_LIMIT means "I have 66 * 16 bit memory addressing constraints". 67 * 68 * if you need the last, try #DEFINE MEM_SIZE unsigned long. 69 */ 70 #ifdef MSDOS 71 # ifndef DJGPP 72 # define HAS_64K_LIMIT 73 # endif 74 #endif 75 76 /* USEMYBINMODE 77 * This symbol, if defined, indicates that the program should 78 * use the routine my_binmode(FILE *fp, char iotype, int mode) to insure 79 * that a file is in "binary" mode -- that is, that no translation 80 * of bytes occurs on read or write operations. 81 */ 82 #undef USEMYBINMODE 83 84 /* Stat_t: 85 * This symbol holds the type used to declare buffers for information 86 * returned by stat(). It's usually just struct stat. It may be necessary 87 * to include <sys/stat.h> and <sys/types.h> to get any typedef'ed 88 * information. 89 */ 90 #if defined(WIN64) || defined(USE_LARGE_FILES) 91 # if defined(__BORLANDC__) /* buk */ 92 # include <sys\stat.h> 93 # define Stat_t struct stati64 94 # else 95 #define Stat_t struct _stati64 96 # endif 97 #else 98 #if defined(UNDER_CE) 99 #define Stat_t struct xcestat 100 #else 101 #define Stat_t struct stat 102 #endif 103 #endif 104 105 /* USE_STAT_RDEV: 106 * This symbol is defined if this system has a stat structure declaring 107 * st_rdev 108 */ 109 #define USE_STAT_RDEV /**/ 110 111 /* ACME_MESS: 112 * This symbol, if defined, indicates that error messages should be 113 * should be generated in a format that allows the use of the Acme 114 * GUI/editor's autofind feature. 115 */ 116 #undef ACME_MESS /**/ 117 118 /* ALTERNATE_SHEBANG: 119 * This symbol, if defined, contains a "magic" string which may be used 120 * as the first line of a Perl program designed to be executed directly 121 * by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG 122 * begins with a character other then #, then Perl will only treat 123 * it as a command line if it finds the string "perl" in the first 124 * word; otherwise it's treated as the first line of code in the script. 125 * (IOW, Perl won't hand off to another interpreter via an alternate 126 * shebang sequence that might be legal Perl code.) 127 */ 128 /* #define ALTERNATE_SHEBANG "#!" / **/ 129 130 #include <signal.h> 131 132 /* 133 * fwrite1() should be a routine with the same calling sequence as fwrite(), 134 * but which outputs all of the bytes requested as a single stream (unlike 135 * fwrite() itself, which on some systems outputs several distinct records 136 * if the number_of_items parameter is >1). 137 */ 138 #define fwrite1 fwrite 139 140 #define Fstat(fd,bufptr) fstat((fd),(bufptr)) 141 #ifdef DJGPP 142 # define Fflush(fp) djgpp_fflush(fp) 143 #else 144 # define Fflush(fp) fflush(fp) 145 #endif 146 #define Mkdir(path,mode) mkdir((path),(mode)) 147 148 #ifndef WIN32 149 # define Stat(fname,bufptr) stat((fname),(bufptr)) 150 #else 151 # define HAS_IOCTL 152 # define HAS_UTIME 153 # define HAS_KILL 154 # define HAS_WAIT 155 # define HAS_CHOWN 156 #endif /* WIN32 */ 157 158 /* 159 * <rich@phekda.freeserve.co.uk>: The DJGPP port has code that converts 160 * the return code of system() into the form that Unixy wait usually 161 * returns: 162 * 163 * - signal number in bits 0-6; 164 * - core dump flag in bit 7; 165 * - exit code in bits 8-15. 166 * 167 * Bits 0-7 are always zero for DJGPP, because it uses system(). 168 * See djgpp.c. 169 * 170 * POSIX::W* use the W* macros from <sys/wait.h> to decode 171 * the return code. Unfortunately the W* macros for DJGPP use 172 * a different format than Unixy wait does. So there's a mismatch 173 * and, say, WEXITSTATUS($?) will return bogus values. 174 * 175 * So here we add hack to redefine the W* macros from DJGPP's <sys/wait.h> 176 * to work with our return-code conversion. 177 */ 178 179 #ifdef DJGPP 180 181 #include <sys/wait.h> 182 183 #undef WEXITSTATUS 184 #undef WIFEXITED 185 #undef WIFSIGNALED 186 #undef WIFSTOPPED 187 #undef WNOHANG 188 #undef WSTOPSIG 189 #undef WTERMSIG 190 #undef WUNTRACED 191 192 #define WEXITSTATUS(stat_val) ((stat_val) >> 8) 193 #define WIFEXITED(stat_val) 0 194 #define WIFSIGNALED(stat_val) 0 195 #define WIFSTOPPED(stat_val) 0 196 #define WNOHANG 0 197 #define WSTOPSIG(stat_val) 0 198 #define WTERMSIG(stat_val) 0 199 #define WUNTRACED 0 200 201 #endif 202 203 /* Don't go reading from /dev/urandom */ 204 #define PERL_NO_DEV_RANDOM 205 206 /* 207 * Local variables: 208 * c-indentation-style: bsd 209 * c-basic-offset: 4 210 * indent-tabs-mode: t 211 * End: 212 * 213 * ex: set ts=8 sts=4 sw=4 noet: 214 */ 215