/**************************************************************************/
/*                                                                        */
/* Copyright (c) 2001, 2007 NoMachine, http://www.nomachine.com/.         */
/*                                                                        */
/* NXCOMPEXT, NX protocol compression and NX extensions to this software  */
/* are copyright of NoMachine. Redistribution and use of the present      */
/* software is allowed according to terms specified in the file LICENSE   */
/* which comes in the source distribution.                                */
/*                                                                        */
/* Check http://www.nomachine.com/licensing.html for applicability.       */
/*                                                                        */
/* NX and NoMachine are trademarks of NoMachine S.r.l.                    */
/*                                                                        */
/* All rigths reserved.                                                   */
/*                                                                        */
/**************************************************************************/

#include <sys/socket.h>

#ifndef __sun
#include <strings.h>
#endif

#include "NX.h"

#include "dix.h"
#include "os.h"

#define NEED_REPLIES

/*
 * Needed to enable definition of the callback
 * functions.
 */

#define NX_TRANS_SOCKET

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

#include "NXlib.h"
#include "NXproto.h"
#include "NXpack.h"

#include "Clean.h"
#include "Mask.h"
#include "Colormap.h"
#include "Alpha.h"
#include "Bitmap.h"
#include "Jpeg.h"
#include "Pgn.h"
#include "Rgb.h"
#include "Rle.h"
#include "Z.h"

#include "MD5.h"

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

/*
 * Maximum number of colors allowed in
 * Png encoding.
 */

#define NB_COLOR_MAX          256

/*
 * Dummy error handlers used internally to catch
 * Xlib failures in replies.
 */

static int _NXInternalReplyErrorFunction(Display *dpy, XErrorEvent *error);

static void _NXInternalLostSequenceFunction(Display *dpy, unsigned long newseq,
                                                unsigned long lastseq, unsigned int type);

/*
 * Resource ids that can be requested by
 * the client for use in split or unpack
 * operations.
 */

static unsigned char _NXSplitResources[NXNumberOfResources];
static unsigned char _NXUnpackResources[NXNumberOfResources];

static Display *_NXDisplayInitialized = NULL;

/*
 * Used in asynchronous handling of
 * GetImage replies.
 */

typedef struct
{
  unsigned long  sequence;
  unsigned int   resource;
  unsigned long  mask;
  int            format;
  int            width;
  int            height;
  _XAsyncHandler *handler;
  XImage         *image;
} _NXCollectImageState;

static _NXCollectImageState *_NXCollectedImages[NXNumberOfResources];

/*
 * Used in asynchronous handling of
 * GetProperty replies.
 */

typedef struct
{
  unsigned long  sequence;
  unsigned int   resource;
  Window         window;
  Atom           property;
  Atom           type;
  int            format;
  unsigned long  items;
  unsigned long  after;
  _XAsyncHandler *handler;
  char           *data;
} _NXCollectPropertyState;

static _NXCollectPropertyState *_NXCollectedProperties[NXNumberOfResources];

/*
 * Used in asynchronous handling of
 * GrabPointer replies.
 */

typedef struct
{
  unsigned long  sequence;
  unsigned int   resource;
  int            status;
  _XAsyncHandler *handler;
} _NXCollectGrabPointerState;

static _NXCollectGrabPointerState *_NXCollectedGrabPointers[NXNumberOfResources];

/*
 * Used in asynchronous handling of
 * GetInputFocus replies.
 */

typedef struct
{
  unsigned long  sequence;
  unsigned int   resource;
  Window         focus;
  int            revert_to;
  _XAsyncHandler *handler;
} _NXCollectInputFocusState;

static _NXCollectInputFocusState *_NXCollectedInputFocuses[NXNumberOfResources];

/*
 * Used by functions handling cache of
 * packed images.
 */

#define MD5_LENGTH            16

typedef struct
{
  md5_byte_t   *md5;
  XImage       *image;
  unsigned int method;
} _NXImageCacheEntry;

int NXImageCacheSize = 0;
int NXImageCacheHits = 0;
int NXImageCacheOps  = 0;

_NXImageCacheEntry *NXImageCache = NULL;

#ifdef DUMP

void _NXCacheDump(const char *label);

void _NXDumpData(const unsigned char *buffer, unsigned int size);

#endif

/*
 * From X11/PutImage.c.
 *
 * Cancel a GetReq operation, before doing
 * _XSend or Data.
 */

#if (defined(__STDC__) && !defined(UNIXCPP)) || defined(ANSICPP)
#define UnGetReq(name)\
    dpy->bufptr -= SIZEOF(x##name##Req);\
    dpy->request--
#else
#define UnGetReq(name)\
    dpy->bufptr -= SIZEOF(x/**/name/**/Req);\
    dpy->request--
#endif

#if (defined(__STDC__) && !defined(UNIXCPP)) || defined(ANSICPP)
#define UnGetEmptyReq()\
    dpy->bufptr -= 4;\
    dpy->request--
#else
#define UnGetEmptyReq(name)\
    dpy->bufptr -= 4;\
    dpy->request--
#endif

/*
 * From X11/ImUtil.c.
 */

extern int _XGetBitsPerPixel(Display *dpy, int depth);
extern int _XGetScanlinePad(Display *dpy, int depth);

#define ROUNDUP(nbytes, pad) (((nbytes) + ((pad) - 1)) & \
                                  ~(long)((pad) - 1))

static unsigned int DepthOnes(unsigned long mask)
{
  register unsigned long y;

  y = (mask >> 1) &033333333333;
  y = mask - y - ((y >>1) & 033333333333);
  return ((unsigned int) (((y + (y >> 3)) &
              030707070707) % 077));
}

#define CanMaskImage(image, mask) \
\
(image -> format == ZPixmap && mask != NULL && \
    (image -> depth == 32 || image -> depth == 24 || \
        (image -> depth == 16 && (image -> red_mask == 0xf800 && \
            image -> green_mask == 0x7e0 && image -> blue_mask == 0x1f))))

#define ShouldMaskImage(image, mask) (mask -> color_mask != 0xff)

/*
 * Initialize and reset the internal structures.
 */

extern int _NXInternalInitResources(Display *dpy);
extern int _NXInternalResetResources(Display *dpy);
extern int _NXInternalInitEncoders(Display *dpy);
extern int _NXInternalResetEncoders(Display *dpy);

int NXInitDisplay(Display *dpy)
{
  #ifdef TEST
  fprintf(stderr, "******NXInitDisplay: Called for display at [%p].\n", (void *) dpy);
  #endif

  if (_NXDisplayInitialized == NULL)
  {
    _NXInternalInitResources(dpy);

    _NXInternalInitEncoders(dpy);

    _NXDisplayInitialized = dpy;

    return 1;
  }

  #ifdef TEST
  fprintf(stderr, "******NXInitDisplay: WARNING! Internal structures already initialized.\n");
  #endif

  return 0;
}

int NXResetDisplay(Display *dpy)
{
  #ifdef TEST
  fprintf(stderr, "******NXResetDisplay: Called for display at [%p].\n", (void *) dpy);
  #endif

  if (_NXDisplayInitialized != NULL)
  {
    _NXInternalResetResources(dpy);

    _NXInternalResetEncoders(dpy);

    _NXDisplayInitialized = NULL;

    return 1;
  }

  #ifdef TEST
  fprintf(stderr, "******NXResetDisplay: WARNING! Internal structures already reset.\n");
  #endif

  return 0;
}

int _NXInternalInitResources(Display *dpy)
{
  return _NXInternalResetResources(dpy);
}

int _NXInternalResetResources(Display *dpy)
{
  int i;

  #ifdef TEST
  fprintf(stderr, "******_NXInternalResetResources: Clearing all the internal structures.\n");
  #endif

  for (i = 0; i < NXNumberOfResources; i++)
  {
    _NXSplitResources[i]  = 0;
    _NXUnpackResources[i] = 0;

    if (_NXCollectedImages[i] != NULL)
    {
      #ifdef TEST
      fprintf(stderr, "******_NXInternalResetResources: WARNING! Clearing collect image data "
                  "for resource [%d].\n", i);
      #endif

      if (_NXCollectedImages[i] -> handler != NULL)
      {
        DeqAsyncHandler(dpy, _NXCollectedImages[i] -> handler);

        Xfree(_NXCollectedImages[i] -> handler);
      }

      if (_NXCollectedImages[i] -> image != NULL)
      {
        XDestroyImage(_NXCollectedImages[i] -> image);
      }

      Xfree(_NXCollectedImages[i]);

      _NXCollectedImages[i] = NULL;
    }

    if (_NXCollectedProperties[i] != NULL)
    {
      #ifdef TEST
      fprintf(stderr, "******_NXInternalResetResources: WARNING! Clearing collect property data "
                  "for resource [%d].\n", i);
      #endif

      if (_NXCollectedProperties[i] -> handler != NULL)
      {
        DeqAsyncHandler(dpy, _NXCollectedProperties[i] -> handler);

        Xfree(_NXCollectedProperties[i] -> handler);
      }

      if (_NXCollectedProperties[i] -> data != NULL)
      {
        Xfree(_NXCollectedProperties[i] -> data);
      }

      Xfree(_NXCollectedProperties[i]);

      _NXCollectedProperties[i] = NULL;
    }

    if (_NXCollectedGrabPointers[i] != NULL)
    {
      #ifdef TEST
      fprintf(stderr, "******_NXInternalResetResources: WARNING! Clearing grab pointer data "
                  "for resource [%d].\n", i);
      #endif

      if (_NXCollectedGrabPointers[i] -> handler != NULL)
      {
        DeqAsyncHandler(dpy, _NXCollectedGrabPointers[i] -> handler);

        Xfree(_NXCollectedGrabPointers[i] -> handler);
      }

      Xfree(_NXCollectedGrabPointers[i]);

      _NXCollectedGrabPointers[i] = NULL;
    }

    if (_NXCollectedInputFocuses[i] != NULL)
    {
      #ifdef TEST
      fprintf(stderr, "******_NXInternalResetResources: WARNING! Clearing collect input focus data "
                  "for resource [%d].\n", i);
      #endif

      if (_NXCollectedInputFocuses[i] -> handler != NULL)
      {
        DeqAsyncHandler(dpy, _NXCollectedInputFocuses[i] -> handler);

        Xfree(_NXCollectedInputFocuses[i] -> handler);
      }

      Xfree(_NXCollectedInputFocuses[i]);

      _NXCollectedInputFocuses[i] = NULL;
    }
  }

  return 1;
}

int _NXInternalInitEncoders(Display *dpy)
{
  ZInitEncoder();

  return 1;
}

int _NXInternalResetEncoders(Display *dpy)
{
  ZResetEncoder();

  return 1;
}

int NXSetDisplayPolicy(Display *dpy, int policy)
{
  if (policy == NXPolicyImmediate)
  {
    return NXTransPolicy(NX_FD_ANY, NX_POLICY_IMMEDIATE);
  }
  else
  {
    return NXTransPolicy(NX_FD_ANY, NX_POLICY_DEFERRED);
  }
}

int NXSetDisplayBuffer(Display *dpy, int size)
{
  /*
   * This is not multi-thread safe, so,
   * if you have threads, be sure that
   * they are stopped.
   */

  char *buffer;

  XFlush(dpy);

  if (dpy -> bufmax - size == dpy -> buffer)
  {
    #ifdef TEST
    fprintf(stderr, "******NXSetDisplayBuffer: Nothing to do with buffer size matching.\n");
    #endif

    return 1;
  }
  else if (dpy -> bufptr != dpy -> buffer)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXSetDisplayBuffer: PANIC! The display buffer is not empty.\n");
    #endif

    return -1;
  }
  else if ((buffer = Xcalloc(1, size)) == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXSetDisplayBuffer: PANIC! Can't allocate [%d] bytes for the buffer.\n",
                size);
    #endif

    return -1;
  }

  if (dpy -> buffer != NULL)
  {
    Xfree(dpy -> buffer);
  }

  dpy -> buffer = buffer;
  dpy -> bufptr = dpy -> buffer;
  dpy -> bufmax = dpy -> bufptr + size;

  #ifdef TEST
  fprintf(stderr, "******NXSetDisplayBuffer: Set the display output buffer size to [%d].\n",
              size);
  #endif

  return 1;
}

/*
 * If set, the Popen() function in the X server
 * wil remove the LD_LIBRARY_PATH variable from
 * the environment before calling the execl()
 * function on the child process.
 */

int NXUnsetLibraryPath(int value)
{
  int previous = _NXUnsetLibraryPath;

  _NXUnsetLibraryPath = value;

  #ifdef TEST
  fprintf(stderr, "******NXUnsetLibraryPath: Set the flag to [%d] with previous value [%d].\n",
              value, previous);
  #endif

  return previous;
}

/*
 * If set, the Xlib I/O error handler will simply
 * return, instead of quitting the program. This
 * leaves to the application the responsibility
 * of checking the state of the XlibDisplayIOEr-
 * ror flag.
 */

int NXHandleDisplayError(int value)
{
  int previous = _NXHandleDisplayError;

  _NXHandleDisplayError = value;

  #ifdef TEST
  fprintf(stderr, "******NXHandleDisplayError: Set the flag to [%d] with previous value [%d].\n",
              value, previous);
  #endif

  return previous;
}

/*
 * Shutdown the display descriptor and force Xlib
 * to set the I/O error flag.
 */

Bool NXForceDisplayError(Display *dpy)
{
  if (dpy != NULL)
  {
    NXTransClose(dpy -> fd);

    if (!(dpy -> flags & XlibDisplayIOError))
    {
      shutdown(dpy -> fd, SHUT_RDWR);

      _XIOError(dpy);
    }

    return 1;
  }

  return 0;
}

/*
 * Check if the display has become invalid. Similarly
 * to the modified Xlib, we call the predicate funct-
 * ion with the value of the XlibDisplayIOError flag
 * only if the I/O error was not encountered already.
 * The application can use this function to query the
 * XlibDisplayIOError flag because Xlib doesn't expose
 * the internals of the display structure to the appli-
 * cation.
 */

int NXDisplayError(Display *dpy)
{
  if (dpy != NULL)
  {
    return (_XGetIOError(dpy) ||
                (_NXDisplayErrorFunction != NULL &&
                    (*_NXDisplayErrorFunction)(dpy, _XGetIOError(dpy))));
  }

  return 1;
}

/*
 * Various queries related to the state of the
 * display connection.
 */

