/*
   ***************************************************************************
   *
   * Datei:
   *      RSysIconify.c
   *
   * Inhalt:
   *
   *      --- Globale Routinen ---
   *
   *    int LookTypeOfFile ( BPTR lock , char *fname , int num , int totalnum );
   *    void Iconify ( void );
   *
   *      --- Lokale  Routinen ---
   *
   *    static int IconifyWithIcon ( void );
   *    static int IconifyWithoutIcon ( void );
   *    static void ClearSetIconPos ( long x , long y , int kill );
   *
   * Bemerkungen:
   *      Enthält die Routinen für das Application Icon und das
   *      aufsetzende Actioning.
   *
   * Erstellungsdatum:
   *      20-Jan-93     Rolf Böhme
   *
   * Änderungen:
   *      20-Jan-93     Rolf Böhme        Erstellung
   *
   ***************************************************************************
 */

#include "RSys.h"
#include "protos.h"

 /*
  * LookTypeOfFile() ermittelt den Typen einer Datei und
  * startet entsprechend das Action-Window
  */
int
LookTypeOfFile (BPTR lock, char *fname, int num, int totalnum)
{
  char filename[MAXFULLNAME + 1];
  int ft = 0;
  BOOL lastentry;

  DPOS;

  NameFromLock (lock, (UBYTE *) filename, MAXFULLNAME);

  AddPart ((UBYTE *) filename, (UBYTE *) fname, MAXFULLNAME);

  if (strlen (fname) != 0)
    ft = filetype (filename);

  lastentry = ((num == totalnum) ? TRUE : FALSE);

  return StartAction (ft, filename, lastentry);
}

static void
ClearSetIconPos (long x, long y, int kill)
{
  ProgramIcon->do_CurrentX = x;
  ProgramIcon->do_CurrentY = y;

  if (kill == KILL)
    {
      FreeDiskObject (ProgramIcon);
      ProgramIcon = NULL;
    }

  return;
}

 /*
  * Iconify() schließt das Hauptfenster von RSys und
  * erzeugt auf der Workbench ein Application-Icon. Werden
  * WorkBench-Objekte auf dieses Icon gelegt, werden
  * entsprechende Aktionen gestartet. Die Nachrichten vom
  * Broker werden ebenfalls behandelt
  */
