arch/all-unix/kernel/maygetchar.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/libcall.h>
   7
   8 #include <unistd.h>
   9
  10 #include "kernel_base.h"
  11 #include "kernel_intern.h"
  12
  13 AROS_LH0(int, KrnMayGetChar,
  14          struct KernelBase *, KernelBase, 26, Kernel)
  15 {
  16     AROS_LIBFUNC_INIT
  17
  18     char c;
  19     int ret;
  20
  21     ret = KernelBase->kb_PlatformData->iface->read (STDERR_FILENO, &c, 1);
  22     AROS_HOST_BARRIER
  23
  24     return (ret == 1) ? c : -1;
  25
  26     AROS_LIBFUNC_EXIT
  27 }