diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-16 11:32:48 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-16 11:32:48 +0000 |
| commit | 8cf8f3d16d82d8b3561907820401eea7766f2f96 (patch) | |
| tree | d5933c761c8ed663c8cccac2ec850c06948ef221 /perliol.h | |
| parent | 71200d45e1b06d4f36df595fa80b743f999642c1 (diff) | |
| download | perl-8cf8f3d16d82d8b3561907820401eea7766f2f96.tar.gz | |
Skeleton of "PerlIO_dup" coded.
Still-passes all tests non-threaded (well it would wouldn't it!)
p4raw-id: //depot/perlio@12451
Diffstat (limited to 'perliol.h')
| -rw-r--r-- | perliol.h | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -26,7 +26,7 @@ struct _PerlIO_funcs { PerlIO *old, int narg, SV **args); SV *(*Getarg) (PerlIO *f); IV (*Fileno) (PerlIO *f); - PerlIO *(*Dup) (pTHX_ PerlIO *f, PerlIO *o, clone_params *param); + PerlIO *(*Dup) (pTHX_ PerlIO *f, PerlIO *o, CLONE_PARAMS *param); /* 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); 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); @@ -152,6 +152,7 @@ typedef struct { IV oneword; /* Emergency buffer */ } PerlIOBuf; +extern SV *PerlIO_sv_dup(pTHX_ SV *arg, CLONE_PARAMS *param); extern PerlIO *PerlIOBuf_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers, IV n, const char *mode, int fd, int imode, |