#include "copyright.h"

/* $XConsortium: XGetColor.c,v 11.14 88/09/06 16:07:43 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	 */

/* -- MULTIPLEX extension -- */

#define NEED_REPLIES
#define NEED_EVENTS
#include "Xlibint.h"

/* -- additional includes -- */

#include "XmuXlibint.h"
#include "resources.h"
#include "map.h"

Status
XAllocNamedColor (calling_dpy, cmap, colorname, hard_def, exact_def)
/* -- must rename or else macro GetReq will fail -- */
  register Display *calling_dpy;
  Colormap cmap;
  char *colorname;		/* STRING8 */
  XColor *hard_def;		/* RETURN */
  XColor *exact_def;		/* RETURN */
{
  register Display *dpy;
  register int i, allocated;
  long nbytes;
  xAllocNamedColorReply rep;
  xAllocNamedColorReq *req;

  /*
   * -- Flush the default display's output queue -- to keep things in order
   */
  XmuXFlushDefault (calling_dpy);

  /*
   * -- must loop over all associated displays
   */
  allocated = 1;
  for (i = 0;
       (dpy = XmuXGetDisplay (calling_dpy, i)) != NULL && allocated;
       i++) {
    LockDisplay (dpy);
    GetReq (AllocNamedColor, req);

    if (i != 0)
      req->cmap = XmuXMapID (dpy, cmap, FromClient);
    else
      req->cmap = cmap;

    nbytes = req->nbytes = colorname ? strlen (colorname) : 0;
    req->length += (nbytes + 3) >> 2;	/* round up to mult of 4 */

    /*
     * -- don't use MULTIPLEXED version of _XSend here !! --
     */
    _XmuXSingleSend (dpy, colorname, nbytes);
    /* _XmuXSingleSend is more efficient that Data, since _XReply follows */
    if (!_XReply (dpy, (xReply *) & rep, 0, xTrue))
      allocated = 0;

    if (allocated) {
      if (i == 0) {
	exact_def->red = rep.exactRed;
	exact_def->green = rep.exactGreen;
	exact_def->blue = rep.exactBlue;

	hard_def->red = rep.screenRed;
	hard_def->green = rep.screenGreen;
	hard_def->blue = rep.screenBlue;

	exact_def->pixel = hard_def->pixel = rep.pixel;

	if (XmuXStoreResources (dpy)) {
	  unsigned long pixel = rep.pixel;
	  XmuXUpdateColormapInfo (dpy, cmap, &pixel, 1,
				  NULL, 0, True);
	}
      }
      else
	XmuXInsertSharedCell (dpy, req->cmap,
			      exact_def->pixel, rep.pixel);
    }
    UnlockDisplay (dpy);
    SyncHandle ();
  }
  return (allocated);
}