#include "amiga.h"
#include <intuition/intuition.h>
#include <stdarg.h>

static struct EasyStruct msg = {
    sizeof (struct EasyStruct),
    0,
    NULL,
    NULL,
    "Ok",
};

static void message(char *format, long *args)
/* Display a message which is as visible as possible (either to the console
   or to as a requester).
   Assume very little about library state */
{
  LONG msg_EasyRequestArgs(struct Window *window, struct EasyStruct *easyStruct,
			   ULONG *idcmpPtr, APTR args );
#pragma libcall msg_IntuitionBase msg_EasyRequestArgs 24C BA9804
  BPTR fh;
  int close = FALSE;
  extern char *_ProgramName;
  extern struct WBStartup *WBenchMsg;

  fh = _us->pr_CES;
  if (!fh)
    if (!WBenchMsg && (fh = Open("console:", MODE_OLDFILE))) close = TRUE;

  if (fh)
    {
      FPrintf(fh, "%s: ", _ProgramName);
      VFPrintf(fh, format, (long *)args);
      FPutC(fh, '\n');
      if (close) Close(fh);
    }
  else
    {
      struct Window *win = (struct Window *)_us->pr_WindowPtr;
      if (win != (struct Window *)-1)
	{
	  struct Library *msg_IntuitionBase = OpenLibrary("intuition.library", 37);

	  if (msg_IntuitionBase)
	    {
	      msg.es_Title = _ProgramName;
	      msg.es_TextFormat = format;
	      msg_EasyRequestArgs(win, &msg, 0, args);
	      CloseLibrary(msg_IntuitionBase);
	    }
	}
    }
}

void _message(char *format, ...)
/* Display a message which is as visible as possible (either to the console
   or to as a requester).
   Assume very little about library state */
{
  va_list args;

  va_start(args, format);
  message(format, (long *)args);
}

void _fail(char *format, ...)
/* Display a message which is as visible as possible (either to the console
   or to as a requester).
   Assume very little about library state.
   Exit with error code RETURN_FAIL after that. */
{
  va_list args;

  va_start(args, format);
  message(format, (long *)args);

  exit(RETURN_FAIL);		/* The library should always be cleanup-able */
}