compiler/autoinit/__showerror.c

   1 /*
   2     Copyright © 1995-2007, 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 <proto/exec.h>
  10 #include <proto/dos.h>
  11 #include <proto/intuition.h>
  12 #include <aros/autoinit.h>
  13
  14 #include <stdarg.h>
  15
  16 int __forceerrorrequester __attribute__((weak)) = 0;
  17
  18 void __showerror(char *format, const IPTR *args)
  19 {
  20     struct IntuitionBase *IntuitionBase;
  21     struct DosLibrary *DOSBase = NULL;
  22     const char *name = FindTask(NULL)->tc_Node.ln_Name;
  23
  24     if
  25     (
  26         !__forceerrorrequester                                                 &&
  27         (DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 0)) != NULL &&
  28         Cli() != NULL
  29     )
  30     {
  31         if (name)
  32         {
  33             PutStr(name);
  34             PutStr(": ");
  35         }
  36
  37         if (args)
  38             VPrintf(format, args);
  39         else
  40             PutStr(format);
  41
  42         PutStr("\n");
  43     }
  44     else
  45     if ((IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0)))
  46     {
  47         struct EasyStruct es =
  48         {
  49             sizeof(struct EasyStruct),
  50             0,
  51             name,
  52             format,
  53             "Exit"
  54         };
  55
  56         EasyRequestArgs(NULL, &es, NULL, args);
  57
  58         CloseLibrary((struct Library *)IntuitionBase);
  59     }
  60
  61     if (DOSBase != NULL)
  62         CloseLibrary((struct Library *)DOSBase);
  63
  64 }
  65