/**************************************************************************/
/*                                                                        */
/* Copyright (c) 2001, 2011 NoMachine (http://www.nomachine.com)          */
/* Copyright (c) 2008-2014 Oleksandr Shneyder <o.shneyder@phoca-gmbh.de>  */
/* Copyright (c) 2011-2016 Mike Gabriel <mike.gabriel@das-netzwerkteam.de>*/
/* Copyright (c) 2014-2016 Mihai Moldovan <ionic@ionic.de>                */
/* Copyright (c) 2014-2016 Ulrich Sibiller <uli42@gmx.de>                 */
/* Copyright (c) 2015-2016 Qindel Group (http://www.qindel.com)           */
/*                                                                        */
/* NXAGENT, NX protocol compression and NX extensions to this software    */
/* are copyright of the aforementioned persons and companies.             */
/*                                                                        */
/* Redistribution and use of the present software is allowed according    */
/* to terms specified in the file LICENSE which comes in the source       */
/* distribution.                                                          */
/*                                                                        */
/* All rights reserved.                                                   */
/*                                                                        */
/* NOTE: This software has received contributions from various other      */
/* contributors, only the core maintainers and supporters are listed as   */
/* copyright holders. Please contact us, if you feel you should be listed */
/* as copyright holder, as well.                                          */
/*                                                                        */
/**************************************************************************/

#include "windowstr.h"
#include "scrnintstr.h"

#include "Agent.h"

#include "Xlib.h"
#include "Xutil.h"

#include "Display.h"
#include "Splash.h"
#include "Screen.h"
#include "Windows.h"
#include "Atoms.h"
#include "Trap.h"
#include "Init.h"

/*
 * Set here the required log level.
 */

#define PANIC
#define WARNING
#undef  TEST
#undef  DEBUG

/*
 * Colors used to paint the splash screen.
 */

#define LOGOWHITE       0xffffff
#define LOGOBLACK       0x000000
#define LOGODARKGRAY    0x222222
#define LOGOLIGHTGRAY   0xbbbbbb

static XlibPixmap nxagentPixmapLogo;
static XlibWindow nxagentSplashWindow = None;
static Bool nxagentWMPassed = False;

static void nxagentPaintLogo(XlibWindow win, int scale, int width, int height);

void nxagentShowSplashWindow(XlibWindow parentWindow)
{
  /*
   * Show splash window only when running as X2Go Agent
   */
  if(!nxagentX2go)
    return;

  #ifdef TEST
  fprintf(stderr, "%s: Got called.\n", __func__);
  #endif

  #ifdef NXAGENT_TIMESTAMP
  {
    extern unsigned long startTime;

    fprintf(stderr, "%s: Initializing splash start at [%d] milliseconds.\n", __func__,
            GetTimeInMillis() - startTime);
  }
  #endif

  #ifdef NXAGENT_ONSTART
  XSetSelectionOwner(nxagentDisplay, nxagentReadyAtom, None, CurrentTime);
  #endif

  nxagentWMPassed = False;

  XWindowAttributes getAttributes;

  /*
   * This would cause a GetWindowAttributes and a GetGeometry
   * (asynchronous) reply. We use instead the geometry requested by
   * the user for the agent window.
   *
   * XGetWindowAttributes(nxagentDisplay, parentWindow, &getAttributes);
   */

  /*
   * During reconnection we draw the splash over the default window
   * and not over the root window because it would be hidden by other
   * windows.
   */

  if (nxagentReconnectTrap)
  {
    getAttributes.x = nxagentOption(RootX);
    getAttributes.y = nxagentOption(RootY);
  }
  else
  {
    getAttributes.x = 0;
    getAttributes.y = 0;
  }

  getAttributes.width  = nxagentOption(RootWidth);
  getAttributes.height = nxagentOption(RootHeight);

  #ifdef TEST
  fprintf(stderr, "%s: Going to create new splash window.\n", __func__);
  #endif

  nxagentSplashWindow =
      XCreateSimpleWindow(nxagentDisplay,
                          parentWindow,
                          getAttributes.x, getAttributes.y,
                          getAttributes.width, getAttributes.height,
                          0,
                          WhitePixel (nxagentDisplay, 0),
                          BlackPixel (nxagentDisplay, 0));

  #ifdef TEST
  fprintf(stderr, "%s: Created new splash window with id [0x%lx].\n", __func__,
              nxagentSplashWindow);
  #endif

  nxagentPaintLogo(nxagentSplashWindow, 1, getAttributes.width, getAttributes.height);
  XMapRaised (nxagentDisplay, nxagentSplashWindow);
  XWindowChanges values = {.stack_mode = Above};
  XConfigureWindow(nxagentDisplay, nxagentSplashWindow, CWStackMode, &values);
  XSetWindowAttributes attributes = {.override_redirect = True};
  XChangeWindowAttributes(nxagentDisplay, nxagentSplashWindow, CWOverrideRedirect, &attributes);

  #ifdef NXAGENT_TIMESTAMP
  {
    extern unsigned long startTime;
    fprintf(stderr, "%s: Splash ends [%d] milliseconds.\n", __func__,
            GetTimeInMillis() - startTime);
  }
  #endif
}

