#define PERLIO_K_FASTGETS 0x00000008
#define PERLIO_K_DUMMY 0x00000010
#define PERLIO_K_UTF8 0x00008000
+#define PERLIO_K_DESTRUCT 0x00010000
/*--------------------------------------------------------------------------------------*/
struct _PerlIO
#define PERLIO_F_TEMP 0x00100000
#define PERLIO_F_OPEN 0x00200000
#define PERLIO_F_FASTGETS 0x00400000
+#define PERLIO_F_TTY 0x00800000
#define PerlIOBase(f) (*(f))
#define PerlIOSelf(f,type) ((type *)PerlIOBase(f))
#endif
extern PerlIO *PerlIO_allocate(pTHX);
+extern SV *PerlIO_arg_fetch(pTHX_ AV *av,IV n);
+#define PerlIOArg PerlIO_arg_fetch(aTHX_ layers,n+1)
#if O_BINARY != O_TEXT
#define PERLIO_STDTEXT "t"
extern IV PerlIOBase_fileno (PerlIO *f);
extern IV PerlIOBase_pushed (PerlIO *f, const char *mode,SV *arg);
extern IV PerlIOBase_popped (PerlIO *f);
+extern SSize_t PerlIOBase_read (PerlIO *f, void *vbuf, Size_t count);
extern SSize_t PerlIOBase_unread (PerlIO *f, const void *vbuf, Size_t count);
extern IV PerlIOBase_eof (PerlIO *f);
extern IV PerlIOBase_error (PerlIO *f);
extern IV PerlIOBase_fill (PerlIO *f);
extern IV PerlIOBase_close (PerlIO *f);
extern void PerlIOBase_setlinebuf(PerlIO *f);
+extern void PerlIOBase_flush_linebuf(void);
extern IV PerlIOBase_noop_ok (PerlIO *f);
extern IV PerlIOBase_noop_fail (PerlIO *f);
extern IV PerlIOBuf_close (PerlIO *f);
extern IV PerlIOBuf_flush (PerlIO *f);
extern IV PerlIOBuf_fill (PerlIO *f);
-extern void PerlIOBuf_setlinebuf (PerlIO *f);
extern STDCHAR *PerlIOBuf_get_base (PerlIO *f);
extern Size_t PerlIOBuf_bufsiz (PerlIO *f);
extern STDCHAR *PerlIOBuf_get_ptr (PerlIO *f);