home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / CORE / perlio.h < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-10  |  4.6 KB  |  200 lines
  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 SSize_t    PerlIO_read        _((PerlIO *,void *,Size_t));
  124. #endif
  125. #ifndef PerlIO_write
  126. extern SSize_t    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 */
  200.