Bool nxagentHaveSplashWindow(void)
{
  return (nxagentSplashWindow != None);
}

void nxagentPaintLogo(XlibWindow win, int scale, int width, int height)
{
  XlibGC gc = XCreateGC(nxagentDisplay, nxagentSplashWindow, 0, NULL);

  int depth = DefaultDepth(nxagentDisplay, DefaultScreen(nxagentDisplay));

  #ifdef DEBUG
  fprintf(stderr, "%s: Got called.\n", __func__);
  #endif

  #ifdef NXAGENT_LOGO_DEBUG
  fprintf(stderr, "%s: begin\n", __func__);
  fprintf(stderr, "%s: gen params are: w=%d h=%d d=%d w=%x b=%x g1=%x g2=%x \n", __func__,
          width, height, depth,
          nxagentLogoWhite, nxagentLogoBlack, nxagentLogoDarkGray, nxagentLogoLightGray);
  #endif

  int w = width/scale;
  int h = height/scale;

  int c;
  if (height > width)
  {
    c = w/30;
  }
  else
  {
    c = w/48;
  }

  XSetFunction(nxagentDisplay, gc, GXcopy);
  XSetFillStyle(nxagentDisplay, gc, FillSolid);
  nxagentPixmapLogo = XCreatePixmap(nxagentDisplay, win, width, height, depth);

  if (!nxagentPixmapLogo)
  {
    return;
  }

  if (blackRoot)
  {
    XSetForeground(nxagentDisplay, gc, LOGOBLACK);
    XSetBackground(nxagentDisplay, gc, LOGOWHITE);
  }
  else
  {
    XSetForeground(nxagentDisplay, gc, LOGOWHITE);
    XSetBackground(nxagentDisplay, gc, LOGOBLACK);
  }

  XPoint rect[4];
  rect[0].x = 0;               rect[0].y = 0;
  rect[1].x = 0;               rect[1].y = h;
  rect[2].x = w;               rect[2].y = h;
  rect[3].x = w;               rect[3].y = 0;

  /* paint background */
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  #ifdef NXAGENT_LOGO_DEBUG
  fprintf(stderr, "%s: filled background\n", __func__);
  #endif

  if (blackRoot)
    XSetForeground(nxagentDisplay, gc, LOGODARKGRAY);
  else
    XSetForeground(nxagentDisplay, gc, LOGOLIGHTGRAY);


  #ifdef NXAGENT_LOGO_DEBUG
  /* mark center */
  XDrawLine(nxagentDisplay, nxagentPixmapLogo, gc, 0, h/2, w, h/2);
  XDrawLine(nxagentDisplay, nxagentPixmapLogo, gc, w/2, 0, w/2, h);
  #endif

  /*
   * Draw X2GO Logo
   */

#define WX 5 /* width of "X" */
#define W2 4 /* width of "2" */
#define WG 4 /* width of "G" */
#define WO 4 /* width of "O" */
#define SPC 1 /* width of space between letters */
#define H 8 /* height of letters */

#define TOTALW (WX + SPC + W2 + SPC + WG + SPC + WO) /* total width of logo */
#define XSTART ((w - (TOTALW * c)) / 2) /* x position of whole logo */
#define YSTART ((h - (H * c)) / 2) /* y position whole logo */

#define X(offset) (XSTART + (offset) * c)
#define Y(offset) (YSTART + (offset) * c)

  /*
   * Start 'X'.
   */

  rect[0].x = X(1);               rect[0].y = Y(0);
  rect[1].x = X(0);               rect[1].y = Y(0);
  rect[2].x = X(4);               rect[2].y = Y(8);
  rect[3].x = X(5);               rect[3].y = Y(8);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(4);               rect[0].y = Y(0);
  rect[1].x = X(5);               rect[1].y = Y(0);
  rect[2].x = X(1);               rect[2].y = Y(8);
  rect[3].x = X(0);               rect[3].y = Y(8);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  /*
   * End 'X'.
   */

#undef X
#define X(offset) (XSTART + (SPC + WX + offset) * c)

  /*
   * Start '2'.
   */

  rect[0].x = X(0);               rect[0].y = Y(0);
  rect[1].x = X(1);               rect[1].y = Y(0);
  rect[2].x = X(1);               rect[2].y = Y(2);
  rect[3].x = X(0);               rect[3].y = Y(2);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(0);               rect[0].y = Y(0);
  rect[1].x = X(4);               rect[1].y = Y(0);
  rect[2].x = X(4);               rect[2].y = Y(1);
  rect[3].x = X(0);               rect[3].y = Y(1);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(3);               rect[0].y = Y(0);
  rect[1].x = X(4);               rect[1].y = Y(0);
  rect[2].x = X(4);               rect[2].y = Y(3);
  rect[3].x = X(3);               rect[3].y = Y(3);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(4);               rect[0].y = Y(3);
  rect[1].x = X(3);               rect[1].y = Y(3);
  rect[2].x = X(0);               rect[2].y = Y(7);
  rect[3].x = X(1);               rect[3].y = Y(7);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(0);               rect[0].y = Y(7);
  rect[1].x = X(4);               rect[1].y = Y(7);
  rect[2].x = X(4);               rect[2].y = Y(8);
  rect[3].x = X(0);               rect[3].y = Y(8);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  /*
   * End '2'.
   */

#undef X
#define X(offset) (XSTART + (SPC + WX + SPC + W2 + offset) * c)

  /*
   * Start 'G'.
   */

  rect[0].x = X(0);               rect[0].y = Y(0);
  rect[1].x = X(4);               rect[1].y = Y(0);
  rect[2].x = X(4);               rect[2].y = Y(1);
  rect[3].x = X(0);               rect[3].y = Y(1);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(0);               rect[0].y = Y(0);
  rect[1].x = X(1);               rect[1].y = Y(0);
  rect[2].x = X(1);               rect[2].y = Y(8);
  rect[3].x = X(0);               rect[3].y = Y(8);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(0);               rect[0].y = Y(7);
  rect[1].x = X(4);               rect[1].y = Y(7);
  rect[2].x = X(4);               rect[2].y = Y(8);
  rect[3].x = X(0);               rect[3].y = Y(8);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(3);               rect[0].y = Y(0);
  rect[1].x = X(4);               rect[1].y = Y(0);
  rect[2].x = X(4);               rect[2].y = Y(2);
  rect[3].x = X(3);               rect[3].y = Y(2);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(3);               rect[0].y = Y(5);
  rect[1].x = X(4);               rect[1].y = Y(5);
  rect[2].x = X(4);               rect[2].y = Y(8);
  rect[3].x = X(3);               rect[3].y = Y(8);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(2);               rect[0].y = Y(4);
  rect[1].x = X(4);               rect[1].y = Y(4);
  rect[2].x = X(4);               rect[2].y = Y(5);
  rect[3].x = X(2);               rect[3].y = Y(5);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);
  /*
   * End 'G'.
   */

