Return to XPeekEvent.c CVS log

Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / lib / X

researchv9-SUN3(old)

#include "copyright.h"

/* $Header: /var/lib/cvsd/repos/research/researchv9/X11/src/X.V11R1/lib/X/XPeekEvent.c,v 1.1.1.1 2018/04/24 17:22:00 root Exp $ */
/* Copyright    Massachusetts Institute of Technology    1986	*/

#define NEED_EVENTS
#include "Xlibint.h"

extern _XQEvent *_qfree;

/* 
 * Flush output and (wait for and) return the next event in the queue,
 * BUT do not remove it from the queue.
 */

XPeekEvent (dpy, event)
	register Display *dpy;
	register XEvent *event;
{
	register _XQEvent *qelt;
	xEvent ev;

	LockDisplay(dpy);
	_XFlush (dpy);
	if (qelt = (_XQEvent *)dpy->head) {
	    *event = qelt->event;
	    UnlockDisplay(dpy);
	    return;
	    }

	while (1) {
	    _XRead (dpy, (char *)&ev, (long) sizeof(xEvent));
	    if (ev.u.u.type == X_Error)
	    	_XError (dpy, (xError *) event);
	    else {  /* it's an event packet */
	    	_XEnq (dpy, &ev);
		*event = dpy->head->event;
		UnlockDisplay(dpy);
		return;
		}
	}
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.