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_gets(s, n, fp) piStdIO->Gets((fp), s, n, ErrorNo())
49 #define PerlIO_ungetc(f,c) piStdIO->Ungetc((f),(c), ErrorNo())
50 #define PerlIO_fileno(f) piStdIO->Fileno((f), ErrorNo())
51 #define PerlIO_fdopen(f, s) piStdIO->Fdopen((f),(s), ErrorNo())
52 #define PerlIO_reopen(p, m, f) piStdIO->Reopen((p), (m), (f), ErrorNo())
53 #define PerlIO_read(f,buf,count) (SSize_t)piStdIO->Read((f), (buf), (count), ErrorNo())
54 #define PerlIO_write(f,buf,count) piStdIO->Write((f), (buf), (count), ErrorNo())
55 #define PerlIO_setbuf(f,b) piStdIO->SetBuf((f), (b), ErrorNo())
56 #define PerlIO_setvbuf(f,b,t,s) piStdIO->SetVBuf((f), (b), (t), (s), ErrorNo())
57 #define PerlIO_set_cnt(f,c) piStdIO->SetCnt((f), (c), ErrorNo())
58 #define PerlIO_set_ptrcnt(f,p,c) piStdIO->SetPtrCnt((f), (p), (c), ErrorNo())
59 #define PerlIO_setlinebuf(f) piStdIO->Setlinebuf((f), ErrorNo())
60 #define PerlIO_printf fprintf
61 #define PerlIO_stdoutf piStdIO->Printf
62 #define PerlIO_vprintf(f,fmt,a) piStdIO->Vprintf((f), ErrorNo(), (fmt),a)
63 #define PerlIO_tell(f) piStdIO->Tell((f), ErrorNo())
64 #define PerlIO_seek(f,o,w) piStdIO->Seek((f),(o),(w), ErrorNo())
65 #define PerlIO_getpos(f,p) piStdIO->Getpos((f),(p), ErrorNo())
66 #define PerlIO_setpos(f,p) piStdIO->Setpos((f),(p), ErrorNo())
67 #define PerlIO_rewind(f) piStdIO->Rewind((f), ErrorNo())
68 #define PerlIO_tmpfile() piStdIO->Tmpfile(ErrorNo())
69 #define PerlIO_init() piStdIO->Init(ErrorNo())
71 #define init_os_extras() piStdIO->InitOSExtras(this)
77 #ifndef PERLIO_IS_STDIO
81 #endif /* PERLIO_IS_STDIO */
87 /* This is to catch case with no stdio */
106 #define PerlIO struct _PerlIO
107 #endif /* No PerlIO */
113 #ifndef NEXT30_NO_ATTRIBUTE
114 #ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
115 #ifdef __attribute__ /* Avoid possible redefinition errors */
118 #define __attribute__(attr)
122 #ifndef PerlIO_stdoutf
123 extern int PerlIO_stdoutf _((const char *,...))
124 __attribute__((format (printf, 1, 2)));
127 extern int PerlIO_puts _((PerlIO *,const char *));
130 extern PerlIO * PerlIO_open _((const char *,const char *));
133 extern int PerlIO_close _((PerlIO *));
136 extern int PerlIO_eof _((PerlIO *));
139 extern int PerlIO_error _((PerlIO *));
141 #ifndef PerlIO_clearerr
142 extern void PerlIO_clearerr _((PerlIO *));
145 extern int PerlIO_getc _((PerlIO *));
148 extern int PerlIO_putc _((PerlIO *,int));
151 extern int PerlIO_flush _((PerlIO *));
153 #ifndef PerlIO_ungetc
154 extern int PerlIO_ungetc _((PerlIO *,int));
156 #ifndef PerlIO_fileno
157 extern int PerlIO_fileno _((PerlIO *));
159 #ifndef PerlIO_fdopen
160 extern PerlIO * PerlIO_fdopen _((int, const char *));
162 #ifndef PerlIO_importFILE
163 extern PerlIO * PerlIO_importFILE _((FILE *,int));
165 #ifndef PerlIO_exportFILE
166 extern FILE * PerlIO_exportFILE _((PerlIO *,int));
168 #ifndef PerlIO_findFILE
169 extern FILE * PerlIO_findFILE _((PerlIO *));
171 #ifndef PerlIO_releaseFILE
172 extern void PerlIO_releaseFILE _((PerlIO *,FILE *));
175 extern SSize_t PerlIO_read _((PerlIO *,void *,Size_t));
178 extern SSize_t PerlIO_write _((PerlIO *,const void *,Size_t));
180 #ifndef PerlIO_setlinebuf
181 extern void PerlIO_setlinebuf _((PerlIO *));
183 #ifndef PerlIO_printf
184 extern int PerlIO_printf _((PerlIO *, const char *,...))
185 __attribute__((format (printf, 2, 3)));
187 #ifndef PerlIO_sprintf
188 extern int PerlIO_sprintf _((char *, int, const char *,...))
189 __attribute__((format (printf, 3, 4)));
191 #ifndef PerlIO_vprintf
192 extern int PerlIO_vprintf _((PerlIO *, const char *, va_list));
195 extern long PerlIO_tell _((PerlIO *));
198 extern int PerlIO_seek _((PerlIO *,off_t,int));
200 #ifndef PerlIO_rewind
201 extern void PerlIO_rewind _((PerlIO *));
203 #ifndef PerlIO_has_base
204 extern int PerlIO_has_base _((PerlIO *));
206 #ifndef PerlIO_has_cntptr
207 extern int PerlIO_has_cntptr _((PerlIO *));
209 #ifndef PerlIO_fast_gets
210 extern int PerlIO_fast_gets _((PerlIO *));
212 #ifndef PerlIO_canset_cnt
213 extern int PerlIO_canset_cnt _((PerlIO *));
215 #ifndef PerlIO_get_ptr
216 extern STDCHAR * PerlIO_get_ptr _((PerlIO *));
218 #ifndef PerlIO_get_cnt
219 extern int PerlIO_get_cnt _((PerlIO *));
221 #ifndef PerlIO_set_cnt
222 extern void PerlIO_set_cnt _((PerlIO *,int));
224 #ifndef PerlIO_set_ptrcnt
225 extern void PerlIO_set_ptrcnt _((PerlIO *,STDCHAR *,int));
227 #ifndef PerlIO_get_base
228 extern STDCHAR * PerlIO_get_base _((PerlIO *));
230 #ifndef PerlIO_get_bufsiz
231 extern int PerlIO_get_bufsiz _((PerlIO *));
233 #ifndef PerlIO_tmpfile
234 extern PerlIO * PerlIO_tmpfile _((void));
237 extern PerlIO * PerlIO_stdin _((void));
239 #ifndef PerlIO_stdout
240 extern PerlIO * PerlIO_stdout _((void));
242 #ifndef PerlIO_stderr
243 extern PerlIO * PerlIO_stderr _((void));
245 #ifndef PerlIO_getpos
246 extern int PerlIO_getpos _((PerlIO *,Fpos_t *));
248 #ifndef PerlIO_setpos
249 extern int PerlIO_setpos _((PerlIO *,const Fpos_t *));
251 #endif /* Include guard */