diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-01 17:56:46 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-01 17:56:46 +0000 |
| commit | 5e2ab84baab5f2372dc1ffda47d5b89faa2613cd (patch) | |
| tree | 293e0bb7d3a5ad517718a0b77921558e3dd115d1 /perliol.h | |
| parent | a4d3c1d3a59a079ee84191d2df8b5e232a8bee44 (diff) | |
| download | perl-5e2ab84baab5f2372dc1ffda47d5b89faa2613cd.tar.gz | |
Fix 'mmap' lib/filehand.t (ungetc) test fail.
Make 'unix' pass most tests
- do unread by temporary push of layer ("pending") holding unread chars
- fast_gets is now based on per-handle flag
- relax one of io/pipe.t tests to allow print to fail and close to
succeed so that it passes on unbuffered "unix" layer.
Remaining fail is sporadic and a genuine race condition between
parent/child in fork test.
p4raw-id: //depot/perlio@7942
Diffstat (limited to 'perliol.h')
| -rw-r--r-- | perliol.h | 34 |
1 files changed, 18 insertions, 16 deletions
@@ -36,9 +36,10 @@ struct _PerlIO_funcs /*--------------------------------------------------------------------------------------*/ /* Kind values */ -#define PERLIO_K_RAW 0x00000001 -#define PERLIO_K_BUFFERED 0x00000002 +#define PERLIO_K_RAW 0x00000001 +#define PERLIO_K_BUFFERED 0x00000002 #define PERLIO_K_CANCRLF 0x00000004 +#define PERLIO_K_FASTGETS 0x00000008 /*--------------------------------------------------------------------------------------*/ struct _PerlIO @@ -51,20 +52,21 @@ struct _PerlIO /*--------------------------------------------------------------------------------------*/ /* Flag values */ -#define PERLIO_F_EOF 0x00010000 -#define PERLIO_F_CANWRITE 0x00020000 -#define PERLIO_F_CANREAD 0x00040000 -#define PERLIO_F_ERROR 0x00080000 -#define PERLIO_F_TRUNCATE 0x00100000 -#define PERLIO_F_APPEND 0x00200000 -#define PERLIO_F_CRLF 0x00400000 -#define PERLIO_F_UTF8 0x00800000 -#define PERLIO_F_UNBUF 0x01000000 -#define PERLIO_F_WRBUF 0x02000000 -#define PERLIO_F_RDBUF 0x04000000 -#define PERLIO_F_LINEBUF 0x08000000 -#define PERLIO_F_TEMP 0x10000000 -#define PERLIO_F_OPEN 0x20000000 +#define PERLIO_F_EOF 0x00000100 +#define PERLIO_F_CANWRITE 0x00000200 +#define PERLIO_F_CANREAD 0x00000400 +#define PERLIO_F_ERROR 0x00000800 +#define PERLIO_F_TRUNCATE 0x00001000 +#define PERLIO_F_APPEND 0x00002000 +#define PERLIO_F_CRLF 0x00004000 +#define PERLIO_F_UTF8 0x00008000 +#define PERLIO_F_UNBUF 0x00010000 +#define PERLIO_F_WRBUF 0x00020000 +#define PERLIO_F_RDBUF 0x00040000 +#define PERLIO_F_LINEBUF 0x00080000 +#define PERLIO_F_TEMP 0x00100000 +#define PERLIO_F_OPEN 0x00200000 +#define PERLIO_F_FASTGETS 0x00400000 #define PerlIOBase(f) (*(f)) #define PerlIOSelf(f,type) ((type *)PerlIOBase(f)) |