Make also the -CAL conditional on locale.
[p5sagit/p5-mst-13.2.git] / perlio.h
CommitLineData
eb1102fc 1/* perlio.h
2 *
3 * Copyright (c) 1997-2002, Larry Wall
4 *
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
7 *
8 */
9
76ced9ad 10#ifndef _PERLIO_H
11#define _PERLIO_H
12/*
13 Interface for perl to IO functions.
14 There is a hierachy of Configure determined #define controls:
15 USE_STDIO - forces PerlIO_xxx() to be #define-d onto stdio functions.
16 This is used for x2p subdirectory and for conservative
17 builds - "just like perl5.00X used to be".
18 This dominates over the others.
19
20 USE_PERLIO - The primary Configure variable that enables PerlIO.
21 If USE_PERLIO is _NOT_ set
22 then USE_STDIO above will be set to be conservative.
23 If USE_PERLIO is set
24 then there are two modes determined by USE_SFIO:
25
26 USE_SFIO - If set causes PerlIO_xxx() to be #define-d onto sfio functions.
27 A backward compatability mode for some specialist applications.
28
29 If USE_SFIO is not set then PerlIO_xxx() are real functions
30 defined in perlio.c which implement extra functionality
31 required for utf8 support.
32
33 One further note - the table-of-functions scheme controlled
34 by PERL_IMPLICIT_SYS turns on USE_PERLIO so that iperlsys.h can
35 #define PerlIO_xxx() to go via the function table, without having
36 to #undef them from (say) stdio forms.
37
38*/
39
40#if defined(PERL_IMPLICIT_SYS)
41#ifndef USE_PERLIO
2986a63f 42#ifndef NETWARE
2cbbe5a1 43/* # define USE_PERLIO */
76ced9ad 44#endif
45#endif
2986a63f 46#endif
76ced9ad 47
48#ifndef USE_PERLIO
49# define USE_STDIO
50#endif
51
52#ifdef USE_STDIO
53# ifndef PERLIO_IS_STDIO
54# define PERLIO_IS_STDIO
55# endif
56#endif
57
58/* -------------------- End of Configure controls ---------------------------- */
59
60/*
61 * Although we may not want stdio to be used including <stdio.h> here
62 * avoids issues where stdio.h has strange side effects
63 */
64#include <stdio.h>
65
2a15cca7 66#ifdef __BEOS__
67int fseeko(FILE *stream, off_t offset, int whence);
68off_t ftello(FILE *stream);
69#endif
70
76ced9ad 71#if defined(USE_64_BIT_STDIO) && defined(HAS_FTELLO) && !defined(USE_FTELL64)
72#define ftell ftello
73#endif
74
75#if defined(USE_64_BIT_STDIO) && defined(HAS_FSEEKO) && !defined(USE_FSEEK64)
76#define fseek fseeko
77#endif
78
6f2bd249 79/* BS2000 includes are sometimes a bit non standard :-( */
80#if defined(POSIX_BC) && defined(O_BINARY) && !defined(O_TEXT)
81#undef O_BINARY
82#endif
83
76ced9ad 84#ifdef PERLIO_IS_STDIO
85/* #define PerlIO_xxxx() as equivalent stdio function */
86#include "perlsdio.h"
14a5cf38 87#else /* PERLIO_IS_STDIO */
76ced9ad 88#ifdef USE_SFIO
89/* #define PerlIO_xxxx() as equivalent sfio function */
90#include "perlsfio.h"
14a5cf38 91#endif /* USE_SFIO */
92#endif /* PERLIO_IS_STDIO */
76ced9ad 93
94#ifndef PerlIO
95/* ----------- PerlIO implementation ---------- */
96/* PerlIO not #define-d to something else - define the implementation */
97
98typedef struct _PerlIO PerlIOl;
99typedef struct _PerlIO_funcs PerlIO_funcs;
100typedef PerlIOl *PerlIO;
101#define PerlIO PerlIO
a1d180c4 102#define PERLIO_LAYERS 1
76ced9ad 103
14a5cf38 104extern void PerlIO_define_layer(pTHX_ PerlIO_funcs *tab);
105extern PerlIO_funcs *PerlIO_find_layer(pTHX_ const char *name, STRLEN len,
106 int load);
107extern PerlIO *PerlIO_push(pTHX_ PerlIO *f, PerlIO_funcs *tab,
108 const char *mode, SV *arg);
109extern void PerlIO_pop(pTHX_ PerlIO *f);
3a1ee7e8 110extern void PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param);
76ced9ad 111
14a5cf38 112#endif /* PerlIO */
76ced9ad 113
114/* ----------- End of implementation choices ---------- */
115
116#ifndef PERLIO_IS_STDIO
117/* Not using stdio _directly_ as PerlIO */
118
119/* We now need to determine what happens if source trys to use stdio.
120 * There are three cases based on PERLIO_NOT_STDIO which XS code
121 * can set how it wants.
122 */
123
124#ifdef PERL_CORE
125/* Make a choice for perl core code
126 - currently this is set to try and catch lingering raw stdio calls.
127 This is a known issue with some non UNIX ports which still use
128 "native" stdio features.
129*/
130#ifndef PERLIO_NOT_STDIO
131#define PERLIO_NOT_STDIO 1
132#endif
f7e7eb72 133#else
134#ifndef PERLIO_NOT_STDIO
135#define PERLIO_NOT_STDIO 0
136#endif
76ced9ad 137#endif
138
139#ifdef PERLIO_NOT_STDIO
140#if PERLIO_NOT_STDIO
141/*
142 * PERLIO_NOT_STDIO #define'd as 1
143 * Case 1: Strong denial of stdio - make all stdio calls (we can think of) errors
144 */
145#include "nostdio.h"
14a5cf38 146#else /* if PERLIO_NOT_STDIO */
76ced9ad 147/*
148 * PERLIO_NOT_STDIO #define'd as 0
149 * Case 2: Declares that both PerlIO and stdio can be used
150 */
14a5cf38 151#endif /* if PERLIO_NOT_STDIO */
152#else /* ifdef PERLIO_NOT_STDIO */
76ced9ad 153/*
154 * PERLIO_NOT_STDIO not defined
155 * Case 3: Try and fake stdio calls as PerlIO calls
156 */
157#include "fakesdio.h"
14a5cf38 158#endif /* ifndef PERLIO_NOT_STDIO */
159#endif /* PERLIO_IS_STDIO */
76ced9ad 160
b47b7e59 161#define specialCopIO(sv) ((sv) == Nullsv)
ac27b0f5 162
76ced9ad 163/* ----------- fill in things that have not got #define'd ---------- */
164
165#ifndef Fpos_t
166#define Fpos_t Off_t
167#endif
168
169#ifndef EOF
170#define EOF (-1)
171#endif
172
173/* This is to catch case with no stdio */
174#ifndef BUFSIZ
175#define BUFSIZ 1024
176#endif
177
178#ifndef SEEK_SET
179#define SEEK_SET 0
180#endif
181
182#ifndef SEEK_CUR
183#define SEEK_CUR 1
184#endif
185
186#ifndef SEEK_END
187#define SEEK_END 2
188#endif
189
ecdeb87c 190#define PERLIO_DUP_CLONE 1
191#define PERLIO_DUP_FD 2
192
76ced9ad 193/* --------------------- Now prototypes for functions --------------- */
194
adb71456 195START_EXTERN_C
76ced9ad 196#ifndef NEXT30_NO_ATTRIBUTE
14a5cf38 197#ifndef HASATTRIBUTE /* disable GNU-cc attribute checking? */
198#ifdef __attribute__ /* Avoid possible redefinition errors */
76ced9ad 199#undef __attribute__
200#endif
201#define __attribute__(attr)
202#endif
203#endif
76ced9ad 204#ifndef PerlIO_init
3a1ee7e8 205extern void PerlIO_init(pTHX);
76ced9ad 206#endif
207#ifndef PerlIO_stdoutf
14a5cf38 208extern int PerlIO_stdoutf(const char *, ...)
1e56004e 209#ifdef CHECK_FORMAT
210 __attribute__ ((__format__(__printf__, 1, 2)))
211#endif
212;
76ced9ad 213#endif
214#ifndef PerlIO_puts
14a5cf38 215extern int PerlIO_puts(PerlIO *, const char *);
76ced9ad 216#endif
217#ifndef PerlIO_open
14a5cf38 218extern PerlIO *PerlIO_open(const char *, const char *);
76ced9ad 219#endif
6e60e805 220#ifndef PerlIO_openn
14a5cf38 221extern PerlIO *PerlIO_openn(pTHX_ const char *layers, const char *mode,
222 int fd, int imode, int perm, PerlIO *old,
223 int narg, SV **arg);
ee518936 224#endif
76ced9ad 225#ifndef PerlIO_eof
14a5cf38 226extern int PerlIO_eof(PerlIO *);
76ced9ad 227#endif
228#ifndef PerlIO_error
14a5cf38 229extern int PerlIO_error(PerlIO *);
76ced9ad 230#endif
231#ifndef PerlIO_clearerr
14a5cf38 232extern void PerlIO_clearerr(PerlIO *);
76ced9ad 233#endif
234#ifndef PerlIO_getc
14a5cf38 235extern int PerlIO_getc(PerlIO *);
76ced9ad 236#endif
237#ifndef PerlIO_putc
14a5cf38 238extern int PerlIO_putc(PerlIO *, int);
76ced9ad 239#endif
76ced9ad 240#ifndef PerlIO_ungetc
14a5cf38 241extern int PerlIO_ungetc(PerlIO *, int);
76ced9ad 242#endif
76ced9ad 243#ifndef PerlIO_fdopen
14a5cf38 244extern PerlIO *PerlIO_fdopen(int, const char *);
76ced9ad 245#endif
246#ifndef PerlIO_importFILE
4b069b44 247extern PerlIO *PerlIO_importFILE(FILE *, const char *);
76ced9ad 248#endif
249#ifndef PerlIO_exportFILE
4b069b44 250extern FILE *PerlIO_exportFILE(PerlIO *, const char *);
76ced9ad 251#endif
252#ifndef PerlIO_findFILE
14a5cf38 253extern FILE *PerlIO_findFILE(PerlIO *);
76ced9ad 254#endif
255#ifndef PerlIO_releaseFILE
14a5cf38 256extern void PerlIO_releaseFILE(PerlIO *, FILE *);
76ced9ad 257#endif
258#ifndef PerlIO_read
14a5cf38 259extern SSize_t PerlIO_read(PerlIO *, void *, Size_t);
76ced9ad 260#endif
a15cef0c 261#ifndef PerlIO_unread
14a5cf38 262extern SSize_t PerlIO_unread(PerlIO *, const void *, Size_t);
a15cef0c 263#endif
76ced9ad 264#ifndef PerlIO_write
14a5cf38 265extern SSize_t PerlIO_write(PerlIO *, const void *, Size_t);
76ced9ad 266#endif
267#ifndef PerlIO_setlinebuf
14a5cf38 268extern void PerlIO_setlinebuf(PerlIO *);
76ced9ad 269#endif
270#ifndef PerlIO_printf
14a5cf38 271extern int PerlIO_printf(PerlIO *, const char *, ...)
1e56004e 272#ifdef CHECK_FORMAT
273 __attribute__ ((__format__(__printf__, 2, 3)))
274#endif
275;
76ced9ad 276#endif
277#ifndef PerlIO_sprintf
14a5cf38 278extern int PerlIO_sprintf(char *, int, const char *, ...)
1e56004e 279#ifdef CHECK_FORMAT
280 __attribute__ ((__format__(__printf__, 3, 4)))
281#endif
282;
76ced9ad 283#endif
284#ifndef PerlIO_vprintf
14a5cf38 285extern int PerlIO_vprintf(PerlIO *, const char *, va_list);
76ced9ad 286#endif
287#ifndef PerlIO_tell
14a5cf38 288extern Off_t PerlIO_tell(PerlIO *);
76ced9ad 289#endif
290#ifndef PerlIO_seek
14a5cf38 291extern int PerlIO_seek(PerlIO *, Off_t, int);
76ced9ad 292#endif
293#ifndef PerlIO_rewind
14a5cf38 294extern void PerlIO_rewind(PerlIO *);
76ced9ad 295#endif
296#ifndef PerlIO_has_base
14a5cf38 297extern int PerlIO_has_base(PerlIO *);
76ced9ad 298#endif
299#ifndef PerlIO_has_cntptr
14a5cf38 300extern int PerlIO_has_cntptr(PerlIO *);
76ced9ad 301#endif
302#ifndef PerlIO_fast_gets
14a5cf38 303extern int PerlIO_fast_gets(PerlIO *);
76ced9ad 304#endif
305#ifndef PerlIO_canset_cnt
14a5cf38 306extern int PerlIO_canset_cnt(PerlIO *);
76ced9ad 307#endif
308#ifndef PerlIO_get_ptr
14a5cf38 309extern STDCHAR *PerlIO_get_ptr(PerlIO *);
76ced9ad 310#endif
311#ifndef PerlIO_get_cnt
14a5cf38 312extern int PerlIO_get_cnt(PerlIO *);
76ced9ad 313#endif
314#ifndef PerlIO_set_cnt
14a5cf38 315extern void PerlIO_set_cnt(PerlIO *, int);
76ced9ad 316#endif
317#ifndef PerlIO_set_ptrcnt
14a5cf38 318extern void PerlIO_set_ptrcnt(PerlIO *, STDCHAR *, int);
76ced9ad 319#endif
320#ifndef PerlIO_get_base
14a5cf38 321extern STDCHAR *PerlIO_get_base(PerlIO *);
76ced9ad 322#endif
323#ifndef PerlIO_get_bufsiz
14a5cf38 324extern int PerlIO_get_bufsiz(PerlIO *);
76ced9ad 325#endif
326#ifndef PerlIO_tmpfile
14a5cf38 327extern PerlIO *PerlIO_tmpfile(void);
76ced9ad 328#endif
329#ifndef PerlIO_stdin
14a5cf38 330extern PerlIO *PerlIO_stdin(void);
76ced9ad 331#endif
332#ifndef PerlIO_stdout
14a5cf38 333extern PerlIO *PerlIO_stdout(void);
76ced9ad 334#endif
335#ifndef PerlIO_stderr
14a5cf38 336extern PerlIO *PerlIO_stderr(void);
76ced9ad 337#endif
338#ifndef PerlIO_getpos
14a5cf38 339extern int PerlIO_getpos(PerlIO *, SV *);
76ced9ad 340#endif
341#ifndef PerlIO_setpos
14a5cf38 342extern int PerlIO_setpos(PerlIO *, SV *);
76ced9ad 343#endif
344#ifndef PerlIO_fdupopen
ecdeb87c 345extern PerlIO *PerlIO_fdupopen(pTHX_ PerlIO *, CLONE_PARAMS *, int);
5f1a76d0 346#endif
11ae941d 347#if !defined(PerlIO_modestr) && !defined(PERLIO_IS_STDIO)
14a5cf38 348extern char *PerlIO_modestr(PerlIO *, char *buf);
76ced9ad 349#endif
350#ifndef PerlIO_isutf8
14a5cf38 351extern int PerlIO_isutf8(PerlIO *);
76ced9ad 352#endif
156e9b51 353#ifndef PerlIO_apply_layers
14a5cf38 354extern int PerlIO_apply_layers(pTHX_ PerlIO *f, const char *mode,
355 const char *names);
60382766 356#endif
357#ifndef PerlIO_binmode
14a5cf38 358extern int PerlIO_binmode(pTHX_ PerlIO *f, int iotype, int omode,
359 const char *names);
ac27b0f5 360#endif
a15cef0c 361#ifndef PerlIO_getname
14a5cf38 362extern char *PerlIO_getname(PerlIO *, char *);
a15cef0c 363#endif
76ced9ad 364
13621cfb 365extern void PerlIO_destruct(pTHX);
366
06c7082d 367extern int PerlIO_intmode2str(int rawmode, char *mode, int *writing);
368
3a1ee7e8 369#ifdef PERLIO_LAYERS
370extern void PerlIO_cleanup(pTHX);
adb71456 371
14a5cf38 372extern void PerlIO_debug(const char *fmt, ...);
3a1ee7e8 373typedef struct PerlIO_list_s PerlIO_list_t;
374
88b61e10 375
11ae941d 376#endif
377
adb71456 378END_EXTERN_C
14a5cf38 379#endif /* _PERLIO_H */