pd.if.org Git - pdclib.old/blob - functions/stdio/_PDCLIB_prepwrite.c

   1 /* $Id$ */
   2
   3 /* _PDCLIB_prepwrite( FILE * )
   4
   5    This file is part of the Public Domain C Library (PDCLib).
   6    Permission is granted to use, modify, and / or redistribute at will.
   7 */
   8
   9 #include <stdio.h>
  10 #include <errno.h>
  11
  12 #ifndef REGTEST
  13 #include <_PDCLIB_io.h>
  14
  15 int _PDCLIB_prepwrite( FILE * stream )
  16 {
  17     if ( ( stream->bufidx < stream->bufend ) || ( stream->ungetidx > 0 ) ||
  18          ( stream->status & ( _PDCLIB_FREAD | _PDCLIB_ERRORFLAG | _PDCLIB_WIDESTREAM | _PDCLIB_EOFFLAG ) ) ||
  19          ! ( stream->status & ( _PDCLIB_FWRITE | _PDCLIB_FAPPEND | _PDCLIB_FRW ) ) )
  20     {
  21         /* Function called on illegal (e.g. input) stream.
  22            See the comments on implementation-defined errno values in
  23            <_PDCLIB_config.h>.
  24         */
  25         errno = EINVAL;
  26         stream->status |= _PDCLIB_ERRORFLAG;
  27         return EOF;
  28     }
  29     stream->status |= _PDCLIB_FWRITE | _PDCLIB_BYTESTREAM;
  30     return 0;
  31 }
  32 #endif
  33
  34 #ifdef TEST
  35 #include <_PDCLIB_test.h>
  36
  37 int main( void )
  38 {
  39     /* Testing covered by ftell.c */
  40     return TEST_RESULTS;
  41 }
  42
  43 #endif
  44