diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-10 20:43:32 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-10 20:43:32 +0000 |
| commit | 33af2bc731cf870df7b094c6b3d116322b4b493f (patch) | |
| tree | 5dc362fc7472f4bb1bf072beab9ea0210235263b /perliol.h | |
| parent | c8cfdfc75b7d5d28511d82df4e41747dd1368a27 (diff) | |
| download | perl-33af2bc731cf870df7b094c6b3d116322b4b493f.tar.gz | |
Not merge worthy...
Allow arg to layers e.g. open($fh,"<:encode(iso8859-15)",$name)
syntax is modelled on attributes.
Untested fix for io/utf8 on Win32 etc.
Very clumsy start to the encode layer.
p4raw-id: //depot/perlio@8076
Diffstat (limited to 'perliol.h')
| -rw-r--r-- | perliol.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -10,7 +10,7 @@ struct _PerlIO_funcs PerlIO * (*Fdopen)(PerlIO_funcs *tab, int fd, const char *mode); PerlIO * (*Open)(PerlIO_funcs *tab, const char *path, const char *mode); int (*Reopen)(const char *path, const char *mode, PerlIO *f); - IV (*Pushed)(PerlIO *f,const char *mode); + IV (*Pushed)(PerlIO *f,const char *mode,const char *arg,STRLEN len); IV (*Popped)(PerlIO *f); /* Unix-like functions - cf sfio line disciplines */ SSize_t (*Read)(PerlIO *f, void *vbuf, Size_t count); @@ -94,7 +94,7 @@ extern PerlIO *PerlIO_allocate(pTHX); /* Generic, or stub layer functions */ extern IV PerlIOBase_fileno (PerlIO *f); -extern IV PerlIOBase_pushed (PerlIO *f, const char *mode); +extern IV PerlIOBase_pushed (PerlIO *f, const char *mode,const char *arg,STRLEN len); extern IV PerlIOBase_popped (PerlIO *f); extern SSize_t PerlIOBase_unread (PerlIO *f, const void *vbuf, Size_t count); extern IV PerlIOBase_eof (PerlIO *f); |