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