source: trunk/essentials/dev-lang/perl/nostdio.h

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

perl 5.8.8

File size: 3.2 KB
Line 
1/* nostdio.h
2 *
3 * Copyright (C) 1996, 2000, 2001, 2005, 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 * Strong denial of stdio - make all stdio calls (we can think of) errors
12 */
13/* This is a 1st attempt to stop other include files pulling
14 in real <stdio.h>.
15 A more ambitious set of possible symbols can be found in
16 sfio.h (inside an _cplusplus gard).
17 It is completely pointless as we have already included it ourselves.
18*/
19
20#if !defined(_STDIO_H) && !defined(FILE) && !defined(_STDIO_INCLUDED) && !defined(__STDIO_LOADED)
21#define _STDIO_H
22#define _STDIO_INCLUDED
23#define __STDIO_LOADED
24struct _FILE;
25#define FILE struct _FILE
26#endif
27
28#define _CANNOT "CANNOT"
29
30#undef clearerr
31#undef fclose
32#undef fdopen
33#undef feof