diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-22 22:26:51 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-22 22:26:51 +0000 |
| commit | ee518936bd3eee0065c20591f5182f733dadd4bd (patch) | |
| tree | 47bb05c60004fa322c14c6f944b966a8f4840ebc /perlio.h | |
| parent | 4fbc943a81ac8168e4ba63497561c515427127d8 (diff) | |
| download | perl-ee518936bd3eee0065c20591f5182f733dadd4bd.tar.gz | |
Snapshot of new PerlIO open scheme. Still buggy - mainly in open($fh,">&STDOUT!")
type code.
- Invent PerlIO_openn() - which has "lots" of args a bit like do_openn() which
is its main caller. In particular now has access to "extra" args, and
can tell when an open handle is "reopened" (or duped?).
- In -Duseperlio PerlIO_open() et. al. are now wrappers on PerlIO_openn().
- In -Uuseperlio (untested as yet) PerlIO_openn() is a wrapper on
PerlIO_open() et. al. (i.e. other way round).
- Collapse "vtable" entries for layers - was fdopen/open/reopen now just open
with args close to PerlIO_openn().
p4raw-id: //depot/perlio@9302
Diffstat (limited to 'perlio.h')
| -rw-r--r-- | perlio.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -189,6 +189,9 @@ extern int PerlIO_puts (PerlIO *,const char *); #ifndef PerlIO_open extern PerlIO * PerlIO_open (const char *,const char *); #endif +#ifndef PerlIO_open +extern PerlIO * PerlIO_openn (pTHX_ const char *layers, const char *mode,int fd,int imode,int perm,PerlIO *old,int narg,SV **arg); +#endif #ifndef PerlIO_close extern int PerlIO_close (PerlIO *); #endif |