#undef X
#define X(offset) (XSTART + (SPC + WX + SPC + W2 + SPC + WG + offset) * c)

  /*
   * Start 'O'.
   */

  rect[0].x = X(0);               rect[0].y = Y(0);
  rect[1].x = X(4);               rect[1].y = Y(0);
  rect[2].x = X(4);               rect[2].y = Y(1);
  rect[3].x = X(0);               rect[3].y = Y(1);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(0);               rect[0].y = Y(8);
  rect[1].x = X(4);               rect[1].y = Y(8);
  rect[2].x = X(4);               rect[2].y = Y(7);
  rect[3].x = X(0);               rect[3].y = Y(7);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(0);               rect[0].y = Y(0);
  rect[1].x = X(1);               rect[1].y = Y(0);
  rect[2].x = X(1);               rect[2].y = Y(8);
  rect[3].x = X(0);               rect[3].y = Y(8);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  rect[0].x = X(3);               rect[0].y = Y(0);
  rect[1].x = X(4);               rect[1].y = Y(0);
  rect[2].x = X(4);               rect[2].y = Y(8);
  rect[3].x = X(3);               rect[3].y = Y(8);
  XFillPolygon(nxagentDisplay, nxagentPixmapLogo, gc, rect, 4, Convex, CoordModeOrigin);

  /*
   * End 'O'.
   */

  XSetWindowBackgroundPixmap(nxagentDisplay, win, nxagentPixmapLogo);

  XFreeGC(nxagentDisplay, gc);

  #ifdef NXAGENT_LOGO_DEBUG
  fprintf(stderr, "%s: end\n", __func__);
  #endif
}

void nxagentRemoveSplashWindow(void)
{
  if (nxagentWMPassed)
    return;

  if (nxagentReconnectTrap)
    return;

  #ifdef TEST
  fprintf(stderr, "%s: Destroying the splash window.\n", __func__);
  #endif

  if (!nxagentWMPassed)
  {
    #ifdef NXAGENT_ONSTART
    XSetSelectionOwner(nxagentDisplay, nxagentReadyAtom,
                          nxagentDefaultWindows[0], CurrentTime);
    #endif

    nxagentWMPassed = True;
  }

  if (nxagentSplashWindow != None)
  {
    XDestroyWindow(nxagentDisplay, nxagentSplashWindow);

    nxagentSplashWindow = None;
    nxagentRefreshWindows(screenInfo.screens[0]->root);

    #ifdef TEST
    fprintf(stderr, "%s: setting the ownership of %s (%d) on window [0x%lx]\n", __func__,
                "NX_CUT_BUFFER_SERVER", (int)serverTransToAgentProperty, nxagentWindow(screenInfo.screens[0]->root));
    #endif

    XSetSelectionOwner(nxagentDisplay, serverTransToAgentProperty,
                           nxagentWindow(screenInfo.screens[0]->root), CurrentTime);
  }

  if (nxagentPixmapLogo)
  {
    XFreePixmap(nxagentDisplay, nxagentPixmapLogo);
    nxagentPixmapLogo = (XlibPixmap) 0;
  }
}