rom/dos/displayerror.c

   1 /*
   2     Copyright  1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <proto/intuition.h>
   9 #include "dos_intern.h"
  10 #include <aros/debug.h>
  11 #include <string.h>
  12
  13 /*****i***********************************************************************
  14
  15     NAME */
  16 #include <proto/dos.h>
  17
  18         AROS_LH3(LONG, DisplayError,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(CONST_STRPTR, formatStr, A0),
  22         AROS_LHA(ULONG       , flags    , D0),
  23         AROS_LHA(APTR        , args     , A1),
  24
  25 /*  LOCATION */
  26         struct DosLibrary *, DOSBase, 81, Dos)
  27
  28 /*  FUNCTION
  29         Displays an error message to and gets response from a user.
  30
  31     INPUTS
  32         formatStr   --  printf-style formatted string
  33         flags       --  arguments to EasyRequestArgs()
  34         args        --  arguments to 'formatStr'
  35
  36     RESULT
  37         Nothing
  38
  39     NOTES
  40         This is a PRIVATE dos function.
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47
  48     INTERNALS
  49         The purpose of this function is to put up a requester when an error
  50         has occurred that is connected to the filesystem.
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     struct IntuitionBase *IntuitionBase = NULL;
  57     struct Window *window;      /* The window to put the requester in */
  58     char           gadTexts[128];
  59     char          *gtPtr = (char *)gadTexts;
  60     ULONG          idcmp = flags;
  61     ULONG          res;
  62
  63     struct EasyStruct es =
  64     {
  65         sizeof(struct EasyStruct),
  66         0,                                  /* flags */
  67         DosGetString(STRING_REQUESTTITLE),  /* "System Requester" */
  68         (STRPTR)formatStr,
  69         gadTexts                            /* "Retry|Cancel" */
  70     };
  71
  72     window = (struct Window *)((struct Process *)FindTask(NULL))->pr_WindowPtr;
  73
  74     /* Supress requesters? */
  75     if ((IPTR)window == (IPTR)-1L)
  76     {
  77         return 1;
  78     }
  79
  80     if (DOSBase->dl_IntuitionBase == NULL)
  81     {
  82         DOSBase->dl_IntuitionBase = OpenLibrary("intuition.library", 37L);
  83     }
  84
  85     if (DOSBase->dl_IntuitionBase == NULL)
  86     {
  87         return 1;
  88     }
  89     else
  90     {
  91         IntuitionBase = (struct IntuitionBase *)DOSBase->dl_IntuitionBase;
  92     }
  93
  94     /* Create localised gadget texts */
  95     strcpy(gtPtr, DosGetString(STRING_RETRY));
  96     strcat(gtPtr, "|");
  97     strcat(gtPtr, DosGetString(STRING_CANCEL));
  98
  99     res = EasyRequestArgs(window, &es, &idcmp, args);
 100
 101     if (res == 0)
 102     {
 103         return 1;
 104     }
 105     else
 106     {
 107         return 0;
 108     }
 109
 110     AROS_LIBFUNC_EXIT
 111 } /* DisplayError */