rom/dos/input.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include "dos_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/dos.h>
  15
  16         AROS_LH0(BPTR, Input,
  17
  18 /*  SYNOPSIS */
  19
  20 /*  LOCATION */
  21         struct DosLibrary *, DOSBase, 9, Dos)
  22
  23 /*  FUNCTION
  24         Returns the current input stream or 0 if there is no current
  25         input stream.
  26
  27     INPUTS
  28
  29     RESULT
  30         Input stream handle.
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39
  40     INTERNALS
  41
  42 *****************************************************************************/
  43 {
  44     AROS_LIBFUNC_INIT
  45     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  46
  47     /* Get pointer to process structure */
  48     struct Process *me=(struct Process *)FindTask(NULL);
  49
  50     /* Nothing spectacular */
  51     return me->pr_CIS;
  52     AROS_LIBFUNC_EXIT
  53 } /* Input */