X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perliol.h;h=6d4485abcca59fe72b3798eac3d0827f801e8fd5;hb=39644a267dae6dfa935b1c1d39151eb399850949;hp=04c7071fa4d9d1bedd9a590a24f6cc22fdaaa7f2;hpb=2262cf14e8afd6344e2db8a34a016b75d306accc;p=p5sagit%2Fp5-mst-13.2.git diff --git a/perliol.h b/perliol.h index 04c7071..6d4485a 100644 --- a/perliol.h +++ b/perliol.h @@ -40,6 +40,8 @@ struct _PerlIO_funcs #define PERLIO_K_BUFFERED 0x00000002 #define PERLIO_K_CANCRLF 0x00000004 #define PERLIO_K_FASTGETS 0x00000008 +#define PERLIO_K_DUMMY 0x00000010 +#define PERLIO_K_UTF8 0x00008000 /*--------------------------------------------------------------------------------------*/ struct _PerlIO @@ -73,15 +75,17 @@ struct _PerlIO #define PerlIONext(f) (&(PerlIOBase(f)->next)) /*--------------------------------------------------------------------------------------*/ - -extern PerlIO_funcs PerlIO_unix; -extern PerlIO_funcs PerlIO_perlio; -extern PerlIO_funcs PerlIO_stdio; -extern PerlIO_funcs PerlIO_crlf; -/* The EXT is need for Cygwin -- but why only for _pending? --jhi */ +/* Data exports - EXT rather than extern is needed for Cygwin */ +EXT PerlIO_funcs PerlIO_unix; +EXT PerlIO_funcs PerlIO_perlio; +EXT PerlIO_funcs PerlIO_stdio; +EXT PerlIO_funcs PerlIO_crlf; +EXT PerlIO_funcs PerlIO_utf8; +EXT PerlIO_funcs PerlIO_byte; +EXT PerlIO_funcs PerlIO_raw; EXT PerlIO_funcs PerlIO_pending; #ifdef HAS_MMAP -extern PerlIO_funcs PerlIO_mmap; +EXT PerlIO_funcs PerlIO_mmap; #endif extern PerlIO *PerlIO_allocate(pTHX);