X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dosish.h;h=4b90187d087c849e5f2ac2cea277d115fa816f43;hb=89d60977162f464114a3f311f9059bb0c281bdbd;hp=ec7b85a4f637c36ce7b2cd61979954de11ac5084;hpb=39e571d41067215a80f26089b260f1418caeb36b;p=p5sagit%2Fp5-mst-13.2.git diff --git a/dosish.h b/dosish.h index ec7b85a..4b90187 100644 --- a/dosish.h +++ b/dosish.h @@ -8,6 +8,7 @@ # define BIT_BUCKET "nul" # define OP_BINARY O_BINARY # define PERL_SYS_INIT(c,v) Perl_DJGPP_init(c,v) +# define init_os_extras Perl_init_os_extras # include # define HAS_UTIME # define HAS_KILL @@ -16,39 +17,26 @@ # define NO_LOCALECONV_MON_THOUSANDS_SEP # endif # ifdef USE_THREADS -# define NEED_PTHREAD_INIT # define OLD_PTHREADS_API -# define YIELD pthread_yield(NULL) -# define DETACH(t) \ - STMT_START { \ - if (pthread_detach(&(t)->self)) { \ - MUTEX_UNLOCK(&(t)->mutex); \ - croak("panic: DETACH"); \ - } \ - } STMT_END -# define pthread_mutexattr_default NULL -# define pthread_condattr_default NULL -# define pthread_attr_default NULL -# define pthread_addr_t any_t # endif +# define PERL_FS_VER_FMT "%d_%d_%d" #else /* DJGPP */ # ifdef WIN32 # define PERL_SYS_INIT(c,v) Perl_win32_init(c,v) # define BIT_BUCKET "nul" # else -# define PERL_SYS_INIT(c,v) -# define BIT_BUCKET "\\dev\\nul" /* "wanna be like, umm, Newlined, or somethin?" */ +# ifdef NETWARE +# define PERL_SYS_INIT(c,v) Perl_nw5_init(c,v) +# define BIT_BUCKET "nul" +# else +# define PERL_SYS_INIT(c,v) +# define BIT_BUCKET "\\dev\\nul" /* "wanna be like, umm, Newlined, or somethin?" */ +# endif /* NETWARE */ # endif #endif /* DJGPP */ -#define PERL_SYS_TERM() MALLOC_TERM +#define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM #define dXSUB_SYS -#define TMPPATH "plXXXXXX" - -#ifdef WIN32 -#define HAS_UTIME -#define HAS_KILL -#endif /* * 5.003_07 and earlier keyed on #ifdef MSDOS for determining if we were @@ -69,12 +57,20 @@ /* USEMYBINMODE * This symbol, if defined, indicates that the program should - * use the routine my_binmode(FILE *fp, char iotype) to insure + * use the routine my_binmode(FILE *fp, char iotype, int mode) to insure * that a file is in "binary" mode -- that is, that no translation * of bytes occurs on read or write operations. */ #undef USEMYBINMODE +/* Stat_t: + * This symbol holds the type used to declare buffers for information + * returned by stat(). It's usually just struct stat. It may be necessary + * to include and to get any typedef'ed + * information. + */ +#define Stat_t struct stat + /* USE_STAT_RDEV: * This symbol is defined if this system has a stat structure declaring * st_rdev @@ -109,17 +105,19 @@ #define fwrite1 fwrite #define Fstat(fd,bufptr) fstat((fd),(bufptr)) -#define Fflush(fp) fflush(fp) +#ifdef DJGPP +# define Fflush(fp) djgpp_fflush(fp) +#else +# define Fflush(fp) fflush(fp) +#endif #define Mkdir(path,mode) mkdir((path),(mode)) #ifndef WIN32 # define Stat(fname,bufptr) stat((fname),(bufptr)) #else -/* - * This provides a layer of functions and macros to ensure extensions will - * get to use the same RTL functions as the core. - */ -#ifndef HASATTRIBUTE -# include -#endif +# define HAS_IOCTL +# define HAS_UTIME +# define HAS_KILL +# define HAS_WAIT +# define HAS_CHOWN #endif /* WIN32 */