int NXDisplayReadable(Display *dpy)
{
  int result;
  int readable;

  result = NXTransReadable(dpy -> fd, &readable);

  if (result == 0)
  {
    #ifdef DEBUG
    fprintf(stderr, "******NXDisplayReadable: Returning [%d] bytes readable from fd [%d].\n",
                readable, dpy -> fd);
    #endif

    return readable;
  }

  #ifdef DEBUG
  fprintf(stderr, "******NXDisplayReadable: WARNING! Error detected on display fd [%d].\n",
              dpy -> fd);
  #endif

  return -1;
}

int NXDisplayFlushable(Display *dpy)
{
  #ifdef DEBUG

  int flushable;

  flushable = NXTransFlushable(dpy -> fd) +
                  (dpy -> bufptr - dpy -> buffer);

  fprintf(stderr, "******NXDisplayFlushable: Returning [%d+%d=%d] bytes flushable "
              "to fd [%d].\n", (int) (dpy -> bufptr - dpy -> buffer),
                  (int) (flushable - (dpy -> bufptr - dpy -> buffer)),
                      flushable, dpy -> fd);

  return flushable;

  #else

  return NXTransFlushable(dpy -> fd) + (dpy -> bufptr - dpy -> buffer);

  #endif
}

int NXDisplayCongestion(Display *dpy)
{
  #ifdef DEBUG

  int congestion = NXTransCongestion(dpy -> fd);

  fprintf(stderr, "******NXDisplayCongestion: Returning [%d] as congestion level for fd [%d].\n",
              congestion, dpy -> fd);

  return congestion;

  #else

  return NXTransCongestion(dpy -> fd);

  #endif
}

int NXFlushDisplay(Display *dpy, int what)
{
  if (!(dpy -> flags & XlibDisplayWriting) &&
          dpy -> bufptr - dpy -> buffer > 0)
  {
    #ifdef DEBUG
    fprintf(stderr, "******NXFlushDisplay: Writing with [%d] bytes in the buffer.\n",
            (int) (dpy -> bufptr - dpy -> buffer));
    #endif

    XFlush(dpy);
  }

  if (what == NXFlushBuffer)
  {
    return 0;
  }

  #ifdef DEBUG
  fprintf(stderr, "******NXFlushDisplay: Flushing with [%d] bytes in the NX transport.\n",
              NXDisplayFlushable(dpy));
  #endif

  return NXTransFlush(dpy -> fd);
}

NXDisplayErrorPredicate NXSetDisplayErrorPredicate(NXDisplayErrorPredicate predicate)
{
  NXDisplayErrorPredicate previous = _NXDisplayErrorFunction;

  _NXDisplayErrorFunction = predicate;

  #ifdef TEST
  fprintf(stderr, "******NXSetDisplayErrorPredicate: Set the predicate to [%p] with previous value [%p].\n",
              predicate, previous);
  #endif

  return previous;
}

NXDisplayBlockHandler NXSetDisplayBlockHandler(NXDisplayBlockHandler handler)
{
  NXDisplayBlockHandler previous = _NXDisplayBlockFunction;

  _NXDisplayBlockFunction = handler;

  #ifdef TEST
  fprintf(stderr, "******NXSetDisplayBlockHandler: Set the handler to [%p] with previous value [%p].\n",
              handler, previous);
  #endif

  return previous;
}

NXDisplayWriteHandler NXSetDisplayWriteHandler(NXDisplayWriteHandler handler)
{
  NXDisplayWriteHandler previous = _NXDisplayWriteFunction;

  _NXDisplayWriteFunction = handler;

  #ifdef TEST
  fprintf(stderr, "******NXSetDisplayWriteHandler: Set the handler to [%p] with previous value [%p].\n",
              handler, previous);
  #endif

  return previous;
}

NXDisplayFlushHandler NXSetDisplayFlushHandler(NXDisplayFlushHandler handler, Display *display)
{
  NXDisplayFlushHandler previous = _NXDisplayFlushFunction;

  _NXDisplayFlushFunction = handler;

  NXTransHandler(NX_FD_ANY, NX_HANDLER_FLUSH,
                     (void (*)(void *, int)) handler, (void *) display);

  #ifdef TEST
  fprintf(stderr, "******NXSetDisplayFlushHandler: Set the handler to [%p] with display [%p] "
              "and previous value [%p].\n", handler, display, previous);
  #endif

  return previous;
}

NXDisplayStatisticsHandler NXSetDisplayStatisticsHandler(NXDisplayStatisticsHandler handler, char **buffer)
{
  NXDisplayStatisticsHandler previous = _NXDisplayStatisticsFunction;

  _NXDisplayStatisticsFunction = handler;

  /*
   * Propagate the handler.
   */

  NXTransHandler(NX_FD_ANY, NX_HANDLER_STATISTICS,
                     (void (*)(void *, int)) handler, (void *) buffer);

  #ifdef TEST
  fprintf(stderr, "******NXSetDisplayStatisticsHandler: Set the handler to [%p] with buffer pointer [%p] "
              "and previous value [%p].\n", handler, buffer, previous);
  #endif

  return previous;
}

NXLostSequenceHandler NXSetLostSequenceHandler(NXLostSequenceHandler handler)
{
  NXLostSequenceHandler previous = _NXLostSequenceFunction;

  _NXLostSequenceFunction = handler;

  #ifdef TEST
  fprintf(stderr, "******NXSetLostSequenceHandler: Set the handler to [%p] with previous value [%p].\n",
              handler, previous);
  #endif

  return previous;
}

int _NXInternalReplyErrorFunction(Display *dpy, XErrorEvent *error)
{
  #ifdef TEST
  fprintf(stderr, "******_NXInternalReplyErrorFunction: Internal error handler called.\n");
  #endif

  return 0;
}

void _NXInternalLostSequenceFunction(Display *dpy, unsigned long newseq,
                                         unsigned long lastseq, unsigned int type)
{
  #ifdef TEST

  fprintf(stderr, "******_NXInternalLostSequenceFunction: WARNING! Sequence lost with new "
              "sequence %ld last request %ld.\n", newseq, dpy -> request);

  /*
   * TODO: Reply or event info must be implemented.
   *
   * fprintf(stderr, "******_NXInternalLostSequenceFunction: WARNING! Expected event or reply "
   *             "was %ld with sequence %ld.\n", (long) rep -> type, (long) rep -> sequenceNumber);
   */

  fprintf(stderr, "******_NXInternalLostSequenceFunction: WARNING! Last sequence read "
              "was %ld display request is %ld.\n", lastseq & 0xffff, dpy -> request & 0xffff);

  #endif
}

Status NXGetControlParameters(Display *dpy, unsigned int *link_type, unsigned int *local_major,
                                  unsigned int *local_minor, unsigned int *local_patch,
                                      unsigned int *remote_major, unsigned int *remote_minor,
                                          unsigned int *remote_patch, int *split_timeout, int *motion_timeout,
                                              int *split_mode, int *split_size, unsigned int *pack_method,
                                                  unsigned int *pack_quality, int *data_level, int *stream_level,
                                                      int *delta_level, unsigned int *load_cache,
                                                          unsigned int *save_cache, unsigned int *startup_cache)
{
  xNXGetControlParametersReply rep;

  register xReq *req;

  LockDisplay(dpy);

  GetEmptyReq(NXGetControlParameters, req);

  #ifdef TEST
  fprintf(stderr, "******NXGetControlParameters: Sending message opcode [%d].\n",
              X_NXGetControlParameters);
  #endif

  if (_XReply(dpy, (xReply *) &rep, 0, xTrue) == xFalse)
  {
    #ifdef TEST
    fprintf(stderr, "******NXGetControlParameters: Error receiving reply.\n");
    #endif

    UnlockDisplay(dpy);

    SyncHandle();

    return 0;
  }

  #ifdef TEST
  fprintf(stderr, "******NXGetControlParameters: Got reply with link type [%u].\n", rep.linkType);

  fprintf(stderr, "******NXGetControlParameters: Local protocol major [%u] minor [%u] patch [%u].\n",
              rep.localMajor, rep.localMinor, rep.localPatch);

  fprintf(stderr, "******NXGetControlParameters: Remote protocol major [%u] minor [%u] patch [%u].\n",
              rep.remoteMajor, rep.remoteMinor, rep.remotePatch);

  fprintf(stderr, "******NXGetControlParameters: Split timeout [%d] motion timeout [%d].\n",
              (int) rep.splitTimeout, (int) rep.motionTimeout);

  fprintf(stderr, "******NXGetControlParameters: Split mode [%d] split size [%d].\n",
              (int) rep.splitMode, (int) rep.splitSize);

  fprintf(stderr, "******NXGetControlParameters: Preferred pack method [%d] pack quality [%d].\n",
              (int) rep.packMethod, (int) rep.packQuality);

  fprintf(stderr, "******NXGetControlParameters: Data level [%d] stream level [%d] delta level [%d].\n",
              rep.dataLevel, rep.streamLevel, rep.deltaLevel);
  #endif

  *link_type = rep.linkType;

  *local_major = rep.localMajor;
  *local_minor = rep.localMinor;
  *local_patch = rep.localPatch;

  *remote_major = rep.remoteMajor;
  *remote_minor = rep.remoteMinor;
  *remote_patch = rep.remotePatch;

  *split_timeout  = rep.splitTimeout;
  *motion_timeout = rep.motionTimeout;

  *split_mode = rep.splitMode;
  *split_size = rep.splitSize;

  *pack_method  = rep.packMethod;
  *pack_quality = rep.packQuality;

  *data_level   = rep.dataLevel;
  *stream_level = rep.streamLevel;
  *delta_level  = rep.deltaLevel;

  *load_cache    = rep.loadCache;
  *save_cache    = rep.saveCache;
  *startup_cache = rep.startupCache;

  UnlockDisplay(dpy);

  SyncHandle();

  /*
   * Install our internal out-of-sync handler.
   */

  _NXLostSequenceFunction = _NXInternalLostSequenceFunction;

  return 1;
}

/*
 * Which unpack methods are supported by the
 * remote proxy?
 */

