From 86e05cf231bed3044bd929f19303d6a3d872b202 Mon Sep 17 00:00:00 2001 From: Nick Ing-Simmons Date: Wed, 19 Jun 2002 20:50:54 +0000 Subject: "Clean" implementation of binmode(FH)/":raw" identity. New function table entry so all layer definitions need tweaking. Extra function table entry allows a layer to remain on a binmode stack New PerlIOBase_binmode allows easy implementation of default policy. p4raw-id: //depot/perlio@17309 --- perliol.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perliol.h') diff --git a/perliol.h b/perliol.h index 124589b493..76d74a7abb 100644 --- a/perliol.h +++ b/perliol.h @@ -24,6 +24,7 @@ struct _PerlIO_funcs { const char *mode, int fd, int imode, int perm, PerlIO *old, int narg, SV **args); + IV (*Binmode)(pTHX_ PerlIO *f); SV *(*Getarg) (pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags); IV (*Fileno) (pTHX_ PerlIO *f); PerlIO *(*Dup) (pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags); @@ -125,6 +126,7 @@ extern IV PerlIOBase_fileno(pTHX_ PerlIO *f); extern PerlIO *PerlIOBase_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags); extern IV PerlIOBase_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg); extern IV PerlIOBase_popped(pTHX_ PerlIO *f); +extern IV PerlIOBase_binmode(pTHX_ PerlIO *f); extern SSize_t PerlIOBase_read(pTHX_ PerlIO *f, void *vbuf, Size_t count); extern SSize_t PerlIOBase_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count); -- cgit v1.2.1