/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XAllPlanes.c,v 1.1.1.1
 * 90/04/23 09:51:34 spanachi Exp $
 */
#include "copyright.h"

/* $XConsortium: XAllPlanes.c,v 11.15 88/09/06 16:11:45 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	 */
/* -- MULTIPLEX Extension -- */
#define NEED_REPLIES
#include "Xlibint.h"

/* -- additional includes -- */
#include "utils.h"
#include "map.h"

Status
XAllocColorPlanes (calling_dpy, cmap, contig, pixels, ncolors,
		   nreds, ngreens,
		   nblues, rmask, gmask, bmask)
  register Display *calling_dpy;
  Colormap cmap;
  Bool contig;
  unsigned long pixels[];	/* LISTofCARD32 *//* RETURN */
  int ncolors;
  int nreds, ngreens, nblues;
  unsigned long *rmask, *gmask, *bmask;	/* CARD32 *//* RETURN */
{
  xAllocColorPlanesReply rep;
  Status status;
  register xAllocColorPlanesReq *req;

  register Display *dpy;
  unsigned long new_masks[3], dflt_masks[3], *new_pixels;
  register int i;

  /* -- flush dpy to keep buffers aligned -- */
  XmuXFlushDefault (calling_dpy);

  if (ncolors)
    if ((new_pixels = (unsigned long *)
	 Xmalloc (ncolors * sizeof (long))) == NULL) {
      errno = ENOMEM;
      (*_XIOErrorFunction) (calling_dpy);
    }

  status = True;
  for (i = 0;
       (dpy = XmuXGetDisplay (calling_dpy, i)) != NULL && status; i++) {
    LockDisplay (dpy);
    GetReq (AllocColorPlanes, req);

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

    req->colors = ncolors;
    req->red = nreds;
    req->green = ngreens;
    req->blue = nblues;
    req->contiguous = contig;

    status = _XReply (dpy, (xReply *) & rep, 0, xFalse);

    if (status) {
      if (i == 0) {
	*rmask = rep.redMask;
	*gmask = rep.greenMask;
	*bmask = rep.blueMask;
	/* sizeof(CARD32) = 4 */
	_XRead32 (dpy, (char *) pixels, (long) (ncolors * 4));

	if (XmuXStoreResources (dpy)) {
	  dflt_masks[0] = rep.redMask;
	  dflt_masks[1] = rep.greenMask;
	  dflt_masks[2] = rep.blueMask;
	  XmuXUpdateColormapInfo (dpy, req->cmap, pixels,
				  ncolors, dflt_masks, 3, False,
				  False);
	}
      }
      else {
	new_masks[0] = rep.redMask;
	new_masks[1] = rep.greenMask;
	new_masks[2] = rep.blueMask;
	/* sizeof(CARD32) = 4 */
	_XRead32 (dpy, (char *) new_pixels, (long) (ncolors * 4));

	XmuXInsertPrivateCells (dpy, req->cmap, new_pixels, pixels,
				ncolors, new_masks, dflt_masks, 3,
				False);
      }
    }

    UnlockDisplay (dpy);
    SyncHandle ();
  }
  if (new_pixels)
    Xfree ((char *) new_pixels);
  return (status);
}