Import initial version from James Peterson

1 files changed, 1076 insertions, 0 deletions

diff --git a/decode11.c b/decode11.c
new file mode 100644
index 0000000..eb2a12f
--- /dev/null
+++ b/decode11.c
@@ -0,0 +1,1076 @@
+/* ************************************************************ *
+ *						     		*
+ *  Decoding and switching routines for the X11 protocol	*
+ *						      		*
+ *	James Peterson, 1988			      		*
+ * Copyright (C) 1988 MCC
+ *
+ * Permission to use, copy, modify, distribute, and sell this software and its
+ * documentation for any purpose is hereby granted without fee, provided that
+ * the above copyright notice appear in all copies and that both that
+ * copyright notice and this permission notice appear in supporting
+ * documentation, and that the name of MCC not be used in
+ * advertising or publicity pertaining to distribution of the software without
+ * specific, written prior permission.  MCC makes no
+ * representations about the suitability of this software for any purpose.  It
+ * is provided "as is" without express or implied warranty.
+ *
+ * MCC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
+ * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
+ * EVENT SHALL MCC BE LIABLE FOR ANY SPECIAL, INDIRECT OR
+ * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
+ * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
+ * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
+ * PERFORMANCE OF THIS SOFTWARE.
+ *						      		*
+ * ************************************************************ */
+
+#include "scope.h"
+#include "x11.h"
+
+/*
+  There are 4 types of things in X11: requests, replies, errors, and events.
+
+  Each of them has a format defined by a small integer that defines
+  the type of the thing.
+
+  Requests have an opcode in the first byte.
+  Events have a code in the first byte.
+  Errors have a code in the second byte (the first byte is 0)
+  Replies ...
+
+  Replies have a sequence number in bytes 2 and 3.  The sequence
+  number should be used to identify the request that was sent, and
+  from that request we can determine the type of the reply.
+*/
+
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+
+/*
+  We need to keep the sequence number for a request to match it with
+  an expected reply.  The sequence number is associated only with the
+  particular connection that we have. We would expect these replies
+  to be handled as a FIFO queue.
+*/
+
+struct QueueEntry
+{
+  struct QueueEntry  *Next;
+  long    SequenceNumber;
+  short   Request;
+};
+
+/* free space list of Q entries */
+
+static struct QueueEntry   *FreeQEntries = NULL;
+
+/* ************************************************************ */
+struct QueueEntry  *NewQEntry (SequenceNumber, Request)
+     long    SequenceNumber;
+     short   Request;
+{
+  struct QueueEntry  *p;
+
+  /* Get a Queue Entry */
+  if (FreeQEntries == NULL)
+    {
+      /* create new queue entry */
+      p = (struct QueueEntry *) Malloc ((long)(sizeof (*p)));
+    }
+  else
+    {
+      /* reuse an old queue entry */
+      p = FreeQEntries;
+      FreeQEntries = FreeQEntries->Next;
+    }
+
+  /* fill in its values */
+  p->Next = NULL;
+  p->SequenceNumber = SequenceNumber;
+  p->Request = Request;
+  return(p);
+}
+/* ************************************************************ */
+
+/* define a queue of entries for each FD */
+
+struct QueueHeader
+{
+  struct QueueEntry  *Head;
+  struct QueueEntry  *Tail;
+};
+
+struct QueueHeader  ReplyQ[StaticMaxFD];
+
+/* ************************************************************ */
+
+InitReplyQ()
+{
+  short   i;
+  for (i = 0; i < StaticMaxFD; i++)
+    {
+      ReplyQ[i].Head = NULL;
+      ReplyQ[i].Tail = NULL;
+    }
+}
+
+FlushReplyQ(fd)
+FD fd;
+{
+  struct QueueEntry  *p;
+  struct QueueEntry  *NextQEntry;
+
+  /* go down the reply queue and free all entries */
+  for (p = ReplyQ[fd].Head; p != NULL; p = NextQEntry)
+    {
+      NextQEntry = p->Next;
+
+      /* put freed entry on list of free entries (for later reuse)  */
+      p->Next = FreeQEntries;
+      FreeQEntries = p;
+    }
+
+  ReplyQ[fd].Head = NULL;
+  ReplyQ[fd].Tail = NULL;
+}
+
+
+DumpReplyQ(fd)
+     FD fd;
+{
+  fprintf(stderr, "ReplyQ[%d] = { Head 0x%x; Tail 0x%x }\n",
+	  fd, ReplyQ[fd].Head, ReplyQ[fd].Tail);
+  {
+    struct QueueEntry  *p;
+    for (p = ReplyQ[fd].Head; p != NULL; p = p->Next)
+      fprintf(stderr, "0x%x = { Next 0x%x; SequenceNumber %d; Request %d }\n",
+	      p, p->Next, p->SequenceNumber, p->Request);
+  }
+}
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+/* A reply is expected to the type of request given for the fd associated
+   with this one */
+
+SequencedReplyExpected(fd, SequenceNumber, RequestType)
+     FD fd;
+     long SequenceNumber;
+     short   RequestType;
+{
+  struct QueueEntry  *p;
+
+  debug(8,(stderr, "Reply expected: sequence %d and request type %d for fd %d\n",
+	   SequenceNumber, RequestType, fd));
+  /* create a new queue entry */
+  p = NewQEntry(SequenceNumber, RequestType);
+
+  /* find the server associated with this client */
+  fd = FDPair(fd);
+  if (fd < 0 || fd >= StaticMaxFD) return;
+
+  /* attach the new queue entry to the end of the queue for the Server */
+  if (ReplyQ[fd].Tail != NULL)
+    (ReplyQ[fd].Tail)->Next = p;
+  else
+    ReplyQ[fd].Head = p;
+  ReplyQ[fd].Tail = p;
+
+  debug(8,(stderr, "Save sequence %d and request type %d for fd %d\n",
+	   p->SequenceNumber, p->Request, fd));
+}
+
+
+/* search for the type of request that is associated with a reply
+   to the given sequence number for this fd */
+
+short   CheckReplyTable (fd, SequenceNumber)
+     FD fd;
+     short   SequenceNumber;
+{
+  struct QueueEntry  *p;
+
+  if (debuglevel & 128) DumpReplyQ(fd);
+  for (p = ReplyQ[fd].Head;
+       p != NULL;
+       p = p->Next)
+    {
+      /* look for matching sequence number in queue of this fd */
+      if (SequenceNumber == ((short)(0xFFFF & p->SequenceNumber)))
+	{
+	  return(p->Request);
+	}
+    }
+
+  /* not expecting a reply for that sequence number */
+  return(0);
+}
+
+
+static FD Lastfd;
+static long LastSequenceNumber;
+static short LastReplyType;
+
+
+short   ExtractReplyTable (fd, SequenceNumber)
+     FD fd;
+     short   SequenceNumber;
+{
+  struct QueueEntry  *p;
+  struct QueueEntry  *trailer;
+
+  if (debuglevel & 128) DumpReplyQ(fd);
+  for (trailer = NULL, p = ReplyQ[fd].Head;
+       p != NULL;
+       trailer = p, p = p->Next)
+    {
+      /* look for matching sequence number in queue of this fd */
+      if (SequenceNumber == ((short)(0xFFFF & p->SequenceNumber)))
+	{
+	  /* save the Request type */
+	  Lastfd = fd;
+	  LastSequenceNumber = p->SequenceNumber;
+	  LastReplyType = p->Request;
+
+	  /* pull the queue entry out of the queue for this fd */
+	  if (trailer == NULL)
+	      ReplyQ[fd].Head = p->Next;
+	  else
+	    trailer->Next = p->Next;
+	  if (ReplyQ[fd].Tail == p) ReplyQ[fd].Tail = trailer;
+
+
+	  /* put freed entry on list of free entries (for later reuse)  */
+	  p->Next = FreeQEntries;
+	  FreeQEntries = p;
+
+	  debug(8,(stderr, "Reply on fd %d for sequence %d is type %d\n",
+		   fd, SequenceNumber, LastReplyType));
+	  return(LastReplyType);
+	}
+    }
+
+  /* not expecting a reply for that sequence number */
+  debug(8,(stderr, "Reply on fd %d for sequence %d is not found\n",
+	   fd, SequenceNumber));
+  return(0);
+}
+
+
+/* ************************************************************ */
+/* A reply is expected to the type of request given for the
+   sequence number associated with this fd */
+
+ReplyExpected(fd, Request)
+     FD fd;
+     short   Request;
+{
+  SequencedReplyExpected(fd, CS[fd].SequenceNumber, Request);
+}
+
+/* ************************************************************ */
+/* another reply is expected for the same reply as we just had */
+/* This is only used with ListFontsWithInfo */
+
+KeepLastReplyExpected()
+{
+  SequencedReplyExpected(Lastfd, LastSequenceNumber, LastReplyType);
+}
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+
+DecodeRequest(fd, buf, n)
+     FD fd;
+     unsigned char *buf;
+     long    n;
+{
+  short   Request = IByte (&buf[0]);
+  CS[fd].SequenceNumber += 1;
+  bcopy ((char *)&(CS[fd].SequenceNumber), (char *)SBf, sizeof(long));
+  SetIndentLevel(PRINTCLIENT);
+
+  if (Verbose > 3)
+    DumpItem("Request", fd, buf, n);
+  if (Request <= 0 || 127 < Request)
+    {
+      warn("Extended request opcode");
+      fprintf(stdout, "Extended request opcode: %d\n", Request);
+    }
+  else switch (Request)
+    {
+	    case 1:
+		    CreateWindow(buf);
+		    break;
+	    case 2:
+		    ChangeWindowAttributes(buf);
+		    break;
+	    case 3:
+		    GetWindowAttributes(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 4:
+		    DestroyWindow(buf);
+		    break;
+	    case 5:
+		    DestroySubwindows(buf);
+		    break;
+	    case 6:
+		    ChangeSaveSet(buf);
+		    break;
+	    case 7:
+		    ReparentWindow(buf);
+		    break;
+	    case 8:
+		    MapWindow(buf);
+		    break;
+	    case 9:
+		    MapSubwindows(buf);
+		    break;
+	    case 10:
+		    UnmapWindow(buf);
+		    break;
+	    case 11:
+		    UnmapSubwindows(buf);
+		    break;
+	    case 12:
+		    ConfigureWindow(buf);
+		    break;
+	    case 13:
+		    CirculateWindow(buf);
+		    break;
+	    case 14:
+		    GetGeometry(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 15:
+		    QueryTree(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 16:
+		    InternAtom(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 17:
+		    GetAtomName(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 18:
+		    ChangeProperty(buf);
+		    break;
+	    case 19:
+		    DeleteProperty(buf);
+		    break;
+	    case 20:
+		    GetProperty(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 21:
+		    ListProperties(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 22:
+		    SetSelectionOwner(buf);
+		    break;
+	    case 23:
+		    GetSelectionOwner(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 24:
+		    ConvertSelection(buf);
+		    break;
+	    case 25:
+		    SendEvent(buf);
+		    break;
+	    case 26:
+		    GrabPointer(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 27:
+		    UngrabPointer(buf);
+		    break;
+	    case 28:
+		    GrabButton(buf);
+		    break;
+	    case 29:
+		    UngrabButton(buf);
+		    break;
+	    case 30:
+		    ChangeActivePointerGrab(buf);
+		    break;
+	    case 31:
+		    GrabKeyboard(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 32:
+		    UngrabKeyboard(buf);
+		    break;
+	    case 33:
+		    GrabKey(buf);
+		    break;
+	    case 34:
+		    UngrabKey(buf);
+		    break;
+	    case 35:
+		    AllowEvents(buf);
+		    break;
+	    case 36:
+		    GrabServer(buf);
+		    break;
+	    case 37:
+		    UngrabServer(buf);
+		    break;
+	    case 38:
+		    QueryPointer(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 39:
+		    GetMotionEvents(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 40:
+		    TranslateCoordinates(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 41:
+		    WarpPointer(buf);
+		    break;
+	    case 42:
+		    SetInputFocus(buf);
+		    break;
+	    case 43:
+		    GetInputFocus(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 44:
+		    QueryKeymap(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 45:
+		    OpenFont(buf);
+		    break;
+	    case 46:
+		    CloseFont(buf);
+		    break;
+	    case 47:
+		    QueryFont(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 48:
+		    QueryTextExtents(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 49:
+		    ListFonts(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 50:
+		    ListFontsWithInfo(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 51:
+		    SetFontPath(buf);
+		    break;
+	    case 52:
+		    GetFontPath(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 53:
+		    CreatePixmap(buf);
+		    break;
+	    case 54:
+		    FreePixmap(buf);
+		    break;
+	    case 55:
+		    CreateGC(buf);
+		    break;
+	    case 56:
+		    ChangeGC(buf);
+		    break;
+	    case 57:
+		    CopyGC(buf);
+		    break;
+	    case 58:
+		    SetDashes(buf);
+		    break;
+	    case 59:
+		    SetClipRectangles(buf);
+		    break;
+	    case 60:
+		    FreeGC(buf);
+		    break;
+	    case 61:
+		    ClearArea(buf);
+		    break;
+	    case 62:
+		    CopyArea(buf);
+		    break;
+	    case 63:
+		    CopyPlane(buf);
+		    break;
+	    case 64:
+		    PolyPoint(buf);
+		    break;
+	    case 65:
+		    PolyLine(buf);
+		    break;
+	    case 66:
+		    PolySegment(buf);
+		    break;
+	    case 67:
+		    PolyRectangle(buf);
+		    break;
+	    case 68:
+		    PolyArc(buf);
+		    break;
+	    case 69:
+		    FillPoly(buf);
+		    break;
+	    case 70:
+		    PolyFillRectangle(buf);
+		    break;
+	    case 71:
+		    PolyFillArc(buf);
+		    break;
+	    case 72:
+		    PutImage(buf);
+		    break;
+	    case 73:
+		    GetImage(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 74:
+		    PolyText8(buf);
+		    break;
+	    case 75:
+		    PolyText16(buf);
+		    break;
+	    case 76:
+		    ImageText8(buf);
+		    break;
+	    case 77:
+		    ImageText16(buf);
+		    break;
+	    case 78:
+		    CreateColormap(buf);
+		    break;
+	    case 79:
+		    FreeColormap(buf);
+		    break;
+	    case 80:
+		    CopyColormapAndFree(buf);
+		    break;
+	    case 81:
+		    InstallColormap(buf);
+		    break;
+	    case 82:
+		    UninstallColormap(buf);
+		    break;
+	    case 83:
+		    ListInstalledColormaps(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 84:
+		    AllocColor(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 85:
+		    AllocNamedColor(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 86:
+		    AllocColorCells(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 87:
+		    AllocColorPlanes(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 88:
+		    FreeColors(buf);
+		    break;
+	    case 89:
+		    StoreColors(buf);
+		    break;
+	    case 90:
+		    StoreNamedColor(buf);
+		    break;
+	    case 91:
+		    QueryColors(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 92:
+		    LookupColor(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 93:
+		    CreateCursor(buf);
+		    break;
+	    case 94:
+		    CreateGlyphCursor(buf);
+		    break;
+	    case 95:
+		    FreeCursor(buf);
+		    break;
+	    case 96:
+		    RecolorCursor(buf);
+		    break;
+	    case 97:
+		    QueryBestSize(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 98:
+		    QueryExtension(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 99:
+		    ListExtensions(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 100:
+		    ChangeKeyboardMapping(buf);
+		    break;
+	    case 101:
+		    GetKeyboardMapping(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 102:
+		    ChangeKeyboardControl(buf);
+		    break;
+	    case 103:
+		    GetKeyboardControl(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 104:
+		    Bell(buf);
+		    break;
+	    case 105:
+		    ChangePointerControl(buf);
+		    break;
+	    case 106:
+		    GetPointerControl(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 107:
+		    SetScreenSaver(buf);
+		    break;
+	    case 108:
+		    GetScreenSaver(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 109:
+		    ChangeHosts(buf);
+		    break;
+	    case 110:
+		    ListHosts(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 111:
+		    SetAccessControl(buf);
+		    break;
+	    case 112:
+		    SetCloseDownMode(buf);
+		    break;
+	    case 113:
+		    KillClient(buf);
+		    break;
+	    case 114:
+		    RotateProperties(buf);
+		    break;
+	    case 115:
+		    ForceScreenSaver(buf);
+		    break;
+	    case 116:
+		    SetPointerMapping(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 117:
+		    GetPointerMapping(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 118:
+		    SetModifierMapping(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 119:
+		    GetModifierMapping(buf);
+		    ReplyExpected(fd, Request);
+		    break;
+	    case 127:
+		    NoOperation(buf);
+		    break;
+	    default:
+		    warn("Unimplemented request opcode");
+		    break;
+   }
+}
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+DecodeReply(fd, buf, n)
+     FD fd;
+     unsigned char *buf;
+     long    n;
+{
+  short   SequenceNumber = IShort (&buf[2]);
+  short   Request = ExtractReplyTable (fd, SequenceNumber);
+  if (Request == 0)
+    {
+      warn("Unexpected reply");
+      fprintf(stdout, "Unexpected reply: %d\n", SequenceNumber);
+      return;
+    }
+  SetIndentLevel(PRINTSERVER);
+  RBf[0] = Request /* for the PrintField in the Reply procedure */ ;
+  if (Verbose > 3)
+    DumpItem("Reply", fd, buf, n);
+  if (Request <= 0 || 127 < Request)
+    {
+      warn("Extended reply opcode");
+      fprintf(stdout, "Extended reply opcode: %d\n", Request);
+    }
+  else switch (Request)
+    {
+	    case 3:
+		    GetWindowAttributesReply(buf);
+		    break;
+	    case 14:
+		    GetGeometryReply(buf);
+		    break;
+	    case 15:
+		    QueryTreeReply(buf);
+		    break;
+	    case 16:
+		    InternAtomReply(buf);
+		    break;
+	    case 17:
+		    GetAtomNameReply(buf);
+		    break;
+	    case 20:
+		    GetPropertyReply(buf);
+		    break;
+	    case 21:
+		    ListPropertiesReply(buf);
+		    break;
+	    case 23:
+		    GetSelectionOwnerReply(buf);
+		    break;
+	    case 26:
+		    GrabPointerReply(buf);
+		    break;
+	    case 31:
+		    GrabKeyboardReply(buf);
+		    break;
+	    case 38:
+		    QueryPointerReply(buf);
+		    break;
+	    case 39:
+		    GetMotionEventsReply(buf);
+		    break;
+	    case 40:
+		    TranslateCoordinatesReply(buf);
+		    break;
+	    case 43:
+		    GetInputFocusReply(buf);
+		    break;
+	    case 44:
+		    QueryKeymapReply(buf);
+		    break;
+	    case 47:
+		    QueryFontReply(buf);
+		    break;
+	    case 48:
+		    QueryTextExtentsReply(buf);
+		    break;
+	    case 49:
+		    ListFontsReply(buf);
+		    break;
+	    case 50:
+		    ListFontsWithInfoReply(buf);
+		    break;
+	    case 52:
+		    GetFontPathReply(buf);
+		    break;
+	    case 73:
+		    GetImageReply(buf);
+		    break;
+	    case 83:
+		    ListInstalledColormapsReply(buf);
+		    break;
+	    case 84:
+		    AllocColorReply(buf);
+		    break;
+	    case 85:
+		    AllocNamedColorReply(buf);
+		    break;
+	    case 86:
+		    AllocColorCellsReply(buf);
+		    break;
+	    case 87:
+		    AllocColorPlanesReply(buf);
+		    break;
+	    case 91:
+		    QueryColorsReply(buf);
+		    break;
+	    case 92:
+		    LookupColorReply(buf);
+		    break;
+	    case 97:
+		    QueryBestSizeReply(buf);
+		    break;
+	    case 98:
+		    QueryExtensionReply(buf);
+		    break;
+	    case 99:
+		    ListExtensionsReply(buf);
+		    break;
+	    case 101:
+		    GetKeyboardMappingReply(buf);
+		    break;
+	    case 103:
+		    GetKeyboardControlReply(buf);
+		    break;
+	    case 106:
+		    GetPointerControlReply(buf);
+		    break;
+	    case 108:
+		    GetScreenSaverReply(buf);
+		    break;
+	    case 110:
+		    ListHostsReply(buf);
+		    break;
+	    case 116:
+		    SetPointerMappingReply(buf);
+		    break;
+	    case 117:
+		    GetPointerMappingReply(buf);
+		    break;
+	    case 118:
+		    SetModifierMappingReply(buf);
+		    break;
+	    case 119:
+		    GetModifierMappingReply(buf);
+		    break;
+	    default:
+		    warn("Unimplemented reply opcode");
+		    break;
+    }
+}
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+DecodeError(fd, buf, n)
+     FD fd;
+     unsigned char *buf;
+     long    n;
+{
+  short   Error = IByte (&buf[1]);
+  SetIndentLevel(PRINTSERVER);
+  if (Verbose > 3)
+    DumpItem("Error", fd, buf, n);
+  (void)ExtractReplyTable (fd, (short)IShort(&buf[2]));
+  if (Error < 1 || Error > 17)
+    warn("Extended Error code");
+  else switch (Error)
+    {
+	    case 1:
+		    RequestError(buf);
+		    break;
+	    case 2:
+		    ValueError(buf);
+		    break;
+	    case 3:
+		    WindowError(buf);
+		    break;
+	    case 4:
+		    PixmapError(buf);
+		    break;
+	    case 5:
+		    AtomError(buf);
+		    break;
+	    case 6:
+		    CursorError(buf);
+		    break;
+	    case 7:
+		    FontError(buf);
+		    break;
+	    case 8:
+		    MatchError(buf);
+		    break;
+	    case 9:
+		    DrawableError(buf);
+		    break;
+	    case 10:
+		    AccessError(buf);
+		    break;
+	    case 11:
+		    AllocError(buf);
+		    break;
+	    case 12:
+		    ColormapError(buf);
+		    break;
+	    case 13:
+		    GContextError(buf);
+		    break;
+	    case 14:
+		    IDChoiceError(buf);
+		    break;
+	    case 15:
+		    NameError(buf);
+		    break;
+	    case 16:
+		    LengthError(buf);
+		    break;
+	    case 17:
+		    ImplementationError(buf);
+		    break;
+	    default:
+		    warn("Unimplemented error code");
+		    break;
+    }
+}
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+DecodeEvent(fd, buf, n)
+     FD fd;
+     unsigned char *buf;
+     long    n;
+{
+  short   Event = IByte (&buf[0]);
+  SetIndentLevel(PRINTSERVER);
+  if (Verbose > 3)
+    DumpItem("Event", fd, buf, n);
+  /* high-order bit means SendEvent generated */
+  if (Event & 0x80)
+    {
+      debug(8,(stderr, "SendEvent generated event 0x%x\n", Event));
+      Event = Event & 0x7F;
+    }
+  if (Event < 2 || Event > 34)
+    warn("Extended Event code");
+  else switch (Event)
+    {
+	    case 2:
+		    KeyPressEvent(buf);
+		    break;
+	    case 3:
+		    KeyReleaseEvent(buf);
+		    break;
+	    case 4:
+		    ButtonPressEvent(buf);
+		    break;
+	    case 5:
+		    ButtonReleaseEvent(buf);
+		    break;
+	    case 6:
+		    MotionNotifyEvent(buf);
+		    break;
+	    case 7:
+		    EnterNotifyEvent(buf);
+		    break;
+	    case 8:
+		    LeaveNotifyEvent(buf);
+		    break;
+	    case 9:
+		    FocusInEvent(buf);
+		    break;
+	    case 10:
+		    FocusOutEvent(buf);
+		    break;
+	    case 11:
+		    KeymapNotifyEvent(buf);
+		    break;
+	    case 12:
+		    ExposeEvent(buf);
+		    break;
+	    case 13:
+		    GraphicsExposureEvent(buf);
+		    break;
+	    case 14:
+		    NoExposureEvent(buf);
+		    break;
+	    case 15:
+		    VisibilityNotifyEvent(buf);
+		    break;
+	    case 16:
+		    CreateNotifyEvent(buf);
+		    break;
+	    case 17:
+		    DestroyNotifyEvent(buf);
+		    break;
+	    case 18:
+		    UnmapNotifyEvent(buf);
+		    break;
+	    case 19:
+		    MapNotifyEvent(buf);
+		    break;
+	    case 20:
+		    MapRequestEvent(buf);
+		    break;
+	    case 21:
+		    ReparentNotifyEvent(buf);
+		    break;
+	    case 22:
+		    ConfigureNotifyEvent(buf);
+		    break;
+	    case 23:
+		    ConfigureRequestEvent(buf);
+		    break;
+	    case 24:
+		    GravityNotifyEvent(buf);
+		    break;
+	    case 25:
+		    ResizeRequestEvent(buf);
+		    break;
+	    case 26:
+		    CirculateNotifyEvent(buf);
+		    break;
+	    case 27:
+		    CirculateRequestEvent(buf);
+		    break;
+	    case 28:
+		    PropertyNotifyEvent(buf);
+		    break;
+	    case 29:
+		    SelectionClearEvent(buf);
+		    break;
+	    case 30:
+		    SelectionRequestEvent(buf);
+		    break;
+	    case 31:
+		    SelectionNotifyEvent(buf);
+		    break;
+	    case 32:
+		    ColormapNotifyEvent(buf);
+		    break;
+	    case 33:
+		    ClientMessageEvent(buf);
+		    break;
+	    case 34:
+		    MappingNotifyEvent(buf);
+		    break;
+	    default:
+		    warn("Unimplemented event code");
+		    break;
+    }
+}