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_read(f,buf,count) (SSize_t)piStdIO->Read((f), (buf), (count), ErrorNo())
52 #define PerlIO_write(f,buf,count) piStdIO->Write((f), (buf), (count), ErrorNo())
53 #define PerlIO_set_cnt(f,c) piStdIO->SetCnt((f), (c), ErrorNo())
54 #define PerlIO_set_ptrcnt(f,p,c) piStdIO->SetPtrCnt((f), (p), (c), ErrorNo())
55 #define PerlIO_setlinebuf(f) piStdIO->Setlinebuf((f), ErrorNo())
56 #define PerlIO_printf fprintf
57 #define PerlIO_stdoutf piStdIO->Printf
58 #define PerlIO_vprintf(f,fmt,a) piStdIO->Vprintf((f), ErrorNo(), (fmt),a)
59 #define PerlIO_tell(f) piStdIO->Tell((f), ErrorNo())
60 #define PerlIO_seek(f,o,w) piStdIO->Seek((f),(o),(w), ErrorNo())
61 #define PerlIO_getpos(f,p) piStdIO->Getpos((f),(p), ErrorNo())
62 #define PerlIO_setpos(f,p) piStdIO->Setpos((f),(p), ErrorNo())
63 #define PerlIO_rewind(f) piStdIO->Rewind((f), ErrorNo())
64 #define PerlIO_tmpfile() piStdIO->Tmpfile(ErrorNo())
65 #define PerlIO_init() piStdIO->Init(ErrorNo())
67 #define init_os_extras() piStdIO->InitOSExtras(this)
73 #ifndef PERLIO_IS_STDIO
77 #endif /* PERLIO_IS_STDIO */
83 /* This is to catch case with no stdio */
102 #define PerlIO struct _PerlIO
103 #endif /* No PerlIO */
109 #ifndef NEXT30_NO_ATTRIBUTE
110 #ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
111 #ifdef __attribute__ /* Avoid possible redefinition errors */
114 #define __attribute__(attr)
118 #ifndef PerlIO_stdoutf
119 extern int PerlIO_stdoutf _((const char *,...))
120 __attribute__((format (printf, 1, 2)));
123 extern int PerlIO_puts _((PerlIO *,const char *));
126 extern PerlIO * PerlIO_open _((const char *,const char *));
129 extern int PerlIO_close _((PerlIO *));
132 extern int PerlIO_eof _((PerlIO *));
135 extern int PerlIO_error _((PerlIO *));
137 #ifndef PerlIO_clearerr
138 extern void PerlIO_clearerr _((PerlIO *));
141 extern int PerlIO_getc _((PerlIO *));
144 extern int PerlIO_putc _((PerlIO *,int));
147 extern int PerlIO_flush _((PerlIO *));
149 #ifndef PerlIO_ungetc
150 extern int PerlIO_ungetc _((PerlIO *,int));
152 #ifndef PerlIO_fileno
153 extern int PerlIO_fileno _((PerlIO *));
155 #ifndef PerlIO_fdopen
156 extern PerlIO * PerlIO_fdopen _((int, const char *));
158 #ifndef PerlIO_importFILE
159 extern PerlIO * PerlIO_importFILE _((FILE *,int));
161 #ifndef PerlIO_exportFILE
162 extern FILE * PerlIO_exportFILE _((PerlIO *,int));
164 #ifndef PerlIO_findFILE
165 extern FILE * PerlIO_findFILE _((PerlIO *));
167 #ifndef PerlIO_releaseFILE
168 extern void PerlIO_releaseFILE _((PerlIO *,FILE *));
171 extern SSize_t PerlIO_read _((PerlIO *,void *,Size_t));
174 extern SSize_t PerlIO_write _((PerlIO *,const void *,Size_t));
176 #ifndef PerlIO_setlinebuf
177 extern void PerlIO_setlinebuf _((PerlIO *));
179 #ifndef PerlIO_printf
180 extern int PerlIO_printf _((PerlIO *, const char *,...))
181 __attribute__((format (printf, 2, 3)));
183 #ifndef PerlIO_sprintf
184 extern int PerlIO_sprintf _((char *, int, const char *,...))
185 __attribute__((format (printf, 3, 4)));
187 #ifndef PerlIO_vprintf
188 extern int PerlIO_vprintf _((PerlIO *, const char *, va_list));
191 extern long PerlIO_tell _((PerlIO *));
194 extern int PerlIO_seek _((PerlIO *,off_t,int));
196 #ifndef PerlIO_rewind
197 extern void PerlIO_rewind _((PerlIO *));
199 #ifndef PerlIO_has_base
200 extern int PerlIO_has_base _((PerlIO *));
202 #ifndef PerlIO_has_cntptr
203 extern int PerlIO_has_cntptr _((PerlIO *));
205 #ifndef PerlIO_fast_gets
206 extern int PerlIO_fast_gets _((PerlIO *));
208 #ifndef PerlIO_canset_cnt
209 extern int PerlIO_canset_cnt _((PerlIO *));
211 #ifndef PerlIO_get_ptr
212 extern STDCHAR * PerlIO_get_ptr _((PerlIO *));
214 #ifndef PerlIO_get_cnt
215 extern int PerlIO_get_cnt _((PerlIO *));
217 #ifndef PerlIO_set_cnt
218 extern void PerlIO_set_cnt _((PerlIO *,int));
220 #ifndef PerlIO_set_ptrcnt
221 extern void PerlIO_set_ptrcnt _((PerlIO *,STDCHAR *,int));
223 #ifndef PerlIO_get_base
224 extern STDCHAR * PerlIO_get_base _((PerlIO *));
226 #ifndef PerlIO_get_bufsiz
227 extern int PerlIO_get_bufsiz _((PerlIO *));
229 #ifndef PerlIO_tmpfile
230 extern PerlIO * PerlIO_tmpfile _((void));
233 extern PerlIO * PerlIO_stdin _((void));
235 #ifndef PerlIO_stdout
236 extern PerlIO * PerlIO_stdout _((void));
238 #ifndef PerlIO_stderr
239 extern PerlIO * PerlIO_stderr _((void));
241 #ifndef PerlIO_getpos
242 extern int PerlIO_getpos _((PerlIO *,Fpos_t *));
244 #ifndef PerlIO_setpos
245 extern int PerlIO_setpos _((PerlIO *,const Fpos_t *));
247 #endif /* Include guard */