/*
 * -- $Header: /cec/src/nestor/servers/R3/shXlib/XNextEvent.c,v 1.1.1.1
 * 90/04/23 10:02:27 spanachi Exp $
 */

#include "copyright.h"

/* $XConsortium: XNextEvent.c,v 11.15 88/09/06 16:09:22 jim Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	 */

/* -- MULTIPLEX Extension -- */

#define NEED_EVENTS
#include "Xlibint.h"

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

extern _XQEvent *_qfree;

/*
 * Return next event in queue, or if none, flush output and wait for events.
 */

XNextEvent (dpy, event)
  register Display *dpy;
  register XEvent *event;
{
  register _XQEvent *qelt;

  LockDisplay (dpy);

  if (dpy->head == NULL)
    _XReadEvents (dpy);

  /*
   * -- may have enqueued something special without calling _XReadEvents
   */
  if (XmuXMustDoSomething (dpy))
    XmuXDoSomething (dpy);
  qelt = dpy->head;
  *event = qelt->event;

  /* move the head of the queue to the free list */
  if ((dpy->head = qelt->next) == NULL)
    dpy->tail = NULL;
  qelt->next = _qfree;
  _qfree = qelt;
  dpy->qlen--;
  UnlockDisplay (dpy);
  return;
}