diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-10 12:27:51 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-06-10 12:27:51 +0000 |
| commit | dac188c401575cfedd3b9b258041e73521b34060 (patch) | |
| tree | e5a135ba2e2c034f369452af8a97716d08153a67 /perlsfio.h | |
| parent | 69a4798ae2b086596e9ea7a7fa5e1cfe27d3f61e (diff) | |
| download | perl-dac188c401575cfedd3b9b258041e73521b34060.tar.gz | |
Paper over a crack or two with USE_SFIO
p4raw-id: //depot/perlio@10497
Diffstat (limited to 'perlsfio.h')
| -rw-r--r-- | perlsfio.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perlsfio.h b/perlsfio.h index 0255876749..ed7ab9726e 100644 --- a/perlsfio.h +++ b/perlsfio.h @@ -1,4 +1,7 @@ /* The next #ifdef should be redundant if Configure behaves ... */ +#ifndef FILE +#define FILE FILE +#endif #ifdef I_SFIO #include <sfio.h> #endif @@ -47,9 +50,11 @@ extern int _stdprintf _ARG_((const char*, ...)); #define PerlIO_rewind(f) (void) sfseek((f),0L,0) #define PerlIO_tmpfile() sftmp(0) +#if 0 #define PerlIO_importFILE(f,fl) ((void) Perl_croak(aTHX_ "Import from FILE * unimplemeted"), NULL) -#define PerlIO_exportFILE(f,fl) Perl_croak(aTHX_ "Export to FILE * unimplemeted") #define PerlIO_findFILE(f) NULL +#endif +#define PerlIO_exportFILE(f,fl) Perl_croak(aTHX_ "Export to FILE * unimplemeted") #define PerlIO_releaseFILE(p,f) Perl_croak(aTHX_ "Release of FILE * unimplemeted") #define PerlIO_setlinebuf(f) sfset(f,SF_LINE,1) |