perlio.h

   1 #ifndef H_PERLIO
   2 #define H_PERLIO 1
   3
   4 /* Clean up (or at least document) the various possible #defines.
   5    This section attempts to match the 5.003_03 Configure variables
   6    onto the 5.003_02 header file values.
   7    I can't figure out where USE_STDIO was supposed to be set.
   8    --AD
   9 */
  10 #ifndef USE_PERLIO
  11 # define PERLIO_IS_STDIO
  12 #endif
  13
  14 /* Below is the 5.003_02 stuff. */
  15 #ifdef USE_STDIO
  16 #  ifndef PERLIO_IS_STDIO
  17 #      define PERLIO_IS_STDIO
  18 #  endif
  19 #else
  20 extern void PerlIO_init _((void));
  21 #endif
  22
  23 #include "perlsdio.h"
  24
  25 #ifndef PERLIO_IS_STDIO
  26 #ifdef USE_SFIO
  27 #include "perlsfio.h"
  28 #endif /* USE_SFIO */
  29 #endif /* PERLIO_IS_STDIO */
  30
  31 #ifndef EOF
  32 #define EOF (-1)
  33 #endif
  34
  35 /* This is to catch case with no stdio */
  36 #ifndef BUFSIZ
  37 #define BUFSIZ 1024
  38 #endif
  39
  40 #ifndef SEEK_SET
  41 #define SEEK_SET 0
  42 #endif
  43
  44 #ifndef SEEK_CUR
  45 #define SEEK_CUR 1
  46 #endif
  47
  48 #ifndef SEEK_END
  49 #define SEEK_END 2
  50 #endif
  51
  52 #ifndef PerlIO
  53 struct _PerlIO;
  54 #define PerlIO struct _PerlIO
  55 #endif /* No PerlIO */
  56
  57 #ifndef Fpos_t
  58 #define Fpos_t long
  59 #endif
  60
  61 #ifndef NEXT30_NO_ATTRIBUTE
  62 #ifndef HASATTRIBUTE       /* disable GNU-cc attribute checking? */
  63 #ifdef  __attribute__      /* Avoid possible redefinition errors */
  64 #undef  __attribute__
  65 #endif
  66 #define __attribute__(attr)
  67 #endif
  68 #endif
  69
  70 #ifndef PerlIO_stdoutf
  71 extern int      PerlIO_stdoutf          _((const char *,...))
  72                                         __attribute__((format (printf, 1, 2)));
  73 #endif
  74 #ifndef PerlIO_puts
  75 extern int      PerlIO_puts             _((PerlIO *,const char *));
  76 #endif
  77 #ifndef PerlIO_open
  78 extern PerlIO * PerlIO_open             _((const char *,const char *));
  79 #endif
  80 #ifndef PerlIO_close
  81 extern int      PerlIO_close            _((PerlIO *));
  82 #endif
  83 #ifndef PerlIO_eof
  84 extern int      PerlIO_eof              _((PerlIO *));
  85 #endif
  86 #ifndef PerlIO_error
  87 extern int      PerlIO_error            _((PerlIO *));
  88 #endif
  89 #ifndef PerlIO_clearerr
  90 extern void     PerlIO_clearerr         _((PerlIO *));
  91 #endif
  92 #ifndef PerlIO_getc
  93 extern int      PerlIO_getc             _((PerlIO *));
  94 #endif
  95 #ifndef PerlIO_putc
  96 extern int      PerlIO_putc             _((PerlIO *,int));
  97 #endif
  98 #ifndef PerlIO_flush
  99 extern int      PerlIO_flush            _((PerlIO *));
 100 #endif
 101 #ifndef PerlIO_ungetc
 102 extern int      PerlIO_ungetc           _((PerlIO *,int));
 103 #endif
 104 #ifndef PerlIO_fileno
 105 extern int      PerlIO_fileno           _((PerlIO *));
 106 #endif
 107 #ifndef PerlIO_fdopen
 108 extern PerlIO * PerlIO_fdopen           _((int, const char *));
 109 #endif
 110 #ifndef PerlIO_importFILE
 111 extern PerlIO * PerlIO_importFILE       _((FILE *,int));
 112 #endif
 113 #ifndef PerlIO_exportFILE
 114 extern FILE *   PerlIO_exportFILE       _((PerlIO *,int));
 115 #endif
 116 #ifndef PerlIO_findFILE
 117 extern FILE *   PerlIO_findFILE         _((PerlIO *));
 118 #endif
 119 #ifndef PerlIO_releaseFILE
 120 extern void     PerlIO_releaseFILE      _((PerlIO *,FILE *));
 121 #endif
 122 #ifndef PerlIO_read
 123 extern int      PerlIO_read             _((PerlIO *,void *,size_t));
 124 #endif
 125 #ifndef PerlIO_write
 126 extern int      PerlIO_write            _((PerlIO *,const void *,size_t));
 127 #endif
 128 #ifndef PerlIO_setlinebuf
 129 extern void     PerlIO_setlinebuf       _((PerlIO *));
 130 #endif
 131 #ifndef PerlIO_printf
 132 extern int      PerlIO_printf           _((PerlIO *, const char *,...))
 133                                         __attribute__((format (printf, 2, 3)));
 134 #endif
 135 #ifndef PerlIO_sprintf
 136 extern int      PerlIO_sprintf          _((char *, int, const char *,...))
 137                                         __attribute__((format (printf, 3, 4)));
 138 #endif
 139 #ifndef PerlIO_vprintf
 140 extern int      PerlIO_vprintf          _((PerlIO *, const char *, va_list));
 141 #endif
 142 #ifndef PerlIO_tell
 143 extern long     PerlIO_tell             _((PerlIO *));
 144 #endif
 145 #ifndef PerlIO_seek
 146 extern int      PerlIO_seek             _((PerlIO *,off_t,int));
 147 #endif
 148 #ifndef PerlIO_rewind
 149 extern void     PerlIO_rewind           _((PerlIO *));
 150 #endif
 151 #ifndef PerlIO_has_base
 152 extern int      PerlIO_has_base         _((PerlIO *));
 153 #endif
 154 #ifndef PerlIO_has_cntptr
 155 extern int      PerlIO_has_cntptr       _((PerlIO *));
 156 #endif
 157 #ifndef PerlIO_fast_gets
 158 extern int      PerlIO_fast_gets        _((PerlIO *));
 159 #endif
 160 #ifndef PerlIO_canset_cnt
 161 extern int      PerlIO_canset_cnt       _((PerlIO *));
 162 #endif
 163 #ifndef PerlIO_get_ptr
 164 extern STDCHAR * PerlIO_get_ptr         _((PerlIO *));
 165 #endif
 166 #ifndef PerlIO_get_cnt
 167 extern int      PerlIO_get_cnt          _((PerlIO *));
 168 #endif
 169 #ifndef PerlIO_set_cnt
 170 extern void     PerlIO_set_cnt          _((PerlIO *,int));
 171 #endif
 172 #ifndef PerlIO_set_ptrcnt
 173 extern void     PerlIO_set_ptrcnt       _((PerlIO *,STDCHAR *,int));
 174 #endif
 175 #ifndef PerlIO_get_base
 176 extern STDCHAR * PerlIO_get_base        _((PerlIO *));
 177 #endif
 178 #ifndef PerlIO_get_bufsiz
 179 extern int      PerlIO_get_bufsiz       _((PerlIO *));
 180 #endif
 181 #ifndef PerlIO_tmpfile
 182 extern PerlIO * PerlIO_tmpfile          _((void));
 183 #endif
 184 #ifndef PerlIO_stdin
 185 extern PerlIO * PerlIO_stdin    _((void));
 186 #endif
 187 #ifndef PerlIO_stdout
 188 extern PerlIO * PerlIO_stdout   _((void));
 189 #endif
 190 #ifndef PerlIO_stderr
 191 extern PerlIO * PerlIO_stderr   _((void));
 192 #endif
 193 #ifndef PerlIO_getpos
 194 extern int      PerlIO_getpos           _((PerlIO *,Fpos_t *));
 195 #endif
 196 #ifndef PerlIO_setpos
 197 extern int      PerlIO_setpos           _((PerlIO *,const Fpos_t *));
 198 #endif
 199 #endif /* Include guard */