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

/* $XConsortium: XSync.c,v 11.14 88/10/15 12:42:34 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	 */
/* -- MULTIPLEX Extension -- */

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

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

extern _XQEvent *_qfree;

/* Synchronize with errors and events, optionally discarding pending events */

XSync (calling_dpy, discard)
/* -- must rename or else macro GetReq will fail -- */
  register Display *calling_dpy;
  Bool discard;
{
  xGetInputFocusReply rep;
  register xReq *req;

  register Display *dpy;
  register int i;

  /* -- flush default dpy's queue to keep buffers aligned -- */
  XmuXFlushDefault (calling_dpy);

  for (i = 0; (dpy = XmuXGetDisplay (calling_dpy, i)) != NULL; i++) {
    LockDisplay (dpy);
    GetEmptyReq (GetInputFocus, req);
    (void) _XReply (dpy, (xReply *) & rep, 0, xTrue);

    if (discard && dpy->head) {
      ((_XQEvent *) dpy->tail)->next = _qfree;
      _qfree = (_XQEvent *) dpy->head;
      dpy->head = dpy->tail = NULL;
      dpy->qlen = 0;
    }
    UnlockDisplay (dpy);
  }
}