rom/dos/fputc.c

   1 /*
   2     Copyright © 1995-2007, 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         Write a character to a file.
  34
  35     INPUTS
  36         file      - Filehandle to write to.
  37         character - Character to write.
  38
  39     RESULT
  40         The character written or EOF in case of an error.
  41         IoErr() gives additional information in that case.
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50         FGetC(), IoErr()
  51
  52     INTERNALS
  53
  54 *****************************************************************************/
  55 {
  56     AROS_LIBFUNC_INIT
  57
  58     BYTE c = character;
  59     return (1 == FWriteChars(file, &c, 1, DOSBase))
  60         ? character
  61         : EOF;
  62
  63     AROS_LIBFUNC_EXIT
  64 } /* FPutC */