Status NXGetUnpackParameters(Display *dpy, unsigned int *entries, unsigned char supported_methods[])
{
  register xNXGetUnpackParametersReq *req;

  xNXGetUnpackParametersReply rep;

  register unsigned n;

  #ifdef TEST
  register unsigned i;
  #endif

  if (*entries < NXNumberOfPackMethods)
  {
    #ifdef TEST
    fprintf(stderr, "******NXGetUnpackParameters: Requested only [%d] entries while they should be [%d].\n",
                *entries, NXNumberOfPackMethods);
    #endif

    return 0;
  }

  LockDisplay(dpy);

  GetReq(NXGetUnpackParameters, req);

  req -> entries = *entries;

  #ifdef TEST
  fprintf(stderr, "******NXGetUnpackParameters: Sending message opcode [%d] with [%d] requested entries.\n",
              X_NXGetUnpackParameters, *entries);
  #endif

  if (_XReply(dpy, (xReply *) &rep, 0, xFalse) == xFalse || rep.length == 0)
  {
    #ifdef TEST
    fprintf(stderr, "******NXGetUnpackParameters: Error receiving reply.\n");
    #endif

    UnlockDisplay(dpy);

    SyncHandle();

    return 0;
  }

  if ((n = rep.length << 2) > *entries)
  {
    #ifdef TEST
    fprintf(stderr, "******NXGetUnpackParameters: Got [%d] bytes of reply data while they should be [%d].\n",
                n, *entries);
    #endif

    _XEatData(dpy, (unsigned long) n);

    UnlockDisplay(dpy);

    SyncHandle();

    return 0;
  }

  *entries = n;

  #ifdef TEST
  fprintf(stderr, "******NXGetUnpackParameters: Reading [%d] bytes of reply data.\n", n);
  #endif

  _XReadPad(dpy, (char *) supported_methods, n);

  #ifdef TEST

  fprintf(stderr, "******NXGetUnpackParameters: Got reply with methods: ");

  for (i = 0; i < n; i++)
  {
    if (supported_methods[i] != 0)
    {
      fprintf(stderr, "[%d]", i);
    }
  }
  
  fprintf(stderr, ".\n");

  #endif

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

/*
 * Query and enable the MIT-SHM support between the
 * proxy and the X server. The 'enable' flags must be
 * true if shared memory PutImages and PutPackedImages
 * are desired. On return the flags will say if support
 * has been successfully enabled.
 *
 * Note that the the client part is not useful and not
 * implemented. The size of the segment is chosen by
 * the proxy. The main purpose of the message is to
 * reserve the XID that will be used by the remote.
 */

Status NXGetShmemParameters(Display *dpy, unsigned int *enable_client,
                                unsigned int *enable_server, unsigned int *client_segment,
                                    unsigned int *server_segment, unsigned int *client_size,
                                        unsigned int *server_size)
{
  register xNXGetShmemParametersReq *req;

  register int stage;

  xNXGetShmemParametersReply rep;

  /*
   * Save the previous handler.
   */

  int (*handler)(Display *, XErrorEvent *) = _XErrorFunction;

  *client_segment = 0;
  *server_segment = 0;

  if (*enable_client)
  {
    *client_segment = XAllocID(dpy);
  }

  if (*enable_server)
  {
    *server_segment = XAllocID(dpy);
  }

  LockDisplay(dpy);

  _XErrorFunction = _NXInternalReplyErrorFunction;

  for (stage = 0; stage < 3; stage++)
  {
    GetReq(NXGetShmemParameters, req);

    req -> stage = stage;

    req -> enableClient = (*enable_client != 0 ? 1 : 0);
    req -> enableServer = (*enable_server != 0 ? 1 : 0);

    req -> clientSegment = *client_segment;
    req -> serverSegment = *server_segment;

    #ifdef TEST
    fprintf(stderr, "******NXGetShmemParameters: Sending message opcode [%d] at stage [%d].\n",
                X_NXGetShmemParameters, stage);
    #endif

    #ifdef TEST

    if (stage == 0)
    {
      fprintf(stderr, "******NXGetShmemParameters: Enable client is [%u] enable server is [%u].\n",
                  *enable_client, *enable_server);

      fprintf(stderr, "******NXGetShmemParameters: Client segment is [%u] server segment is [%u].\n",
                  *client_segment, *server_segment);
    }

    #endif

    /*
     * There isn't X server reply in the second stage.
     * The procedure followed at X server side is:
     *
     * Stage 0: Send X_QueryExtension and masquerade
     *          the reply.
     *
     * Stage 1: Allocate the shared memory and send
     *          X_ShmAttach to the X server.
     *
     * Stage 2: Send X_GetInputFocus and masquerade
     *          the reply.
     *
     * The last message is used to force a reply and
     * collect any X error caused by a failure in the
     * shared memory initialization.
     */

    if (stage != 1)
    {
      /*
       * We are only interested in the final reply.
       */

      if (_XReply(dpy, (xReply *) &rep, 0, xTrue) == xFalse)
      {
        #ifdef TEST
        fprintf(stderr, "******NXGetShmemParameters: Error receiving reply.\n");
        #endif

        _XErrorFunction = handler;

        UnlockDisplay(dpy);

        SyncHandle();

        return 0;
      }
    }
  }

  /*
   * Return the settings to client.
   */

  *enable_client = rep.clientEnabled;
  *enable_server = rep.serverEnabled;

  *client_size = rep.clientSize;
  *server_size = rep.serverSize;

  #ifdef TEST
  fprintf(stderr, "******NXGetShmemParameters: Got final reply with enabled client [%u] and server [%u].\n",
              *enable_client, *enable_server);

  fprintf(stderr, "******NXGetShmemParameters: Client segment size [%u] server segment size [%u].\n",
              *client_size, *server_size);
  #endif

  _XErrorFunction = handler;

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

/*
 * Get the path to the font server that can be used by the X
 * server to tunnel the font connections across the NX link.
 * The path actually represents the TCP port where the proxy
 * on the NX client side is listening. The agent can tempora-
 * rily enable the tunneling when it needs a font that is not
 * available on the client, for example when the session is
 * migrated from a different X server.
 *
 * Note that it is not advisable to use the font server chan-
 * nel for other purposes than restoring a font that is found
 * missing at the time the session is migrated to a different
 * display. This is because the agent implements a caching of
 * the list of fonts supported by the client as it needs to
 * advertise only the fonts that can be opened at both sides.
 */

Status NXGetFontParameters(Display *dpy, unsigned int path_length, char path_data[])
{
  register xNXGetFontParametersReq *req;

  xNXGetFontParametersReply rep;

  register unsigned n;

  #ifdef TEST
  register unsigned i;
  #endif

  if (path_length < 1)
  {
    #ifdef TEST
    fprintf(stderr, "******NXGetFontParameters: No room to store the reply.\n");
    #endif

    return 0;
  }

  *path_data = '\0';

  LockDisplay(dpy);

  GetReq(NXGetFontParameters, req);

  #ifdef TEST
  fprintf(stderr, "******NXGetFontParameters: Sending message opcode [%d].\n",
              X_NXGetFontParameters);
  #endif

  if (_XReply(dpy, (xReply *) &rep, 0, xFalse) == xFalse || rep.length == 0)
  {
    #ifdef TEST
    fprintf(stderr, "******NXGetFontParameters: Error receiving reply.\n");
    #endif

    UnlockDisplay(dpy);

    SyncHandle();

    return 0;
  }

  if ((n = rep.length << 2) > path_length)
  {
    #ifdef TEST
    fprintf(stderr, "******NXGetFontParameters: Got [%d] bytes of reply data with only room for [%d].\n",
                n, path_length);
    #endif

    _XEatData(dpy, (unsigned long) n);

    UnlockDisplay(dpy);

    SyncHandle();

    return 0;
  }

  #ifdef TEST
  fprintf(stderr, "******NXGetFontParameters: Reading [%d] bytes of reply data.\n", n);
  #endif

  _XReadPad(dpy, (char *) path_data, n);

  /*
   * Check if the string can be fully
   * contained by the buffer.
   */

  if (*path_data > path_length - 1)
  {
    #ifdef TEST
    fprintf(stderr, "******NXGetFontParameters: Inconsistent length in the returned string.\n");
    #endif

    UnlockDisplay(dpy);

    SyncHandle();

    return 0;
  }

  #ifdef TEST

  fprintf(stderr, "******NXGetFontParameters: Got font path of [%d] bytes and value [",
              (int) *path_data);

  for (i = 0; i < *path_data; i++)
  {
    fprintf(stderr, "%c", *(path_data + i + 1));
  }
  
  fprintf(stderr, "].\n");

  #endif

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

unsigned int NXAllocSplit(Display *dpy, unsigned int resource)
{
  if (resource == NXAnyResource)
  {
    for (resource = 0; resource < NXNumberOfResources; resource++)
    {
      if (_NXSplitResources[resource] == 0)
      {
        _NXSplitResources[resource] = 1;

        #ifdef TEST
        fprintf(stderr, "******NXAllocSplit: Reserved resource [%u].\n",
                    resource);
        #endif
    
        return resource;
      }
    }

    #ifdef TEST
    fprintf(stderr, "******NXAllocSplit: WARNING! Resource limit exausted.\n");
    #endif

    return NXNoResource;
  }
  else if (resource >= 0 && resource < NXNumberOfResources)
  {
    #ifdef TEST

    if (_NXSplitResources[resource] == 0)
    {
      fprintf(stderr, "******NXAllocSplit: Reserved requested resource [%u].\n",
                  resource);
    }
    else
    {
      fprintf(stderr, "******NXAllocSplit: Requested resource [%u] already reserved.\n",
                  resource);
    }

    #endif
    
    _NXSplitResources[resource] = 1;
  }

  #ifdef PANIC
  fprintf(stderr, "******NXAllocSplit: PANIC! Can't reserve requested resource [%u].\n",
              resource);
  #endif

  return NXNoResource;
}

/*
 * Tell the proxy to split the next messages.
 */

int NXStartSplit(Display *dpy, unsigned int resource, unsigned int mode)
{
  register xNXStartSplitReq *req;

  LockDisplay(dpy);

  GetReq(NXStartSplit, req);

  req -> resource = resource;
  req -> mode     = mode;

  #ifdef TEST
  fprintf(stderr, "******NXStartSplit: Sending opcode [%d] with resource [%d] mode [%d].\n",
              X_NXStartSplit, resource, mode);
  #endif

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

/*
 * Send the closure of the split sequence and
 * tell the proxy to send the results.
 */

int NXEndSplit(Display *dpy, unsigned int resource)
{
  register xNXEndSplitReq *req;

  LockDisplay(dpy);

  GetReq(NXEndSplit, req);

  req -> resource = resource;

  #ifdef TEST
  fprintf(stderr, "******NXEndSplit: Sending opcode [%d] with resource [%d].\n",
              X_NXStartSplit, resource);
  #endif

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

/*
 * This message must be sent whenever the proxy notifies
 * the client of the completion of a split. If the 'pro-
 * pagate' field is 0, the proxy will not send the ori-
 * ginal request to the X server, but will only free the
 * internal state.
 */

int NXCommitSplit(Display *dpy, unsigned int resource, unsigned int propagate,
                      unsigned char request, unsigned int position)
{
  register xNXCommitSplitReq *req;

  LockDisplay(dpy);

  GetReq(NXCommitSplit, req);

  req -> resource  = resource;
  req -> propagate = propagate;
  req -> request   = request;
  req -> position  = position;

  #ifdef TEST
  fprintf(stderr, "******NXCommitSplit: Sending opcode [%d] with resource [%d] propagate [%d] "
              "request [%d] position [%d].\n", X_NXCommitSplit, resource,
                  propagate, request, position);
  #endif

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

int NXAbortSplit(Display *dpy, unsigned int resource)
{
  register xNXAbortSplitReq *req;

  LockDisplay(dpy);

  GetReq(NXAbortSplit, req);

  #ifdef TEST
  fprintf(stderr, "******NXAbortSplit: Sending message opcode [%d] with resource [%u].\n",
              X_NXAbortSplit, resource);
  #endif

  req -> resource = resource;

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

int NXFinishSplit(Display *dpy, unsigned int resource)
{
  register xNXFinishSplitReq *req;

  LockDisplay(dpy);

  GetReq(NXFinishSplit, req);

  #ifdef TEST
  fprintf(stderr, "******NXFinishSplit: Sending message opcode [%d] with resource [%u].\n",
              X_NXFinishSplit, resource);
  #endif

  req -> resource = resource;

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

int NXFreeSplit(Display *dpy, unsigned int resource)
{
  register xNXFreeSplitReq *req;

  if (_NXSplitResources[resource] != 0)
  {
    LockDisplay(dpy);

    GetReq(NXFreeSplit, req);

    #ifdef TEST
    fprintf(stderr, "******NXFreeSplit: Sending message opcode [%d] with resource [%u].\n",
                X_NXFreeSplit, resource);
    #endif

    req -> resource = resource;

    UnlockDisplay(dpy);

    SyncHandle();

    #ifdef TEST
    fprintf(stderr, "******NXFreeSplit: Making the resource [%u] newly available.\n",
                resource);
    #endif

    _NXSplitResources[resource] = 0;
  }
  #ifdef TEST
  else
  {
    fprintf(stderr, "******NXFreeSplit: Nothing to do for resource [%u].\n",
                resource);
  }
  #endif

  return 1;
}

/*
 * Tell to remote proxy to discard expose events
 * of one or more types.
 */

int NXSetExposeParameters(Display *dpy, int expose, int graphics_expose, int no_expose)
{
  register xNXSetExposeParametersReq *req;

  LockDisplay(dpy);

  GetReq(NXSetExposeParameters, req);

  req -> expose         = expose;
  req -> graphicsExpose = graphics_expose;
  req -> noExpose       = no_expose;

  #ifdef TEST
  fprintf(stderr, "******NXSetExposeParameters: Sending message opcode [%d] with flags [%d][%d][%d].\n",
              X_NXSetExposeParameters, req -> expose, req -> graphicsExpose, req -> noExpose);
  #endif

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

/*
 * Tell to the local proxy how to handle the next requests.
 */

int NXSetCacheParameters(Display *dpy, int enable_cache, int enable_split,
                             int enable_save, int enable_load)
{
  register xNXSetCacheParametersReq *req;

  LockDisplay(dpy);

  GetReq(NXSetCacheParameters, req);

  req -> enableCache = enable_cache;
  req -> enableSplit = enable_split;
  req -> enableSave  = enable_save;
  req -> enableLoad  = enable_load;

  #ifdef TEST
  fprintf(stderr, "******NXSetCacheParameters: Sending message opcode [%d] with "
              "flags [%d][%d][%d][%d].\n", X_NXSetCacheParameters, req -> enableCache,
                  req -> enableSplit, req -> enableSave, req -> enableLoad);
  #endif

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

unsigned int NXAllocUnpack(Display *dpy, unsigned int resource)
{
  if (resource == NXAnyResource)
  {
    for (resource = 0; resource < NXNumberOfResources; resource++)
    {
      if (_NXUnpackResources[resource] == 0)
      {
        _NXUnpackResources[resource] = 1;

        #ifdef TEST
        fprintf(stderr, "******NXAllocUnpack: Reserved resource [%u].\n",
                    resource);
        #endif
    
        return resource;
      }
    }

    #ifdef TEST
    fprintf(stderr, "******NXAllocUnpack: WARNING! Resource limit exausted.\n");
    #endif

    return NXNoResource;
  }
  else if (resource >= 0 && resource < NXNumberOfResources)
  {
    #ifdef TEST

    if (_NXUnpackResources[resource] == 0)
    {
      fprintf(stderr, "******NXAllocUnpack: Reserved requested resource [%u].\n",
                  resource);
    }
    else
    {
      fprintf(stderr, "******NXAllocUnpack: Requested resource [%u] already reserved.\n",
                  resource);
    }

    #endif
    
    _NXUnpackResources[resource] = 1;
  }

  #ifdef PANIC
  fprintf(stderr, "******NXAllocUnpack: PANIC! Can't reserve requested resource [%u].\n",
              resource);
  #endif

  return NXNoResource;
}

int NXSetUnpackGeometry(Display *dpy, unsigned int resource, Visual *visual)
{
  register xNXSetUnpackGeometryReq *req;

  LockDisplay(dpy);

  GetReq(NXSetUnpackGeometry, req);

  req -> resource = resource;

  req -> depth1Bpp  = _XGetBitsPerPixel(dpy, 1);
  req -> depth4Bpp  = _XGetBitsPerPixel(dpy, 4);
  req -> depth8Bpp  = _XGetBitsPerPixel(dpy, 8);
  req -> depth16Bpp = _XGetBitsPerPixel(dpy, 16);
  req -> depth24Bpp = _XGetBitsPerPixel(dpy, 24);
  req -> depth32Bpp = _XGetBitsPerPixel(dpy, 32);

  if (visual != NULL)
  {
    req -> redMask   = visual -> red_mask;
    req -> greenMask = visual -> green_mask;
    req -> blueMask  = visual -> blue_mask;
  }
  else
  {
    #ifdef PANIC
    fprintf(stderr, "******NXSetUnpackGeometry: PANIC! Can't set the geometry without a visual.\n");
    #endif

    UnGetReq(NXSetUnpackGeometry);

    UnlockDisplay(dpy);

    return -1;
  }

  #ifdef TEST
  fprintf(stderr, "******NXSetUnpackGeometry: Resource [%u] Depth/Bpp [1/%d][4/%d][8/%d]"
              "[16/%d][24/%d][32/%d].\n", resource, req -> depth1Bpp, req -> depth4Bpp,
                  req -> depth8Bpp, req -> depth16Bpp, req -> depth24Bpp, req -> depth32Bpp);

  fprintf(stderr, "******NXSetUnpackGeometry: red [0x%x] green [0x%x] blue [0x%x].\n",
               (unsigned) req -> redMask, (unsigned) req -> greenMask, (unsigned) req -> blueMask);
  #endif

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

/*
 * Store a colormap table on the remote side.
 * The colormap can then be used to unpack
 * an image.
 */

int NXSetUnpackColormap(Display *dpy, unsigned int resource, unsigned int method,
                            unsigned int entries, const char *data, unsigned int data_length)
{
  register xNXSetUnpackColormapReq *req;

  register int dst_data_length;

  LockDisplay(dpy);

  GetReq(NXSetUnpackColormap, req);

  req -> resource  = resource;
  req -> method    = method;

  req -> srcLength = data_length;
  req -> dstLength = entries << 2;

  dst_data_length = ROUNDUP(data_length, 4);

  req -> length += (dst_data_length >> 2);

  #ifdef TEST
  fprintf(stderr, "******NXSetUnpackColormap: Resource [%u] data size [%u] destination "
              "data size [%u].\n", resource, data_length, dst_data_length);
  #endif

  if (data_length > 0)
  {
    if (dpy -> bufptr + dst_data_length <= dpy -> bufmax)
    {
      /*
       * Clean the padding bytes in the request.
       */

      *((int *) (dpy -> bufptr + dst_data_length - 4)) = 0x0;

      memcpy(dpy -> bufptr, data, data_length);

      dpy -> bufptr += dst_data_length;
    }
    else
    {
      /*
       * The _XSend() will pad the request for us.
       */

      _XSend(dpy, data, data_length);
    }
  }

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

/*
 * Store data of the alpha blending channel
 * that will be combined with the next image
 * to be unpacked.
 */

int NXSetUnpackAlpha(Display *dpy, unsigned int resource, unsigned int method,
                         unsigned int entries, const char *data, unsigned int data_length)
{
  register xNXSetUnpackAlphaReq *req;

  register unsigned int dst_data_length;

  LockDisplay(dpy);

  GetReq(NXSetUnpackAlpha, req);

  req -> resource  = resource;
  req -> method    = method;

  req -> srcLength = data_length;
  req -> dstLength = entries;

  dst_data_length = ROUNDUP(data_length, 4);

  req -> length += (dst_data_length >> 2);

  #ifdef TEST
  fprintf(stderr, "******NXSetUnpackAlpha: Resource [%u] data size [%u] destination data size [%u].\n",
              resource, data_length, dst_data_length);
  #endif

  if (data_length > 0)
  {
    if (dpy -> bufptr + dst_data_length <= dpy -> bufmax)
    {
      /*
       * Clean the padding bytes in the request.
       */

      *((int *) (dpy -> bufptr + dst_data_length - 4)) = 0x0;

      memcpy(dpy -> bufptr, data, data_length);

      dpy -> bufptr += dst_data_length;
    }
    else
    {
      /*
       * The _XSend() will pad the request for us.
       */

      _XSend(dpy, data, data_length);
    }
  }

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

/*
 * Compatibility versions to be used when
 * connected to a 1.X.X proxy.
 */

/*
 * These are for compatibility with the 1.X.X
 * versions.
 */

#define sz_xNXSetUnpackColormapCompatReq        8

typedef struct _NXSetUnpackColormapCompatReq {
    CARD8  reqType;
    CARD8  resource;
    CARD16 length B16;
    CARD32 entries B32;
} xNXSetUnpackColormapCompatReq;

#define X_NXSetUnpackColormapCompat  X_NXSetUnpackColormap

int NXSetUnpackColormapCompat(Display *dpy, unsigned int resource,
                                  unsigned int entries, const char *data)
{
  register xNXSetUnpackColormapCompatReq *req;

  register char *dst_data;

  register int dst_data_length;

  #ifdef DUMP

  int i;

  #endif

  LockDisplay(dpy);

  GetReq(NXSetUnpackColormapCompat, req);

  req -> resource = resource;
  req -> entries  = entries;

  dst_data_length = entries << 2;

  req -> length += (dst_data_length >> 2);

  #ifdef TEST
  fprintf(stderr, "******NXSetUnpackColormapCompat: Resource [%u] number of entries [%u] "
              "destination data size [%u].\n", resource, entries, dst_data_length);
  #endif

  if (entries > 0)
  {
    if ((dpy -> bufptr + dst_data_length) <= dpy -> bufmax)
    {
      dst_data = dpy -> bufptr;
    }
    else
    {
      if ((dst_data = _XAllocScratch(dpy, dst_data_length)) == NULL)
      {
        #ifdef PANIC
        fprintf(stderr, "******NXSetUnpackColormapCompat: PANIC! Cannot allocate memory.\n");
        #endif

        UnGetReq(NXSetUnpackColormapCompat);

        UnlockDisplay(dpy);

        return -1;
      }
    }

    memcpy(dst_data, data, entries << 2);

    #ifdef DUMP

    fprintf(stderr, "******NXSetUnpackColormapCompat: Dumping colormap entries:\n");

    for (i = 0; i < entries; i++)
    {
      fprintf(stderr, "******NXSetUnpackColormapCompat: [%d] -> [0x%x].\n",
                  i, *((int *) (dst_data + (i * 4))));
    }

    #endif

    if (dst_data == dpy -> bufptr)
    {
      dpy -> bufptr += dst_data_length;
    }
    else
    {
      _XSend(dpy, dst_data, dst_data_length);
    }
  }

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

#define sz_xNXSetUnpackAlphaCompatReq  8

typedef struct _NXSetUnpackAlphaCompatReq {
    CARD8  reqType;
    CARD8  resource;
    CARD16 length B16;
    CARD32 entries B32;
} xNXSetUnpackAlphaCompatReq;

#define X_NXSetUnpackAlphaCompat  X_NXSetUnpackAlpha

int NXSetUnpackAlphaCompat(Display *dpy, unsigned int resource,
                               unsigned int entries, const char *data)
{
  register xNXSetUnpackAlphaCompatReq *req;

  register char *dst_data;

  register unsigned int dst_data_length;

  #ifdef DUMP

  int i;

  #endif

  LockDisplay(dpy);

  GetReq(NXSetUnpackAlphaCompat, req);

  req -> resource = resource;
  req -> entries  = entries;

  dst_data_length = ROUNDUP(entries, 4);

  req -> length += (dst_data_length >> 2);

  #ifdef TEST
  fprintf(stderr, "******NXSetUnpackAlphaCompat: Resource [%u] number of entries [%u] "
              "destination data size [%u].\n", resource, entries, dst_data_length);
  #endif

  if (entries > 0)
  {
    if ((dpy -> bufptr + dst_data_length) <= dpy -> bufmax)
    {
      dst_data = dpy -> bufptr;
    }
    else
    {
      if ((dst_data = _XAllocScratch(dpy, dst_data_length)) == NULL)
      {
        #ifdef PANIC
        fprintf(stderr, "******NXSetUnpackAlphaCompat: PANIC! Cannot allocate memory.\n");
        #endif

        UnGetReq(NXSetUnpackAlphaCompat);

        UnlockDisplay(dpy);

        return -1;
      }
    }

    memcpy(dst_data, data, entries);

    if (dst_data_length != entries)
    {
      memset(dst_data + entries, 0, dst_data_length - entries);
    }

    #ifdef DUMP

    fprintf(stderr, "******NXSetUnpackAlphaCompat: Dumping alpha channel data:\n");

    for (i = 0; i < dst_data_length; i++)
    {
      fprintf(stderr, "******NXSetUnpackAlphaCompat: [%d] -> [0x%02x].\n",
                  i, ((unsigned int) *(dst_data + i)) & 0xff);
    }

    #endif

    if (dst_data == dpy -> bufptr)
    {
      dpy -> bufptr += dst_data_length;
    }
    else
    {
      _XSend(dpy, dst_data, dst_data_length);
    }
  }

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

/*
 * Free any geometry, colormap and alpha channel
 * data stored by the remote proxy to unpack the
 * image. Resource, as usual, must be a value
 * between 0 and 255.
 */

int NXFreeUnpack(Display *dpy, unsigned int resource)
{
  register xNXFreeUnpackReq *req;

  if (_NXUnpackResources[resource] != 0)
  {
    LockDisplay(dpy);

    GetReq(NXFreeUnpack, req);

    #ifdef TEST
    fprintf(stderr, "******NXFreeUnpack: Sending message opcode [%d] with resource [%u].\n",
                X_NXFreeUnpack, resource);
    #endif

    req -> resource = resource;

    UnlockDisplay(dpy);

    SyncHandle();

    #ifdef TEST
    fprintf(stderr, "******NXFreeUnpack: Making the resource [%u] newly available.\n",
                resource);
    #endif

    _NXUnpackResources[resource] = 0;
  }
  #ifdef TEST
  else
  {
    fprintf(stderr, "******NXFreeUnpack: Nothing to do for resource [%u].\n",
                resource);
  }
  #endif

  return 1;
}

/*
 * Wrapper of XCreateImage(). Note that we use offset
 * field of XImage to store size of source image in
 * packed format. Note also that method is currently
 * not stored in the NXignored.
 */

NXPackedImage *NXCreatePackedImage(Display *dpy, Visual *visual, unsigned int method,
                                       unsigned int depth, int format, char *data,
                                           int data_length, unsigned int width,
                                               unsigned int height, int bitmap_pad,
                                                   int bytes_per_line)
{
  XImage* image;

  image = XCreateImage(dpy, visual, depth, format, 0, data,
                           width, height, bitmap_pad, bytes_per_line);

  if (image != NULL)
  {
    image -> xoffset = data_length;
  }

  return (NXPackedImage *) image;
}

/*
 * Wrapper of XDestroyImage().
 */

int NXDestroyPackedImage(NXPackedImage *image)
{
  return XDestroyImage((XImage *) image);
}

/*
 * Clean the image data directly in the current buffer.
 */

int NXCleanImage(XImage *image)
{
  #ifdef TEST
  fprintf(stderr, "******NXCleanImage: Cleaning image with format [%d] depth [%d] "
              "bits per pixel [%d].\n", image -> format, image -> depth,
                  image -> bits_per_pixel);
  #endif

  if (image -> format == ZPixmap)
  {
    if (image -> depth == 1)
    {
      return CleanXYImage(image);
    }
    else
    {
      return CleanZImage(image);
    }
  }
  else
  {
    return CleanXYImage(image);
  }
}

NXPackedImage *NXPackImage(Display *dpy, XImage *src_image, unsigned int method)
{
  XImage *dst_image;

  const ColorMask *mask;

  unsigned int dst_data_size;
  unsigned int dst_packed_data_size;

  unsigned int dst_bits_per_pixel;
  unsigned int dst_packed_bits_per_pixel;

  #ifdef TEST
  fprintf(stderr, "******NXPackImage: Going to pack a new image with method [%d].\n",
              method);
  #endif

  /*
   * Get the mask out of the method and 
   * check if the visual is supported by
   * the color reduction algorithm.
   */

  mask = MethodColorMask(method);

  if (mask == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXPackImage: WARNING! No mask to apply for pack method [%d].\n",
                method);
    #endif

    return NULL;
  }
  else if (CanMaskImage(src_image, mask) == 0)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXPackImage: PANIC! Invalid source with format [%d] depth [%d] bits per pixel [%d].\n",
                src_image -> format, src_image -> depth, src_image -> bits_per_pixel);

    fprintf(stderr, "******NXPackImage: PANIC! Visual colormask is red 0x%lx green 0x%lx blue 0x%lx.\n",
                src_image -> red_mask, src_image -> green_mask, src_image -> blue_mask);
    #endif

    return NULL;
  }

  /*
   * Create a destination image from
   * source and apply the color mask.
   */

  if ((dst_image = (XImage *) Xmalloc(sizeof(XImage))) == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXPackImage: PANIC! Cannot allocate [%d] bytes for the image.\n",
                (int) sizeof(XImage));
    #endif

    return NULL;
  }

  *dst_image = *src_image;

  #ifdef TEST
  fprintf(stderr, "******NXPackImage: Source width [%d], bytes per line [%d] with depth [%d].\n",
              src_image -> width, src_image -> bytes_per_line, src_image -> depth);
  #endif

  dst_data_size = src_image -> bytes_per_line * src_image -> height;

  dst_image -> data = Xmalloc(dst_data_size);

  if (dst_image -> data == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXPackImage: PANIC! Cannot allocate [%d] bytes for masked image data.\n",
                dst_data_size);
    #endif

    Xfree(dst_image);

    return NULL;
  }

  /*
   * If the pixel resulting from the mask
   * needs more bits than available, then
   * just clean the padding bits in the
   * image.
   */

  dst_bits_per_pixel = dst_image -> bits_per_pixel;
  dst_packed_bits_per_pixel = MethodBitsPerPixel(method);

  #ifdef TEST
  fprintf(stderr, "******NXPackImage: Destination depth [%d], bits per pixel [%d], packed bits per pixel [%d].\n",
             dst_image -> depth, dst_bits_per_pixel, dst_packed_bits_per_pixel);
  #endif

  if (dst_packed_bits_per_pixel > dst_bits_per_pixel ||
          ShouldMaskImage(src_image, mask) == 0)
  {
    /*
     * Should use the same data for source
     * and destination to avoid the memcpy.
     */

    if (CopyAndCleanImage(src_image, dst_image) <= 0)
    {
      #ifdef PANIC
      fprintf(stderr, "******NXPackImage: PANIC! Failed to clean the image.\n");
      #endif

      Xfree(dst_image -> data);

      Xfree(dst_image);

      return NULL;
    }
  }
  else if (MaskImage(mask, src_image, dst_image) <= 0)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXPackImage: PANIC! Failed to apply the color mask.\n");
    #endif

    Xfree(dst_image -> data);

    Xfree(dst_image);

    return NULL;
  }

  /*
   * Let's pack the same pixels in fewer bytes.
   * Note that we save a new memory allocation
   * by using the same image as source and des-
   * tination. This means that PackImage() must
   * be able to handle ovelapping areas.
   */

  #ifdef TEST
  fprintf(stderr, "******NXPackImage: Plain bits per pixel [%d], data size [%d].\n",
              dst_bits_per_pixel, dst_data_size);
  #endif

  dst_packed_data_size = dst_data_size * dst_packed_bits_per_pixel /
                              dst_bits_per_pixel;

  #ifdef TEST
  fprintf(stderr, "******NXPackImage: Packed bits per pixel [%d], data size [%d].\n",
              dst_packed_bits_per_pixel, dst_packed_data_size);
  #endif

  if (PackImage(method, dst_data_size, dst_image,
                    dst_packed_data_size, dst_image) <= 0)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXPackImage: PANIC! Failed to pack image from [%d] to [%d] bits per pixel.\n",
                dst_bits_per_pixel, dst_packed_bits_per_pixel);
    #endif

    Xfree(dst_image -> data);

    Xfree(dst_image);

    return NULL;
  }

  /*
   * Save data size in xoffset field
   * to comply with NX packed images.
   */

  dst_image -> xoffset = dst_packed_data_size;

  return dst_image;
}

/*
 * NXInPlacePackImage creates a NXPackedImage
 * from a XImage, sharing the same data buffer.
 * Is up to the caller to free the data buffer
 * only once.
 */

XImage *NXInPlacePackImage(Display *dpy, XImage *src_image, unsigned int method)
{
  XImage *dst_image;

  const ColorMask *mask;

  unsigned int dst_data_size;
  unsigned int dst_packed_data_size;

  unsigned int dst_bits_per_pixel;
  unsigned int dst_packed_bits_per_pixel;

  #ifdef TEST
  fprintf(stderr, "******NXInPlacePackImage: Going to pack a new image with method [%d].\n",
              method);
  #endif

  /*
   * Get mask out of method and check if
   * visual is supported by current color
   * reduction algorithm.
   */

  mask = MethodColorMask(method);

  if (mask == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXInPlacePackImage: WARNING! No mask to apply for pack method [%d].\n",
                method);
    #endif

    return NULL;
  }
  else if (CanMaskImage(src_image, mask) == 0)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXInPlacePackImage: PANIC! Invalid source with format [%d] depth [%d] bits per pixel [%d].\n",
                src_image -> format, src_image -> depth, src_image -> bits_per_pixel);

    fprintf(stderr, "******NXInPlacePackImage: PANIC! Visual colormask is red 0x%lx green 0x%lx blue 0x%lx.\n",
                src_image -> red_mask, src_image -> green_mask, src_image -> blue_mask);
    #endif
    return NULL;
  }

  /*
   * Create a destination image from
   * source and apply the color mask.
   */

  if ((dst_image = (XImage *) Xmalloc(sizeof(XImage))) == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXInPlacePackImage: PANIC! Cannot allocate [%d] bytes for the image.\n",
                (int) sizeof(XImage));
    #endif

    return NULL;
  }

  *dst_image = *src_image;

  #ifdef TEST
  fprintf(stderr, "******NXInPlacePackImage: Source width [%d], bytes per line [%d] with depth [%d].\n",
              src_image -> width, src_image -> bytes_per_line, src_image -> depth);
  #endif

  dst_data_size = src_image -> bytes_per_line * src_image -> height;

  dst_image -> data = src_image -> data;

  /*
   * If pixel resulting from mask needs
   * more bits than available, then just
   * clean the pad bits in image.
   */

  dst_bits_per_pixel = dst_image -> bits_per_pixel;
  dst_packed_bits_per_pixel = MethodBitsPerPixel(method);

  #ifdef TEST
  fprintf(stderr, "******NXInPlacePackImage: Destination depth [%d], bits per pixel [%d], packed bits per pixel [%d].\n",
              dst_image -> depth, dst_bits_per_pixel, dst_packed_bits_per_pixel);
  #endif

  if (dst_packed_bits_per_pixel > dst_bits_per_pixel ||
          ShouldMaskImage(src_image, mask) == 0)
  {
    #ifdef TEST
    fprintf(stderr, "******NXInPlacePackImage: Just clean image packed_bits_per_pixel[%d], bits_per_pixel[%d].\n",
                dst_packed_bits_per_pixel, dst_bits_per_pixel);
    #endif

    if (NXCleanImage(dst_image) <= 0)
    {
      #ifdef PANIC
      fprintf(stderr, "******NXInPlacePackImage: PANIC! Failed to clean the image.\n");
      #endif

      Xfree(dst_image);

      return NULL;
    }
  }
  else if (MaskInPlaceImage(mask, dst_image) <= 0)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXInPlacePackImage: PANIC! Failed to apply the color mask.\n");
    #endif

    Xfree(dst_image);

    return NULL;
  }

  /*
   * Let's pack the same pixels in fewer bytes.
   * Note that we save a new memory allocation
   * by using the same image as source and des-
   * tination. This means that PackImage() must
   * be able to handle ovelapping areas.
   */

  #ifdef TEST
  fprintf(stderr, "******NXInPlacePackImage: Plain bits per pixel [%d], data size [%d].\n",
             dst_bits_per_pixel, dst_data_size);
  #endif

  dst_packed_data_size = dst_data_size * dst_packed_bits_per_pixel /
    dst_bits_per_pixel;

  #ifdef TEST
  fprintf(stderr, "******NXInPlacePackImage: Packed bits per pixel [%d], data size [%d].\n",
             dst_packed_bits_per_pixel, dst_packed_data_size);
  #endif

  /*
   * Save data size in xoffset field
   * to comply with NX packed images.
   */

  dst_image -> xoffset = dst_packed_data_size;

  return dst_image;
}

int NXPutPackedImage(Display *dpy, unsigned int resource, Drawable drawable,
                         void *gc, NXPackedImage *image, unsigned int method,
                             unsigned int depth, int src_x, int src_y, int dst_x,
                                 int dst_y, unsigned int width, unsigned int height)
{
  register xNXPutPackedImageReq *req;

  register unsigned int src_data_length;
  register unsigned int dst_data_length;

  LockDisplay(dpy);

  FlushGC(dpy, (GC) gc);

  GetReq(NXPutPackedImage, req);

  req -> resource = resource;
  req -> drawable = drawable;
  req -> gc = ((GC) gc) -> gid;

  #ifdef TEST
  fprintf(stderr, "******NXPutPackedImage: Image resource [%d] drawable [%d] gc [%d].\n",
              req -> resource, (int) req -> drawable, (int) req -> gc);
  #endif

  /*
   * There is no leftPad field in request. We only
   * support a leftPad of 0. Anyway, X imposes a
   * leftPad of 0 in case of ZPixmap format.
   */

  req -> format = image -> format;

  /*
   * Source depth, as well as width and height,
   * are taken from the image structure.
   */

  req -> srcDepth = image -> depth;

  req -> srcX = src_x;
  req -> srcY = src_y;

  req -> srcWidth  = image -> width;
  req -> srcHeight = image -> height;

  /*
   * The destination depth is provided
   * by the caller.
   */

  req -> dstDepth = depth;

  req -> dstX = dst_x;
  req -> dstY = dst_y;

  req -> dstWidth  = width;
  req -> dstHeight = height;

  req -> method = method;

  #ifdef TEST
  fprintf(stderr, "******NXPutPackedImage: Source image depth [%d] destination depth [%d] "
              "method [%d].\n", req -> srcDepth, req -> dstDepth, req -> method);
  #endif

  /*
   * Source data length is the size of image in packed format,
   * as stored in xoffset field of XImage. Destination data
   * size is calculated according to bytes per line of target
   * image, so the caller must provide the right depth at the
   * time XImage structure is created.
   */

  req -> srcLength = image -> xoffset;

  if (image -> width == (int) width &&
          image -> height == (int) height)
  {
    req -> dstLength = image -> bytes_per_line * image -> height;
  }
  else if (image -> format == ZPixmap)
  {
    req -> dstLength = ROUNDUP((image -> bits_per_pixel * width),
                                    image -> bitmap_pad) * height >> 3;
  }
  else
  {
    req -> dstLength = ROUNDUP(width, image -> bitmap_pad) * height >> 3;
  }

  src_data_length = image -> xoffset;

  dst_data_length = ROUNDUP(src_data_length, 4);

  #ifdef TEST
  fprintf(stderr, "******NXPutPackedImage: Source data length [%d] request data length [%d].\n",
              src_data_length, dst_data_length);
  #endif

  req -> length += (dst_data_length >> 2);

  if (src_data_length > 0)
  {
    if (dpy -> bufptr + dst_data_length <= dpy -> bufmax)
    {
      /*
       * Clean the padding bytes in the request.
       */

      *((int *) (dpy -> bufptr + dst_data_length - 4)) = 0x0;

      memcpy(dpy -> bufptr, image -> data, src_data_length);

      dpy -> bufptr += dst_data_length;
    }
    else
    {
      /*
       * The _XSend() will pad the request for us.
       */

      _XSend(dpy, image -> data, src_data_length);
    }
  }

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

int NXAllocColors(Display *dpy, Colormap colormap, unsigned int entries,
                      XColor screens_in_out[], Bool results_in_out[])
{
  Status result = 0;
  xAllocColorReply rep;
  register xAllocColorReq *req;

  Bool alloc_error = False;

  register unsigned int i;

  LockDisplay(dpy);

  for (i = 0; i < entries; i++)
  {
    GetReq(AllocColor, req);

    req -> cmap  = colormap;

    req -> red   = screens_in_out[i].red;
    req -> green = screens_in_out[i].green;
    req -> blue  = screens_in_out[i].blue;
  }

  for (i = 0; i < entries; i++)
  {
    result = _XReply(dpy, (xReply *) &rep, 0, xTrue);

    if (result)
    {
      screens_in_out[i].pixel = rep.pixel;

      screens_in_out[i].red   = rep.red;
      screens_in_out[i].green = rep.green;
      screens_in_out[i].blue  = rep.blue;
      
      results_in_out[i] = True;
    } 
    else 
    {
      results_in_out[i] = False;

      alloc_error = True;
    }
  }

  UnlockDisplay(dpy);

  SyncHandle();

  return (alloc_error == False);
}

char *NXEncodeColormap(const char *src_data, unsigned int src_size, unsigned int *dst_size)
{
  return ColormapCompressData(src_data, src_size, dst_size);
}

char *NXEncodeAlpha(const char *src_data, unsigned int src_size, unsigned int *dst_size)
{
  return AlphaCompressData(src_data, src_size, dst_size);
}

NXPackedImage *NXEncodeRgb(XImage *src_image, unsigned int method, unsigned int quality)
{
  NXPackedImage *dst_image = NULL;

  unsigned int dst_size;

  /*
   * Create a new image structure as a copy
   * of the source.
   */

  if ((dst_image = (NXPackedImage *) Xmalloc(sizeof(NXPackedImage))) == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodeRgb: PANIC! Cannot allocate [%d] bytes for the image.\n",
                (int) sizeof(XImage));
    #endif

    return NULL;
  }

  *dst_image = *src_image;

  dst_image -> data = RgbCompressData(src_image, &dst_size);

  if (dst_image -> data == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodeRgb: PANIC! Rgb compression failed.\n");
    #endif

    Xfree(dst_image);

    return NULL;
  }

  /*
   * Store the Rgb size in the xoffset field.
   */

  dst_image -> xoffset = dst_size;

  return dst_image;
}

NXPackedImage *NXEncodeRle(XImage *src_image, unsigned int method, unsigned int quality)
{
  NXPackedImage *dst_image = NULL;

  unsigned int dst_size;

  /*
   * Create a new image structure as a copy
   * of the source.
   */

  if ((dst_image = (NXPackedImage *) Xmalloc(sizeof(NXPackedImage))) == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodeRle: PANIC! Cannot allocate [%d] bytes for the image.\n",
                (int) sizeof(XImage));
    #endif

    return NULL;
  }

  *dst_image = *src_image;

  dst_image -> data = RleCompressData(src_image, &dst_size);

  if (dst_image -> data == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodeRle: PANIC! Rle compression failed.\n");
    #endif

    Xfree(dst_image);

    return NULL;
  }

  /*
   * Store the Rle size in the xoffset field.
   */

  dst_image -> xoffset = dst_size;

  return dst_image;
}

NXPackedImage *NXEncodeBitmap(XImage *src_image, unsigned int method, unsigned int quality)
{
  NXPackedImage *dst_image = NULL;

  unsigned int dst_size;

  /*
   * Create a new image structure as a copy
   * of the source.
   */

  if ((dst_image = (NXPackedImage *) Xmalloc(sizeof(NXPackedImage))) == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodeBitmap: PANIC! Cannot allocate [%d] bytes for the image.\n",
                (int) sizeof(XImage));
    #endif

    return NULL;
  }

  *dst_image = *src_image;

  dst_image -> data = BitmapCompressData(src_image, &dst_size);

  if (dst_image -> data == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodeBitmap: PANIC! Bitmap compression failed.\n");
    #endif

    Xfree(dst_image);

    return NULL;
  }

  /*
   * Store the bitmap size in the xoffset field.
   */

  dst_image -> xoffset = dst_size;

  return dst_image;
}

