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.
11 # define PERLIO_IS_STDIO
14 /* Below is the 5.003_02 stuff. */
16 # ifndef PERLIO_IS_STDIO
17 # define PERLIO_IS_STDIO
20 extern void PerlIO_init _((void));
27 #define PerlIO_canset_cnt(f) 1
28 #define PerlIO_has_base(f) 1
29 #define PerlIO_has_cntptr(f) 1
30 #define PerlIO_fast_gets(f) 1
32 #define PerlIO_stdin() piStdIO->Stdin()
33 #define PerlIO_stdout() piStdIO->Stdout()
34 #define PerlIO_stderr() piStdIO->Stderr()
35 #define PerlIO_open(x,y) piStdIO->Open((x),(y), ErrorNo())
36 #define PerlIO_close(f) piStdIO->Close((f), ErrorNo())
37 #define PerlIO_eof(f) piStdIO->Eof((f), ErrorNo())
38 #define PerlIO_error(f) piStdIO->Error((f), ErrorNo())
39 #define PerlIO_clearerr(f) piStdIO->Clearerr((f), ErrorNo())
40 #define PerlIO_getc(f) piStdIO->Getc((f), ErrorNo())
41 #define PerlIO_get_base(f) piStdIO->GetBase((f), ErrorNo())
42 #define PerlIO_get_bufsiz(f) piStdIO->GetBufsiz((f), ErrorNo())
43 #define PerlIO_get_cnt(f) piStdIO->GetCnt((f), ErrorNo())
44 #define PerlIO_get_ptr(f) piStdIO->GetPtr((f), ErrorNo())
45 #define PerlIO_putc(f,c) piStdIO->Putc((f),(c), ErrorNo())
46 #define PerlIO_puts(f,s) piStdIO->Puts((f),(s), ErrorNo())
47 #define PerlIO_flush(f) piStdIO->Flush((f), ErrorNo())
48 #define PerlIO_ungetc(f,c) piStdIO->Ungetc((f),(c), ErrorNo())
49 #define PerlIO_fileno(f) piStdIO->Fileno((f), ErrorNo())
50 #define PerlIO_fdopen(f, s) piStdIO->Fdopen((f),(s), ErrorNo())
51 #define PerlIO_reopen(p, m, f) piStdIO->Reopen((p), (m), (f), ErrorNo())
52 #define PerlIO_read(f,buf,count) (SSize_t)piStdIO->Read((f), (buf), (count), ErrorNo())
53 #define PerlIO_write(f,buf,count) piStdIO->Write((f), (buf), (count), ErrorNo())
54 #define PerlIO_setbuf(f,b) piStdIO->SetBuf((f), (b), ErrorNo())
55 #define PerlIO_setvbuf(f,b,t,s) piStdIO->SetVBuf((f), (b), (t), (s), ErrorNo())
56 #define PerlIO_set_cnt(f,c) piStdIO->SetCnt((f), (c), ErrorNo())
57 #define PerlIO_set_ptrcnt(f,p,c) piStdIO->SetPtrCnt((f), (p), (c), ErrorNo())
58 #define PerlIO_setlinebuf(f) piStdIO->Setlinebuf((f), ErrorNo())
59 #define PerlIO_printf fprintf
60 #define PerlIO_stdoutf piStdIO->Printf
61 #define PerlIO_vprintf(f,fmt,a) piStdIO->Vprintf((f), ErrorNo(), (fmt),a)
62 #define PerlIO_tell(f) piStdIO->Tell((f), ErrorNo())
63 #define PerlIO_seek(f,o,w) piStdIO->Seek((f),(o),(w), ErrorNo())
64 #define PerlIO_getpos(f,p) piStdIO->Getpos((f),(p), ErrorNo())
65 #define PerlIO_setpos(f,p) piStdIO->Setpos((f),(p), ErrorNo())
66 #define PerlIO_rewind(f) piStdIO->Rewind((f), ErrorNo())
67 #define PerlIO_tmpfile() piStdIO->Tmpfile(ErrorNo())
68 #define PerlIO_init() piStdIO->Init(ErrorNo())
70 #define init_os_extras() piStdIO->InitOSExtras(this)
76 #ifndef PERLIO_IS_STDIO
80 #endif /* PERLIO_IS_STDIO */
86 /* This is to catch case with no stdio */
105 #define PerlIO struct _PerlIO
106 #endif /* No PerlIO */
112 #ifndef NEXT30_NO_ATTRIBUTE
113 #ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
114 #ifdef __attribute__ /* Avoid possible redefinition errors */
117 #define __attribute__(attr)
121 #ifndef PerlIO_stdoutf
122 extern int PerlIO_stdoutf _((const char *,...))
123 __attribute__((format (printf, 1, 2)));
126 extern int PerlIO_puts _((PerlIO *,const char *));
129 extern PerlIO * PerlIO_open _((const char *,const char *));
132 extern int PerlIO_close _((PerlIO *));
135 extern int PerlIO_eof _((PerlIO *));
138 extern int PerlIO_error _((PerlIO *));
140 #ifndef PerlIO_clearerr
141 extern void PerlIO_clearerr _((PerlIO *));
144 extern int PerlIO_getc _((PerlIO *));
147 extern int PerlIO_putc _((PerlIO *,int));
150 extern int PerlIO_flush _((PerlIO *));
152 #ifndef PerlIO_ungetc
153 extern int PerlIO_ungetc _((PerlIO *,int));
155 #ifndef PerlIO_fileno
156 extern int PerlIO_fileno _((PerlIO *));
158 #ifndef PerlIO_fdopen
159 extern PerlIO * PerlIO_fdopen _((int, const char *));
161 #ifndef PerlIO_importFILE
162 extern PerlIO * PerlIO_importFILE _((FILE *,int));
164 #ifndef PerlIO_exportFILE
165 extern FILE * PerlIO_exportFILE _((PerlIO *,int));
167 #ifndef PerlIO_findFILE
168 extern FILE * PerlIO_findFILE _((PerlIO *));
170 #ifndef PerlIO_releaseFILE
171 extern void PerlIO_releaseFILE _((PerlIO *,FILE *));
174 extern SSize_t PerlIO_read _((PerlIO *,void *,Size_t));
177 extern SSize_t PerlIO_write _((PerlIO *,const void *,Size_t));
179 #ifndef PerlIO_setlinebuf
180 extern void PerlIO_setlinebuf _((PerlIO *));
182 #ifndef PerlIO_printf
183 extern int PerlIO_printf _((PerlIO *, const char *,...))
184 __attribute__((format (printf, 2, 3)));
186 #ifndef PerlIO_sprintf
187 extern int PerlIO_sprintf _((char *, int, const char *,...))
188 __attribute__((format (printf, 3, 4)));
190 #ifndef PerlIO_vprintf
191 extern int PerlIO_vprintf _((PerlIO *, const char *, va_list));
194 extern long PerlIO_tell _((PerlIO *));
197 extern int PerlIO_seek _((PerlIO *,off_t,int));
199 #ifndef PerlIO_rewind
200 extern void PerlIO_rewind _((PerlIO *));
202 #ifndef PerlIO_has_base
203 extern int PerlIO_has_base _((PerlIO *));
205 #ifndef PerlIO_has_cntptr
206 extern int PerlIO_has_cntptr _((PerlIO *));
208 #ifndef PerlIO_fast_gets
209 extern int PerlIO_fast_gets _((PerlIO *));
211 #ifndef PerlIO_canset_cnt
212 extern int PerlIO_canset_cnt _((PerlIO *));
214 #ifndef PerlIO_get_ptr
215 extern STDCHAR * PerlIO_get_ptr _((PerlIO *));
217 #ifndef PerlIO_get_cnt
218 extern int PerlIO_get_cnt _((PerlIO *));
220 #ifndef PerlIO_set_cnt
221 extern void PerlIO_set_cnt _((PerlIO *,int));
223 #ifndef PerlIO_set_ptrcnt
224 extern void PerlIO_set_ptrcnt _((PerlIO *,STDCHAR *,int));
226 #ifndef PerlIO_get_base
227 extern STDCHAR * PerlIO_get_base _((PerlIO *));
229 #ifndef PerlIO_get_bufsiz
230 extern int PerlIO_get_bufsiz _((PerlIO *));
232 #ifndef PerlIO_tmpfile
233 extern PerlIO * PerlIO_tmpfile _((void));
236 extern PerlIO * PerlIO_stdin _((void));
238 #ifndef PerlIO_stdout
239 extern PerlIO * PerlIO_stdout _((void));
241 #ifndef PerlIO_stderr
242 extern PerlIO * PerlIO_stderr _((void));
244 #ifndef PerlIO_getpos
245 extern int PerlIO_getpos _((PerlIO *,Fpos_t *));
247 #ifndef PerlIO_setpos
248 extern int PerlIO_setpos _((PerlIO *,const Fpos_t *));
250 #endif /* Include guard */