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 <proto/exec.h>
   9 #include "dos_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/dos.h>
  15
  16         AROS_LH1(BPTR, SelectInput,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(BPTR, fh, D1),
  20
  21 /*  LOCATION */
  22         struct DosLibrary *, DOSBase, 49, Dos)
  23
  24 /*  FUNCTION
  25         Sets the current input stream returned by Input() to a new
  26         value. Returns the old input stream.
  27
  28     INPUTS
  29         fh - New input stream.
  30
  31     RESULT
  32         Old 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     BPTR old;
  49
  50     /* Get pointer to process structure */
  51     struct Process *me=(struct Process *)FindTask(NULL);
  52
  53     /* Nothing spectacular */
  54     old=me->pr_CIS;
  55     me->pr_CIS=fh;
  56     return old;
  57     AROS_LIBFUNC_EXIT
  58 } /* SelectInput */