🚀 go-pugleaf

Submitted-by: mahan@tgv.com (Patrick L. Mahan - TGV Window Washer)
Posting-number: Volume 3, Issue 157
Archive-name: xscope/part05


-+-+-+-+-+-+-+-+ START OF PART 5 -+-+-+-+-+-+-+-+
X`7D
X
XCopyArea(buf)
X     unsigned char *buf;
X`7B
X  /* Request CopyArea is opcode 62 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CopyArea */ ;
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(7), "request length");
X  PrintField(buf, 4, 4, DRAWABLE, "src-drawable");
X  PrintField(buf, 8, 4, DRAWABLE, "dst-drawable");
X  PrintField(buf, 12, 4, GCONTEXT, "gc");
X  PrintField(buf, 16, 2, INT16, "src-x");
X  PrintField(buf, 18, 2, INT16, "src-y");
X  PrintField(buf, 20, 2, INT16, "dst-x");
X  PrintField(buf, 22, 2, INT16, "dst-y");
X  PrintField(buf, 24, 2, CARD16, "width");
X  PrintField(buf, 26, 2, CARD16, "height");
X`7D
X
XCopyPlane(buf)
X     unsigned char *buf;
X`7B
X  /* Request CopyPlane is opcode 63 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CopyPlane */ ;
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(8), "request length");
X  PrintField(buf, 4, 4, DRAWABLE, "src-drawable");
X  PrintField(buf, 8, 4, DRAWABLE, "dst-drawable");
X  PrintField(buf, 12, 4, GCONTEXT, "gc");
X  PrintField(buf, 16, 2, INT16, "src-x");
X  PrintField(buf, 18, 2, INT16, "src-y");
X  PrintField(buf, 20, 2, INT16, "dst-x");
X  PrintField(buf, 22, 2, INT16, "dst-y");
X  PrintField(buf, 24, 2, CARD16, "width");
X  PrintField(buf, 26, 2, CARD16, "height");
X  PrintField(buf, 28, 4, CARD32, "bit-plane");
X`7D
X
XPolyPoint(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request PolyPoint is opcode 64 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PolyPoint */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, COORMODE, "coordinate-mode");
X  printfield(buf, 2, 2, DVALUE2(3 + n), "request length");
X  n = (IShort(&buf`5B2`5D) - 3);
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintList(&buf`5B12`5D, (long)n, POINT, "points");
X`7D
X
XPolyLine(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request PolyLine is opcode 65 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PolyLine */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, COORMODE, "coordinate-mode");
X  printfield(buf, 2, 2, DVALUE2(3 + n), "request length");
X  n = (IShort(&buf`5B2`5D) - 3);
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintList(&buf`5B12`5D, (long)n, POINT, "points");
X`7D
X
XPolySegment(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request PolySegment is opcode 66 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PolySegment */ ;
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 + 2*n), "request length");
X  n = (IShort(&buf`5B2`5D) - 3) / 2;
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintList(&buf`5B12`5D, (long)n, SEGMENT, "segments");
X`7D
X
XPolyRectangle(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request PolyRectangle is opcode 67 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PolyRectangle */ ;
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 + 2*n), "request length");
X  n = (IShort(&buf`5B2`5D) - 3) / 2;
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintList(&buf`5B12`5D, (long)n, RECTANGLE, "rectangles");
X`7D
X
XPolyArc(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request PolyArc is opcode 68 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PolyArc */ ;
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 + 3*n), "request length");
X  n = (IShort(&buf`5B2`5D) - 3) / 3;
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintList(&buf`5B12`5D, (long)n, ARC, "arcs");
X`7D
X
XFillPoly(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request FillPoly is opcode 69 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* FillPoly */ ;
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  n = (IShort(&buf`5B2`5D) - 4);
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintField(buf, 12, 1, POLYSHAPE, "shape");
X  PrintField(buf, 13, 1, COORMODE, "coordinate-mode");
X  PrintList(&buf`5B16`5D, (long)n, POINT, "points");
X`7D
X
XPolyFillRectangle(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request PolyFillRectangle is opcode 70 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PolyFillRectangle */ ;
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 + 2*n), "request length");
X  n = (IShort(&buf`5B2`5D) - 3) / 2;
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintList(&buf`5B12`5D, (long)n, RECTANGLE, "rectangles");
X`7D
X
XPolyFillArc(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request PolyFillArc is opcode 71 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PolyFillArc */ ;
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 + 3*n), "request length");
X  n = (IShort(&buf`5B2`5D) - 3) / 3;
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintList(&buf`5B12`5D, (long)n, ARC, "arcs");
X`7D
X
XPutImage(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request PutImage is opcode 72 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PutImage */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, IMAGEMODE, "format");
X  printfield(buf, 2, 2, DVALUE2(6 + (n + p) / 4), "request length");
X
X  /* the size of the Image is overestimated by the following computation of
V n,
X     because we ignore that padding of the request to a multiple of 4 bytes.
X     The image may not be a multiple of 4 bytes.  The actual size of the ima
Vge
X     is determined as follows: for format = Bitmap or format = XYPixmap, the
X     size is (left-pad + width) `5B pad to multiple of bitmap-scanline-pad f
Vrom
X     SetUpReply `5D divide by 8 to get bytes times height times depth for fo
Vrmat
X     = ZPixmap, take the depth and use it to find the bits-per-pixel and
X     scanline-pad given in one of the SetUpReply DEPTH records. width *
X     bits-per-pixel pad to multiple of scanline-pad divide by 8 to get bytes
X     times height times depth For simplicity, we ignore all this and just us
Ve
X     the request length to (over)estimate the size of the image */
X
X  n = (IShort(&buf`5B2`5D) - 6) * 4;
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintField(buf, 12, 2, CARD16, "width");
X  PrintField(buf, 14, 2, CARD16, "height");
X  PrintField(buf, 16, 2, INT16, "dst-x");
X  PrintField(buf, 18, 2, INT16, "dst-y");
X  PrintField(buf, 20, 1, CARD8, "left-pad");
X  PrintField(buf, 21, 1, CARD8, "depth");
X  PrintBytes(&buf`5B24`5D, (long)n, "data");
X`7D
X
XGetImage(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetImage is opcode 73 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetImage */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, IMAGEMODE, "format");
X  printfield(buf, 2, 2, CONST2(5), "request length");
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
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");
X  PrintField(buf, 16, 4, CARD32, "plane-mask");
X`7D
X
XGetImageReply(buf)
X     unsigned char *buf;
X`7B
X  long    n;
X
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetImage */ ;
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, DVALUE4((n + p) / 4), "reply length");
X
X  /* to properly compute the actual size of the image, we have to remember t
Vhe
X     width and height values from the request.  Again, we (over)estimate its
X     length from the length of the reply */
X  n = ILong(&buf`5B4`5D) * 4;
X  PrintField(buf, 8, 4, VISUALID, "visual");
X  PrintBytes(&buf`5B32`5D, n, "data");
X`7D
X
XPolyText8(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X
X  /* Request PolyText8 is opcode 74 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PolyText8 */ ;
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 + p) / 4), "request length");
X  n = (IShort(&buf`5B2`5D) - 4) * 4;
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintField(buf, 12, 2, INT16, "x");
X  PrintField(buf, 14, 2, INT16, "y");
X  PrintTextList8(&buf`5B16`5D, n, "items");
X`7D
X
XPolyText16(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X
X  /* Request PolyText16 is opcode 75 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* PolyText16 */ ;
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 + p) / 4), "request length");
X  n = (IShort(&buf`5B2`5D) - 4) * 4;
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintField(buf, 12, 2, INT16, "x");
X  PrintField(buf, 14, 2, INT16, "y");
X  PrintTextList16(&buf`5B16`5D, n, "items");
X`7D
X
XImageText8(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request ImageText8 is opcode 76 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ImageText8 */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 1, 1, DVALUE1(n), "length of string");
X  n = IByte(&buf`5B1`5D);
X  printfield(buf, 2, 2, DVALUE2(4 + (n + p) / 4), "request length");
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintField(buf, 12, 2, INT16, "x");
X  PrintField(buf, 14, 2, INT16, "y");
X  PrintString8(&buf`5B16`5D, n, "string");
X`7D
X
XImageText16(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request ImageText16 is opcode 77 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ImageText16 */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 1, 1, DVALUE1(n), "length of string");
X  n = IByte(&buf`5B1`5D);
X  printfield(buf, 2, 2, DVALUE2(4 + (2*n + p) / 4), "request length");
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 4, GCONTEXT, "gc");
X  PrintField(buf, 12, 2, INT16, "x");
X  PrintField(buf, 14, 2, INT16, "y");
X  PrintString16(&buf`5B16`5D, n, "string");
X`7D
X
XCreateColormap(buf)
X     unsigned char *buf;
X`7B
X  /* Request CreateColormap is opcode 78 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CreateColormap */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, ALLORNONE, "alloc");
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, COLORMAP, "color-map-id");
X  PrintField(buf, 8, 4, WINDOW, "window");
X  PrintField(buf, 12, 4, VISUALID, "visual");
X`7D
X
XFreeColormap(buf)
X     unsigned char *buf;
X`7B
X  /* Request FreeColormap is opcode 79 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* FreeColormap */ ;
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, COLORMAP, "cmap");
X`7D
X
XCopyColormapAndFree(buf)
X     unsigned char *buf;
X`7B
X  /* Request CopyColormapAndFree is opcode 80 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CopyColormapAndFree */ ;
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, COLORMAP, "color-map-id");
X  PrintField(buf, 8, 4, COLORMAP, "src-cmap");
X`7D
X
XInstallColormap(buf)
X     unsigned char *buf;
X`7B
X  /* Request InstallColormap is opcode 81 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* InstallColormap */ ;
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, COLORMAP, "cmap");
X`7D
X
XUninstallColormap(buf)
X     unsigned char *buf;
X`7B
X  /* Request UninstallColormap is opcode 82 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* UninstallColormap */ ;
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, COLORMAP, "cmap");
X`7D
X
XListInstalledColormaps(buf)
X     unsigned char *buf;
X`7B
X  /* Request ListInstalledColormaps is opcode 83 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ListInstalledColormaps */
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(2), "request length");
X  PrintField(buf, 4, 4, WINDOW, "window");
X`7D
X
XListInstalledColormapsReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* ListInstalledColormaps */ ;
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 cmaps");
X  n = IShort(&buf`5B8`5D);
X  PrintList(&buf`5B32`5D, (long)n, COLORMAP, "cmaps");
X`7D
X
XAllocColor(buf)
X     unsigned char *buf;
X`7B
X  /* Request AllocColor is opcode 84 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* AllocColor */ ;
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, COLORMAP, "cmap");
X  PrintField(buf, 8, 2, CARD16, "red");
X  PrintField(buf, 10, 2, CARD16, "green");
X  PrintField(buf, 12, 2, CARD16, "blue");
X`7D
X
XAllocColorReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* AllocColor */ ;
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, 2, CARD16, "red");
X  PrintField(buf, 10, 2, CARD16, "green");
X  PrintField(buf, 12, 2, CARD16, "blue");
X  PrintField(buf, 16, 4, CARD32, "pixel");
X`7D
X
XAllocNamedColor(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request AllocNamedColor is opcode 85 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* AllocNamedColor */ ;
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, COLORMAP, "cmap");
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
XAllocNamedColorReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* AllocNamedColor */ ;
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, CARD32, "pixel");
X  PrintField(buf, 12, 2, CARD16, "exact-red");
X  PrintField(buf, 14, 2, CARD16, "exact-green");
X  PrintField(buf, 16, 2, CARD16, "exact-blue");
X  PrintField(buf, 18, 2, CARD16, "visual-red");
X  PrintField(buf, 20, 2, CARD16, "visual-green");
X  PrintField(buf, 22, 2, CARD16, "visual-blue");
X`7D
X
XAllocColorCells(buf)
X     unsigned char *buf;
X`7B
X  /* Request AllocColorCells is opcode 86 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* AllocColorCells */ ;
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, "contiguous");
X  printfield(buf, 2, 2, CONST2(3), "request length");
X  PrintField(buf, 4, 4, COLORMAP, "cmap");
X  PrintField(buf, 8, 2, CARD16, "colors");
X  PrintField(buf, 10, 2, CARD16, "planes");
X`7D
X
XAllocColorCellsReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  short   m;
X  short   k;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* AllocColorCells */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4(n + m), "reply length");
X  printfield(buf, 8, 2, DVALUE2(n), "number of pixels");
X  n = IShort(&buf`5B8`5D);
X  printfield(buf, 10, 2, DVALUE2(m), "number of masks");
X  m = IShort(&buf`5B10`5D);
X  k = PrintList(&buf`5B32`5D, (long)n, CARD32, "pixels");
X  PrintList(&buf`5B32 + k`5D, (long)m, CARD32, "masks");
X`7D
X
XAllocColorPlanes(buf)
X     unsigned char *buf;
X`7B
X  /* Request AllocColorPlanes is opcode 87 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* AllocColorPlanes */ ;
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, "contiguous");
X  printfield(buf, 2, 2, CONST2(4), "request length");
X  PrintField(buf, 4, 4, COLORMAP, "cmap");
X  PrintField(buf, 8, 2, CARD16, "colors");
X  PrintField(buf, 10, 2, CARD16, "reds");
X  PrintField(buf, 12, 2, CARD16, "greens");
X  PrintField(buf, 14, 2, CARD16, "blues");
X`7D
X
XAllocColorPlanesReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* AllocColorPlanes */ ;
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 pixels");
X  n = IShort(&buf`5B8`5D);
X  PrintField(buf, 12, 4, CARD32, "red-mask");
X  PrintField(buf, 16, 4, CARD32, "green-mask");
X  PrintField(buf, 20, 4, CARD32, "blue-mask");
X  PrintList(&buf`5B32`5D, (long)n, CARD32, "pixels");
X`7D
X
XFreeColors(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X
X  /* Request FreeColors is opcode 88 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* FreeColors */ ;
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  n = IShort(&buf`5B2`5D) - 3;
X  PrintField(buf, 4, 4, COLORMAP, "cmap");
X  PrintField(buf, 8, 4, CARD32, "plane-mask");
X  PrintList(&buf`5B12`5D, (long)n, CARD32, "pixels");
X`7D
X
XStoreColors(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request StoreColors is opcode 89 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* StoreColors */ ;
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 + 3*n), "request length");
X  n = (IShort(&buf`5B2`5D) - 2) / 3;
X  PrintField(buf, 4, 4, COLORMAP, "cmap");
X  PrintList(&buf`5B8`5D, (long)n, COLORITEM, "items");
X`7D
X
XStoreNamedColor(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request StoreNamedColor is opcode 90 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* StoreNamedColor */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, COLORMASK, "which colors?");
X  printfield(buf, 2, 2, DVALUE2(4 + (n + p) / 4), "request length");
X  PrintField(buf, 4, 4, COLORMAP, "cmap");
X  PrintField(buf, 8, 4, CARD32, "pixel");
X  printfield(buf, 12, 2, DVALUE2(n), "length of name");
X  n = IShort(&buf`5B12`5D);
X  PrintString8(&buf`5B16`5D, n, "name");
X`7D
X
XQueryColors(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request QueryColors is opcode 91 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryColors */ ;
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), "request length");
X  n = IShort(&buf`5B2`5D) - 2;
X  PrintField(buf, 4, 4, COLORMAP, "cmap");
X  PrintList(&buf`5B8`5D, (long)n, CARD32, "pixels");
X`7D
X
XQueryColorsReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryColors */ ;
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, 2, DVALUE2(n), "number of colors");
X  n = IShort(&buf`5B8`5D);
X  PrintList(&buf`5B32`5D, (long)n, RGB, "colors");
X`7D
X
XLookupColor(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request LookupColor is opcode 92 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* LookupColor */ ;
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, COLORMAP, "cmap");
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
XLookupColorReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* LookupColor */ ;
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, 2, CARD16, "exact-red");
X  PrintField(buf, 10, 2, CARD16, "exact-green");
X  PrintField(buf, 12, 2, CARD16, "exact-blue");
X  PrintField(buf, 14, 2, CARD16, "visual-red");
X  PrintField(buf, 16, 2, CARD16, "visual-green");
X  PrintField(buf, 18, 2, CARD16, "visual-blue");
X`7D
X
XCreateCursor(buf)
X     unsigned char *buf;
X`7B
X  /* Request CreateCursor is opcode 93 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CreateCursor */ ;
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(8), "request length");
X  PrintField(buf, 4, 4, CURSOR, "cursor-id");
X  PrintField(buf, 8, 4, PIXMAP, "source");
X  PrintField(buf, 12, 4, PIXMAP, "mask");
X  PrintField(buf, 16, 2, CARD16, "fore-red");
X  PrintField(buf, 18, 2, CARD16, "fore-green");
X  PrintField(buf, 20, 2, CARD16, "fore-blue");
X  PrintField(buf, 22, 2, CARD16, "back-red");
X  PrintField(buf, 24, 2, CARD16, "back-green");
X  PrintField(buf, 26, 2, CARD16, "back-blue");
X  PrintField(buf, 28, 2, CARD16, "x");
X  PrintField(buf, 30, 2, CARD16, "y");
X`7D
X
XCreateGlyphCursor(buf)
X     unsigned char *buf;
X`7B
X  /* Request CreateGlyphCursor is opcode 94 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* CreateGlyphCursor */ ;
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(8), "request length");
X  PrintField(buf, 4, 4, CURSOR, "cursor-id");
X  PrintField(buf, 8, 4, FONT, "source-font");
X  PrintField(buf, 12, 4, FONT, "mask-font");
X  PrintField(buf, 16, 2, CARD16, "source-char");
X  PrintField(buf, 18, 2, CARD16, "mask-char");
X  PrintField(buf, 20, 2, CARD16, "fore-red");
X  PrintField(buf, 22, 2, CARD16, "fore-green");
X  PrintField(buf, 24, 2, CARD16, "fore-blue");
X  PrintField(buf, 26, 2, CARD16, "back-red");
X  PrintField(buf, 28, 2, CARD16, "back-green");
X  PrintField(buf, 30, 2, CARD16, "back-blue");
X`7D
X
XFreeCursor(buf)
X     unsigned char *buf;
X`7B
X  /* Request FreeCursor is opcode 95 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* FreeCursor */ ;
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, CURSOR, "cursor");
X`7D
X
XRecolorCursor(buf)
X     unsigned char *buf;
X`7B
X  /* Request RecolorCursor is opcode 96 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* RecolorCursor */ ;
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(5), "request length");
X  PrintField(buf, 4, 4, CURSOR, "cursor");
X  PrintField(buf, 8, 2, CARD16, "fore-red");
X  PrintField(buf, 10, 2, CARD16, "fore-green");
X  PrintField(buf, 12, 2, CARD16, "fore-blue");
X  PrintField(buf, 14, 2, CARD16, "back-red");
X  PrintField(buf, 16, 2, CARD16, "back-green");
X  PrintField(buf, 18, 2, CARD16, "back-blue");
X`7D
X
XQueryBestSize(buf)
X     unsigned char *buf;
X`7B
X  /* Request QueryBestSize is opcode 97 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryBestSize */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, OBJECTCLASS, "class");
X  printfield(buf, 2, 2, CONST2(3), "request length");
X  PrintField(buf, 4, 4, DRAWABLE, "drawable");
X  PrintField(buf, 8, 2, CARD16, "width");
X  PrintField(buf, 10, 2, CARD16, "height");
X`7D
X
XQueryBestSizeReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryBestSize */ ;
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, 2, CARD16, "width");
X  PrintField(buf, 10, 2, CARD16, "height");
X`7D
X
XQueryExtension(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request QueryExtension is opcode 98 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* QueryExtension */ ;
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, DVALUE2(n), "length of name");
X  n = IShort(&buf`5B4`5D);
X  PrintString8(&buf`5B8`5D, n, "name");
X`7D
X
XQueryExtensionReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* QueryExtension */ ;
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, 1, BOOL, "present");
X  PrintField(buf, 9, 1, CARD8, "major-opcode");
X  PrintField(buf, 10, 1, CARD8, "first-event");
X  PrintField(buf, 11, 1, CARD8, "first-error");
X`7D
X
XListExtensions(buf)
X     unsigned char *buf;
X`7B
X  /* Request ListExtensions is opcode 99 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ListExtensions */ ;
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
XListExtensionsReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* ListExtensions */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 1, 1, CARD8, "number names");
X  n = IByte(&buf`5B1`5D);
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
X  PrintListSTR(&buf`5B32`5D, (long)n, "names");
X`7D
X
XChangeKeyboardMapping(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  short   m;
X  /* Request ChangeKeyboardMapping is opcode 100 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeKeyboardMapping */
V ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, DVALUE1(n), "keycode-count");
X  n = IByte(&buf`5B1`5D);
X  printfield(buf, 2, 2, DVALUE2(2 + nm), "request length");
X  PrintField(buf, 4, 1, KEYCODE, "first-keycode");
X  PrintField(buf, 5, 1, DVALUE1(m), "keysyms-per-keycode");
X  m = IByte(&buf`5B5`5D);
X  PrintList(&buf`5B8`5D, (long)(n * m), KEYSYM, "keysyms");
X`7D
X
XGetKeyboardMapping(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetKeyboardMapping is opcode 101 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetKeyboardMapping */ ;
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, 1, KEYCODE, "first-keycode");
X  PrintField(buf, 5, 1, CARD8, "count");
X`7D
X
XGetKeyboardMappingReply(buf)
X     unsigned char *buf;
X`7B
X  long    n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetKeyboardMapping */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, DVALUE1(n), "keysyms-per-keycode");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4(n*m), "reply length");
X  n = ILong(&buf`5B4`5D);
X  PrintList(&buf`5B32`5D, n, KEYSYM, "keysyms");
X`7D
X
XChangeKeyboardControl(buf)
X     unsigned char *buf;
X`7B
X  /* Request ChangeKeyboardControl is opcode 102 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeKeyboardControl */
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(2 + n), "request length");
X  PrintField(buf, 4, 4, KEYBOARD_BITMASK, "value-mask");
X  PrintValues(&buf`5B4`5D, 4, KEYBOARD_BITMASK, &buf`5B8`5D, "value-list");
X`7D
X
XGetKeyboardControl(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetKeyboardControl is opcode 103 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetKeyboardControl */ ;
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
XGetKeyboardControlReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetKeyboardControl */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, OFF_ON, "global-auto-repeat");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(5), "reply length");
X  PrintField(buf, 8, 4, CARD32, "led-mask");
X  PrintField(buf, 12, 1, CARD8, "key-click-percent");
X  PrintField(buf, 13, 1, CARD8, "bell-percent");
X  PrintField(buf, 14, 2, CARD16, "bell-pitch");
X  PrintField(buf, 16, 2, CARD16, "bell-duration");
X  PrintBytes(&buf`5B20`5D, 32L, "auto-repeats");
X`7D
X
XBell(buf)
X     unsigned char *buf;
X`7B
X  /* Request Bell is opcode 104 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* Bell */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, INT8, "percent");
X  printfield(buf, 2, 2, CONST2(1), "request length");
X`7D
X
XChangePointerControl(buf)
X     unsigned char *buf;
X`7B
X  /* Request ChangePointerControl is opcode 105 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangePointerControl */ ;
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, 2, INT16, "acceleration-numerator");
X  PrintField(buf, 6, 2, INT16, "acceleration-denominator");
X  PrintField(buf, 8, 2, INT16, "threshold");
X  PrintField(buf, 10, 1, BOOL, "do-acceleration");
X  PrintField(buf, 11, 1, BOOL, "do-threshold");
X`7D
X
XGetPointerControl(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetPointerControl is opcode 106 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetPointerControl */ ;
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
XGetPointerControlReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetPointerControl */ ;
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, 2, CARD16, "acceleration-numerator");
X  PrintField(buf, 10, 2, CARD16, "acceleration-denominator");
X  PrintField(buf, 12, 2, CARD16, "threshold");
X`7D
X
XSetScreenSaver(buf)
X     unsigned char *buf;
X`7B
X  /* Request SetScreenSaver is opcode 107 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetScreenSaver */ ;
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, 2, INT16, "timeout");
X  PrintField(buf, 6, 2, INT16, "interval");
X  PrintField(buf, 8, 1, NO_YES, "prefer-blanking");
X  PrintField(buf, 9, 1, NO_YES, "allow-exposures");
X`7D
X
XGetScreenSaver(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetScreenSaver is opcode 108 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetScreenSaver */ ;
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
XGetScreenSaverReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetScreenSaver */ ;
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, 2, CARD16, "timeout");
X  PrintField(buf, 10, 2, CARD16, "interval");
X  PrintField(buf, 12, 1, NO_YES, "prefer-blanking");
X  PrintField(buf, 13, 1, NO_YES, "allow-exposures");
X`7D
X
XChangeHosts(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request ChangeHosts is opcode 109 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ChangeHosts */ ;
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, DVALUE2(2 + (n + p) / 4), "request length");
X  PrintField(buf, 4, 1, HOSTFAMILY, "family");
X  printfield(buf, 6, 2, CARD16, "length of address");
X  n = IShort(&buf`5B6`5D);
X  PrintBytes(&buf`5B8`5D, (long)n, "address");
X`7D
X
XListHosts(buf)
X     unsigned char *buf;
X`7B
X  /* Request ListHosts is opcode 110 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ListHosts */ ;
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
XListHostsReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* ListHosts */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, DIS_EN, "mode");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4(n / 4), "reply length");
X  printfield(buf, 8, 2, CARD16, "number of hosts");
X  n = IShort(&buf`5B8`5D);
X  PrintList(&buf`5B32`5D, (long)n, HOST, "hosts");
X`7D
X
XSetAccessControl(buf)
X     unsigned char *buf;
X`7B
X  /* Request SetAccessControl is opcode 111 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetAccessControl */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, DIS_EN, "mode");
X  printfield(buf, 2, 2, CONST2(1), "request length");
X`7D
X
XSetCloseDownMode(buf)
X     unsigned char *buf;
X`7B
X  /* Request SetCloseDownMode is opcode 112 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetCloseDownMode */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, CLOSEMODE, "mode");
X  printfield(buf, 2, 2, CONST2(1), "request length");
X`7D
X
XKillClient(buf)
X     unsigned char *buf;
X`7B
X  /* Request KillClient is opcode 113 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* KillClient */ ;
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, RESOURCEID, "resource");
X`7D
X
XRotateProperties(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request RotateProperties is opcode 114 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* RotateProperties */ ;
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, DVALUE2(n), "number of properties");
X  n = IShort(&buf`5B8`5D);
X  PrintField(buf, 10, 2, INT16, "delta");
X  PrintList(&buf`5B12`5D, (long)n, ATOM, "properties");
X`7D
X
XForceScreenSaver(buf)
X     unsigned char *buf;
X`7B
X  /* Request ForceScreenSaver is opcode 115 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* ForceScreenSaver */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, SAVEMODE, "mode");
X  printfield(buf, 2, 2, CONST2(1), "request length");
X`7D
X
XSetPointerMapping(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request SetPointerMapping is opcode 116 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetPointerMapping */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  printfield(buf, 1, 1, DVALUE1(n), "length of map");
X  n = IByte(&buf`5B1`5D);
X  printfield(buf, 2, 2, DVALUE2(1 + (n + p) / 4), "request length");
X  PrintBytes(&buf`5B4`5D, (long)n,"map");
X`7D
X
XSetPointerMappingReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* SetPointerMapping */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, RSTATUS, "status");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X`7D
X
XGetPointerMapping(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetPointerMapping is opcode 117 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetPointerMapping */ ;
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
XGetPointerMappingReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetPointerMapping */ ;
X  if (Verbose < 1)
X    return;
X  printfield(buf, 1, 1, DVALUE1(n), "length of map");
X  n = IByte(&buf`5B1`5D);
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
X  PrintBytes(&buf`5B32`5D, (long)n,"map");
X`7D
X
XSetModifierMapping(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  /* Request SetModifierMapping is opcode 118 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* SetModifierMapping */ ;
X  if (Verbose < 1)
X    return;
X  if (Verbose > 1)
X    PrintField(SBf, 0, 4, INT32, "sequence number");
X
X  PrintField(buf, 1, 1, DVALUE1(n), "keycodes-per-modifier");
X  n = IByte(&buf`5B1`5D);
X  printfield(buf, 2, 2, DVALUE2(1 + 2*n), "request length");
X  PrintBytes(&buf`5B4 + 0 * n`5D, (long)n,"Shift keycodes");
X  PrintBytes(&buf`5B4 + 1 * n`5D, (long)n,"Lock keycodes");
X  PrintBytes(&buf`5B4 + 2 * n`5D, (long)n,"Control keycodes");
X  PrintBytes(&buf`5B4 + 3 * n`5D, (long)n,"Mod1 keycodes");
X  PrintBytes(&buf`5B4 + 4 * n`5D, (long)n,"Mod2 keycodes");
X  PrintBytes(&buf`5B4 + 5 * n`5D, (long)n,"Mod3 keycodes");
X  PrintBytes(&buf`5B4 + 6 * n`5D, (long)n,"Mod4 keycodes");
X  PrintBytes(&buf`5B4 + 7 * n`5D, (long)n,"Mod5 keycodes");
X`7D
X
XSetModifierMappingReply(buf)
X     unsigned char *buf;
X`7B
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* SetModifierMapping */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, RSTATUS, "status");
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, CONST4(0), "reply length");
X`7D
X
XGetModifierMapping(buf)
X     unsigned char *buf;
X`7B
X  /* Request GetModifierMapping is opcode 119 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* GetModifierMapping */ ;
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
XGetModifierMappingReply(buf)
X     unsigned char *buf;
X`7B
X  short   n;
X  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetModifierMapping */ ;
X  if (Verbose < 1)
X    return;
X  PrintField(buf, 1, 1, DVALUE1(n), "keycodes-per-modifier");
X  n = IByte(&buf`5B1`5D);
X  printfield(buf, 2, 2, CARD16, "sequence number");
X  printfield(buf, 4, 4, DVALUE4(2*n), "reply length");
X  PrintList(&buf`5B32`5D, (long)n, KEYCODE, "keycodes");
X`7D
X
XNoOperation(buf)
X     unsigned char *buf;
X`7B
X  /* Request NoOperation is opcode 127 */
X  PrintField(buf, 0, 1, REQUEST, REQUESTHEADER) /* NoOperation */ ;
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
$ CALL UNPACK PRINT11.C;2 154662420
$ create 'f'
X/* ************************************************** *
X *`09`09`09`09`09`09      *
X *  Type Printing for X11 protocol`09`09      *
X *`09`09`09`09`09`09      *
X *`09James Peterson, 1988`09`09`09      *
X *`09(c) Copyright MCC, 1988 `09`09      *
X *`09`09`09`09`09`09      *
X * ************************************************** */
X#if defined(vax11c) && !defined(MULTINET)
X#include "emulationlib.h"
X#endif
X
X#include "scope.h"
X#include "x11.h"
X
X/*
X  For each of the types we need a way to print that type.
X  Types are of varieties:
X
X  (1) BUILTIN -- we have a separate routine to interpret and print
X  each built-in type.
X  (2) ENUMERATED, SET -- we have one routine which prints, given the
X  data and the list of values.
X  (3) RECORDS -- a separate routine for each to print each field.
X
X*/
X
X/* ************************************************************ */
X/*`09`09`09`09`09`09`09`09*/
X/*`09`09`09`09`09`09`09`09*/
X/* ************************************************************ */
X
X
X/* print representation of a character for debugging */
Xchar   *printrep (c)
X     unsigned short  c;
X`7B
X  static char pr`5B8`5D;
X
X  if (c < 32)
X    `7B
X      /* control characters */
X      pr`5B0`5D = '`5E';
X      pr`5B1`5D = c + 64;
X      pr`5B2`5D = '\0';
X    `7D
X  else if (c < 127)
X      `7B
X`09/* printing characters */
X`09pr`5B0`5D = c;
X`09pr`5B1`5D = '\0';
X      `7D
X    else if (c == 127)
X`09return("<del>");
X      else if (c <= 0377)
X`09  `7B
X`09    /* upper 128 codes from 128 to 255;  print as \ooo - octal  */
X`09    pr`5B0`5D = '\\';
X`09    pr`5B3`5D = '0' + (c & 7);
X`09    c = c >> 3;
X`09    pr`5B2`5D = '0' + (c & 7);
X`09    c = c >> 3;
X`09    pr`5B1`5D = '0' + (c & 3);
X`09    pr`5B4`5D = '\0';
X`09  `7D
X`09else
X`09  `7B
X`09    /* very large number -- print as 0xffff - 4 digit hex */
X`09    sprintf(pr, "0x%04x", c);
X`09  `7D
X  return(pr);
X`7D
X
X
X/* ************************************************************ */
X/*`09`09`09`09`09`09`09`09*/
X/*`09`09`09`09`09`09`09`09*/
X/* ************************************************************ */
X
X/*
X  we use indentation for two purposes:
X
X   (1) To show substructure of records inside records ...
X   (2) To separate the bytes from the client (on the left) from
X       those from the server (on the right).
X
X   Each indention level is one tab (8 spaces).
X*/
X
X#define MaxIndent 10
Xstatic char Leader`5BMaxIndent + 1`5D;
Xstatic short    CurrentLevel = 0;
X
XSetIndentLevel(which)
X     short   which;
X`7B
X  short   i;
X
X  if (which > MaxIndent)
X    which = MaxIndent;
X  if (which < 0)
X    which = 0;
X  if (which == CurrentLevel)
X    return;
X
X  /* set the indent level to <which> */
X  /* -> set the Print Leader to <which> tabs */
X  for (i = 0; i < which; i++)
X    Leader`5Bi`5D = '\t';
X  Leader`5Bwhich`5D = '\0';
X  CurrentLevel = which;
X`7D
X
XModifyIndentLevel(amount)
X     short   amount;
X`7B
X  SetIndentLevel(CurrentLevel + amount);
X`7D
X
Xshort   SizeofLeader ()
X`7B
X  return (CurrentLevel * 8);
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/* if we want verbose enough output, we will dump the buffer in hex */
X
XDumpItem(name, fd, buf, n)
X     char   *name;
X     FD      fd;
X     unsigned char *buf;
X     long    n;
X`7B
X  if (n == 0)
X    return;
X
X  fprintf(stdout, "%s%20s (fd %d): ", Leader, name, fd);
X
X  DumpHexBuffer(buf, n);
X  fprintf(stdout, "\n");
X`7D
X
X/* ************************************************************ */
X/*`09`09`09`09`09`09`09`09*/
X/*`09`09`09`09`09`09`09`09*/
X/* ************************************************************ */
X
XPrintINT8(buf)
X     unsigned char *buf;
X`7B
X  /* print a INT8 -- 8-bit signed integer */
X  short   n = IByte (buf);
X  if (n > 127)
X    n = 256 - n;
X  fprintf(stdout, "%d", n);
X`7D
X
XPrintINT16(buf)
X     unsigned char *buf;
X`7B
X  /* print a INT16 -- 16-bit signed integer */
X  long    n = IShort (buf);
X  if (n > 32767)
X    n = 65536 - n;
X  fprintf(stdout, "%d", n);
X`7D
X
XPrintINT32(buf)
X     unsigned char *buf;
X`7B
X  /* print a INT32 -- 32-bit signed integer */
X  long    n = ILong (buf);
X  fprintf(stdout, "%d", n);
X`7D
X
X/* ************************************************************ */
X
XPrintCARD8(buf)
X     unsigned char *buf;
X`7B
X  /* print a CARD8 -- 8-bit unsigned integer */
X  short   n = IByte (buf);
X  fprintf(stdout, "%02x", (unsigned)(n & 0xff));
X`7D
X
XPrintCARD16(buf)
X     unsigned char *buf;
X`7B
X  /* print a CARD16 -- 16-bit unsigned integer */
X  unsigned long   n = IShort (buf);
X  fprintf(stdout, "%04x", (unsigned)(n & 0xffff));
X`7D
X
XPrintCARD32(buf)
X     unsigned char *buf;
X`7B
X  /* print a CARD32 -- 32-bit unsigned integer */
X  unsigned long   n = ILong (buf);
X  fprintf(stdout, "%08x", n);
X  return(4);
X`7D
X
X/* ************************************************************ */
X
XPrintBYTE(buf)
X     unsigned char *buf;
X`7B
X  /* print a BYTE -- 8-bit value */
X  short   n = IByte (buf);
X  fprintf(stdout, "%02x", n);
X  return(1);
X`7D
X
X
XPrintCHAR8(buf)
X     unsigned char *buf;
X`7B
X  /* print a CHAR8 -- 8-bit character */
X  unsigned short   n = IByte (buf);
X  fprintf(stdout, "%s", printrep(n));
X  return(1);
X`7D
X
X
X#ifdef vax11c
XMYPrintSTRING16(buf)
X#else
XPrintSTRING16(buf)
X#endif /* vax11c */
X     unsigned char *buf;
X`7B
X  /* print a CHAR16 -- 16-bit character */
X  unsigned short   n = IShort (buf);
X  fprintf(stdout, "%s", printrep(n));
X  return(1);
X`7D
X
XPrintSTR(buf)
X     unsigned char *buf;
X`7B
X  /* STR have the length (1 byte) then a string of CHAR8 */
X  short   n;
X  short   i;
X
X  n = IByte(buf++);
X  for (i = 0; i < n; i++)
X    fprintf(stdout, "%s", printrep(buf`5Bi`5D));
X  return(n+1);
X`7D
X
X/* ************************************************************ */
X
XPrintWINDOW(buf)
X     unsigned char *buf;
X`7B
X  /* print a WINDOW -- CARD32  plus 0 = None */
X  long    n = ILong (buf);
X  if (n == 0)
+-+-+-+-+-+-+-+-  END  OF PART 5 +-+-+-+-+-+-+-+-
--
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