DataMuseum.dk

top - download

    Length: 1223 (0x4c7)
    Types: TextFile
    Names: »XMaskEvent.c«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦526ad3590⟧ »EUUGD11/gnu-31mar87/X.V10.R4.tar.Z« 
        └─⟦2109abc41⟧ 
            └─ ⟦this⟧ »./X.V10R4/Xlib/XMaskEvent.c« 

TextFile

#include <X/mit-copyright.h>

/* $Header: XMaskEvent.c,v 10.5 86/04/22 15:19:51 jg Rel $ */
/* 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
 * matching one of the events in the mask.
 * Events earlier in the queue are not discarded.
 */

XMaskEvent (mask, event)
	int mask;		/* Selected event mask. */
	register XEvent *event;	/* XEvent to be filled in. */
{
	register Display *dpy;
	register _QEvent *prev, *qelt;

	dpy = _XlibCurrentDisplay;
	_XFlush (dpy);
	for (prev = NULL, qelt = dpy->head;
	     qelt &&  !(qelt->event.type & mask);
	     qelt = (prev = qelt)->next) ;
	if (qelt) {
	    *event = qelt->event;
	    if (prev) {
		if ((prev->next = qelt->next) == NULL)
		    dpy->tail = prev;
	    } else {
		if ((dpy->head = qelt->next) == NULL)
		    dpy->tail = NULL;
	    }
	    qelt->next = _qfree;
	    _qfree = qelt;
	    dpy->qlen--;
	    return;
	}
	while (1) {
	    _XRead (dpy, (char *)event, sizeof(XEvent));
	    if (event->type == X_Error)
		_XError(dpy, (XErrorEvent *) event);
	    else if (event->type & mask)
		return;
	    else
		_XEnq(dpy, event);
	}
}