NXPackedImage *NXEncodeJpeg(XImage *src_image, unsigned int method, unsigned int quality)
{
  NXPackedImage *dst_image = NULL;

  int size;

  /*
   * Check if the bpp of the image is valid
   * for the Jpeg compression.
   */

  if (src_image -> bits_per_pixel < 15)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodeJpeg: PANIC! Invalid bpp for Jpeg compression [%d]\n.",
                src_image -> bits_per_pixel);
    #endif

    return NULL;
  }

  /*
   * Create the destination image as a copy
   * of the source.
   */

  if ((dst_image = (NXPackedImage *) Xmalloc(sizeof(NXPackedImage))) == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodeJpeg: PANIC! Cannot allocate [%d] bytes for the Jpeg image.\n",
                (int) sizeof(NXPackedImage));
    #endif

    return NULL;
  }

  *dst_image = *src_image;

  dst_image -> data = JpegCompressData(src_image, quality, &size);

  if (dst_image -> data == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodeJpeg: PANIC! Jpeg compression failed.\n");
    #endif

    Xfree(dst_image);

    return NULL;
  }

  /*
   * Store the Jpeg size in the xoffset field.
   */

  dst_image -> xoffset = size;

  return dst_image;
}

NXPackedImage *NXEncodePng(XImage *src_image, unsigned int method, unsigned int quality)
{
  NXPackedImage *dst_image = NULL;

  int size;

  /*
   * Check if the bpp of the image is valid
   * for png compression.
   */

  if (src_image -> bits_per_pixel < 15)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodePng: PANIC! Invalid bpp for Png compression [%d].\n",
                src_image -> bits_per_pixel);
    #endif

    return NULL;
  }

  if ((dst_image = (NXPackedImage *) Xmalloc(sizeof(NXPackedImage))) == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodePng: PANIC! Cannot allocate [%d] bytes for the Png image.\n",
                (int) sizeof(NXPackedImage));
    #endif

    return NULL;
  }

  *dst_image = *src_image;

  dst_image -> data = PngCompressData(dst_image, &size);

  if (dst_image -> data == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXEncodePng: PANIC! Png compression failed.\n");
    #endif

    Xfree(dst_image);

    return NULL;
  }

  /*
   * Store the Png size in the xoffset field.
   */

  dst_image -> xoffset = size;

  return dst_image;
}

