rom/dos/fputc.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <exec/memory.h>
   9 #include <proto/exec.h>
  10
  11 #include <dos/stdio.h>
  12 #include <dos/dosextens.h>
  13
  14 #include "dos_intern.h"
  15
  16 #include <aros/debug.h>
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <proto/dos.h>
  22
  23         AROS_LH2(LONG, FPutC,
  24
  25 /*  SYNOPSIS */
  26         AROS_LHA(BPTR, file,      D1),
  27         AROS_LHA(LONG, character, D2),
  28
  29 /*  LOCATION */
  30         struct DosLibrary *, DOSBase, 52, Dos)
  31
  32 /*  FUNCTION
  33
  34     INPUTS
  35         file      - Filehandle to write to.
  36         character - Character to write.
  37
  38     RESULT
  39         The character written or EOF in case of an error.
  40         IoErr() gives additional information in that case.
  41
  42     NOTES
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49         FGetC(), IoErr()
  50
  51     INTERNALS
  52
  53 *****************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  57
  58     BYTE c = character;
  59     return (1 == FWriteChars(file, &c, 1))
  60         ? character
  61         : EOF;
  62
  63     AROS_LIBFUNC_EXIT
  64 } /* FPutC */