rom/dos/vprintf.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <dos/dos.h>
  11 #include <aros/asmcall.h>
  12 #include "dos_intern.h"
  13
  14 AROS_UFP2(void, vfp_hook,
  15     AROS_UFPA(UBYTE,        chr, D0),
  16     AROS_UFPA(struct vfp *, vfp, A3)
  17 );
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22 #include <proto/dos.h>
  23
  24         AROS_LH2(LONG, VPrintf,
  25
  26 /*  SYNOPSIS */
  27         AROS_LHA(CONST_STRPTR, format,   D1),
  28         AROS_LHA(IPTR *,       argarray, D2),
  29
  30 /*  LOCATION */
  31         struct DosLibrary *, DOSBase, 159, Dos)
  32
  33 /*  FUNCTION
  34         Writes a formatted string to standard output.
  35
  36     INPUTS
  37         format   - RawDoFmt like format string
  38         argarray - Pointer to array of formatting values
  39
  40     RESULT
  41         Number of bytes written or -1 for an error
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     INTERNALS
  52
  53 *****************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56
  57     struct vfp vfp;
  58     BPTR       file = ((struct Process *)FindTask(NULL))->pr_COS;
  59
  60     vfp.file = file;
  61     vfp.count = 0;
  62     vfp.DOSBase = DOSBase;
  63
  64     (void)RawDoFmt(format, argarray,
  65                    (VOID_FUNC)AROS_ASMSYMNAME(vfp_hook), &vfp);
  66
  67     /* Remove the last character (which is a NUL character) */
  68     /*
  69     if (vfp.count > 0)
  70     {
  71         vfp.count--;
  72         ((struct FileHandle *)BADDR(file))->fh_Pos--;
  73     }
  74     */
  75
  76     return vfp.count;
  77     AROS_LIBFUNC_EXIT
  78 } /* VPrintf */