git.gag.com Git - fw/pdclib/blob - platform/altos/functions/stdio/fwrite.c

   1 /* $Id$ */
   2
   3 /* fwrite( const void *, size_t, size_t, 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
  11 #ifndef REGTEST
  12
  13 #include <_PDCLIB_glue.h>
  14
  15 #include <stdbool.h>
  16 #include <string.h>
  17
  18 size_t fwrite( const void * _PDCLIB_restrict ptr, size_t size, size_t nmemb, struct _PDCLIB_file_t * _PDCLIB_restrict stream )
  19 {
  20     size_t total = size * nmemb;
  21     size_t written = 0;
  22     char *data = ptr;
  23
  24     while (total-- > 0)
  25     {
  26         char c = *data++;
  27         if (putc(c, stream) != c)
  28             break;
  29         written++;
  30     }
  31     return written / size;
  32 }
  33
  34 #endif
  35
  36 #ifdef TEST
  37 #include <_PDCLIB_test.h>
  38
  39 int main( void )
  40 {
  41     /* Testing covered by fread(). */
  42     return TEST_RESULTS;
  43 }
  44
  45 #endif
  46