source: trunk/essentials/dev-lang/perl/fakesdio.h@ 3212

Last change on this file since 3212 was 3181, checked in by bird, 19 years ago

perl 5.8.8

File size: 3.1 KB
Line 
1/* fakestdio.h
2 *
3 * Copyright (C) 2000, by Larry Wall and others
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
10/*
11 * This is "source level" stdio compatibility mode.
12 * We try and #define stdio functions in terms of PerlIO.
13 */
14#define _CANNOT "CANNOT"
15#undef FILE
16#define FILE PerlIO
17#undef clearerr
18#undef fclose
19#undef fdopen
20#undef feof
21#undef ferror
22#undef fflush
23#undef fgetc
24#undef fgetpos
25#undef fgets
26#undef fileno
27#undef flockfile
28#undef fopen
29#undef fprintf
30#undef fputc