diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-06-19 20:50:54 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-06-19 20:50:54 +0000 |
| commit | 86e05cf231bed3044bd929f19303d6a3d872b202 (patch) | |
| tree | adeabf78be879a3b98ed3d8e351d7a4703706622 /perliol.h | |
| parent | 277dad4e2320e5690f5933980b28aa5eb246f197 (diff) | |
| download | perl-86e05cf231bed3044bd929f19303d6a3d872b202.tar.gz | |
"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
Diffstat (limited to 'perliol.h')
| -rw-r--r-- | perliol.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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); |