int NXEncodeColors(XImage *src_image, NXColorTable *color_table, int nb_max)
{
  int x, y, t, p;

  long pixel;

  /*
   * We need a smarter way to extract
   * the colors from the image and
   * create a color table.
   */

  memset(color_table, 0, nb_max * sizeof(NXColorTable));

  for (x = 0, p = 0; x < src_image -> width; x++)
  {
    for (y = 0; y < src_image -> height; y++)
    {
      pixel  = XGetPixel(src_image, x, y);

      for (t = 0; t < nb_max; t++)
      {
        if ( color_table[t].found == 0)
        {
          color_table[t].pixel =  pixel;
          color_table[t].found =  1;

          p++;

          break;
        }
        else if ((color_table[t].pixel) == pixel)
        {
          break;
        }
      }

      if (p == nb_max)
      {
        return nb_max + 1;
      }
    }
  }

  return p;
}

void NXMaskImage(XImage *image, unsigned int method)
{
  unsigned int maskMethod;

  const ColorMask *mask;

  /*
   * Choose the correct mask method
   */

  switch(method)
  {
    case PACK_JPEG_8_COLORS:
    case PACK_PNG_8_COLORS:
    {
      maskMethod = MASK_8_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_8_COLORS\n");
      #endif

      break;
    }
    case PACK_JPEG_64_COLORS:
    case PACK_PNG_64_COLORS:
    {
      maskMethod = MASK_64_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_64K_COLORS\n");
      #endif

      break;
    }
    case PACK_JPEG_256_COLORS:
    case PACK_PNG_256_COLORS:
    {
      maskMethod = MASK_256_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_256_COLORS\n");
      #endif

      break;
    }
    case PACK_JPEG_512_COLORS:
    case PACK_PNG_512_COLORS:
    {
      maskMethod = MASK_512_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_512K_COLORS\n");
      #endif

      break;
    }
    case PACK_JPEG_4K_COLORS:
    case PACK_PNG_4K_COLORS:
    {
      maskMethod = MASK_4K_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_4K_COLORS\n");
      #endif

      break;
    }
    case PACK_JPEG_32K_COLORS:
    case PACK_PNG_32K_COLORS:
    {
      maskMethod = MASK_32K_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_32K_COLORS\n");
      #endif

      break;
    }
    case PACK_JPEG_64K_COLORS:
    case PACK_PNG_64K_COLORS:
    {
      maskMethod = MASK_64K_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_64K_COLORS\n");
      #endif

      break;
    }
    case PACK_JPEG_256K_COLORS:
    case PACK_PNG_256K_COLORS:
    {
      maskMethod = MASK_256K_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_256K_COLORS\n");
      #endif

      break;
    }
    case PACK_JPEG_2M_COLORS:
    case PACK_PNG_2M_COLORS:
    {
      maskMethod = MASK_2M_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_2M_COLORS\n");
      #endif

      break;
    }
    case PACK_JPEG_16M_COLORS:
    case PACK_PNG_16M_COLORS:
    {
      maskMethod = MASK_16M_COLORS;

      #ifdef DEBUG
      fprintf(stderr, "******NXMaskImage: Method is MASK_16M_COLORS\n");
      #endif

      break;
    }
    default:
    {
      #ifdef PANIC
      fprintf(stderr, "******NXMaskImage: PANIC! Cannot find mask method for pack method [%d]\n",
                  method);
      #endif

      return;
    }
  }

  #ifdef TEST
  fprintf(stderr, "******NXMaskImage: packMethod[%d] => maskMethod[%d]\n",
              method, maskMethod);
  #endif

  /*
   * Get mask out of method and check if
   * visual is supported by current color
   * reduction algorithm.
   */

  mask = MethodColorMask(maskMethod);

  if (mask == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXMaskImage: PANIC! No mask to apply for pack method [%d].\n",
                method);
    #endif

    return;
  }
  else if (CanMaskImage(image, mask) == 0)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXMaskImage: PANIC! Invalid source with format [%d] depth [%d] bits per pixel [%d].\n",
                image -> format, image -> depth, image -> bits_per_pixel);

    fprintf(stderr, "******NXMaskImage: PANIC! Visual colormask is red 0x%lx green 0x%lx blue 0x%lx.\n",
                image -> red_mask, image -> green_mask, image -> blue_mask);
    #endif

    return;
  }

  /*
   * Calling ShouldMaskImage you get 0 in the case
   * of MASK_256_COLORS and MASK_64K_COLORS, which
   * means that the image should not be masked.
   */

  if (ShouldMaskImage(image, mask) == 0)
  {
    #ifdef TEST
    fprintf(stderr, "******NXMaskImage: the image will not be masked\n");
    #endif
  }
  else
  {
    if (MaskInPlaceImage(mask, image) <= 0)
    {
      #ifdef PANIC
      fprintf(stderr, "******NXMaskImage: PANIC! Failed to apply the color mask in place.\n");
      #endif
    }
  }
}

