diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-23 01:47:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-23 01:47:23 +0000 |
| commit | 2b8704340c2f1557cfe267d2c68423c1b5c1af99 (patch) | |
| tree | 84f818d7ddb86b9834c80b476851eba7aff90295 /proto.h | |
| parent | ff269afb6eaff12d854f6ce00dda1eb6852f91ac (diff) | |
| parent | 8b2e0174b6b6d4d39f5a73ce8ba5e72ce825937d (diff) | |
| download | perl-2b8704340c2f1557cfe267d2c68423c1b5c1af99.tar.gz | |
Integrate perlio:
[ 13854]
Win32 and makedef.pl fall-out of PerlIO/pTHX stuff
[ 13853]
Put PerlIO stuff inside EXTERN C
[ 13852]
Add at least the "important" PerlIO_xxxx functions to embed.pl
so that they get implicit pTHX_ and we can avoid slow dTHX.
p4raw-link: @13854 on //depot/perlio: 3da9a137807e4f1acaf9cb3024a6cc5fbd119b9f
p4raw-link: @13853 on //depot/perlio: 582ed04c91818c6c9bf5b51c84f67b7c565925a7
p4raw-link: @13852 on //depot/perlio: e87a358ade5a3dd9a8b192569e18211d76c93743
p4raw-id: //depot/perl@13862
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 28 |
1 files changed, 28 insertions, 0 deletions
@@ -1335,5 +1335,33 @@ PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char *s, NV* value); PERL_CALLCONV int Perl_my_socketpair(pTHX_ int family, int type, int protocol, int fd[2]); #endif + +#if defined(USE_PERLIO) && !defined(USE_SFIO) +PERL_CALLCONV int Perl_PerlIO_close(pTHX_ PerlIO *); +PERL_CALLCONV int Perl_PerlIO_fill(pTHX_ PerlIO *); +PERL_CALLCONV int Perl_PerlIO_fileno(pTHX_ PerlIO *); +PERL_CALLCONV int Perl_PerlIO_eof(pTHX_ PerlIO *); +PERL_CALLCONV int Perl_PerlIO_error(pTHX_ PerlIO *); +PERL_CALLCONV int Perl_PerlIO_flush(pTHX_ PerlIO *); +PERL_CALLCONV void Perl_PerlIO_clearerr(pTHX_ PerlIO *); +PERL_CALLCONV void Perl_PerlIO_set_cnt(pTHX_ PerlIO *, int); +PERL_CALLCONV void Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *, STDCHAR *, int); +PERL_CALLCONV void Perl_PerlIO_setlinebuf(pTHX_ PerlIO *); +PERL_CALLCONV SSize_t Perl_PerlIO_read(pTHX_ PerlIO *, void *, Size_t); +PERL_CALLCONV SSize_t Perl_PerlIO_write(pTHX_ PerlIO *, const void *, Size_t); +PERL_CALLCONV SSize_t Perl_PerlIO_unread(pTHX_ PerlIO *, const void *, Size_t); +PERL_CALLCONV Off_t Perl_PerlIO_tell(pTHX_ PerlIO *); +PERL_CALLCONV int Perl_PerlIO_seek(pTHX_ PerlIO *, Off_t, int); + +PERL_CALLCONV STDCHAR * Perl_PerlIO_get_base(pTHX_ PerlIO *); +PERL_CALLCONV STDCHAR * Perl_PerlIO_get_ptr(pTHX_ PerlIO *); +PERL_CALLCONV int Perl_PerlIO_get_bufsiz(pTHX_ PerlIO *); +PERL_CALLCONV int Perl_PerlIO_get_cnt(pTHX_ PerlIO *); + +PERL_CALLCONV PerlIO * Perl_PerlIO_stdin(pTHX); +PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX); +PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX); +#endif /* PERLIO_LAYERS */ + END_EXTERN_C |