diff options
author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2011-02-16 16:13:41 +0100 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2011-02-16 16:13:41 +0100 |
commit | 662547b48cd7c4d11532421f4a6affdc58267332 (patch) | |
tree | d771cd313083a323e8bc86f6cefdd7ad3bfe58a1 | |
parent | 311619b844266b7962ef286cdc8a6a347b4ac7c0 (diff) | |
download | perl-merijn/useperlio.tar.gz |
regenerated filesmerijn/useperlio
-rw-r--r-- | embed.h | 48 | ||||
-rw-r--r-- | global.sym | 44 | ||||
-rw-r--r-- | proto.h | 92 |
3 files changed, 92 insertions, 92 deletions
@@ -691,6 +691,30 @@ #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP) #define my_chsize(a,b) Perl_my_chsize(aTHX_ a,b) #endif +#if !defined(USE_SFIO) +#define PerlIO_clearerr(a) Perl_PerlIO_clearerr(aTHX_ a) +#define PerlIO_close(a) Perl_PerlIO_close(aTHX_ a) +#define PerlIO_eof(a) Perl_PerlIO_eof(aTHX_ a) +#define PerlIO_error(a) Perl_PerlIO_error(aTHX_ a) +#define PerlIO_fileno(a) Perl_PerlIO_fileno(aTHX_ a) +#define PerlIO_fill(a) Perl_PerlIO_fill(aTHX_ a) +#define PerlIO_flush(a) Perl_PerlIO_flush(aTHX_ a) +#define PerlIO_get_base(a) Perl_PerlIO_get_base(aTHX_ a) +#define PerlIO_get_bufsiz(a) Perl_PerlIO_get_bufsiz(aTHX_ a) +#define PerlIO_get_cnt(a) Perl_PerlIO_get_cnt(aTHX_ a) +#define PerlIO_get_ptr(a) Perl_PerlIO_get_ptr(aTHX_ a) +#define PerlIO_read(a,b,c) Perl_PerlIO_read(aTHX_ a,b,c) +#define PerlIO_seek(a,b,c) Perl_PerlIO_seek(aTHX_ a,b,c) +#define PerlIO_set_cnt(a,b) Perl_PerlIO_set_cnt(aTHX_ a,b) +#define PerlIO_set_ptrcnt(a,b,c) Perl_PerlIO_set_ptrcnt(aTHX_ a,b,c) +#define PerlIO_setlinebuf(a) Perl_PerlIO_setlinebuf(aTHX_ a) +#define PerlIO_stderr() Perl_PerlIO_stderr(aTHX) +#define PerlIO_stdin() Perl_PerlIO_stdin(aTHX) +#define PerlIO_stdout() Perl_PerlIO_stdout(aTHX) +#define PerlIO_tell(a) Perl_PerlIO_tell(aTHX_ a) +#define PerlIO_unread(a,b,c) Perl_PerlIO_unread(aTHX_ a,b,c) +#define PerlIO_write(a,b,c) Perl_PerlIO_write(aTHX_ a,b,c) +#endif #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY)) #define my_bcopy Perl_my_bcopy #endif @@ -778,30 +802,6 @@ #if defined(USE_LOCALE_COLLATE) #define sv_collxfrm_flags(a,b,c) Perl_sv_collxfrm_flags(aTHX_ a,b,c) #endif -#if !defined(USE_SFIO) -#define PerlIO_clearerr(a) Perl_PerlIO_clearerr(aTHX_ a) -#define PerlIO_close(a) Perl_PerlIO_close(aTHX_ a) -#define PerlIO_eof(a) Perl_PerlIO_eof(aTHX_ a) -#define PerlIO_error(a) Perl_PerlIO_error(aTHX_ a) -#define PerlIO_fileno(a) Perl_PerlIO_fileno(aTHX_ a) -#define PerlIO_fill(a) Perl_PerlIO_fill(aTHX_ a) -#define PerlIO_flush(a) Perl_PerlIO_flush(aTHX_ a) -#define PerlIO_get_base(a) Perl_PerlIO_get_base(aTHX_ a) -#define PerlIO_get_bufsiz(a) Perl_PerlIO_get_bufsiz(aTHX_ a) -#define PerlIO_get_cnt(a) Perl_PerlIO_get_cnt(aTHX_ a) -#define PerlIO_get_ptr(a) Perl_PerlIO_get_ptr(aTHX_ a) -#define PerlIO_read(a,b,c) Perl_PerlIO_read(aTHX_ a,b,c) -#define PerlIO_seek(a,b,c) Perl_PerlIO_seek(aTHX_ a,b,c) -#define PerlIO_set_cnt(a,b) Perl_PerlIO_set_cnt(aTHX_ a,b) -#define PerlIO_set_ptrcnt(a,b,c) Perl_PerlIO_set_ptrcnt(aTHX_ a,b,c) -#define PerlIO_setlinebuf(a) Perl_PerlIO_setlinebuf(aTHX_ a) -#define PerlIO_stderr() Perl_PerlIO_stderr(aTHX) -#define PerlIO_stdin() Perl_PerlIO_stdin(aTHX) -#define PerlIO_stdout() Perl_PerlIO_stdout(aTHX) -#define PerlIO_tell(a) Perl_PerlIO_tell(aTHX_ a) -#define PerlIO_unread(a,b,c) Perl_PerlIO_unread(aTHX_ a,b,c) -#define PerlIO_write(a,b,c) Perl_PerlIO_write(aTHX_ a,b,c) -#endif #if defined(USE_REENTRANT_API) #define reentrant_free() Perl_reentrant_free(aTHX) #define reentrant_init() Perl_reentrant_init(aTHX) diff --git a/global.sym b/global.sym index 9064f98699..f3daab1ee7 100644 --- a/global.sym +++ b/global.sym @@ -796,6 +796,28 @@ Perl_my_strlcat Perl_my_strlcpy Perl_my_chsize Perl_my_sprintf +Perl_PerlIO_clearerr +Perl_PerlIO_close +Perl_PerlIO_eof +Perl_PerlIO_error +Perl_PerlIO_fileno +Perl_PerlIO_fill +Perl_PerlIO_flush +Perl_PerlIO_get_base +Perl_PerlIO_get_bufsiz +Perl_PerlIO_get_cnt +Perl_PerlIO_get_ptr +Perl_PerlIO_read +Perl_PerlIO_seek +Perl_PerlIO_set_cnt +Perl_PerlIO_set_ptrcnt +Perl_PerlIO_setlinebuf +Perl_PerlIO_stderr +Perl_PerlIO_stdin +Perl_PerlIO_stdout +Perl_PerlIO_tell +Perl_PerlIO_unread +Perl_PerlIO_write Perl_my_bcopy Perl_hv_assert Perl_pad_sv @@ -856,28 +878,6 @@ Perl_ss_dup Perl_sv_dup Perl_sv_dup_inc Perl_sv_collxfrm_flags -Perl_PerlIO_clearerr -Perl_PerlIO_close -Perl_PerlIO_eof -Perl_PerlIO_error -Perl_PerlIO_fileno -Perl_PerlIO_fill -Perl_PerlIO_flush -Perl_PerlIO_get_base -Perl_PerlIO_get_bufsiz -Perl_PerlIO_get_cnt -Perl_PerlIO_get_ptr -Perl_PerlIO_read -Perl_PerlIO_seek -Perl_PerlIO_set_cnt -Perl_PerlIO_set_ptrcnt -Perl_PerlIO_setlinebuf -Perl_PerlIO_stderr -Perl_PerlIO_stdin -Perl_PerlIO_stdout -Perl_PerlIO_tell -Perl_PerlIO_unread -Perl_PerlIO_write Perl_reentrant_free Perl_reentrant_init Perl_reentrant_retry @@ -4695,6 +4695,52 @@ PERL_CALLCONV int Perl_my_sprintf(char *buffer, const char *pat, ...) assert(buffer); assert(pat) #endif +#if !defined(USE_SFIO) +PERL_CALLCONV void Perl_PerlIO_clearerr(pTHX_ PerlIO *f); +PERL_CALLCONV int Perl_PerlIO_close(pTHX_ PerlIO *f); +PERL_CALLCONV int Perl_PerlIO_eof(pTHX_ PerlIO *f); +PERL_CALLCONV int Perl_PerlIO_error(pTHX_ PerlIO *f); +PERL_CALLCONV int Perl_PerlIO_fileno(pTHX_ PerlIO *f); +PERL_CALLCONV int Perl_PerlIO_fill(pTHX_ PerlIO *f); +PERL_CALLCONV int Perl_PerlIO_flush(pTHX_ PerlIO *f); +PERL_CALLCONV STDCHAR * Perl_PerlIO_get_base(pTHX_ PerlIO *f); +PERL_CALLCONV int Perl_PerlIO_get_bufsiz(pTHX_ PerlIO *f) + __attribute__warn_unused_result__; + +PERL_CALLCONV int Perl_PerlIO_get_cnt(pTHX_ PerlIO *f) + __attribute__warn_unused_result__; + +PERL_CALLCONV STDCHAR * Perl_PerlIO_get_ptr(pTHX_ PerlIO *f); +PERL_CALLCONV SSize_t Perl_PerlIO_read(pTHX_ PerlIO *f, void *vbuf, Size_t count) + __attribute__nonnull__(pTHX_2); +#define PERL_ARGS_ASSERT_PERLIO_READ \ + assert(vbuf) + +PERL_CALLCONV int Perl_PerlIO_seek(pTHX_ PerlIO *f, Off_t offset, int whence); +PERL_CALLCONV void Perl_PerlIO_set_cnt(pTHX_ PerlIO *f, int cnt); +PERL_CALLCONV void Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR *ptr, int cnt); +PERL_CALLCONV void Perl_PerlIO_setlinebuf(pTHX_ PerlIO *f); +PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX) + __attribute__warn_unused_result__; + +PERL_CALLCONV PerlIO * Perl_PerlIO_stdin(pTHX) + __attribute__warn_unused_result__; + +PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX) + __attribute__warn_unused_result__; + +PERL_CALLCONV Off_t Perl_PerlIO_tell(pTHX_ PerlIO *f); +PERL_CALLCONV SSize_t Perl_PerlIO_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count) + __attribute__nonnull__(pTHX_2); +#define PERL_ARGS_ASSERT_PERLIO_UNREAD \ + assert(vbuf) + +PERL_CALLCONV SSize_t Perl_PerlIO_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) + __attribute__nonnull__(pTHX_2); +#define PERL_ARGS_ASSERT_PERLIO_WRITE \ + assert(vbuf) + +#endif #if !defined(WIN32) PERL_CALLCONV bool Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report) __attribute__nonnull__(pTHX_1); @@ -7125,52 +7171,6 @@ PERL_CALLCONV char* Perl_sv_collxfrm_flags(pTHX_ SV *const sv, STRLEN *const nxp assert(sv); assert(nxp) #endif -#if !defined(USE_SFIO) -PERL_CALLCONV void Perl_PerlIO_clearerr(pTHX_ PerlIO *f); -PERL_CALLCONV int Perl_PerlIO_close(pTHX_ PerlIO *f); -PERL_CALLCONV int Perl_PerlIO_eof(pTHX_ PerlIO *f); -PERL_CALLCONV int Perl_PerlIO_error(pTHX_ PerlIO *f); -PERL_CALLCONV int Perl_PerlIO_fileno(pTHX_ PerlIO *f); -PERL_CALLCONV int Perl_PerlIO_fill(pTHX_ PerlIO *f); -PERL_CALLCONV int Perl_PerlIO_flush(pTHX_ PerlIO *f); -PERL_CALLCONV STDCHAR * Perl_PerlIO_get_base(pTHX_ PerlIO *f); -PERL_CALLCONV int Perl_PerlIO_get_bufsiz(pTHX_ PerlIO *f) - __attribute__warn_unused_result__; - -PERL_CALLCONV int Perl_PerlIO_get_cnt(pTHX_ PerlIO *f) - __attribute__warn_unused_result__; - -PERL_CALLCONV STDCHAR * Perl_PerlIO_get_ptr(pTHX_ PerlIO *f); -PERL_CALLCONV SSize_t Perl_PerlIO_read(pTHX_ PerlIO *f, void *vbuf, Size_t count) - __attribute__nonnull__(pTHX_2); -#define PERL_ARGS_ASSERT_PERLIO_READ \ - assert(vbuf) - -PERL_CALLCONV int Perl_PerlIO_seek(pTHX_ PerlIO *f, Off_t offset, int whence); -PERL_CALLCONV void Perl_PerlIO_set_cnt(pTHX_ PerlIO *f, int cnt); -PERL_CALLCONV void Perl_PerlIO_set_ptrcnt(pTHX_ PerlIO *f, STDCHAR *ptr, int cnt); -PERL_CALLCONV void Perl_PerlIO_setlinebuf(pTHX_ PerlIO *f); -PERL_CALLCONV PerlIO * Perl_PerlIO_stderr(pTHX) - __attribute__warn_unused_result__; - -PERL_CALLCONV PerlIO * Perl_PerlIO_stdin(pTHX) - __attribute__warn_unused_result__; - -PERL_CALLCONV PerlIO * Perl_PerlIO_stdout(pTHX) - __attribute__warn_unused_result__; - -PERL_CALLCONV Off_t Perl_PerlIO_tell(pTHX_ PerlIO *f); -PERL_CALLCONV SSize_t Perl_PerlIO_unread(pTHX_ PerlIO *f, const void *vbuf, Size_t count) - __attribute__nonnull__(pTHX_2); -#define PERL_ARGS_ASSERT_PERLIO_UNREAD \ - assert(vbuf) - -PERL_CALLCONV SSize_t Perl_PerlIO_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) - __attribute__nonnull__(pTHX_2); -#define PERL_ARGS_ASSERT_PERLIO_WRITE \ - assert(vbuf) - -#endif #if defined(USE_REENTRANT_API) PERL_CALLCONV void Perl_reentrant_free(pTHX); PERL_CALLCONV void Perl_reentrant_init(pTHX); |