rom/dos/printfault.c

   1 /*
   2     Copyright © 1995-2008, 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 #include <aros/debug.h>
  12
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/dos.h>
  18
  19         AROS_LH2(BOOL, PrintFault,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(LONG,   code,   D1),
  23         AROS_LHA(CONST_STRPTR, header, D2),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 79, Dos)
  27
  28 /*  FUNCTION
  29         Prints the header and the text associated with the error code to
  30         the console (buffered), then sets the value returned by IoErr() to
  31         the error code given.
  32
  33     INPUTS
  34         code    --  Error code.
  35         header  --  Text to print before the error message. This may be NULL
  36                     in which case only the error message is printed.
  37
  38     RESULT
  39         Boolean success indicator.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48         IoErr(), Fault(), SetIoErr()
  49
  50     INTERNALS
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     struct Process *me = (struct Process *)FindTask(NULL);
  57 /*    BPTR            stream = me->pr_CES ? me->pr_CES : me->pr_COS; */
  58     BPTR            stream =  me->pr_COS; /* unfortunately AmigaOS programs expect
  59                                              this to be sent to Output() */
  60     UBYTE           buffer[80];
  61     BOOL            ret;
  62
  63     ASSERT_VALID_PROCESS(me);
  64     ASSERT_VALID_PTR_OR_NULL(BADDR(stream));
  65     ASSERT_VALID_PTR_OR_NULL(header);
  66
  67     /* Fault() will do all the formatting of the string */
  68     Fault(code, NULL, buffer, 80);
  69
  70     if (code == 0)
  71     {
  72         ret = DOSTRUE;
  73     }
  74     else if (header != NULL)
  75     {
  76         if(!FPuts(stream, header) && !FPuts(stream, ": ") &&
  77            !FPuts(stream, buffer) && !FPuts(stream, "\n"))
  78         {
  79             ret = DOSTRUE;
  80         }
  81         else
  82         {
  83             ret = DOSFALSE;
  84         }
  85     }
  86     else
  87     {
  88         if (!FPuts(stream, buffer) && !FPuts(stream,"\n"))
  89         {
  90             ret = DOSTRUE;
  91         }
  92         else
  93         {
  94             ret = DOSFALSE;
  95         }
  96     }
  97
  98     /* All done. */
  99     SetIoErr(code);
 100
 101     return ret;
 102
 103     AROS_LIBFUNC_EXIT
 104 } /* PrintFault */