|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T X ┃
Length: 759 (0x2f7)
Types: TextFile
Names: »XPeekEvent.c«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦526ad3590⟧ »EUUGD11/gnu-31mar87/X.V10.R4.tar.Z«
└─⟦2109abc41⟧
└─ ⟦this⟧ »./X.V10R4/Xlib/XPeekEvent.c«
#include <X/mit-copyright.h>
/* $Header: XPeekEvent.c,v 10.5 86/04/22 15:21:50 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,
* 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;
}
}
}