rom/dos/selectinput.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_LH1(BPTR, SelectInput,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(BPTR, fh, D1),
  22
  23 /*  LOCATION */
  24         struct DosLibrary *, DOSBase, 49, Dos)
  25
  26 /*  FUNCTION
  27         Sets the current input stream returned by Input() to a new
  28         value. Returns the old input stream.
  29
  30     INPUTS
  31         fh - New input stream.
  32
  33     RESULT
  34         Old input stream handle.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46 *****************************************************************************/
  47 {
  48     AROS_LIBFUNC_INIT
  49
  50     BPTR old;
  51
  52     /* Get pointer to process structure */
  53     struct Process *me=(struct Process *)FindTask(NULL);
  54
  55     ASSERT_VALID_PROCESS(me);
  56
  57     /* Nothing spectacular */
  58     old=me->pr_CIS;
  59     me->pr_CIS=fh;
  60     return old;
  61     AROS_LIBFUNC_EXIT
  62 } /* SelectInput */