[Summary view] [Print] [Text view]

   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
  31  #undef fputs
  32  #undef fread
  33  #undef freopen
  34  #undef fscanf
  35  #undef fseek
  36  #undef fsetpos
  37  #undef ftell
  38  #undef ftrylockfile
  39  #undef funlockfile
  40  #undef fwrite
  41  #undef getc
  42  #undef getc_unlocked
  43  #undef getw
  44  #undef pclose
  45  #undef popen
  46  #undef putc
  47  #undef putc_unlocked
  48  #undef putw
  49  #undef rewind
  50  #undef setbuf
  51  #undef setvbuf
  52  #undef stderr
  53  #undef stdin
  54  #undef stdout
  55  #undef tmpfile
  56  #undef ungetc
  57  #undef vfprintf
  58  #undef printf
  59  
  60  /* printf used to live in perl.h like this - more sophisticated 
  61     than the rest 
  62   */
  63  #if defined(__GNUC__) && !defined(__STRICT_ANSI__) && !defined(PERL_GCC_PEDANTIC)
  64  #define printf(fmt,args...) PerlIO_stdoutf(fmt,##args)
  65  #else
  66  #define printf PerlIO_stdoutf
  67  #endif
  68  
  69  #define fprintf            PerlIO_printf
  70  #define stdin            PerlIO_stdin()
  71  #define stdout            PerlIO_stdout()
  72  #define stderr            PerlIO_stderr()
  73  #define tmpfile()        PerlIO_tmpfile()
  74  #define fclose(f)        PerlIO_close(f)
  75  #define fflush(f)        PerlIO_flush(f)
  76  #define fopen(p,m)        PerlIO_open(p,m)
  77  #define vfprintf(f,fmt,a)    PerlIO_vprintf(f,fmt,a)
  78  #define fgetc(f)        PerlIO_getc(f)
  79  #define fputc(c,f)        PerlIO_putc(f,c)
  80  #define fputs(s,f)        PerlIO_puts(f,s)
  81  #define getc(f)            PerlIO_getc(f)
  82  #define getc_unlocked(f)    PerlIO_getc(f)
  83  #define putc(c,f)        PerlIO_putc(f,c)
  84  #define putc_unlocked(c,f)    PerlIO_putc(c,f)
  85  #define ungetc(c,f)        PerlIO_ungetc(f,c)
  86  #if 0
  87  /* return values of read/write need work */
  88  #define fread(b,s,c,f)        PerlIO_read(f,b,(s*c))
  89  #define fwrite(b,s,c,f)        PerlIO_write(f,b,(s*c))
  90  #else
  91  #define fread(b,s,c,f)        _CANNOT fread
  92  #define fwrite(b,s,c,f)        _CANNOT fwrite
  93  #endif
  94  #define fseek(f,o,w)        PerlIO_seek(f,o,w)
  95  #define ftell(f)        PerlIO_tell(f)
  96  #define rewind(f)        PerlIO_rewind(f)
  97  #define clearerr(f)        PerlIO_clearerr(f)
  98  #define feof(f)            PerlIO_eof(f)
  99  #define ferror(f)        PerlIO_error(f)
 100  #define fdopen(fd,p)        PerlIO_fdopen(fd,p)
 101  #define fileno(f)        PerlIO_fileno(f)
 102  #define popen(c,m)        my_popen(c,m)
 103  #define pclose(f)        my_pclose(f)
 104  
 105  #define fsetpos(f,p)        _CANNOT _fsetpos_
 106  #define fgetpos(f,p)        _CANNOT _fgetpos_
 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_
 114  #if SFIO_VERSION < 20000101L
 115  #define flockfile(f)        _CANNOT _flockfile_
 116  #define ftrylockfile(f)        _CANNOT _ftrylockfile_
 117  #define funlockfile(f)        _CANNOT _funlockfile_
 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_
 124