4 /* Allow -DUSE_STDIO to force the issue for x2p directory */
9 #define PERLIO_IS_STDIO
11 extern void PerlIO_init _((void));
16 #ifndef PERLIO_IS_STDIO
20 #endif /* PERLIO_IS_STDIO */
26 /* This is to catch case with no stdio */
45 #define PerlIO struct _PerlIO
46 #endif /* No PerlIO */
52 #ifndef NEXT30_NO_ATTRIBUTE
53 #ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
54 #ifdef __attribute__ /* Avoid possible redefinition errors */
57 #define __attribute__(attr)
61 #ifndef PerlIO_stdoutf
62 extern int PerlIO_stdoutf _((const char *,...))
63 __attribute__((format (printf, 1, 2)));
66 extern int PerlIO_puts _((PerlIO *,const char *));
69 extern PerlIO * PerlIO_open _((const char *,const char *));
72 extern int PerlIO_close _((PerlIO *));
75 extern int PerlIO_eof _((PerlIO *));
78 extern int PerlIO_error _((PerlIO *));
80 #ifndef PerlIO_clearerr
81 extern void PerlIO_clearerr _((PerlIO *));
84 extern int PerlIO_getc _((PerlIO *));
87 extern int PerlIO_putc _((PerlIO *,int));
90 extern int PerlIO_flush _((PerlIO *));
93 extern int PerlIO_ungetc _((PerlIO *,int));
96 extern int PerlIO_fileno _((PerlIO *));
99 extern PerlIO * PerlIO_fdopen _((int, const char *));
101 #ifndef PerlIO_importFILE
102 extern PerlIO * PerlIO_importFILE _((FILE *,int));
104 #ifndef PerlIO_exportFILE
105 extern FILE * PerlIO_exportFILE _((PerlIO *,int));
107 #ifndef PerlIO_findFILE
108 extern FILE * PerlIO_findFILE _((PerlIO *));
110 #ifndef PerlIO_releaseFILE
111 extern void PerlIO_releaseFILE _((PerlIO *,FILE *));
114 extern int PerlIO_read _((PerlIO *,void *,size_t));
117 extern int PerlIO_write _((PerlIO *,const void *,size_t));
119 #ifndef PerlIO_setlinebuf
120 extern void PerlIO_setlinebuf _((PerlIO *));
122 #ifndef PerlIO_printf
123 extern int PerlIO_printf _((PerlIO *, const char *,...))
124 __attribute__((format (printf, 2, 3)));
126 #ifndef PerlIO_sprintf
127 extern int PerlIO_sprintf _((char *, int, const char *,...))
128 __attribute__((format (printf, 3, 4)));
130 #ifndef PerlIO_vprintf
131 extern int PerlIO_vprintf _((PerlIO *, const char *, va_list));
134 extern long PerlIO_tell _((PerlIO *));
137 extern int PerlIO_seek _((PerlIO *,off_t,int));
139 #ifndef PerlIO_rewind
140 extern void PerlIO_rewind _((PerlIO *));
142 #ifndef PerlIO_has_base
143 extern int PerlIO_has_base _((PerlIO *));
145 #ifndef PerlIO_has_cntptr
146 extern int PerlIO_has_cntptr _((PerlIO *));
148 #ifndef PerlIO_fast_gets
149 extern int PerlIO_fast_gets _((PerlIO *));
151 #ifndef PerlIO_canset_cnt
152 extern int PerlIO_canset_cnt _((PerlIO *));
154 #ifndef PerlIO_get_ptr
155 extern char * PerlIO_get_ptr _((PerlIO *));
157 #ifndef PerlIO_get_cnt
158 extern int PerlIO_get_cnt _((PerlIO *));
160 #ifndef PerlIO_set_cnt
161 extern void PerlIO_set_cnt _((PerlIO *,int));
163 #ifndef PerlIO_set_ptrcnt
164 extern void PerlIO_set_ptrcnt _((PerlIO *,char *,int));
166 #ifndef PerlIO_get_base
167 extern char * PerlIO_get_base _((PerlIO *));
169 #ifndef PerlIO_get_bufsiz
170 extern int PerlIO_get_bufsiz _((PerlIO *));
172 #ifndef PerlIO_tmpfile
173 extern PerlIO * PerlIO_tmpfile _((void));
176 extern PerlIO * PerlIO_stdin _((void));
178 #ifndef PerlIO_stdout
179 extern PerlIO * PerlIO_stdout _((void));
181 #ifndef PerlIO_stderr
182 extern PerlIO * PerlIO_stderr _((void));
184 #ifndef PerlIO_getpos
185 extern int PerlIO_getpos _((PerlIO *,Fpos_t *));
187 #ifndef PerlIO_setpos
188 extern int PerlIO_setpos _((PerlIO *,const Fpos_t *));
190 #endif /* Include guard */