/*
   ***************************************************************************
   *
   * Datei:
   *      RSysTextFormatter.c
   *
   * Inhalt:
   *
   *      --- Globale Routinen ---
   *
   *    int RSysFormatOutput ( WINDOW *wind , char *format );
   *
   *      --- Lokale  Routinen ---
   *
   *    static int BlankLeftCGadClicked ( void );
   *    static int HandleFormatterIDCMP ( void );
   *    static int NoFormatGadClicked ( void );
   *    static int NoHeaderCGadClicked ( void );
   *    static int OpenFormatterWindow ( void );
   *    static int PostFixSGadClicked ( void );
   *    static int PrefixSGadClicked ( void );
   *    static int QuoteCGadClicked ( void );
   *    static int UseGadClicked ( void );
   *    static void preview ( void );
   *
   * Bemerkungen:
   *      Formatierung der Ausgabelisten von RSys.
   *
   * Erstellungsdatum:
   *      07-Jul-93     Rolf Böhme
   *
   * Änderungen:
   *      07-Jul-93     Rolf Böhme        Erstellung
   *
   ***************************************************************************
 */

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


RSYS_fmt TFormat, TFormatDef =

{
  FALSE, FALSE, FALSE, TRUE, "", "", "%s"
};

static WINDOW *FormatterWnd = NULL;
static GADGET *FormatterGList = NULL;
static INTUIMESSAGE FormatterMsg;
static GADGET *FormatterGadgets[Formatter_CNT];
static UWORD FormatterLeft = 47;
static UWORD FormatterTop = 52;
static UWORD FormatterWidth = 610;
static UWORD FormatterHeight = 74;
static UBYTE FormatterWdt[100];	/*GMD */

static UWORD FormatterGTypes[] =
{
  STRING_KIND,
  STRING_KIND,
  CHECKBOX_KIND,
  CHECKBOX_KIND,
  CHECKBOX_KIND,
  TEXT_KIND,
  BUTTON_KIND,
  BUTTON_KIND
};

static int PrefixSGadClicked (void);
static int PostFixSGadClicked (void);
static int BlankLeftCGadClicked (void);
static int QuoteCGadClicked (void);
static int NoHeaderCGadClicked (void);
static int UseGadClicked (void);
static int NoFormatGadClicked (void);

static NEWGADGET FormatterNGad[] =
{
  14, 17, 211, 13, (UBYTE *) "Prefix", NULL, GD_PrefixSGad, PLACETEXT_ABOVE, NULL, (APTR) PrefixSGadClicked,
  384, 17, 211, 13, (UBYTE *) "Postfix", NULL, GD_PostFixSGad, PLACETEXT_ABOVE, NULL, (APTR) PostFixSGadClicked,
  14, 33, 26, 11, (UBYTE *) "Blanks between texts", NULL, GD_BlankLeftCGad, PLACETEXT_RIGHT, NULL, (APTR) BlankLeftCGadClicked,
  234, 33, 26, 11, (UBYTE *) "Quote-in text", NULL, GD_QuoteCGad, PLACETEXT_RIGHT, NULL, (APTR) QuoteCGadClicked,
  419, 33, 26, 11, (UBYTE *) "No header in file", NULL, GD_NoHeaderCGad, PLACETEXT_RIGHT, NULL, (APTR) NoHeaderCGadClicked,
  233, 17, 143, 13, (UBYTE *) "Text to save", NULL, GD_TextTGad, PLACETEXT_ABOVE, NULL, NULL,
  119, 53, 147, 13, (UBYTE *) "Use Format", NULL, GD_UseGad, PLACETEXT_IN, NULL, (APTR) UseGadClicked,
  343, 53, 147, 13, (UBYTE *) "No Format", NULL, GD_NoFormatGad, PLACETEXT_IN, NULL, (APTR) NoFormatGadClicked
};

