X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.h;h=ebacfeb611ab9aab63afcb6336b4cce7651b36c4;hb=524189f16184b7c26cd5c891db0a97b3ccc255cc;hp=a0672beb184b0e3e76dec2204e43c1d3d703e929;hpb=64e3064672d11548e6ad00289c3ae02ef2711c44;p=p5sagit%2Fp5-mst-13.2.git diff --git a/perlio.h b/perlio.h index a0672be..ebacfeb 100644 --- a/perlio.h +++ b/perlio.h @@ -80,10 +80,10 @@ typedef PerlIOl *PerlIO; #define PerlIO PerlIO #define PERLIO_LAYERS 1 -extern void PerlIO_define_layer (PerlIO_funcs *tab); -extern SV * PerlIO_find_layer (const char *name, STRLEN len); -extern PerlIO * PerlIO_push (PerlIO *f,PerlIO_funcs *tab,const char *mode,const char *arg,STRLEN len); -extern void PerlIO_pop (PerlIO *f); +extern void PerlIO_define_layer (pTHX_ PerlIO_funcs *tab); +extern SV * PerlIO_find_layer (pTHX_ const char *name, STRLEN len, int load); +extern PerlIO * PerlIO_push (pTHX_ PerlIO *f,PerlIO_funcs *tab,const char *mode,SV *arg); +extern void PerlIO_pop (pTHX_ PerlIO *f); #endif /* PerlIO */ @@ -106,6 +106,10 @@ extern void PerlIO_pop (PerlIO *f); #ifndef PERLIO_NOT_STDIO #define PERLIO_NOT_STDIO 1 #endif +#else +#ifndef PERLIO_NOT_STDIO +#define PERLIO_NOT_STDIO 0 +#endif #endif #ifdef PERLIO_NOT_STDIO @@ -185,6 +189,9 @@ extern int PerlIO_puts (PerlIO *,const char *); #ifndef PerlIO_open extern PerlIO * PerlIO_open (const char *,const char *); #endif +#ifndef PerlIO_openn +extern PerlIO * PerlIO_openn (pTHX_ const char *layers, const char *mode,int fd,int imode,int perm,PerlIO *old,int narg,SV **arg); +#endif #ifndef PerlIO_close extern int PerlIO_close (PerlIO *); #endif @@ -230,6 +237,9 @@ extern void PerlIO_releaseFILE (PerlIO *,FILE *); #ifndef PerlIO_read extern SSize_t PerlIO_read (PerlIO *,void *,Size_t); #endif +#ifndef PerlIO_unread +extern SSize_t PerlIO_unread (PerlIO *,const void *,Size_t); +#endif #ifndef PerlIO_write extern SSize_t PerlIO_write (PerlIO *,const void *,Size_t); #endif @@ -319,6 +329,11 @@ extern int PerlIO_apply_layers (pTHX_ PerlIO *f, const char *mode, const char *n #ifndef PerlIO_binmode extern int PerlIO_binmode (pTHX_ PerlIO *f, int iotype, int omode, const char *names); #endif +#ifndef PerlIO_getname +extern char * PerlIO_getname (PerlIO *, char *); +#endif + +extern void PerlIO_destruct(pTHX); #ifndef PERLIO_IS_STDIO