compiler/clib/vfprintf.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Format a string and call a usercallback to output each char.
   6 */
   7 /* Original source from libnix */
   8
   9
  10 #include <proto/dos.h>
  11 #include <errno.h>
  12 #include "__errno.h"
  13 #include "__open.h"
  14
  15 static int __putc(int c, BPTR fh);
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <stdio.h>
  21 #include <stdarg.h>
  22
  23         int vfprintf (
  24
  25 /*  SYNOPSIS */
  26         FILE       * stream,
  27         const char * format,
  28         va_list      args)
  29
  30 /*  FUNCTION
  31         Format a list of arguments and print them on the specified stream.
  32
  33     INPUTS
  34         stream - A stream on which one can write
  35         format - A printf() format string.
  36         args - A list of arguments for the format string.
  37
  38     RESULT
  39         The number of characters written.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51 ******************************************************************************/
  52 {
  53     fdesc *fdesc = __getfdesc(stream->fd);
  54
  55     if (!fdesc)
  56     {
  57         errno = EBADF;
  58         return 0;
  59     }
  60
  61     return __vcformat (fdesc->fh, __putc, format, args);
  62 } /* vfprintf */
  63
  64
  65 static int __putc(int c, BPTR fh)
  66 {
  67     AROS_GET_SYSBASE_OK
  68     AROS_GET_DOSBASE
  69     if (FPutC(fh, c) == EOF)
  70     {
  71         errno = IoErr2errno(IoErr());
  72         return EOF;
  73     }
  74
  75     return c;
  76 }