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(char *format, const IPTR *args, struct ExecBase *SysBase)
  32 {
  33     struct IntuitionBase *IntuitionBase;
  34     struct DosLibrary *DOSBase = NULL;
  35     const char *name = FindTask(NULL)->tc_Node.ln_Name;
  36
  37     if
  38     (
  39         !__forceerrorrequester                                                 &&
  40         (DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 0)) != NULL &&
  41         Cli() != NULL &&
  42         Output() != BNULL
  43     )
  44     {
  45         if (name)
  46         {
  47             PutStr(name);
  48             PutStr(": ");
  49         }
  50
  51         if (args)
  52             VPrintf(format, (IPTR*)args);
  53         else
  54             PutStr(format);
  55
  56         PutStr("\n");
  57
  58     }
  59     else
  60     if ((IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0)))
  61     {
  62         struct EasyStruct es =
  63         {
  64             sizeof(struct EasyStruct),
  65             0,
  66             name,
  67             format,
  68             "Exit"
  69         };
  70
  71         EasyRequestArgs(NULL, &es, NULL, (APTR)args);
  72
  73         CloseLibrary((struct Library *)IntuitionBase);
  74     }
  75     else
  76     {
  77         if (name) {
  78             IPTR args[] = { (IPTR)name };
  79             RawDoFmt("%s: ", (APTR)args, (VOID_FUNC)RawPutc, SysBase);
  80         }
  81
  82         RawDoFmt(format, (APTR)args, (VOID_FUNC)RawPutc, SysBase);
  83         RawPutChar('\n');
  84     }
  85
  86     CloseLibrary((struct Library *)DOSBase);
  87 }