Article View: vmsnet.sources
Article #107XSCOPE/VMS 1.0, part 04/08
From: Patrick L. Mahan - TGV Window Wa...
Date: Fri, 04 Sep 1992 05:34
Date: Fri, 04 Sep 1992 05:34
1581 lines
50424 bytes
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-sourcesShow 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