X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/39e571d41067215a80f26089b260f1418caeb36b..f46deeb45660292d3b9843caf0b460ff2711b2e5:/dosish.h diff --git a/dosish.h b/dosish.h index ec7b85a..08b48fa 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,21 +17,9 @@ # 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) @@ -41,14 +30,8 @@ # 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 +52,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 @@ -115,11 +106,9 @@ #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 */