X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.h;h=ebacfeb611ab9aab63afcb6336b4cce7651b36c4;hb=524189f16184b7c26cd5c891db0a97b3ccc255cc;hp=b144b2494ccf7d29df4729b519486aceb6fd2624;hpb=f7e7eb72c805f1b630a3d1a32ed33c0f6da60bea;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.h b/perlio.h
index b144b24..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 */
 
@@ -189,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
@@ -234,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
@@ -323,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