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