Return to XPeekEvent.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / X / Xlib

BSD 4.3tahoe

#include <X/mit-copyright.h>

/* $Header: /var/lib/cvsd/repos/CSRG/43BSDTahoe/new/X/Xlib/XPeekEvent.c,v 1.1.1.1 2018/04/24 16:12:58 root Exp $ */
/* Copyright    Massachusetts Institute of Technology    1985	*/

#include "XlibInternal.h"

extern _QEvent *_qfree;

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

XPeekEvent (event)
	register XEvent *event;
{
	register _QEvent *qelt;
	register Display *dpy = _XlibCurrentDisplay;
	
	_XFlush (dpy);
	if (qelt = dpy->head) {
	    *event = qelt->event;
	    return;
	    }

	while (1) {
	    _XRead (dpy, (char *)event, sizeof(XEvent));
	    if (event->type == X_Error)
	    	_XError (dpy, (XErrorEvent *) event);
	    else {  /* it's an event packet */
	    	_XEnq (dpy, event);
		return;
		}
	}
}

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