compiler/autoinit/__showerror.c

   1 /*
   2     Copyright © 1995-2001, 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     AROS_GET_SYSBASE_OK
  21
  22     struct IntuitionBase *IntuitionBase;
  23     struct DosLibrary *DOSBase = NULL;
  24     const char *name = FindTask(NULL)->tc_Node.ln_Name;
  25
  26     if
  27     (
  28         !__forceerrorrequester                                                 &&
  29         (DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 0)) != NULL &&
  30         Cli() != NULL
  31     )
  32     {
  33         if (name)
  34         {
  35             PutStr(name);
  36             PutStr(": ");
  37         }
  38
  39         if (args)
  40             VPrintf(format, args);
  41         else
  42             PutStr(format);
  43
  44         PutStr("\n");
  45     }
  46     else
  47     if ((IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0)))
  48     {
  49         struct EasyStruct es =
  50         {
  51             sizeof(struct EasyStruct),
  52             0,
  53             name,
  54             format,
  55             "Exit"
  56         };
  57
  58         EasyRequestArgs(NULL, &es, NULL, args);
  59
  60         CloseLibrary((struct Library *)IntuitionBase);
  61     }
  62
  63     if (DOSBase != NULL)
  64         CloseLibrary((struct Library *)DOSBase);
  65
  66 }
  67