compiler/autoinit/__showerror.c

   1 /*
   2     Copyright � 1995-2010, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: autoinit library - support function for showing errors to the user
   6     Lang: english
   7 */
   8
   9 #include <exec/rawfmt.h>
  10 #include <proto/exec.h>
  11 #include <proto/dos.h>
  12 #include <proto/intuition.h>
  13 #include <aros/autoinit.h>
  14 #include <aros/debug.h>
  15
  16 #include <stdarg.h>
  17
  18 const int __forceerrorrequester __attribute__((weak)) = 0;
  19
  20 static AROS_UFH2(IPTR, RawPutc,
  21         AROS_UFHA(UBYTE, c, D0),
  22         AROS_UFHA(struct ExecBase *, SysBase, A3))
  23 {
  24     AROS_USERFUNC_INIT
  25     if (c)
  26         RawPutChar(c);
  27     return c;
  28     AROS_USERFUNC_EXIT
  29 }
  30
  31 void ___showerror(struct ExecBase *SysBase, const char *format, ...)
  32 {
  33     struct IntuitionBase *IntuitionBase;
  34     struct DosLibrary *DOSBase = NULL;
  35     const char *name = FindTask(NULL)->tc_Node.ln_Name;
  36
  37     AROS_SLOWSTACKFORMAT_PRE(format);
  38
  39     if
  40     (
  41         !__forceerrorrequester                                                 &&
  42         (DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 0)) != NULL &&
  43         Cli() != NULL &&
  44         Output() != BNULL
  45     )
  46     {
  47         if (name)
  48         {
  49             PutStr(name);
  50             PutStr(": ");
  51         }
  52
  53         VPrintf(format, AROS_SLOWSTACKFORMAT_ARG(format));
  54
  55         PutStr("\n");
  56
  57     }
  58     else
  59     if ((IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0)))
  60     {
  61         struct EasyStruct es =
  62         {
  63             sizeof(struct EasyStruct),
  64             0,
  65             name,
  66             format,
  67             "Exit"
  68         };
  69
  70         EasyRequestArgs(NULL, &es, NULL, AROS_SLOWSTACKFORMAT_ARG(format));
  71
  72         CloseLibrary((struct Library *)IntuitionBase);
  73     }
  74     else
  75     {
  76         if (name) {
  77             RawDoFmt("%s: ", (RAWARG)&name, (VOID_FUNC)RawPutc, SysBase);
  78         }
  79
  80         RawDoFmt(format, AROS_SLOWSTACKFORMAT_ARG(format), (VOID_FUNC)RawPutc, SysBase);
  81         RawPutChar('\n');
  82     }
  83
  84     AROS_SLOWSTACKFORMAT_POST(format);
  85
  86     CloseLibrary((struct Library *)DOSBase);
  87 }