[asperl] added AS patch#2
[p5sagit/p5-mst-13.2.git] / perlio.h
CommitLineData
760ac839 1#ifndef H_PERLIO
2#define H_PERLIO 1
3
f2d19c81 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.
8 --AD
9*/
10#ifndef USE_PERLIO
11# define PERLIO_IS_STDIO
760ac839 12#endif
f2d19c81 13
14/* Below is the 5.003_02 stuff. */
15#ifdef USE_STDIO
16# ifndef PERLIO_IS_STDIO
17# define PERLIO_IS_STDIO
18# endif
760ac839 19#else
20extern void PerlIO_init _((void));
21#endif
22
76e3520e 23#ifdef PERL_OBJECT
24
25#include "ipstdio.h"
26
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
31
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())
66#undef init_os_extras
67#define init_os_extras() piStdIO->InitOSExtras(this)
68
69#else
760ac839 70#include "perlsdio.h"
76e3520e 71#endif
760ac839 72
73#ifndef PERLIO_IS_STDIO
74#ifdef USE_SFIO
75#include "perlsfio.h"
76#endif /* USE_SFIO */
77#endif /* PERLIO_IS_STDIO */
78
79#ifndef EOF
80#define EOF (-1)
81#endif
82
83/* This is to catch case with no stdio */
84#ifndef BUFSIZ
85#define BUFSIZ 1024
86#endif
87
88#ifndef SEEK_SET
89#define SEEK_SET 0
90#endif
91
92#ifndef SEEK_CUR
93#define SEEK_CUR 1
94#endif
95
96#ifndef SEEK_END
97#define SEEK_END 2
98#endif
99
100#ifndef PerlIO
101struct _PerlIO;
102#define PerlIO struct _PerlIO
103#endif /* No PerlIO */
104
105#ifndef Fpos_t
106#define Fpos_t long
107#endif
108
109#ifndef NEXT30_NO_ATTRIBUTE
110#ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
111#ifdef __attribute__ /* Avoid possible redefinition errors */
112#undef __attribute__
113#endif
114#define __attribute__(attr)
f2d19c81 115#endif
760ac839 116#endif
117
118#ifndef PerlIO_stdoutf
119extern int PerlIO_stdoutf _((const char *,...))
120 __attribute__((format (printf, 1, 2)));
121#endif
122#ifndef PerlIO_puts
123extern int PerlIO_puts _((PerlIO *,const char *));
124#endif
125#ifndef PerlIO_open
126extern PerlIO * PerlIO_open _((const char *,const char *));
127#endif
128#ifndef PerlIO_close
129extern int PerlIO_close _((PerlIO *));
130#endif
131#ifndef PerlIO_eof
132extern int PerlIO_eof _((PerlIO *));
133#endif
134#ifndef PerlIO_error
135extern int PerlIO_error _((PerlIO *));
136#endif
137#ifndef PerlIO_clearerr
138extern void PerlIO_clearerr _((PerlIO *));
139#endif
140#ifndef PerlIO_getc
141extern int PerlIO_getc _((PerlIO *));
142#endif
143#ifndef PerlIO_putc
144extern int PerlIO_putc _((PerlIO *,int));
145#endif
146#ifndef PerlIO_flush
147extern int PerlIO_flush _((PerlIO *));
148#endif
149#ifndef PerlIO_ungetc
150extern int PerlIO_ungetc _((PerlIO *,int));
151#endif
152#ifndef PerlIO_fileno
153extern int PerlIO_fileno _((PerlIO *));
154#endif
155#ifndef PerlIO_fdopen
156extern PerlIO * PerlIO_fdopen _((int, const char *));
157#endif
158#ifndef PerlIO_importFILE
159extern PerlIO * PerlIO_importFILE _((FILE *,int));
160#endif
161#ifndef PerlIO_exportFILE
162extern FILE * PerlIO_exportFILE _((PerlIO *,int));
163#endif
164#ifndef PerlIO_findFILE
165extern FILE * PerlIO_findFILE _((PerlIO *));
166#endif
167#ifndef PerlIO_releaseFILE
168extern void PerlIO_releaseFILE _((PerlIO *,FILE *));
169#endif
170#ifndef PerlIO_read
5b54f415 171extern SSize_t PerlIO_read _((PerlIO *,void *,Size_t));
760ac839 172#endif
173#ifndef PerlIO_write
5b54f415 174extern SSize_t PerlIO_write _((PerlIO *,const void *,Size_t));
760ac839 175#endif
176#ifndef PerlIO_setlinebuf
f2d19c81 177extern void PerlIO_setlinebuf _((PerlIO *));
760ac839 178#endif
179#ifndef PerlIO_printf
180extern int PerlIO_printf _((PerlIO *, const char *,...))
f2d19c81 181 __attribute__((format (printf, 2, 3)));
760ac839 182#endif
183#ifndef PerlIO_sprintf
184extern int PerlIO_sprintf _((char *, int, const char *,...))
f2d19c81 185 __attribute__((format (printf, 3, 4)));
760ac839 186#endif
187#ifndef PerlIO_vprintf
f2d19c81 188extern int PerlIO_vprintf _((PerlIO *, const char *, va_list));
760ac839 189#endif
190#ifndef PerlIO_tell
191extern long PerlIO_tell _((PerlIO *));
192#endif
193#ifndef PerlIO_seek
194extern int PerlIO_seek _((PerlIO *,off_t,int));
195#endif
196#ifndef PerlIO_rewind
197extern void PerlIO_rewind _((PerlIO *));
198#endif
199#ifndef PerlIO_has_base
f2d19c81 200extern int PerlIO_has_base _((PerlIO *));
760ac839 201#endif
202#ifndef PerlIO_has_cntptr
f2d19c81 203extern int PerlIO_has_cntptr _((PerlIO *));
760ac839 204#endif
205#ifndef PerlIO_fast_gets
f2d19c81 206extern int PerlIO_fast_gets _((PerlIO *));
760ac839 207#endif
208#ifndef PerlIO_canset_cnt
f2d19c81 209extern int PerlIO_canset_cnt _((PerlIO *));
760ac839 210#endif
211#ifndef PerlIO_get_ptr
888911fc 212extern STDCHAR * PerlIO_get_ptr _((PerlIO *));
760ac839 213#endif
214#ifndef PerlIO_get_cnt
f2d19c81 215extern int PerlIO_get_cnt _((PerlIO *));
760ac839 216#endif
217#ifndef PerlIO_set_cnt
f2d19c81 218extern void PerlIO_set_cnt _((PerlIO *,int));
760ac839 219#endif
220#ifndef PerlIO_set_ptrcnt
888911fc 221extern void PerlIO_set_ptrcnt _((PerlIO *,STDCHAR *,int));
760ac839 222#endif
223#ifndef PerlIO_get_base
888911fc 224extern STDCHAR * PerlIO_get_base _((PerlIO *));
760ac839 225#endif
226#ifndef PerlIO_get_bufsiz
f2d19c81 227extern int PerlIO_get_bufsiz _((PerlIO *));
760ac839 228#endif
229#ifndef PerlIO_tmpfile
230extern PerlIO * PerlIO_tmpfile _((void));
231#endif
232#ifndef PerlIO_stdin
233extern PerlIO * PerlIO_stdin _((void));
234#endif
235#ifndef PerlIO_stdout
236extern PerlIO * PerlIO_stdout _((void));
237#endif
238#ifndef PerlIO_stderr
239extern PerlIO * PerlIO_stderr _((void));
240#endif
241#ifndef PerlIO_getpos
242extern int PerlIO_getpos _((PerlIO *,Fpos_t *));
243#endif
244#ifndef PerlIO_setpos
245extern int PerlIO_setpos _((PerlIO *,const Fpos_t *));
f2d19c81 246#endif
760ac839 247#endif /* Include guard */