diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 10:26:01 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 10:26:01 +0000 |
| commit | 2bd2b9e04a68ec86766c4219cf4da7f0d3168395 (patch) | |
| tree | feb11c93f6fed81991107bc208769dbb695ece5a /iperlsys.h | |
| parent | db15561cb83ed8e36f76d63e4283fc51c30fd71f (diff) | |
| download | perl-2bd2b9e04a68ec86766c4219cf4da7f0d3168395.tar.gz | |
final tweaks before beta2
p4raw-id: //depot/perl@1613
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 30 |
1 files changed, 26 insertions, 4 deletions
diff --git a/iperlsys.h b/iperlsys.h index f616533b18..0c93fd8fad 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -127,10 +127,32 @@ public: #endif }; -#define PerlIO_canset_cnt(f) 1 -#define PerlIO_has_base(f) 1 -#define PerlIO_has_cntptr(f) 1 -#define PerlIO_fast_gets(f) 1 + + +#ifdef USE_STDIO_PTR +# define PerlIO_has_cntptr(f) 1 +# ifdef STDIO_CNT_LVALUE +# define PerlIO_canset_cnt(f) 1 +# ifdef STDIO_PTR_LVALUE +# define PerlIO_fast_gets(f) 1 +# endif +# else +# define PerlIO_canset_cnt(f) 0 +# endif +#else /* USE_STDIO_PTR */ +# define PerlIO_has_cntptr(f) 0 +# define PerlIO_canset_cnt(f) 0 +#endif /* USE_STDIO_PTR */ + +#ifndef PerlIO_fast_gets +#define PerlIO_fast_gets(f) 0 +#endif + +#ifdef FILE_base +#define PerlIO_has_base(f) 1 +#else +#define PerlIO_has_base(f) 0 +#endif #define PerlIO_stdin() PL_piStdIO->Stdin() #define PerlIO_stdout() PL_piStdIO->Stdout() |