/*
 * The display parameter is ignored.
 */

void NXInitCache(Display *dpy, int entries)
{
  if (NXImageCache != NULL && NXImageCacheSize == entries)
  {
    #ifdef DEBUG
    fprintf(stderr, "******NXInitCache: Nothing to do with image cache at [%p] and [%d] entries.\n",
                NXImageCache,  NXImageCacheSize);
    #endif

    return;
  }

  #ifdef DEBUG
  fprintf(stderr, "******NXInitCache: Initializing the cache with [%d] entries.\n",
              entries);
  #endif

  NXImageCacheSize = 0;

  if (NXImageCache != NULL)
  {
    Xfree(NXImageCache);

    NXImageCache = NULL;
  }

  if (entries > 0)
  {
    NXImageCache = Xmalloc(entries * sizeof(_NXImageCacheEntry));

    if (NXImageCache != NULL)
    {
      memset(NXImageCache, 0, entries * sizeof(_NXImageCacheEntry));

      NXImageCacheSize = entries;

      #ifdef DEBUG
      fprintf(stderr, "******NXInitCache: Image cache initialized with [%d] entries.\n", entries);
      #endif
    }
  }
}

#ifdef DUMP

void _NXCacheDump(const char *label)
{
  char s[MD5_LENGTH * 2 + 1];

  int i;
  int j;

  #ifdef DEBUG
  fprintf(stderr, "%s: Dumping the content of image cache:\n", label);
  #endif

  for (i = 0; i < NXImageCacheSize; i++)
  {
    if (NXImageCache[i].image == NULL)
    {
      break;
    }

    for (j = 0; j < MD5_LENGTH; j++)
    {
      sprintf(s + (j * 2), "%02X", ((unsigned char *) NXImageCache[i].md5)[j]);
    }

    #ifdef DEBUG
    fprintf(stderr, "%s: [%d][%s].\n", label, i, s);
    #endif
  }
}

#endif

XImage *NXCacheFindImage(NXPackedImage *src_image, unsigned int *method, unsigned char **md5)
{
  md5_state_t  new_state;
  md5_byte_t   *new_md5;
  unsigned int data_size, i;

  if (NXImageCache == NULL)
  {
    return NULL;
  }

  /*
   * Will return the allocated checksum
   * if the image is not found.
   */

  *md5 = NULL;

  if ((new_md5 = Xmalloc(MD5_LENGTH)) == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCacheFindImage: Can't allocate memory for the checksum.\n");
    #endif

    return NULL;
  }

  data_size = (src_image -> bytes_per_line * src_image -> height);

  md5_init(&new_state);

  md5_append(&new_state, (unsigned char *) &src_image -> width,  sizeof(int));
  md5_append(&new_state, (unsigned char *) &src_image -> height, sizeof(int));

  md5_append(&new_state, (unsigned char *) src_image -> data, data_size);

  md5_finish(&new_state, new_md5);

  for (i = 0; i < NXImageCacheSize; i++)
  {
    if (NXImageCache[i].image != NULL)
    {
      if (memcmp(NXImageCache[i].md5, new_md5, MD5_LENGTH) == 0)
      {
        _NXImageCacheEntry found;

        found.image  = NXImageCache[i].image;
        found.method = NXImageCache[i].method;
        found.md5    = NXImageCache[i].md5;

        *method = found.method;

        NXImageCacheHits++;

        #ifdef DEBUG
        fprintf(stderr, "******NXCacheFindImage: Found at position [%d] with hits [%d] and [%d] packs.\n",
                    i, NXImageCacheHits, NXImageCacheOps);
        #endif

        Xfree(new_md5);

        /*
         * Move the images down one slot, from
         * the head of the list, and place the
         * image just found at top.
         */

        if (i > 16)
        {
          #ifdef DEBUG
          fprintf(stderr, "******NXCacheFindImage: Moving the image at the head of the list.\n");
          #endif

          memmove(&NXImageCache[1], &NXImageCache[0], (i * sizeof(_NXImageCacheEntry)));

          NXImageCache[0].image  = found.image;
          NXImageCache[0].method = found.method;
          NXImageCache[0].md5    = found.md5;

          #ifdef DUMP

          _NXCacheDump("******NXCacheFindImage");

          #endif
        }

        /*
         * Return the checksum and image
         * structure allocated in cache.
         */

        *md5 = found.md5;

        return found.image;
      }
    }
    else
    {
      break;
    }
  }

  *md5 = new_md5;

  return NULL;
}

/*
 * Add a packed image to the cache. A new image
 * structure is allocated and copied, data and
 * checksum are inherited from the passed image.
 */

int NXCacheAddImage(NXPackedImage *image, unsigned int method, unsigned char *md5)
{
  unsigned int i;

  if (image == NULL || image -> data == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCacheAddImage: PANIC! Invalid image passed to function.\n");
    #endif

    return -1;
  }

  i = (NXImageCacheOps < NXImageCacheSize) ? NXImageCacheOps : NXImageCacheSize;

  if (NXImageCacheOps >= NXImageCacheSize)
  {
    #ifdef DEBUG
    fprintf(stderr, "******NXCacheAddImage: Freeing up the oldest entry.\n");
    #endif

    i--;

    Xfree(NXImageCache[NXImageCacheSize - 1].image -> data);
    Xfree(NXImageCache[NXImageCacheSize - 1].image);
    Xfree(NXImageCache[NXImageCacheSize - 1].md5);
  }

  if (i > 0)
  {
    memmove(&NXImageCache[1], &NXImageCache[0], i * sizeof(_NXImageCacheEntry));
  }

  NXImageCacheOps++;

  #ifdef DEBUG
  fprintf(stderr, "******NXCacheAddImage: Going to add new image with data size [%d].\n",
              image -> xoffset);
  #endif

  NXImageCache[0].image  = image;
  NXImageCache[0].method = method;
  NXImageCache[0].md5    = md5;

  #ifdef DUMP

  _NXCacheDump("******NXCacheAddImage");

  #endif

  return 1;
}

/*
 * The display parameter is ignored.
 */

void NXFreeCache(Display *dpy)
{
  int i;

  if (NXImageCache == NULL)
  {
    #ifdef DEBUG
    fprintf(stderr, "******NXFreeCache: Nothing to do with a null image cache.\n");
    #endif

    return;
  }

  #ifdef DEBUG
  fprintf(stderr, "******NXFreeCache: Freeing the cache with [%d] entries.\n",
              NXImageCacheSize);
  #endif

  for (i = 0; i < NXImageCacheSize; i++)
  {
    if (NXImageCache[i].image != NULL)
    {
      if (NXImageCache[i].image -> data != NULL)
      {
        Xfree(NXImageCache[i].image -> data);
      }

      Xfree(NXImageCache[i].image);

      NXImageCache[i].image = NULL;
    }

    if (NXImageCache[i].md5 != NULL)
    {
      Xfree(NXImageCache[i].md5);

      NXImageCache[i].md5 = NULL;
    }
  }

  Xfree(NXImageCache);

  NXImageCache = NULL;

  NXImageCacheSize = 0;
  NXImageCacheHits = 0;
  NXImageCacheOps  = 0;
}

static void _NXNotifyImage(Display *dpy, int resource, Bool success)
{
  XEvent async_event;

  /*
   * Enqueue an event to tell client
   * the result of GetImage.
   */

  async_event.type = ClientMessage;

  async_event.xclient.serial = _NXCollectedImages[resource] -> sequence;

  async_event.xclient.window       = 0;
  async_event.xclient.message_type = 0;
  async_event.xclient.format       = 32;

  async_event.xclient.data.l[0] = NXCollectImageNotify;
  async_event.xclient.data.l[1] = resource;
  async_event.xclient.data.l[2] = success;

  XPutBackEvent(dpy, &async_event);
}

