🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: vmsnet.sources
Article #107

XSCOPE/VMS 1.0, part 04/08

#107
From: Patrick L. Mahan - TGV Window Wa...
Date: Fri, 04 Sep 1992 05:34
1581 lines
50424 bytes
Submitted-by: mahan@tgv.com (Patrick L. Mahan - TGV Window Washer)
Posting-number: Volume 3, Issue 156
Archive-name: xscope/part04


-+-+-+-+-+-+-+-+ START OF PART 4 -+-+-+-+-+-+-+-+
XMapRequestEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* MapRequest */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "parent");
X  PrintField(buf, 8, 4, WINDOW, "window");
X`7D
X
XReparentNotifyEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ReparentNotify */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "event");
X  PrintField(buf, 8, 4, WINDOW, "window");
X  PrintField(buf, 12, 4, WINDOW, "parent");
X  PrintField(buf, 16, 2, INT16, "x");
X  PrintField(buf, 18, 2, INT16, "y");
X  PrintField(buf, 20, 1, BOOL, "override-redirect");
X`7D
X
XConfigureNotifyEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ConfigureNotify */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "event");
X  PrintField(buf, 8, 4, WINDOW, "window");
X  PrintField(buf, 12, 4, WINDOW, "above-sibling");
X  PrintField(buf, 16, 2, INT16, "x");
X  PrintField(buf, 18, 2, INT16, "y");
X  PrintField(buf, 20, 2, CARD16, "width");
X  PrintField(buf, 22, 2, CARD16, "height");
X  PrintField(buf, 24, 2, CARD16, "border-width");
X  PrintField(buf, 26, 1, BOOL, "override-redirect");
X`7D
X
XConfigureRequestEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ConfigureRequest */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, STACKMODE, "stack-mode");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "parent");
X  PrintField(buf, 8, 4, WINDOW, "window");
X  PrintField(buf, 12, 4, WINDOW, "sibling");
X  PrintField(buf, 16, 2, INT16, "x");
X  PrintField(buf, 18, 2, INT16, "y");
X  PrintField(buf, 20, 2, CARD16, "width");
X  PrintField(buf, 22, 2, CARD16, "height");
X  PrintField(buf, 24, 2, CARD16, "border-width");
X  PrintField(buf, 26, 2, CONFIGURE_BITMASK, "value-mask");
X`7D
X
XGravityNotifyEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* GravityNotify */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "event");
X  PrintField(buf, 8, 4, WINDOW, "window");
X  PrintField(buf, 12, 2, INT16, "x");
X  PrintField(buf, 14, 2, INT16, "y");
X`7D
X
XResizeRequestEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ResizeRequest */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 2, CARD16, "width");
X  PrintField(buf, 10, 2, CARD16, "height");
X`7D
X
XCirculateNotifyEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* CirculateNotify */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "event");
X  PrintField(buf, 8, 4, WINDOW, "window");
X  PrintField(buf, 12, 4, WINDOW, "parent");
X  PrintField(buf, 16, 1, CIRSTAT, "place");
X`7D
X
XCirculateRequestEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* CirculateRequest */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "parent");
X  PrintField(buf, 8, 4, WINDOW, "window");
X  PrintField(buf, 16, 1, CIRSTAT, "place");
X`7D
X
XPropertyNotifyEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* PropertyNotify */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 4, ATOM, "atom");
X  PrintField(buf, 12, 4, TIMESTAMP, "time");
X  PrintField(buf, 16, 1, PROPCHANGE, "state");
X`7D
X
XSelectionClearEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* SelectionClear */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, TIMESTAMP, "time");
X  PrintField(buf, 8, 4, WINDOW, "owner");
X  PrintField(buf, 12, 4, ATOM, "selection");
X`7D
X
XSelectionRequestEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* SelectionRequest */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, TIMESTAMP, "time");
X  PrintField(buf, 8, 4, WINDOW, "owner");
X  PrintField(buf, 12, 4, WINDOW, "requestor");
X  PrintField(buf, 16, 4, ATOM, "selection");
X  PrintField(buf, 20, 4, ATOM, "target");
X  PrintField(buf, 24, 4, ATOM, "property");
X`7D
X
XSelectionNotifyEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* SelectionNotify */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, TIMESTAMP, "time");
X  PrintField(buf, 8, 4, WINDOW, "requestor");
X  PrintField(buf, 12, 4, ATOM, "selection");
X  PrintField(buf, 16, 4, ATOM, "target");
X  PrintField(buf, 20, 4, ATOM, "property");
X`7D
X
XColormapNotifyEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ColormapNotify */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 4, COLORMAP, "colormap");
X  PrintField(buf, 12, 1, BOOL, "new");
X  PrintField(buf, 13, 1, CMAPCHANGE, "state");
X`7D
X
XClientMessageEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* ClientMessage */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, CARD8, "format");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 4, ATOM, "type");
X  PrintBytes(&buf`5B12`5D, (long)20,"data");
X`7D
X
XMappingNotifyEvent(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 0, 1, EVENT, EVENTHEADER) /* MappingNotify */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  PrintField(buf, 4, 1, MAPOBJECT, "request");
X  PrintField(buf, 5, 1, KEYCODE, "first-keycode");
X  PrintField(buf, 6, 1, CARD8, "count");
X`7D
X
X/* ************************************************************ */
X/*`09`09`09`09`09`09`09`09*/
X/*`09`09`09`09`09`09`09`09*/
X/* ************************************************************ */
X
X/* Request and Reply Printing procedures */
X
XCreateWindow(buf)
X     unsigned char *buf;
X`7B
X  /* Request CreateWindow is opcode 1 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CreateWindow */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, CARD8, "depth");
X  printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
X  PrintField(buf, 4, 4, WINDOW, "wid");
X  PrintField(buf, 8, 4, WINDOW, "parent");
X  PrintField(buf, 12, 2, INT16, "x");
X  PrintField(buf, 14, 2, INT16, "y");
X  PrintField(buf, 16, 2, CARD16, "width");
X  PrintField(buf, 18, 2, CARD16, "height");
X  PrintField(buf, 20, 2, CARD16, "border-width");
X  PrintField(buf, 22, 2, WINDOWCLASS, "class");
X  PrintField(buf, 24, 4, VISUALIDC, "visual");
X  PrintField(buf, 28, 4, WINDOW_BITMASK, "value-mask");
X  PrintValues(&buf`5B28`5D, 4, WINDOW_BITMASK, &buf`5B32`5D, "value-list");
X`7D
X
XChangeWindowAttributes(buf)
X     unsigned char *buf;
X`7B
X  /* Request ChangeWindowAttributes is opcode 2 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeWindowAttributes */
V ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, DVALUE2(3 + n), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 4, WINDOW_BITMASK, "value-mask");
X  PrintValues(&buf`5B8`5D, 4, WINDOW_BITMASK, &buf`5B12`5D, "value-list");
X`7D
X
XGetWindowAttributes(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetWindowAttributes is opcode 3 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetWindowAttributes */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XGetWindowAttributesReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetWindowAttributes */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, BACKSTORE, "backing-store");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(3), "reply length");
X  PrintField(buf, 8, 4, VISUALID, "visual");
X  PrintField(buf, 12, 2, WINDOWCLASS, "class");
X  PrintField(buf, 14, 1, BITGRAVITY, "bit-gravity");
X  PrintField(buf, 15, 1, WINGRAVITY, "win-gravity");
X  PrintField(buf, 16, 4, CARD32, "backing-planes");
X  PrintField(buf, 20, 4, CARD32, "backing-pixel");
X  PrintField(buf, 24, 1, BOOL, "save-under");
X  PrintField(buf, 25, 1, BOOL, "map-is-installed");
X  PrintField(buf, 26, 1, MAPSTATE, "map-state");
X  PrintField(buf, 27, 1, BOOL, "override-redirect");
X  PrintField(buf, 28, 4, COLORMAP, "colormap");
X  PrintField(buf, 32, 4, SETofEVENT, "all-event-masks");
X  PrintField(buf, 36, 4, SETofEVENT, "your-event-mask");
X  PrintField(buf, 40, 2, SETofDEVICEEVENT, "do-not-propagate-mask");
X`7D
X
XDestroyWindow(buf)
X     unsigned char *buf;
X`7B
X  /* Request DestroyWindow is opcode 4 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* DestroyWindow */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XDestroySubwindows(buf)
X     unsigned char *buf;
X`7B
X  /* Request DestroySubwindows is opcode 5 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* DestroySubwindows */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XChangeSaveSet(buf)
X     unsigned char *buf;
X`7B
X  /* Request ChangeSaveSet is opcode 6 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeSaveSet */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, INS_DEL, "mode");
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XReparentWindow(buf)
X     unsigned char *buf;
X`7B
X  /* Request ReparentWindow is opcode 7 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ReparentWindow */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 4, WINDOW, "parent");
X  PrintField(buf, 12, 2, INT16, "x");
X  PrintField(buf, 14, 2, INT16, "y");
X`7D
X
XMapWindow(buf)
X     unsigned char *buf;
X`7B
X  /* Request MapWindow is opcode 8 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* MapWindow */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XMapSubwindows(buf)
X     unsigned char *buf;
X`7B
X  /* Request MapSubwindows is opcode 9 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* MapSubwindows */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XUnmapWindow(buf)
X     unsigned char *buf;
X`7B
X  /* Request UnmapWindow is opcode 10 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UnmapWindow */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XUnmapSubwindows(buf)
X     unsigned char *buf;
X`7B
X  /* Request UnmapSubwindows is opcode 11 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UnmapSubwindows */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XConfigureWindow(buf)
X     unsigned char *buf;
X`7B
X  /* Request ConfigureWindow is opcode 12 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ConfigureWindow */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, DVALUE2(3 + n), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 2, CONFIGURE_BITMASK, "value-mask");
X  PrintValues(&buf`5B8`5D, 2, CONFIGURE_BITMASK, &buf`5B12`5D, "value-list")
V;
X`7D
X
XCirculateWindow(buf)
X     unsigned char *buf;
X`7B
X  /* Request CirculateWindow is opcode 13 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CirculateWindow */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, CIRMODE, "direction");
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XGetGeometry(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetGeometry is opcode 14 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetGeometry */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X`7D
X
XGetGeometryReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetGeometry */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, CARD8, "depth");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X  PrintField(buf, 8, 4, WINDOW, "root");
X  PrintField(buf, 12, 2, INT16, "x");
X  PrintField(buf, 14, 2, INT16, "y");
X  PrintField(buf, 16, 2, CARD16, "width");
X  PrintField(buf, 18, 2, CARD16, "height");
X  PrintField(buf, 20, 2, CARD16, "border-width");
X`7D
X
XQueryTree(buf)
X     unsigned char *buf;
X`7B
X  /* Request QueryTree is opcode 15 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryTree */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XQueryTreeReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryTree */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4(n), "reply length");
X  PrintField(buf, 8, 4, WINDOW, "root");
X  PrintField(buf, 12, 4, WINDOW, "parent");
X  printfield(buf, 16, 2, DVALUE2(n), "number of children");
X  n = IShort(&buf`5B16`5D);
X  PrintList(&buf`5B32`5D, (long)n, WINDOW, "children");
X`7D
X
XInternAtom(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request InternAtom is opcode 16 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* InternAtom */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, BOOL, "only-if-exists");
X  printfield(buf, 2, 2, DVALUE2(2 + (n + p) / 4), "request length");
X  printfield(buf, 4, 2, DVALUE2(n), "length of name");
X  n = IShort(&buf`5B4`5D);
X  PrintString8(&buf`5B8`5D, n, "name");
X`7D
X
XInternAtomReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* InternAtom */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X  PrintField(buf, 8, 4, ATOM, "atom");
X`7D
X
XGetAtomName(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetAtomName is opcode 17 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetAtomName */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, ATOM, "atom");
X`7D
X
XGetAtomNameReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetAtomName */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
X  printfield(buf, 8, 2, DVALUE2(n), "length of name");
X  n = IShort(&buf`5B8`5D);
X  PrintString8(&buf`5B32`5D, n, "name");
X`7D
X
XChangeProperty(buf)
X     unsigned char *buf;
X`7B
X  long    n;
X  short   unit;
X  long    type;
X
X  /* Request ChangeProperty is opcode 18 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeProperty */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, CHANGEMODE, "mode");
X  printfield(buf, 2, 2, DVALUE2(6 + (n + p) / 4), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 4, ATOM, "property");
X  PrintField(buf, 12, 4, ATOM, "type");
X  type = ILong(&buf`5B12`5D);
X  PrintField(buf, 16, 1, CARD8, "format");
X  unit = IByte(&buf`5B16`5D) / 8;
X  printfield(buf, 20, 4, CARD32, "length of data");
X  n = ILong(&buf`5B20`5D);
X  if (type == 31 /* string */)
X    PrintString8(&buf`5B24`5D, n * unit, "data");
X  else
X    PrintBytes(&buf`5B24`5D, n * unit, "data");
X`7D
X
XDeleteProperty(buf)
X     unsigned char *buf;
X`7B
X  /* Request DeleteProperty is opcode 19 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* DeleteProperty */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(3), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 4, ATOM, "property");
X`7D
X
XGetProperty(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetProperty is opcode 20 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetProperty */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, BOOL, "delete");
X  printfield(buf, 2, 2, CONST2(6), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 4, ATOM, "property");
X  PrintField(buf, 12, 4, ATOMT, "type");
X  PrintField(buf, 16, 4, CARD32, "long-offset");
X  printfield(buf, 20, 4, CARD32, "long-length");
X`7D
X
XGetPropertyReply(buf)
X     unsigned char *buf;
X`7B
X  long    n;
X  short   unit;
X  long    type;
X
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetProperty */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, CARD8, "format");
X  unit = IByte(&buf`5B1`5D) / 8;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
X  PrintField(buf, 8, 4, ATOM, "type");
X  type = ILong(&buf`5B8`5D);
X  PrintField(buf, 12, 4, CARD32, "bytes-after");
X  printfield(buf, 16, 4, CARD32, "length of value");
X  n = ILong(&buf`5B16`5D);
X  if (type == 31 /* string */)
X    PrintString8(&buf`5B32`5D, n * unit, "value");
X  else
X    PrintBytes(&buf`5B32`5D, n * unit, "value");
X`7D
X
XListProperties(buf)
X     unsigned char *buf;
X`7B
X  /* Request ListProperties is opcode 21 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ListProperties */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XListPropertiesReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* ListProperties */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4(n), "reply length");
X  printfield(buf, 8, 2, DVALUE2(n), "number of atoms");
X  n = IShort(&buf`5B8`5D);
X  PrintList(&buf`5B32`5D, (long)n, ATOM, "atoms");
X`7D
X
XSetSelectionOwner(buf)
X     unsigned char *buf;
X`7B
X  /* Request SetSelectionOwner is opcode 22 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetSelectionOwner */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, WINDOW, "owner");
X  PrintField(buf, 8, 4, ATOM, "selection");
X  PrintField(buf, 12, 4, TIMESTAMP, "time");
X`7D
X
XGetSelectionOwner(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetSelectionOwner is opcode 23 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetSelectionOwner */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, ATOM, "selection");
X`7D
X
XGetSelectionOwnerReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetSelectionOwner */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X  PrintField(buf, 8, 4, WINDOW, "owner");
X`7D
X
XConvertSelection(buf)
X     unsigned char *buf;
X`7B
X  /* Request ConvertSelection is opcode 24 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ConvertSelection */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(6), "request length");
X  PrintField(buf, 4, 4, WINDOW, "requestor");
X  PrintField(buf, 8, 4, ATOM, "selection");
X  PrintField(buf, 12, 4, ATOM, "target");
X  PrintField(buf, 16, 4, ATOM, "property");
X  PrintField(buf, 20, 4, TIMESTAMP, "time");
X`7D
X
XSendEvent(buf)
X     unsigned char *buf;
X`7B
X  /* Request SendEvent is opcode 25 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SendEvent */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, BOOL, "propagate");
X  printfield(buf, 2, 2, CONST2(11), "request length");
X  PrintField(buf, 4, 4, WINDOWD, "destination");
X  PrintField(buf, 8, 4, SETofEVENT, "event-mask");
X  PrintField(buf, 12, 32, EVENTFORM, "event");
X`7D
X
XGrabPointer(buf)
X     unsigned char *buf;
X`7B
X  /* Request GrabPointer is opcode 26 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabPointer */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, BOOL, "owner-events");
X  printfield(buf, 2, 2, CONST2(6), "request length");
X  PrintField(buf, 4, 4, WINDOW, "grab-window");
X  PrintField(buf, 8, 2, SETofPOINTEREVENT, "event-mask");
X  PrintField(buf, 10, 1, PK_MODE, "pointer-mode");
X  PrintField(buf, 11, 1, PK_MODE, "keyboard-mode");
X  PrintField(buf, 12, 4, WINDOW, "confine-to");
X  PrintField(buf, 16, 4, CURSOR, "cursor");
X  PrintField(buf, 20, 4, TIMESTAMP, "time");
X`7D
X
XGrabPointerReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GrabPointer */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, GRABSTAT, "status");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X`7D
X
XUngrabPointer(buf)
X     unsigned char *buf;
X`7B
X  /* Request UngrabPointer is opcode 27 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabPointer */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, TIMESTAMP, "time");
X`7D
X
XGrabButton(buf)
X     unsigned char *buf;
X`7B
X  /* Request GrabButton is opcode 28 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabButton */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, BOOL, "owner-events");
X  printfield(buf, 2, 2, CONST2(6), "request length");
X  PrintField(buf, 4, 4, WINDOW, "grab-window");
X  PrintField(buf, 8, 2, SETofPOINTEREVENT, "event-mask");
X  PrintField(buf, 10, 1, PK_MODE, "pointer-mode");
X  PrintField(buf, 11, 1, PK_MODE, "keyboard-mode");
X  PrintField(buf, 12, 4, WINDOW, "confine-to");
X  PrintField(buf, 16, 4, CURSOR, "cursor");
X  PrintField(buf, 20, 1, BUTTONA, "button");
X  PrintField(buf, 22, 2, SETofKEYMASK, "modifiers");
X`7D
X
XUngrabButton(buf)
X     unsigned char *buf;
X`7B
X  /* Request UngrabButton is opcode 29 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabButton */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, BUTTONA, "button");
X  printfield(buf, 2, 2, CONST2(3), "request length");
X  PrintField(buf, 4, 4, WINDOW, "grab-window");
X  PrintField(buf, 8, 2, SETofKEYMASK, "modifiers");
X`7D
X
XChangeActivePointerGrab(buf)
X     unsigned char *buf;
X`7B
X  /* Request ChangeActivePointerGrab is opcode 30 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeActivePointerGrab *
V/ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, CURSOR, "cursor");
X  PrintField(buf, 8, 4, TIMESTAMP, "time");
X  PrintField(buf, 12, 2, SETofPOINTEREVENT, "event-mask");
X`7D
X
XGrabKeyboard(buf)
X     unsigned char *buf;
X`7B
X  /* Request GrabKeyboard is opcode 31 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabKeyboard */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, BOOL, "owner-events");
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, WINDOW, "grab-window");
X  PrintField(buf, 8, 4, TIMESTAMP, "time");
X  PrintField(buf, 12, 1, PK_MODE, "pointer-mode");
X  PrintField(buf, 13, 1, PK_MODE, "keyboard-mode");
X`7D
X
XGrabKeyboardReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GrabKeyboard */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, GRABSTAT, "status");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X`7D
X
XUngrabKeyboard(buf)
X     unsigned char *buf;
X`7B
X  /* Request UngrabKeyboard is opcode 32 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabKeyboard */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, TIMESTAMP, "time");
X`7D
X
XGrabKey(buf)
X     unsigned char *buf;
X`7B
X  /* Request GrabKey is opcode 33 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabKey */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, BOOL, "owner-events");
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, WINDOW, "grab-window");
X  PrintField(buf, 8, 2, SETofKEYMASK, "modifiers");
X  PrintField(buf, 10, 1, KEYCODEA, "key");
X  PrintField(buf, 11, 1, PK_MODE, "pointer-mode");
X  PrintField(buf, 12, 1, PK_MODE, "keyboard-mode");
X`7D
X
XUngrabKey(buf)
X     unsigned char *buf;
X`7B
X  /* Request UngrabKey is opcode 34 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabKey */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, KEYCODEA, "key");
X  printfield(buf, 2, 2, CONST2(3), "request length");
X  PrintField(buf, 4, 4, WINDOW, "grab-window");
X  PrintField(buf, 8, 2, SETofKEYMASK, "modifiers");
X`7D
X
XAllowEvents(buf)
X     unsigned char *buf;
X`7B
X  /* Request AllowEvents is opcode 35 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* AllowEvents */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, EVENTMODE, "mode");
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, TIMESTAMP, "time");
X`7D
X
XGrabServer(buf)
X     unsigned char *buf;
X`7B
X  /* Request GrabServer is opcode 36 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GrabServer */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(1), "request length");
X`7D
X
XUngrabServer(buf)
X     unsigned char *buf;
X`7B
X  /* Request UngrabServer is opcode 37 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UngrabServer */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(1), "request length");
X`7D
X
XQueryPointer(buf)
X     unsigned char *buf;
X`7B
X  /* Request QueryPointer is opcode 38 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryPointer */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XQueryPointerReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryPointer */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, BOOL, "same-screen");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X  PrintField(buf, 8, 4, WINDOW, "root");
X  PrintField(buf, 12, 4, WINDOW, "child");
X  PrintField(buf, 16, 2, INT16, "root-x");
X  PrintField(buf, 18, 2, INT16, "root-y");
X  PrintField(buf, 20, 2, INT16, "win-x");
X  PrintField(buf, 22, 2, INT16, "win-y");
X  PrintField(buf, 24, 2, SETofKEYBUTMASK, "mask");
X`7D
X
XGetMotionEvents(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetMotionEvents is opcode 39 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetMotionEvents */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 4, TIMESTAMP, "start");
X  PrintField(buf, 12, 4, TIMESTAMP, "stop");
X`7D
X
XGetMotionEventsReply(buf)
X     unsigned char *buf;
X`7B
X  long   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetMotionEvents */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4(2*n), "reply length");
X  printfield(buf, 8, 4, DVALUE4(n), "number of events");
X  n = ILong(&buf`5B8`5D);
X  PrintList(&buf`5B32`5D, n, TIMECOORD, "events");
X`7D
X
XTranslateCoordinates(buf)
X     unsigned char *buf;
X`7B
X  /* Request TranslateCoordinates is opcode 40 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* TranslateCoordinates */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, WINDOW, "src-window");
X  PrintField(buf, 8, 4, WINDOW, "dst-window");
X  PrintField(buf, 12, 2, INT16, "src-x");
X  PrintField(buf, 14, 2, INT16, "src-y");
X`7D
X
XTranslateCoordinatesReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* TranslateCoordinates */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, BOOL, "same-screen");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X  PrintField(buf, 8, 4, WINDOW, "child");
X  PrintField(buf, 12, 2, INT16, "dst-x");
X  PrintField(buf, 14, 2, INT16, "dst-y");
X`7D
X
XWarpPointer(buf)
X     unsigned char *buf;
X`7B
X  /* Request WarpPointer is opcode 41 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* WarpPointer */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(6), "request length");
X  PrintField(buf, 4, 4, WINDOW, "src-window");
X  PrintField(buf, 8, 4, WINDOW, "dst-window");
X  PrintField(buf, 12, 2, INT16, "src-x");
X  PrintField(buf, 14, 2, INT16, "src-y");
X  PrintField(buf, 16, 2, CARD16, "src-width");
X  PrintField(buf, 18, 2, CARD16, "src-height");
X  PrintField(buf, 20, 2, INT16, "dst-x");
X  PrintField(buf, 22, 2, INT16, "dst-y");
X`7D
X
XSetInputFocus(buf)
X     unsigned char *buf;
X`7B
X  /* Request SetInputFocus is opcode 42 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetInputFocus */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, FOCUSAGENT, "revert-to");
X  printfield(buf, 2, 2, CONST2(3), "request length");
X  PrintField(buf, 4, 4, WINDOWNR, "focus");
X  PrintField(buf, 8, 4, TIMESTAMP, "time");
X`7D
X
XGetInputFocus(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetInputFocus is opcode 43 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetInputFocus */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(1), "request length");
X`7D
X
XGetInputFocusReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetInputFocus */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, FOCUSAGENT, "revert-to");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X  PrintField(buf, 8, 4, WINDOWNR, "focus");
X`7D
X
XQueryKeymap(buf)
X     unsigned char *buf;
X`7B
X  /* Request QueryKeymap is opcode 44 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryKeymap */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(1), "request length");
X`7D
X
XQueryKeymapReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryKeymap */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(2), "reply length");
X  PrintBytes(&buf`5B8`5D, 32L, "keys");
X`7D
X
XOpenFont(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request OpenFont is opcode 45 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* OpenFont */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, DVALUE2(3 + (n + p) / 4), "request length");
X  PrintField(buf, 4, 4, FONT, "font-id");
X  printfield(buf, 8, 2, DVALUE2(n), "length of name");
X  n = IShort(&buf`5B8`5D);
X  PrintString8(&buf`5B12`5D, n, "name");
X`7D
X
XCloseFont(buf)
X     unsigned char *buf;
X`7B
X  /* Request CloseFont is opcode 46 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CloseFont */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, FONT, "font");
X`7D
X
XQueryFont(buf)
X     unsigned char *buf;
X`7B
X  /* Request QueryFont is opcode 47 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryFont */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, FONTABLE, "font");
X`7D
X
XQueryFontReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  long    m;
X  long   k;
X
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryFont */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4(7 + 2*n + 3*m), "reply length");
X  PrintField(buf, 8, 12, CHARINFO, "min-bounds");
X  PrintField(buf, 24, 12, CHARINFO, "max-bounds");
X  PrintField(buf, 40, 2, CARD16, "min-char-or-byte2");
X  PrintField(buf, 42, 2, CARD16, "max-char-or-byte2");
X  PrintField(buf, 44, 2, CARD16, "default-char");
X  printfield(buf, 46, 2, DVALUE2(n), "number of FONTPROPs");
X  n = IShort(&buf`5B46`5D);
X  PrintField(buf, 48, 1, DIRECT, "draw-direction");
X  PrintField(buf, 49, 1, CARD8, "min-byte1");
X  PrintField(buf, 50, 1, CARD8, "max-byte1");
X  PrintField(buf, 51, 1, BOOL, "all-chars-exist");
X  PrintField(buf, 52, 2, INT16, "font-ascent");
X  PrintField(buf, 54, 2, INT16, "font-descent");
X  printfield(buf, 56, 4, DVALUE4(m), "number of CHARINFOs");
X  m = ILong(&buf`5B56`5D);
X  k = PrintList(&buf`5B60`5D, (long)n, FONTPROP, "properties");
X  PrintList(&buf`5B60 + k`5D, (long)m, CHARINFO, "char-infos");
X`7D
X
XQueryTextExtents(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X
X  /* Request QueryTextExtents is opcode 48 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryTextExtents */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 1, 1, BOOL, "odd length?");
X  printfield(buf, 2, 2, DVALUE2(2 + (2*n + p) / 4), "request length");
X  n = (IShort(&buf`5B2`5D) - 2) * 4 / 2;
X  if (IBool(&buf`5B1`5D))
X    n -= 1;
X  PrintField(buf, 4, 4, FONTABLE, "font");
X  PrintString16(&buf`5B8`5D, n, "string");
X`7D
X
XQueryTextExtentsReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryTextExtents */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, DIRECT, "draw-direction");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X  PrintField(buf, 8, 2, INT16, "font-ascent");
X  PrintField(buf, 10, 2, INT16, "font-descent");
X  PrintField(buf, 12, 2, INT16, "overall-ascent");
X  PrintField(buf, 14, 2, INT16, "overall-descent");
X  PrintField(buf, 16, 4, INT32, "overall-width");
X  PrintField(buf, 20, 4, INT32, "overall-left");
X  PrintField(buf, 24, 4, INT32, "overall-right");
X`7D
X
XListFonts(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request ListFonts is opcode 49 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ListFonts */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, DVALUE2(2 + (n + p) / 4), "request length");
X  PrintField(buf, 4, 2, CARD16, "max-names");
X  printfield(buf, 6, 2, DVALUE2(n), "length of pattern");
X  n = IShort(&buf`5B6`5D);
X  PrintString8(&buf`5B8`5D, n, "pattern");
X`7D
X
XListFontsReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* ListFonts */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
X  printfield(buf, 8, 2, CARD16, "number of names");
X  n = IShort(&buf`5B8`5D);
X  PrintListSTR(&buf`5B32`5D, (long)n, "names");
X`7D
X
XListFontsWithInfo(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request ListFontsWithInfo is opcode 50 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ListFontsWithInfo */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, DVALUE2(2 + (n + p) / 4), "request length");
X  PrintField(buf, 4, 2, CARD16, "max-names");
X  printfield(buf, 6, 2, DVALUE2(n), "length of pattern");
X  n = IShort(&buf`5B6`5D);
X  PrintString8(&buf`5B8`5D, n, "pattern");
X`7D
X
XListFontsWithInfoReply(buf)
X     unsigned char *buf;
X`7B
X  short which;
X
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* ListFontsWithInfo */ ;
X  if (Verbose < 1) return;
X  which = IByte(&buf`5B1`5D);
X  if (which != 0)
X    `7B
X      ListFontsWithInfoReply1(buf);
X      KeepLastReplyExpected();
X    `7D
X  else
X    ListFontsWithInfoReply2(buf);
X`7D
X
XListFontsWithInfoReply1(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  short   m;
X  printfield(buf, 1, 1, DVALUE1(n), "length of name in bytes");
X  n = IByte(&buf`5B1`5D);
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4(7 + 2*m + (n + p) / 4), "reply length");
X  PrintField(buf, 8, 12, CHARINFO, "min-bounds");
X  PrintField(buf, 24, 12, CHARINFO, "max-bounds");
X  PrintField(buf, 40, 2, CARD16, "min-char-or-byte2");
X  PrintField(buf, 42, 2, CARD16, "max-char-or-byte2");
X  PrintField(buf, 44, 2, CARD16, "default-char");
X  printfield(buf, 46, 2, DVALUE2(m), "number of FONTPROPs");
X  m = IShort(&buf`5B46`5D);
X  PrintField(buf, 48, 1, DIRECT, "draw-direction");
X  PrintField(buf, 49, 1, CARD8, "min-byte1");
X  PrintField(buf, 50, 1, CARD8, "max-byte1");
X  PrintField(buf, 51, 1, BOOL, "all-chars-exist");
X  PrintField(buf, 52, 2, INT16, "font-ascent");
X  PrintField(buf, 54, 2, INT16, "font-descent");
X  PrintField(buf, 56, 4, CARD32, "replies-hint");
X  PrintList(&buf`5B60`5D, (long)m, FONTPROP, "properties");
X  PrintString8(&buf`5B60 + 8 * m`5D, n, "name");
X`7D
X
XListFontsWithInfoReply2(buf)
X     unsigned char *buf;
X`7B
X  PrintField(buf, 1, 1, CONST1(0), "last-reply indicator");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(7), "reply length");
X`7D
X
XSetFontPath(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request SetFontPath is opcode 51 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetFontPath */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, DVALUE2(2 + (n + p) / 4), "request length");
X  printfield(buf, 4, 2, CARD16, "number of paths");
X  n = IShort(&buf`5B4`5D);
X  PrintListSTR(&buf`5B8`5D, (long)n, "paths");
X`7D
X
XGetFontPath(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetFontPath is opcode 52 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetFontPath */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 2, 2, CONST2(1), "request list");
X`7D
X
XGetFontPathReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetFontPath */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
X  printfield(buf, 8, 2, CARD16, "number of paths");
X  n = IShort(&buf`5B8`5D);
X  PrintListSTR(&buf`5B32`5D, (long)n, "paths");
X`7D
X
XCreatePixmap(buf)
X     unsigned char *buf;
X`7B
X  /* Request CreatePixmap is opcode 53 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CreatePixmap */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, CARD8, "depth");
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, PIXMAP, "pixmap-id");
X  PrintField(buf, 8, 4, DRAWABLE, "drawable");
X  PrintField(buf, 12, 2, CARD16, "width");
X  PrintField(buf, 14, 2, CARD16, "height");
X`7D
X
XFreePixmap(buf)
X     unsigned char *buf;
X`7B
X  /* Request FreePixmap is opcode 54 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* FreePixmap */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, PIXMAP, "pixmap");
X`7D
X
XCreateGC(buf)
X     unsigned char *buf;
X`7B
X  /* Request CreateGC is opcode 55 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CreateGC */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, DVALUE2(4 + n), "request length");
X  PrintField(buf, 4, 4, GCONTEXT, "graphic-context-id");
X  PrintField(buf, 8, 4, DRAWABLE, "drawable");
X  PrintField(buf, 12, 4, GC_BITMASK, "value-mask");
X  PrintValues(&buf`5B12`5D, 4, GC_BITMASK, &buf`5B16`5D, "value-list");
X`7D
X
XChangeGC(buf)
X     unsigned char *buf;
X`7B
X  /* Request ChangeGC is opcode 56 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeGC */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, DVALUE2(3 + n), "request length");
X  PrintField(buf, 4, 4, GCONTEXT, "gc");
X  PrintField(buf, 8, 4, GC_BITMASK, "value-mask");
X  PrintValues(&buf`5B8`5D, 4, GC_BITMASK, &buf`5B12`5D, "value-list");
X`7D
X
XCopyGC(buf)
X     unsigned char *buf;
X`7B
X  /* Request CopyGC is opcode 57 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CopyGC */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, GCONTEXT, "src-gc");
X  PrintField(buf, 8, 4, GCONTEXT, "dst-gc");
X  PrintField(buf, 12, 4, GC_BITMASK, "value-mask");
X`7D
X
XSetDashes(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request SetDashes is opcode 58 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetDashes */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, DVALUE2(3 + (n + p) / 4), "request length");
X  PrintField(buf, 4, 4, GCONTEXT, "gc");
X  PrintField(buf, 8, 2, CARD16, "dash-offset");
X  printfield(buf, 10, 2, DVALUE2(n), "length of dashes");
X  n = IShort(&buf`5B10`5D);
X  PrintBytes(&buf`5B12`5D, (long)n, "dashes");
X`7D
X
XSetClipRectangles(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X
X  /* Request SetClipRectangles is opcode 59 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetClipRectangles */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, RECTORDER, "ordering");
X  printfield(buf, 2, 2, DVALUE2(3 + 2*n), "request length");
X  n = (IShort(&buf`5B2`5D) - 3) / 2;
X  PrintField(buf, 4, 4, GCONTEXT, "gc");
X  PrintField(buf, 8, 2, INT16, "clip-x-origin");
X  PrintField(buf, 10, 2, INT16, "clip-y-origin");
X  PrintList(&buf`5B12`5D, (long)n, RECTANGLE, "rectangles");
X`7D
X
XFreeGC(buf)
X     unsigned char *buf;
X`7B
X  /* Request FreeGC is opcode 60 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* FreeGC */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 2, 2, CONST2(2), "request length");
X  PrintField(buf, 4, 4, GCONTEXT, "gc");
X`7D
X
XClearArea(buf)
X     unsigned char *buf;
X`7B
X  /* Request ClearArea is opcode 61 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ClearArea */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, BOOL, "exposures");
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X  PrintField(buf, 8, 2, INT16, "x");
X  PrintField(buf, 10, 2, INT16, "y");
X  PrintField(buf, 12, 2, CARD16, "width");
X  PrintField(buf, 14, 2, CARD16, "height");
+-+-+-+-+-+-+-+-  END  OF PART 4 +-+-+-+-+-+-+-+-
--
Patrick L. Mahan

--- TGV Window Washer ------------------------------- Mahan@TGV.COM ---------

Waking a person unnecessarily should not be considered  - Lazarus Long
a capital crime.  For a first offense, that is            From the Notebooks of
							  Lazarus Long
Technical Details
Message-ID: <8045407@MVB.SAIC.COM>
Path: arc1-ca.pugleaf.net!sparky!uunet!elroy.jpl.nasa.gov!sdd.hp.com!network.ucsd.edu!mvb.saic.com!vmsnet-sources

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!elroy.jpl.nasa.gov!sdd.hp.com!network.ucsd.edu!mvb.saic.com!vmsnet-sources
From: mahan@tgv.com (Patrick L. Mahan - TGV Window Washer)
Newsgroups: vmsnet.sources
Subject: XSCOPE/VMS 1.0, part 04/08
Message-ID: <8045407@MVB.SAIC.COM>
Date: Fri, 04 Sep 1992 05:34:24 GMT
Reply-To: mahan@tgv.com
Organization: TGV Incorporated (Tech Support) in Santa Cruz, CA
Lines: 1582
Approved: Mark.Berryman@Mvb.Saic.Com