Provide infrastructure for PERL_ASYNC_CHECK() style safe signals.

[p5sagit/p5-mst-13.2.git] / perliol.h

diff --git a/perliol.h b/perliol.h
index 1b7c172..04c7071 100644 (file)
--- a/perliol.h
+++ b/perliol.h
@@ -10,7 +10,7 @@ struct _PerlIO_funcs
  PerlIO *      (*Fdopen)(PerlIO_funcs *tab, int fd, const char *mode);
  PerlIO *      (*Open)(PerlIO_funcs *tab, const char *path, const char *mode);
  int           (*Reopen)(const char *path, const char *mode, PerlIO *f);
- IV            (*Pushed)(PerlIO *f,const char *mode);
+ IV            (*Pushed)(PerlIO *f,const char *mode,const char *arg,STRLEN len);
  IV            (*Popped)(PerlIO *f);
  /* Unix-like functions - cf sfio line disciplines */
  SSize_t       (*Read)(PerlIO *f, void *vbuf, Size_t count);
@@ -34,6 +34,14 @@ struct _PerlIO_funcs
  void          (*Set_ptrcnt)(PerlIO *f,STDCHAR *ptr,SSize_t cnt);
 };
 
+/*--------------------------------------------------------------------------------------*/
+/* Kind values */
+#define PERLIO_K_RAW           0x00000001
+#define PERLIO_K_BUFFERED      0x00000002
+#define PERLIO_K_CANCRLF       0x00000004
+#define PERLIO_K_FASTGETS      0x00000008
+
+/*--------------------------------------------------------------------------------------*/
 struct _PerlIO
 {
  PerlIOl *     next;       /* Lower layer */
@@ -44,19 +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_BINARY                0x00400000
-#define PERLIO_F_UTF8          0x00800000
-#define PERLIO_F_LINEBUF       0x01000000
-#define PERLIO_F_WRBUF         0x02000000
-#define PERLIO_F_RDBUF         0x04000000
-#define PERLIO_F_TEMP          0x08000000
-#define PERLIO_F_OPEN          0x10000000
+#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))
@@ -68,17 +78,25 @@ 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 */
+EXT PerlIO_funcs PerlIO_pending;
 #ifdef HAS_MMAP
 extern PerlIO_funcs PerlIO_mmap;
 #endif
 
-extern PerlIO *PerlIO_allocate(void);
+extern PerlIO *PerlIO_allocate(pTHX);
+
+#if O_BINARY != O_TEXT
+#define PERLIO_STDTEXT "t"
+#else
+#define PERLIO_STDTEXT ""
+#endif
 
 /*--------------------------------------------------------------------------------------*/
 /* Generic, or stub layer functions */
 
 extern IV      PerlIOBase_fileno    (PerlIO *f);
-extern IV      PerlIOBase_pushed    (PerlIO *f, const char *mode);
+extern IV      PerlIOBase_pushed    (PerlIO *f, const char *mode,const char *arg,STRLEN len);
 extern IV      PerlIOBase_popped    (PerlIO *f);
 extern SSize_t PerlIOBase_unread    (PerlIO *f, const void *vbuf, Size_t count);
 extern IV      PerlIOBase_eof       (PerlIO *f);