rom/dos/vfprintf.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <proto/exec.h>
   9 #include <dos/dosextens.h>
  10 #include <dos/filesystem.h>
  11 #include <proto/dos.h>
  12 #include <aros/asmcall.h>
  13 #include "dos_intern.h"
  14
  15 AROS_UFH2(void,vfp_hook,
  16           AROS_UFHA(UBYTE,        chr, D0),
  17           AROS_UFHA(struct vfp *, vfp, A3))
  18 {
  19     AROS_USERFUNC_INIT
  20
  21     struct DosLibrary *DOSBase = vfp->DOSBase;
  22
  23     if (vfp->count >= 0 && chr != '\0')
  24     {
  25         if (FPutC(vfp->file, chr) < 0)
  26         {
  27             vfp->count = -1;
  28
  29             return;
  30         }
  31
  32         vfp->count++;
  33     }
  34
  35     AROS_USERFUNC_EXIT
  36 }
  37
  38 /*****************************************************************************
  39
  40     NAME */
  41 #include <proto/dos.h>
  42
  43         AROS_LH3(LONG, VFPrintf,
  44
  45 /*  SYNOPSIS */
  46         AROS_LHA(BPTR,         file,     D1),
  47         AROS_LHA(CONST_STRPTR, format,   D2),
  48         AROS_LHA(const IPTR *, argarray, D3),
  49
  50 /*  LOCATION */
  51         struct DosLibrary *, DOSBase, 59, Dos)
  52
  53 /*  FUNCTION
  54
  55     INPUTS
  56
  57     RESULT
  58
  59     NOTES
  60
  61     EXAMPLE
  62
  63     BUGS
  64
  65     SEE ALSO
  66
  67     INTERNALS
  68
  69 *****************************************************************************/
  70 {
  71     AROS_LIBFUNC_INIT
  72
  73     struct vfp vfp;
  74
  75     vfp.file = file;
  76     vfp.count = 0;
  77     vfp.DOSBase = DOSBase;
  78
  79     (void)RawDoFmt(format, argarray,
  80                    (VOID_FUNC)AROS_ASMSYMNAME(vfp_hook), &vfp);
  81
  82     /* Remove the last character (which is a NUL character) */
  83     /*
  84     if (vfp.count > 0)
  85     {
  86         vfp.count--;
  87         ((struct FileHandle *)BADDR(file))->fh_Pos--;
  88     }
  89     */
  90
  91     return vfp.count;
  92
  93     AROS_LIBFUNC_EXIT
  94 } /* VFPrintf */