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