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