static int
IconifyWithIcon (void)
{
  MSGPORT *msgport;
  APPMESSAGE *appmsg;
  RSYS_SysMsg *arrived_mess;
  ULONG mask;
  BOOL show_dropped = TRUE, refresh = FALSE;
  int ID = LastID, i;
  WBARG *argptr;
  long posx, posy;

  DPOS;

  if (msgport = CreateMsgPort ())
    {
      DisableSysRequest (TRUE);

      ProgramIcon = GetProgramIcon ();

      posx = ProgramIcon->do_CurrentX;
      posy = ProgramIcon->do_CurrentY;

      ProgramIcon->do_Type = NULL;

      ClearSetIconPos (iconx, icony, NO_KILL);

      if (appicon = AddAppIcon (1L, NULL, (UBYTE *) "", msgport, NULL, ProgramIcon, TAG_DONE))
	{
	  do
	    {
	      mask = Wait (SIGBREAKF_CTRL_C | (1 << msgport->mp_SigBit) |
		 (1 << SysIdPort->mp_SigBit) | (1 << broker_mp->mp_SigBit));

	      if (mask & SIGBREAKF_CTRL_C)
		Flags.quit_iconify = 1;

	      if (mask & (1 << broker_mp->mp_SigBit))
		{
		  HandleBrokerPort ();

		  if (SysWnd)
		    {
		      Flags.quit_iconify = 1;
		      ReopenWindow = TRUE;
		    }
		}

	      if (mask & (1 << msgport->mp_SigBit))
		while (appmsg = (APPMESSAGE *) GetMsg (msgport))
		  {
		    if (appmsg->am_NumArgs == NULL)
		      {
			strcpy ((char *) namebuffer, "Workbench");

			Flags.quit_iconify = 1;
			refresh = TRUE;
		      }
		    else
		      {
			argptr = appmsg->am_ArgList;

			for (i = 0; show_dropped && (i < appmsg->am_NumArgs); i++)
			  {
			    show_dropped = LookTypeOfFile (argptr->wa_Lock,
						   (char *) argptr->wa_Name,
						 i + 1, appmsg->am_NumArgs);
			    argptr++;
			  }

			show_dropped = TRUE;
		      }

		    ReplyMsg ((MESSAGE *) appmsg);
		  }

	      if (mask & (1 << SysIdPort->mp_SigBit))
		{
		  while (arrived_mess = (RSYS_SysMsg *) GetMsg (SysIdPort))
		    {
		      ID = arrived_mess->sm_newtype;
		      ReplyMsg ((MESSAGE *) arrived_mess);

		      refresh = TRUE;
		    }

		  Flags.quit_iconify = 1;
		}
	    }
	  while (NOT (Flags.quit_iconify));

	  RemoveAppIcon (appicon);
	  appicon = NULL;

	  if (mask & SIGBREAKF_CTRL_C)
	    {
	      ClearSetIconPos (posx, posy, KILL);

	      DisableSysRequest (FALSE);
	      DeleteMsgPort (msgport);
	      CloseAll ();
	    }
	}
      else
	{
	  ClearSetIconPos (posx, posy, KILL);

	  DisableSysRequest (FALSE);
	  ErrorHandle ("AddAppIcon()", ICON_ERR, CREATE_FAIL, KILL);
	}

      ClearSetIconPos (posx, posy, KILL);

      DisableSysRequest (FALSE);
      DeleteMsgPort (msgport);
    }
  else
    ErrorHandle ("CreateMsgPort()", PORT_ERR, CREATE_FAIL, KILL);

  return (ID);
}

 /*
  * IconifyWithoutIcon() schließt das Hauptfenster von RSys
  * Die Nachrichten vom Broker werden behandelt
  */
static int
IconifyWithoutIcon (void)
{
  RSYS_SysMsg *arrived_mess;
  ULONG mask;
  BOOL refresh = FALSE;
  int ID = LastID;

  DPOS;

  do
    {
      mask = Wait (SIGBREAKF_CTRL_C |
		   (1 << SysIdPort->mp_SigBit) |
		   (1 << broker_mp->mp_SigBit));

      if (mask & SIGBREAKF_CTRL_C)
	Flags.quit_iconify = 1;

      if (mask & (1 << broker_mp->mp_SigBit))
	{
	  HandleBrokerPort ();

	  if (SysWnd)
	    Flags.quit_iconify = 1;
	}

      if (mask & (1 << SysIdPort->mp_SigBit))
	{
	  while (arrived_mess = (RSYS_SysMsg *) GetMsg (SysIdPort))
	    {
	      ID = arrived_mess->sm_newtype;
	      ReplyMsg ((MESSAGE *) arrived_mess);

	      refresh = TRUE;
	    }

	  Flags.quit_iconify = 1;
	}
    }
  while (NOT (Flags.quit_iconify));

  if (mask & SIGBREAKF_CTRL_C)
    CloseAll ();

  return ID;
}

 /*
  * Iconify() ist die Frontend-Routine für IconifyWithIcon()
  * und IconifyWithoutIcon(), je nachdem, ob der Benutzer ein Icon wünscht
  * oder nicht.
  */
void
Iconify (void)
{
  int ID;

  DPOS;

  HandleHelp (MN_Iconify);

  if (SysWnd)
    {
      lastpubscreen = SysWnd->WScreen;

      CloseASysWindow (&SysWnd, &SysGList, &SysMenus);
      CloseDownScreen ();
    }

  Flags.quit_iconify = 0;

  if (Flags.appicon)
    ID = IconifyWithIcon ();
  else
    ID = IconifyWithoutIcon ();

  if (NOT (SysWnd))
    {
      OpenMainWindow ();

      MakeWindowRefresh (SysWnd);
      ClearIntuiMsgPort (SysWnd);

      if (ID != LastID)
	LastID = ID;

      RefreshList (LastID);
    }

  ReopenWindow = TRUE;

  return;
}