X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=plan9%2Fplan9ish.h;h=c3ae06790ab30a44aafa1ea187fcf5372f354134;hb=e670e57a01f4348af67815ccc0b2b168b078d7bd;hp=c225d286a309f33a242d96578750b798c1d0921b;hpb=44a8e56aa037ed0f03f0506f6f85f5ed290c78e1;p=p5sagit%2Fp5-mst-13.2.git diff --git a/plan9/plan9ish.h b/plan9/plan9ish.h index c225d28..c3ae067 100644 --- a/plan9/plan9ish.h +++ b/plan9/plan9ish.h @@ -21,16 +21,16 @@ #define HAS_UTIME /**/ /* HAS_GROUP - * This symbol, if defined, indicates that the getgrnam(), - * getgrgid(), and getgrent() routines are available to - * get group entries. + * This symbol, if defined, indicates that the getgrnam() and + * getgrgid() routines are available to get group entries. + * The getgrent() has a separate definition, HAS_GETGRENT. */ /*#define HAS_GROUP /**/ /* HAS_PASSWD - * This symbol, if defined, indicates that the getpwnam(), - * getpwuid(), and getpwent() routines are available to - * get password entries. + * This symbol, if defined, indicates that the getpwnam() and + * getpwuid() routines are available to get password entries. + * The getpwent() has a separate definition, HAS_GETPWENT. */ /*#define HAS_PASSWD /**/ @@ -54,12 +54,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 @@ -85,9 +93,7 @@ */ /* #define ALTERNATE_SHEBANG "#!" / **/ -#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX) -# include -#endif +#include #ifndef SIGABRT # define SIGABRT SIGILL @@ -95,12 +101,12 @@ #ifndef SIGILL # define SIGILL 6 /* blech */ #endif -#define ABORT() kill(getpid(),SIGABRT); +#define ABORT() kill(PerlProc_getpid(),SIGABRT); #define BIT_BUCKET "/dev/null" -#define PERL_SYS_INIT(c,v) -#define dXSUB_SYS int dummy -#define PERL_SYS_TERM() +#define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) MALLOC_INIT +#define dXSUB_SYS +#define PERL_SYS_TERM() MALLOC_TERM /* * fwrite1() should be a routine with the same calling sequence as fwrite(), @@ -113,6 +119,7 @@ #define Stat(fname,bufptr) stat((fname),(bufptr)) #define Fstat(fd,bufptr) fstat((fd),(bufptr)) #define Fflush(fp) fflush(fp) +#define Mkdir(path,mode) mkdir((path),(mode)) /* getenv related stuff */ #define my_getenv(var) getenv(var) @@ -122,4 +129,10 @@ /* For use by POSIX.xs */ extern int tcsendbreak(int, int); +#define CONDOP_SIZE 4 /* The Plan 9 compiler cannot return quads from ?: */ + +#undef HAS_SYMLINK /* Plan 9 doesn't really have these. */ +#undef HAS_LSTAT +#undef HAS_READLINK + #endif /* __PLAN9ISH_H__ */