|
11 | 11 | * This is "source level" stdio compatibility mode. |
12 | 12 | * We try and #define stdio functions in terms of PerlIO. |
13 | 13 | */ |
14 | | -#define _CANNOT "CANNOT" |
| 14 | +#define CANNOT_ "CANNOT" |
15 | 15 | #undef FILE |
16 | 16 | #define FILE PerlIO |
17 | 17 | #undef clearerr |
|
88 | 88 | #define fread(b,s,c,f) PerlIO_read(f,b,(s*c)) |
89 | 89 | #define fwrite(b,s,c,f) PerlIO_write(f,b,(s*c)) |
90 | 90 | #else |
91 | | -#define fread(b,s,c,f) _CANNOT fread |
92 | | -#define fwrite(b,s,c,f) _CANNOT fwrite |
| 91 | +#define fread(b,s,c,f) CANNOT_ fread |
| 92 | +#define fwrite(b,s,c,f) CANNOT_ fwrite |
93 | 93 | #endif |
94 | 94 | #define fseek(f,o,w) PerlIO_seek(f,o,w) |
95 | 95 | #define ftell(f) PerlIO_tell(f) |
|
102 | 102 | #define popen(c,m) my_popen(c,m) |
103 | 103 | #define pclose(f) my_pclose(f) |
104 | 104 |
|
105 | | -#define fsetpos(f,p) _CANNOT _fsetpos_ |
106 | | -#define fgetpos(f,p) _CANNOT _fgetpos_ |
| 105 | +#define fsetpos(f,p) CANNOT_ _fsetpos_ |
| 106 | +#define fgetpos(f,p) CANNOT_ _fgetpos_ |
107 | 107 |
|
108 | | -#define __filbuf(f) _CANNOT __filbuf_ |
109 | | -#define _filbuf(f) _CANNOT _filbuf_ |
110 | | -#define __flsbuf(c,f) _CANNOT __flsbuf_ |
111 | | -#define _flsbuf(c,f) _CANNOT _flsbuf_ |
112 | | -#define getw(f) _CANNOT _getw_ |
113 | | -#define putw(v,f) _CANNOT _putw_ |
| 108 | +#define __filbuf(f) CANNOT_ __filbuf_ |
| 109 | +#define _filbuf(f) CANNOT_ _filbuf_ |
| 110 | +#define __flsbuf(c,f) CANNOT_ __flsbuf_ |
| 111 | +#define _flsbuf(c,f) CANNOT_ _flsbuf_ |
| 112 | +#define getw(f) CANNOT_ _getw_ |
| 113 | +#define putw(v,f) CANNOT_ _putw_ |
114 | 114 | #if SFIO_VERSION < 20000101L |
115 | | -#define flockfile(f) _CANNOT _flockfile_ |
116 | | -#define ftrylockfile(f) _CANNOT _ftrylockfile_ |
117 | | -#define funlockfile(f) _CANNOT _funlockfile_ |
| 115 | +#define flockfile(f) CANNOT_ _flockfile_ |
| 116 | +#define ftrylockfile(f) CANNOT_ _ftrylockfile_ |
| 117 | +#define funlockfile(f) CANNOT_ _funlockfile_ |
118 | 118 | #endif |
119 | | -#define freopen(p,m,f) _CANNOT _freopen_ |
120 | | -#define setbuf(f,b) _CANNOT _setbuf_ |
121 | | -#define setvbuf(f,b,x,s) _CANNOT _setvbuf_ |
122 | | -#define fscanf _CANNOT _fscanf_ |
123 | | -#define fgets(s,n,f) _CANNOT _fgets_ |
| 119 | +#define freopen(p,m,f) CANNOT_ _freopen_ |
| 120 | +#define setbuf(f,b) CANNOT_ _setbuf_ |
| 121 | +#define setvbuf(f,b,x,s) CANNOT_ _setvbuf_ |
| 122 | +#define fscanf CANNOT_ _fscanf_ |
| 123 | +#define fgets(s,n,f) CANNOT_ _fgets_ |
124 | 124 |
|
125 | 125 | /* |
126 | 126 | * ex: set ts=8 sts=4 sw=4 et: |
|
0 commit comments