rom/dos/error.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, Error,
  17
  18 /*  SYNOPSIS */
  19
  20 /*  LOCATION */
  21         struct DosLibrary *, DOSBase, 142, Dos)
  22
  23 /*  FUNCTION
  24         Returns the current error stream or 0 if there is no current
  25         input stream.
  26
  27     INPUTS
  28
  29     RESULT
  30         Error stream handle.
  31
  32     NOTES
  33         This function is AROS specific
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43 *****************************************************************************/
  44 {
  45     AROS_LIBFUNC_INIT
  46     AROS_LIBBASE_EXT_DECL(struct DosLibrary *,DOSBase)
  47
  48     /* Get pointer to process structure */
  49     struct Process *me=(struct Process *)FindTask(NULL);
  50
  51     /* Nothing spectacular */
  52     return me->pr_CES;
  53     AROS_LIBFUNC_EXIT
  54 } /* Input */