static Bool _NXCollectImageHandler(Display *dpy, xReply *rep, char *buf,
                                       int len, XPointer data)
{
  register _NXCollectImageState *state;

  register xGetImageReply *async_rep;

  char *async_head;
  char *async_data;

  int async_size;

  state = (_NXCollectImageState *) data;

  if ((rep -> generic.sequenceNumber % 65536) !=
          ((int)(state -> sequence) % 65536))
  {
    #ifdef TEST
    fprintf(stderr, "******_NXCollectImageHandler: Unmatched sequence [%d] for opcode [%d] "
                "with length [%d].\n", rep -> generic.sequenceNumber, rep -> generic.type,
                    (int) rep -> generic.length << 2);
    #endif

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectImageHandler: Going to handle asynchronous GetImage reply.\n");
  #endif

  /*
   * As even reply data is managed asynchronously,
   * we can use state to get to vector and vector
   * to get to handler. In this way, we can safely
   * dequeue and free the handler itself.
   */

  DeqAsyncHandler(dpy, state -> handler);

  Xfree(state -> handler);

  state -> handler = NULL;

  if (rep -> generic.type == X_Error)
  {
    #ifdef TEST
    fprintf(stderr, "******_NXCollectImageHandler: Error received from X server for resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyImage(dpy, state -> resource, False);

    _NXCollectedImages[state -> resource] = NULL;

    Xfree(state);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectImageHandler: Matched request with sequence [%ld].\n",
              state -> sequence);
  #endif

  async_size = SIZEOF(xGetImageReply);

  async_head = Xmalloc(async_size);

  if (async_head == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******_NXCollectImageHandler: PANIC! Failed to allocate memory with resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyImage(dpy, state -> resource, False);

    _NXCollectedImages[state -> resource] = NULL;

    Xfree(state);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectImageHandler: Going to get reply with size [%d].\n",
              (int) rep -> generic.length << 2);
  #endif

  async_rep = (xGetImageReply *) _XGetAsyncReply(dpy, async_head, rep, buf, len, 0, False);

  if (async_rep == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******_NXCollectImageHandler: PANIC! Failed to get reply with resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyImage(dpy, state -> resource, False);

    _NXCollectedImages[state -> resource] = NULL;

    Xfree(state);

    Xfree(async_head);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectImageHandler: Got reply with depth [%d] visual [%d] size [%d].\n",
              async_rep -> depth, (int) async_rep -> visual, (int) async_rep -> length << 2);
  #endif

  async_size = async_rep -> length << 2;

  if (async_size > 0)
  {
    async_data = Xmalloc(async_size);

    if (async_data == NULL)
    {
      #ifdef PANIC
      fprintf(stderr, "******_NXCollectImageHandler: PANIC! Failed to allocate memory with resource [%d].\n",
                  state -> resource);
      #endif

      _NXNotifyImage(dpy, state -> resource, False);

      _NXCollectedImages[state -> resource] = NULL;

      Xfree(state);

      Xfree(async_head);

      return False;
    }

    #ifdef TEST
    fprintf(stderr, "******_NXCollectImageHandler: Going to get data with size [%d].\n",
                async_size);
    #endif

    _XGetAsyncData(dpy, async_data, buf, len, SIZEOF(xGetImageReply), async_size, async_size);

    /*
     * From now on we can return True, as all
     * data has been consumed from buffer.
     */

    if (state -> format == XYPixmap)
    {
      unsigned long depth = DepthOnes(state -> mask & (((unsigned long)0xFFFFFFFF) >>
                                          (32 - async_rep -> depth)));

      state -> image = XCreateImage(dpy, _XVIDtoVisual(dpy, async_rep -> visual),
                                        depth, XYPixmap, 0, async_data, state -> width,
                                            state -> height, dpy -> bitmap_pad, 0);
    }
    else
    {
      state -> image = XCreateImage(dpy, _XVIDtoVisual(dpy, async_rep -> visual),
                                        async_rep -> depth, ZPixmap, 0, async_data, state -> width,
                                            state -> height, _XGetScanlinePad(dpy, async_rep -> depth), 0);
    }

    if (state -> image == NULL)
    {
      #ifdef PANIC
      fprintf(stderr, "******_NXCollectImageHandler: PANIC! Failed to create image for resource [%d].\n",
                  state -> resource);
      #endif

      _NXNotifyImage(dpy, state -> resource, False);

      _NXCollectedImages[state -> resource] = NULL;

      Xfree(state);

      Xfree(async_head);
      Xfree(async_data);

      return True;
    }

    #ifdef TEST
    fprintf(stderr, "******_NXCollectImageHandler: Successfully stored image data for resource [%d].\n",
                state -> resource);
    #endif
  }
  #ifdef WARNING
  else
  {
    fprintf(stderr, "******_NXCollectImageHandler: WARNING! Null image data stored for resource [%d].\n",
                state -> resource);
  }
  #endif

  _NXNotifyImage(dpy, state -> resource, True);

  Xfree(async_head);

  return True;
}

int NXGetCollectImageResource(Display *dpy)
{
  int i;

  for (i = 0; i < NXNumberOfResources; i++)
  {
    if (_NXCollectedImages[i] == NULL)
    {
      return i;
    }
  }

  return -1;
}

int NXCollectImage(Display *dpy, unsigned int resource, Drawable drawable,
                       int src_x, int src_y, unsigned int width, unsigned int height,
                           unsigned long plane_mask, int format)
{
  register xGetImageReq *req;

  _NXCollectImageState *state;
  _XAsyncHandler *handler;

  if (resource >= NXNumberOfResources)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectImage: PANIC! Provided resource [%u] is out of range.\n",
                resource);
    #endif

    return -1;
  }

  state = _NXCollectedImages[resource];

  if (state != NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectImage: PANIC! Having to remove previous state for resource [%u].\n",
                resource);
    #endif

    if (state -> handler != NULL)
    {
      DeqAsyncHandler(dpy, state -> handler);

      Xfree(state -> handler);
    }

    if (state -> image != NULL)
    {
      XDestroyImage(state -> image);
    }

    Xfree(state);

    _NXCollectedImages[resource] = NULL;
  }

  LockDisplay(dpy);

  GetReq(GetImage, req);

  req -> format    = format;
  req -> drawable  = drawable;
  req -> x         = src_x;
  req -> y         = src_y;
  req -> width     = width;
  req -> height    = height;
  req -> planeMask = plane_mask;

  #ifdef TEST
  fprintf(stderr, "******NXCollectImage: Sending message opcode [%d] sequence [%ld] for resource [%d].\n",
              X_GetImage, dpy -> request, resource);

  fprintf(stderr, "******NXCollectImage: Format [%d] drawable [%d] src_x [%d] src_y [%d].\n",
              req -> format, (int) req -> drawable, req -> x, req -> y);

  fprintf(stderr, "******NXCollectImage: Width [%d] height [%d] plane_mask [%x].\n",
              req -> width, req -> height, (int) req -> planeMask);
  #endif

  state   = Xmalloc(sizeof(_NXCollectImageState));
  handler = Xmalloc(sizeof(_XAsyncHandler));

  if (state == NULL || handler == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectImage: PANIC! Failed to allocate memory with resource [%d].\n",
                resource);
    #endif

    UnGetReq(GetImage);

    if (state != NULL)
    {
      Xfree(state);
    }

    if (handler != NULL)
    {
      Xfree(handler);
    }

    UnlockDisplay(dpy);

    return -1;
  }

  state -> sequence = dpy -> request;
  state -> resource = resource;
  state -> mask     = plane_mask;
  state -> format   = format;
  state -> width    = width;
  state -> height   = height;
  state -> image    = NULL;

  state -> handler = handler;

  handler -> next = dpy -> async_handlers;
  handler -> handler = _NXCollectImageHandler;
  handler -> data = (XPointer) state;
  dpy -> async_handlers = handler;

  _NXCollectedImages[resource] = state;

  UnlockDisplay(dpy);

  SyncHandle();

  return 1;
}

int NXGetCollectedImage(Display *dpy, unsigned int resource, XImage **image)
{
  register _NXCollectImageState *state;

  state = _NXCollectedImages[resource];

  if (state == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXGetCollectedImage: PANIC! No image collected for resource [%u].\n",
                resource);
    #endif

    return 0;
  }

  _NXCollectedImages[resource] = NULL;

  *image = state -> image;

  Xfree(state);

  #ifdef TEST
  fprintf(stderr, "******NXGetCollectedImage: Returning GetImage data for resource [%u].\n",
              resource);
  #endif

  return 1;
}

static void _NXNotifyProperty(Display *dpy, int resource, Bool success)
{
  XEvent async_event;

  /*
   * Enqueue an event to tell client
   * the result of GetProperty.
   */

  async_event.type = ClientMessage;

  async_event.xclient.serial = _NXCollectedProperties[resource] -> sequence;

  async_event.xclient.window       = 0;
  async_event.xclient.message_type = 0;
  async_event.xclient.format       = 32;

  async_event.xclient.data.l[0] = NXCollectPropertyNotify;
  async_event.xclient.data.l[1] = resource;
  async_event.xclient.data.l[2] = success;

  XPutBackEvent(dpy, &async_event);
}

static Bool _NXCollectPropertyHandler(Display *dpy, xReply *rep, char *buf,
                                          int len, XPointer data)
{
  register _NXCollectPropertyState *state;

  register xGetPropertyReply *async_rep;

  char *async_head;
  char *async_data;

  int async_size;

  state = (_NXCollectPropertyState *) data;

  if ((rep -> generic.sequenceNumber % 65536) !=
          ((int)(state -> sequence) % 65536))
  {
    #ifdef TEST
    fprintf(stderr, "******_NXCollectPropertyHandler: Unmatched sequence [%d] for opcode [%d] "
                "with length [%d].\n", rep -> generic.sequenceNumber, rep -> generic.type,
                    (int) rep -> generic.length << 2);
    #endif

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectPropertyHandler: Going to handle asynchronous GetProperty reply.\n");
  #endif

  /*
   * Reply data is managed asynchronously. We can
   * use state to get to vector and vector to get
   * to handler. In this way, we can dequeue and
   * free the handler itself.
   */

  DeqAsyncHandler(dpy, state -> handler);

  Xfree(state -> handler);

  state -> handler = NULL;

  if (rep -> generic.type == X_Error)
  {
    #ifdef TEST
    fprintf(stderr, "******_NXCollectPropertyHandler: Error received from X server for resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyProperty(dpy, state -> resource, False);

    _NXCollectedProperties[state -> resource] = NULL;

    Xfree(state);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectPropertyHandler: Matched request with sequence [%ld].\n",
              state -> sequence);
  #endif

  async_size = SIZEOF(xGetPropertyReply);

  async_head = Xmalloc(async_size);

  if (async_head == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******_NXCollectPropertyHandler: PANIC! Failed to allocate memory with resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyProperty(dpy, state -> resource, False);

    _NXCollectedProperties[state -> resource] = NULL;

    Xfree(state);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectPropertyHandler: Going to get reply with size [%d].\n",
              (int) rep -> generic.length << 2);
  #endif

  async_rep = (xGetPropertyReply *) _XGetAsyncReply(dpy, async_head, rep, buf, len, 0, False);

  if (async_rep == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******_NXCollectPropertyHandler: PANIC! Failed to get reply with resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyProperty(dpy, state -> resource, False);

    _NXCollectedProperties[state -> resource] = NULL;

    Xfree(state);

    Xfree(async_head);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectPropertyHandler: Got reply with format [%d] type [%d] size [%d].\n",
              async_rep -> format, (int) async_rep -> propertyType, (int) async_rep -> length << 2);

  fprintf(stderr, "******_NXCollectPropertyHandler: Bytes after [%d] number of items [%d].\n",
              (int) async_rep -> bytesAfter, (int) async_rep -> nItems);
  #endif

  state -> format = async_rep -> format;
  state -> type   = async_rep -> propertyType;
  state -> items  = async_rep -> nItems;
  state -> after  = async_rep -> bytesAfter;

  async_size = async_rep -> length << 2;

  if (async_size > 0)
  {
    async_data = Xmalloc(async_size);

    if (async_data == NULL)
    {
      #ifdef PANIC
      fprintf(stderr, "******_NXCollectPropertyHandler: PANIC! Failed to allocate memory with resource [%d].\n",
                  state -> resource);
      #endif

      _NXNotifyProperty(dpy, state -> resource, False);

      _NXCollectedProperties[state -> resource] = NULL;

      Xfree(state);

      Xfree(async_head);

      return False;
    }

    #ifdef TEST
    fprintf(stderr, "******_NXCollectPropertyHandler: Going to get data with size [%d].\n",
                async_size);
    #endif

    _XGetAsyncData(dpy, async_data, buf, len, SIZEOF(xGetPropertyReply), async_size, async_size);

    /*
     * From now on we can return True, as all
     * data has been consumed from buffer.
     */

    state -> data = async_data;

    #ifdef TEST
    fprintf(stderr, "******_NXCollectPropertyHandler: Successfully stored property data for resource [%d].\n",
                state -> resource);
    #endif
  }
  #ifdef TEST
  else
  {
    fprintf(stderr, "******_NXCollectPropertyHandler: WARNING! Null property data stored for resource [%d].\n",
                state -> resource);
  }
  #endif

  _NXNotifyProperty(dpy, state -> resource, True);

  Xfree(async_head);

  return True;
}

int NXGetCollectPropertyResource(Display *dpy)
{
  int i;

  for (i = 0; i < NXNumberOfResources; i++)
  {
    if (_NXCollectedProperties[i] == NULL)
    {
      return i;
    }
  }

  return -1;
}

int NXCollectProperty(Display *dpy, unsigned int resource, Window window, Atom property,
                          long long_offset, long long_length, Bool delete, Atom req_type)
{
  register xGetPropertyReq *req;

  _NXCollectPropertyState *state;
  _XAsyncHandler *handler;

  if (resource >= NXNumberOfResources)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectProperty: PANIC! Provided resource [%u] is out of range.\n",
                resource);
    #endif

    return -1;
  }

  state = _NXCollectedProperties[resource];

  if (state != NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectProperty: PANIC! Having to remove previous state for resource [%u].\n",
                resource);
    #endif

    if (state -> handler != NULL)
    {
      DeqAsyncHandler(dpy, state -> handler);

      Xfree(state -> handler);
    }

    if (state -> data != NULL)
    {
      Xfree(state -> data);
    }

    Xfree(state);

    _NXCollectedProperties[resource] = NULL;
  }

  LockDisplay(dpy);

  GetReq(GetProperty, req);

  req -> delete     = delete;
  req -> window     = window;
  req -> property   = property;
  req -> type       = req_type;
  req -> longOffset = long_offset;
  req -> longLength = long_length;

  #ifdef TEST
  fprintf(stderr, "******NXCollectProperty: Sending message opcode [%d] sequence [%ld] for resource [%d].\n",
              X_GetProperty, dpy -> request, resource);

  fprintf(stderr, "******NXCollectProperty: Delete [%u] window [%d] property [%d] type [%d].\n",
              req -> delete, (int) req -> window, (int) req -> property, (int) req -> type);

  fprintf(stderr, "******NXCollectProperty: Long offset [%d] long length [%d].\n",
              (int) req -> longOffset, (int) req -> longLength);
  #endif

  state   = Xmalloc(sizeof(_NXCollectPropertyState));
  handler = Xmalloc(sizeof(_XAsyncHandler));

  if (state == NULL || handler == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectProperty: Failed to allocate memory with resource [%d].\n",
                resource);
    #endif

    if (state != NULL)
    {
      Xfree(state);
    }

    if (handler != NULL)
    {
      Xfree(handler);
    }

    UnGetReq(GetProperty);

    UnlockDisplay(dpy);

    return -1;
  }

  state -> sequence = dpy -> request;
  state -> resource = resource;
  state -> window   = window;
  state -> property = property;
  state -> type     = 0;
  state -> format   = 0;
  state -> items    = 0;
  state -> after    = 0;
  state -> data     = NULL;

  state -> handler = handler;

  handler -> next = dpy -> async_handlers;
  handler -> handler = _NXCollectPropertyHandler;
  handler -> data = (XPointer) state;
  dpy -> async_handlers = handler;

  _NXCollectedProperties[resource] = state;

  UnlockDisplay(dpy);

  SyncHandle();

  return True;
}

