rom/dos/input.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_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH0(BPTR, Input,
  19
  20 /*  SYNOPSIS */
  21
  22 /*  LOCATION */
  23         struct DosLibrary *, DOSBase, 9, Dos)
  24
  25 /*  FUNCTION
  26         Returns the current input stream or 0 if there is no current
  27         input stream.
  28
  29     INPUTS
  30
  31     RESULT
  32         Input stream handle.
  33
  34     NOTES
  35
  36     EXAMPLE
  37
  38     BUGS
  39
  40     SEE ALSO
  41
  42     INTERNALS
  43
  44 *****************************************************************************/
  45 {
  46     AROS_LIBFUNC_INIT
  47
  48     /* Get pointer to process structure */
  49     struct Process *me=(struct Process *)FindTask(NULL);
  50
  51     ASSERT_VALID_PROCESS(me);
  52
  53     /* Nothing spectacular */
  54     return me->pr_CIS;
  55     AROS_LIBFUNC_EXIT
  56 } /* Input */