static ULONG *FormatterGTags[] =
{
  (ULONG *) (GTST_MaxChars), (ULONG *) 100, (ULONG *) (TAG_DONE),
  (ULONG *) (GTST_MaxChars), (ULONG *) 100, (ULONG *) (TAG_DONE),
  (ULONG *) (TAG_DONE),
  (ULONG *) (TAG_DONE),
  (ULONG *) (TAG_DONE),
  (ULONG *) (GTTX_Text), (ULONG *) "This is text", (ULONG *) (GTTX_Border), (ULONG *) TRUE, (ULONG *) (TAG_DONE),
  (ULONG *) (TAG_DONE),
  (ULONG *) (TAG_DONE)
};

static int
UseGadClicked (void)
{
  TFormat.f_noformat = FALSE;

  strncpy (TFormat.f_prefix, gadgetbuff (FormatterGadgets[GD_PrefixSGad - GD_PrefixSGad]), 100);
  strncpy (TFormat.f_postfix, gadgetbuff (FormatterGadgets[GD_PostFixSGad - GD_PrefixSGad]), 100);

  sprintf (TFormat.f_format, "%s%s%s%s%s%s%s",
	   TFormat.f_prefix,
	   TFormat.f_blanks ? " " : "",
	   TFormat.f_quote ? "\"" : "",
	   "\%s",
	   TFormat.f_quote ? "\"" : "",
	   TFormat.f_blanks ? " " : "",
	   TFormat.f_postfix
    );

  return (FALSE);
}

static void
preview (void)
{
  char text[MAXWRITESIZE];

  DPOS;

  sprintf (text, "%s%s%s%s%s",
	   TFormat.f_blanks ? " " : "",
	   TFormat.f_quote ? "\"" : "",
	   "This is text",
	   TFormat.f_quote ? "\"" : "",
	   TFormat.f_blanks ? " " : "");

  GT_SetGadgetAttrs (FormatterGadgets[GD_TextTGad - GD_PrefixSGad], FormatterWnd,
		     NULL,
		     GTTX_Text, text,
		     TAG_DONE);

  (void) UseGadClicked ();

  return;
}

static int
PrefixSGadClicked (void)
{
  DPOS;

  strncpy (TFormat.f_prefix, gadgetbuff (FormatterGadgets[GD_PrefixSGad - GD_PrefixSGad]), 100);

  preview ();

  return TRUE;
}

static int
PostFixSGadClicked (void)
{
  DPOS;

  strncpy (TFormat.f_postfix, gadgetbuff (FormatterGadgets[GD_PostFixSGad - GD_PrefixSGad]), 100);

  preview ();

  return TRUE;
}

static int
BlankLeftCGadClicked (void)
{
  DPOS;

  TFormat.f_blanks = (TFormat.f_blanks ? FALSE : TRUE);

  preview ();

  return TRUE;
}

static int
QuoteCGadClicked (void)
{
  DPOS;

  TFormat.f_quote = (TFormat.f_quote ? FALSE : TRUE);

  preview ();

  return TRUE;
}

static int
NoHeaderCGadClicked (void)
{
  DPOS;

  TFormat.f_noheader = (TFormat.f_noheader ? FALSE : TRUE);

  return TRUE;
}

static int
NoFormatGadClicked (void)
{
  DPOS;

  TFormat.f_noformat = TRUE;
  TFormat.f_noheader = FALSE;

  return FALSE;
}

