diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-11-18 16:15:31 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-11-18 16:15:31 +0000 |
| commit | ecdeb87c58ecf41e283516bbe30cb8616ec66e13 (patch) | |
| tree | e1ef8fd5447d43d6d95b27dbe944326d44d40c42 /perliol.h | |
| parent | 543c00c93a3f7ccd573dc2e23ffd06654cf38058 (diff) | |
| download | perl-ecdeb87c58ecf41e283516bbe30cb8616ec66e13.tar.gz | |
Allow dup'ing of PerlIO::Scalar etc.
p4raw-id: //depot/perlio@13072
Diffstat (limited to 'perliol.h')
| -rw-r--r-- | perliol.h | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -24,9 +24,9 @@ struct _PerlIO_funcs { const char *mode, int fd, int imode, int perm, PerlIO *old, int narg, SV **args); - SV *(*Getarg) (PerlIO *f); + SV *(*Getarg) (pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags); IV (*Fileno) (PerlIO *f); - PerlIO *(*Dup) (pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param); + PerlIO *(*Dup) (pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags); /* Unix-like functions - cf sfio line disciplines */ SSize_t(*Read) (PerlIO *f, void *vbuf, Size_t count); SSize_t(*Unread) (PerlIO *f, const void *vbuf, Size_t count); @@ -120,7 +120,7 @@ extern SV *PerlIO_arg_fetch(PerlIO_list_t *av, IV n); /* Generic, or stub layer functions */ extern IV PerlIOBase_fileno(PerlIO *f); -extern PerlIO *PerlIOBase_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param); +extern PerlIO *PerlIOBase_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags); 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); @@ -158,7 +158,7 @@ extern PerlIO *PerlIOBuf_open(pTHX_ PerlIO_funcs *self, const char *mode, int fd, int imode, int perm, PerlIO *old, int narg, SV **args); extern IV PerlIOBuf_pushed(PerlIO *f, const char *mode, SV *arg); -extern PerlIO *PerlIOBuf_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param); +extern PerlIO *PerlIOBuf_dup(pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param, int flags); extern SSize_t PerlIOBuf_read(PerlIO *f, void *vbuf, Size_t count); extern SSize_t PerlIOBuf_unread(PerlIO *f, const void *vbuf, Size_t count); extern SSize_t PerlIOBuf_write(PerlIO *f, const void *vbuf, Size_t count); |