int NXGetCollectedProperty(Display *dpy, unsigned int resource, Atom *actual_type_return,
                               int *actual_format_return, unsigned long *nitems_return,
                                   unsigned long *bytes_after_return, unsigned char **data)
{
  register _NXCollectPropertyState *state;

  state = _NXCollectedProperties[resource];

  if (state == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXGetCollectedProperty: PANIC! No data collected for resource [%u].\n",
                resource);
    #endif

    return 0;
  }

  *actual_type_return   = state -> type;
  *actual_format_return = state -> format;
  *nitems_return        = state -> items;
  *bytes_after_return   = state -> after;

  *data = (unsigned char *) _NXCollectedProperties[resource] -> data;

  Xfree(state);

  _NXCollectedProperties[resource] = NULL;

  #ifdef TEST
  fprintf(stderr, "******NXGetCollectedProperty: Returning GetProperty data for resource [%u].\n",
              resource);
  #endif

  return True;
}

static void _NXNotifyGrabPointer(Display *dpy, int resource, Bool success)
{
  XEvent async_event;

  async_event.type = ClientMessage;

  async_event.xclient.serial = _NXCollectedGrabPointers[resource] -> sequence;

  async_event.xclient.window       = 0;
  async_event.xclient.message_type = 0;
  async_event.xclient.format       = 32;

  async_event.xclient.data.l[0] = NXCollectGrabPointerNotify;
  async_event.xclient.data.l[1] = resource;
  async_event.xclient.data.l[2] = success;

  XPutBackEvent(dpy, &async_event);
}

static Bool _NXCollectGrabPointerHandler(Display *dpy, xReply *rep, char *buf,
                                             int len, XPointer data)
{
  register _NXCollectGrabPointerState *state;

  register xGrabPointerReply *async_rep;

  char *async_head;

  int async_size;

  state = (_NXCollectGrabPointerState *) data;

  if ((rep -> generic.sequenceNumber % 65536) !=
          ((int)(state -> sequence) % 65536))
  {
    #ifdef TEST
    fprintf(stderr, "******_NXCollectGrabPointerHandler: Unmatched sequence [%d] for opcode [%d] "
                "with length [%d].\n", rep -> generic.sequenceNumber, rep -> generic.type,
                    (int) rep -> generic.length << 2);
    #endif

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectGrabPointerHandler: Going to handle asynchronous GrabPointer reply.\n");
  #endif

  DeqAsyncHandler(dpy, state -> handler);

  Xfree(state -> handler);

  state -> handler = NULL;

  if (rep -> generic.type == X_Error)
  {
    #ifdef TEST
    fprintf(stderr, "******_NXCollectGrabPointerHandler: Error received from X server for resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyGrabPointer(dpy, state -> resource, False);

    _NXCollectedGrabPointers[state -> resource] = NULL;

    Xfree(state);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectGrabPointerHandler: Matched request with sequence [%ld].\n",
              state -> sequence);
  #endif

  async_size = SIZEOF(xGrabPointerReply);

  async_head = Xmalloc(async_size);

  if (async_head == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******_NXCollectGrabPointerHandler: PANIC! Failed to allocate memory with resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyGrabPointer(dpy, state -> resource, False);

    _NXCollectedGrabPointers[state -> resource] = NULL;

    Xfree(state);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectGrabPointerHandler: Going to get reply with size [%d].\n",
              (int) rep -> generic.length << 2);
  #endif

  async_rep = (xGrabPointerReply *) _XGetAsyncReply(dpy, async_head, rep, buf, len, 0, False);

  if (async_rep == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******_NXCollectGrabPointerHandler: PANIC! Failed to get reply with resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyGrabPointer(dpy, state -> resource, False);

    _NXCollectedGrabPointers[state -> resource] = NULL;

    Xfree(state);

    Xfree(async_head);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectGrabPointerHandler: Got reply with status [%d] size [%d].\n",
              async_rep -> status, (int) async_rep -> length << 2);
  #endif

  state -> status = async_rep -> status;

  _NXNotifyGrabPointer(dpy, state -> resource, True);

  Xfree(async_head);

  return True;
}

int NXGetCollectGrabPointerResource(Display *dpy)
{
  int i;

  for (i = 0; i < NXNumberOfResources; i++)
  {
    if (_NXCollectedGrabPointers[i] == NULL)
    {
      return i;
    }
  }

  return -1;
}

int NXCollectGrabPointer(Display *dpy, unsigned int resource, Window grab_window, Bool owner_events,
                             unsigned int event_mask, int pointer_mode, int keyboard_mode,
                                 Window confine_to, Cursor cursor, Time time)
{
  register xGrabPointerReq *req;

  _NXCollectGrabPointerState *state;
  _XAsyncHandler *handler;

  if (resource >= NXNumberOfResources)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectGrabPointer: PANIC! Provided resource [%u] is out of range.\n",
                resource);
    #endif

    return -1;
  }

  state = _NXCollectedGrabPointers[resource];

  if (state != NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectGrabPointer: PANIC! Having to remove previous state for resource [%u].\n",
                resource);
    #endif

    if (state -> handler != NULL)
    {
      DeqAsyncHandler(dpy, state -> handler);

      Xfree(state -> handler);
    }

    Xfree(state);

    _NXCollectedGrabPointers[resource] = NULL;
  }

  LockDisplay(dpy);

  GetReq(GrabPointer, req);

  req -> grabWindow   = grab_window;
  req -> ownerEvents  = owner_events;
  req -> eventMask    = event_mask;
  req -> pointerMode  = pointer_mode;
  req -> keyboardMode = keyboard_mode;
  req -> confineTo    = confine_to;
  req -> cursor       = cursor;
  req -> time         = time;

  #ifdef TEST
  fprintf(stderr, "******NXCollectGrabPointer: Sending message opcode [%d] sequence [%ld] "
              "for resource [%d].\n", X_GrabPointer, dpy -> request, resource);
  #endif

  state   = Xmalloc(sizeof(_NXCollectGrabPointerState));
  handler = Xmalloc(sizeof(_XAsyncHandler));

  if (state == NULL || handler == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectGrabPointer: Failed to allocate memory with resource [%d].\n",
                resource);
    #endif

    if (state != NULL)
    {
      Xfree(state);
    }

    if (handler != NULL)
    {
      Xfree(handler);
    }

    UnGetReq(GrabPointer);

    UnlockDisplay(dpy);

    return -1;
  }

  state -> sequence = dpy -> request;
  state -> resource = resource;
  state -> status   = 0;

  state -> handler = handler;

  handler -> next = dpy -> async_handlers;
  handler -> handler = _NXCollectGrabPointerHandler;
  handler -> data = (XPointer) state;
  dpy -> async_handlers = handler;

  _NXCollectedGrabPointers[resource] = state;

  UnlockDisplay(dpy);

  SyncHandle();

  return True;
}

int NXGetCollectedGrabPointer(Display *dpy, unsigned int resource, int *status)
{
  register _NXCollectGrabPointerState *state;

  state = _NXCollectedGrabPointers[resource];

  if (state == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXGetCollectedGrabPointer: PANIC! No data collected for resource [%u].\n",
                resource);
    #endif

    return 0;
  }

  *status = state -> status;

  Xfree(state);

  _NXCollectedGrabPointers[resource] = NULL;

  #ifdef TEST
  fprintf(stderr, "******NXGetCollectedGrabPointer: Returning GrabPointer data for resource [%u].\n",
              resource);
  #endif

  return True;
}

static void _NXNotifyInputFocus(Display *dpy, int resource, Bool success)
{
  XEvent async_event;

  async_event.type = ClientMessage;

  async_event.xclient.serial = _NXCollectedInputFocuses[resource] -> sequence;

  async_event.xclient.window       = 0;
  async_event.xclient.message_type = 0;
  async_event.xclient.format       = 32;

  async_event.xclient.data.l[0] = NXCollectInputFocusNotify;
  async_event.xclient.data.l[1] = resource;
  async_event.xclient.data.l[2] = success;

  XPutBackEvent(dpy, &async_event);
}

static Bool _NXCollectInputFocusHandler(Display *dpy, xReply *rep, char *buf,
                                            int len, XPointer data)
{
  register _NXCollectInputFocusState *state;

  register xGetInputFocusReply *async_rep;

  char *async_head;

  int async_size;

  state = (_NXCollectInputFocusState *) data;

  if ((rep -> generic.sequenceNumber % 65536) !=
          ((int)(state -> sequence) % 65536))
  {
    #ifdef TEST
    fprintf(stderr, "******_NXCollectInputFocusHandler: Unmatched sequence [%d] for opcode [%d] "
                "with length [%d].\n", rep -> generic.sequenceNumber, rep -> generic.type,
                    (int) rep -> generic.length << 2);
    #endif

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectInputFocusHandler: Going to handle asynchronous GetInputFocus reply.\n");
  #endif

  DeqAsyncHandler(dpy, state -> handler);

  Xfree(state -> handler);

  state -> handler = NULL;

  if (rep -> generic.type == X_Error)
  {
    #ifdef TEST
    fprintf(stderr, "******_NXCollectInputFocusHandler: Error received from X server for resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyInputFocus(dpy, state -> resource, False);

    _NXCollectedInputFocuses[state -> resource] = NULL;

    Xfree(state);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectInputFocusHandler: Matched request with sequence [%ld].\n",
              state -> sequence);
  #endif

  async_size = SIZEOF(xGetInputFocusReply);

  async_head = Xmalloc(async_size);

  if (async_head == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******_NXCollectInputFocusHandler: PANIC! Failed to allocate memory with resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyInputFocus(dpy, state -> resource, False);

    _NXCollectedInputFocuses[state -> resource] = NULL;

    Xfree(state);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectInputFocusHandler: Going to get reply with size [%d].\n",
              (int) rep -> generic.length << 2);
  #endif

  async_rep = (xGetInputFocusReply *) _XGetAsyncReply(dpy, async_head, rep, buf, len, 0, False);

  if (async_rep == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******_NXCollectInputFocusHandler: PANIC! Failed to get reply with resource [%d].\n",
                state -> resource);
    #endif

    _NXNotifyInputFocus(dpy, state -> resource, False);

    _NXCollectedInputFocuses[state -> resource] = NULL;

    Xfree(state);

    Xfree(async_head);

    return False;
  }

  #ifdef TEST
  fprintf(stderr, "******_NXCollectInputFocusHandler: Got reply with focus [%d] revert to [%d] "
              "size [%d].\n", (int) async_rep -> focus, (int) async_rep -> revertTo,
                  (int) async_rep -> length << 2);
  #endif

  state -> focus     = async_rep -> focus;
  state -> revert_to = async_rep -> revertTo;

  _NXNotifyInputFocus(dpy, state -> resource, True);

  Xfree(async_head);

  return True;
}

int NXGetCollectInputFocusResource(Display *dpy)
{
  int i;

  for (i = 0; i < NXNumberOfResources; i++)
  {
    if (_NXCollectedInputFocuses[i] == NULL)
    {
      return i;
    }
  }

  return -1;
}

int NXCollectInputFocus(Display *dpy, unsigned int resource)
{
  register xReq *req;

  _NXCollectInputFocusState *state;
  _XAsyncHandler *handler;

  if (resource >= NXNumberOfResources)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectInputFocus: PANIC! Provided resource [%u] is out of range.\n",
                resource);
    #endif

    return -1;
  }

  state = _NXCollectedInputFocuses[resource];

  if (state != NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectInputFocus: PANIC! Having to remove previous state for resource [%u].\n",
                resource);
    #endif

    if (state -> handler != NULL)
    {
      DeqAsyncHandler(dpy, state -> handler);

      Xfree(state -> handler);
    }

    Xfree(state);

    _NXCollectedInputFocuses[resource] = NULL;
  }

  LockDisplay(dpy);

  GetEmptyReq(GetInputFocus, req);

  #ifdef TEST
  fprintf(stderr, "******NXCollectInputFocus: Sending message opcode [%d] sequence [%ld] for resource [%d].\n",
              X_GetInputFocus, dpy -> request, resource);
  #endif

  state   = Xmalloc(sizeof(_NXCollectInputFocusState));
  handler = Xmalloc(sizeof(_XAsyncHandler));

  if (state == NULL || handler == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXCollectInputFocus: Failed to allocate memory with resource [%d].\n",
                resource);
    #endif

    if (state != NULL)
    {
      Xfree(state);
    }

    if (handler != NULL)
    {
      Xfree(handler);
    }

    UnGetEmptyReq();

    UnlockDisplay(dpy);

    return -1;
  }

  state -> sequence  = dpy -> request;
  state -> resource  = resource;
  state -> focus     = 0;
  state -> revert_to = 0;

  state -> handler = handler;

  handler -> next = dpy -> async_handlers;
  handler -> handler = _NXCollectInputFocusHandler;
  handler -> data = (XPointer) state;
  dpy -> async_handlers = handler;

  _NXCollectedInputFocuses[resource] = state;

  UnlockDisplay(dpy);

  SyncHandle();

  return True;
}

int NXGetCollectedInputFocus(Display *dpy, unsigned int resource,
                                 Window *focus_return, int *revert_to_return)
{
  register _NXCollectInputFocusState *state;

  state = _NXCollectedInputFocuses[resource];

  if (state == NULL)
  {
    #ifdef PANIC
    fprintf(stderr, "******NXGetCollectedInputFocus: PANIC! No data collected for resource [%u].\n",
                resource);
    #endif

    return 0;
  }

  *focus_return     = state -> focus;
  *revert_to_return = state -> revert_to;

  Xfree(state);

  _NXCollectedInputFocuses[resource] = NULL;

  #ifdef TEST
  fprintf(stderr, "******NXGetCollectedInputFocus: Returning GetInputFocus data for resource [%u].\n",
              resource);
  #endif

  return True;
}

#ifdef DUMP

void _NXDumpData(const unsigned char *buffer, unsigned int size)
{
  if (buffer != NULL)
  {
    unsigned int i = 0;

    unsigned int ii;

    while (i < size)
    {
      fprintf(stderr, "[%d]\t", i);

      for (ii = 0; i < size && ii < 8; i++, ii++)
      {
        fprintf(stderr, "%d\t", (unsigned int) (buffer[i]));
      }

      fprintf(stderr, "\n");
    }
  }
}

#endif