static int
OpenFormatterWindow (void)
{
  NEWGADGET ng;
  GADGET *g;
  UWORD lc, tc;
  UWORD wleft = FormatterLeft, wtop = FormatterTop, ww, wh;
  int gl[] =
  {GD_PrefixSGad - GD_PrefixSGad,
   GD_PostFixSGad - GD_PrefixSGad,
   GD_TextTGad - GD_PrefixSGad};

  DPOS;

  AdjustWindowDimensions (Scr, FormatterLeft, FormatterTop, FormatterWidth, FormatterHeight,
			  &wleft, &wtop, &ww, &wh);

  if (!(g = CreateContext (&FormatterGList)))
    return 1L;

  for (lc = 0, tc = 0; lc < Formatter_CNT; lc++)
    {
      CopyMem ((char *) &FormatterNGad[lc], (char *) &ng,
	       (long) sizeof (NEWGADGET));

      ng.ng_VisualInfo = VisualInfo;
      ng.ng_TextAttr = Font;
      ng.ng_LeftEdge = OffX + ComputeX (ng.ng_LeftEdge);
      ng.ng_TopEdge = OffY + ComputeY (ng.ng_TopEdge);
      ng.ng_Width = ComputeX (ng.ng_Width);
      ng.ng_Height = ComputeY (ng.ng_Height);

      FormatterGadgets[lc] = g = CreateGadgetA ((ULONG) FormatterGTypes[lc], g, &ng, (TAGITEM *) & FormatterGTags[tc]);

      makelabelvisible (FormatterGadgets[lc]);

      while (FormatterGTags[tc])
	tc += 2;
      tc++;

      if (NOT g)
	return 2L;
    }

  strcpy (FormatterWdt, get_vers (" - Output Formatter"));	/*GMD */

  if (!(FormatterWnd = OpenWindowTags (NULL,
				       WA_Left, wleft,
				       WA_Top, wtop,
				       WA_Width, ww,
				       WA_Height, wh,
				     WA_IDCMP, STRINGIDCMP | CHECKBOXIDCMP |
			       TEXTIDCMP | BUTTONIDCMP | IDCMP_CLOSEWINDOW |
				     IDCMP_REFRESHWINDOW | IDCMP_VANILLAKEY,
				 WA_Flags, WFLG_DRAGBAR | WFLG_DEPTHGADGET |
				     WFLG_CLOSEGADGET | WFLG_SMART_REFRESH |
				       WFLG_ACTIVATE | WFLG_RMBTRAP,
				       WA_Title, FormatterWdt,
				       WA_PubScreenFallBack, TRUE,
				       WA_PubScreen, Scr,
				       TAG_DONE)))
    return 4L;

  RefreshRastPort (FormatterWnd, FormatterGadgets, gl, 3, FALSE, FormatterGList);

  return NULL;
}

static int
HandleFormatterIDCMP (void)
{
  INTUIMESSAGE *m;
  int (*func) (void), ID;
  BOOL running = TRUE;

  DPOS;

  while (m = GT_GetIMsg (FormatterWnd->UserPort))
    {
      CopyMem ((char *) m, (char *) &FormatterMsg,
	       (long) sizeof (INTUIMESSAGE));

      GT_ReplyIMsg (m);

      switch (FormatterMsg.Class)
	{
	case IDCMP_REFRESHWINDOW:
	  GT_BeginRefresh (FormatterWnd);
	  GT_EndRefresh (FormatterWnd, TRUE);
	  break;

	case IDCMP_VANILLAKEY:
	  if ((char) FormatterMsg.Code == ESC)
	    running = FALSE;
	  break;

	case IDCMP_CLOSEWINDOW:
	  running = NoFormatGadClicked ();
	  break;

	case IDCMP_GADGETUP:
	  ID = ((GADGET *) FormatterMsg.IAddress)->GadgetID;

	  HandleHelp ((enum RSysNumbers) ID);

	  func = (int (*)()) ((GADGET *) FormatterMsg.IAddress)->UserData;
	  running = func ();
	  break;
	}
    }

  return running;
}

int
RSysFormatOutput (WINDOW * wind, char *format)
{
  APTR req = NULL;

  DPOS;

  if (!Flags.textformat)
    {
      strcpy (format, "%s");
      return TFormat.f_noheader;
    }

  CopyMem (&TFormatDef, &TFormat, sizeof (RSYS_fmt));

  if (OpenASysWindow (OpenFormatterWindow, NO_KILL))
    {
      PrintInfo ("Format output strings", SPEAK, 0);

      if (wind)
	req = LockWindow (wind);

      while (HandleFormatterIDCMP ());

      CloseASysWindow (&FormatterWnd, &FormatterGList, NULL);

      if (TFormat.f_noformat == FALSE)
	strcpy (format, TFormat.f_format);
      else
	strcpy (format, "%s");

      UnlockWindow (req);
    }

  return TFormat.f_noheader;
}