Import xscope bits into keithp.com CVS

1 files changed, 465 insertions, 0 deletions

diff --git a/print_wcp.c b/print_wcp.c
new file mode 100644
index 0000000..e86158f
--- /dev/null
+++ b/print_wcp.c
@@ -0,0 +1,465 @@
+/*
+ * $NCDOr: print_wcp.c,v 1.1 1996/07/18 23:26:38 keithp Exp keithp $
+ *
+ * Copyright 1996 Network Computing Devices
+ *
+ * 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 NCD. not be used in advertising or
+ * publicity pertaining to distribution of the software without specific,
+ * written prior permission.  NCD. makes no representations about the
+ * suitability of this software for any purpose.  It is provided "as is"
+ * without express or implied warranty.
+ *
+ * NCD. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL NCD.
+ * 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.
+ *
+ * Author:  Keith Packard, Network Computing Devices
+ */
+
+#include "scope.h"
+#include "x11.h"
+#include "wcpscope.h"
+
+WcpQueryVersion (fd, buf)
+register unsigned char *buf;
+{
+  PrintField (buf, 0, 1, REQUEST, REQUESTHEADER) /* WcpRequest */ ;
+  PrintField (buf, 1, 1, WCPREQUEST, WCPREQUESTHEADER) /* WcpSwitch */ ;
+  if (Verbose < 1)
+    return;
+  if (Verbose > 1)
+    PrintField(SBf, 0, 4, CARD32, "sequence number");
+
+  printfield(buf, 2, 2, CONST2(2), "request length");
+}
+
+WcpQueryVersionReply (fd, buf)
+register unsigned char *buf;
+{
+  short   n;
+  long    m;
+  long   k;
+
+  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* WcpRequest reply */ ;
+  PrintField(RBf, 1, 1, WCPREPLY, WCPREPLYHEADER) /* WcpQueryVersion reply */;
+  if (Verbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  printfield(buf, 4, 4, DVALUE4(0), "reply length");
+  PrintField(buf, 8, 2, CARD16, "major-version");
+  PrintField(buf, 10, 2, CARD16, "minor-version");
+}
+    
+#define NextByte(dst)  if (!len--) { error = "Out of data"; break; } dst = *data++;
+
+extern char Leader[];
+
+WcpAnalyzeImage1RLL (buf, len, width, height)
+    char    *buf;
+    int	    len;
+    int	    width;
+    int	    height;
+{
+    unsigned char   byte;
+    unsigned char   *data = (unsigned char *) buf;
+    int		    x, y;
+    char	    *error = 0;
+    int		    bytewidth;
+    int		    i;
+    int		    w;
+    
+    y = 0;
+    bytewidth = (width +  7) >> 3;
+    while (!error && height--)
+    {
+	x = 0;
+	if (Verbose > 2)
+	    fprintf (stdout, "%s %9d %9d:", Leader, y, (char *) data - buf);
+	NextByte (byte);
+	if (Verbose > 2)
+	    fprintf (stdout, " %2x", byte);
+	switch (byte) {
+	case 0xff:
+	    for (i = 0; i < bytewidth; i++)
+	    {
+		NextByte(byte);
+	    }
+	    break;
+	default:
+	    w = width;
+	    while (w)
+	    {
+		NextByte(byte);
+		if (Verbose > 2)
+		    fprintf (stdout, " %3d", byte);
+		if (byte > w)
+		{
+		    error = "bad run";
+		    break;
+		}
+		x += byte;
+		w -= byte;
+	    }
+	    break;
+	}
+	if (Verbose > 2)
+	    fprintf (stdout, "\n");
+	y++;
+    }
+    if (error)
+	fprintf (stdout, "%s%20s: %d, %d %d\n", Leader, error, 
+		 x, y - 1, (char *) data - buf);
+}
+
+WcpAnalyzeImageNRLL (buf, len, width, height, bytes)
+    char    *buf;
+    int	    len;
+    int	    width;
+    int	    height;
+    int	    bytes;
+{
+}
+
+#define MAX_LRU_SHORT	0xe
+#define LRU_LONG	0xf
+#define MAX_LRU_RUN	(MAX_LRU_SHORT + 0xff)
+
+#define LRU_CACHE	0xf
+#define LRU_MISS	0xf
+
+typedef unsigned long	PIXEL;
+
+static void
+init_cache (cache, BPP)
+    PIXEL   cache[LRU_CACHE];
+    int	    BPP;
+{
+    int	    e;
+    
+    /*
+     * initialize cache values
+     */
+    for (e = 0; e < 8; e++)
+    {
+	cache[e] = e;
+	cache[LRU_CACHE-e-1] = ((1 << BPP) - 1) - e;
+    }
+}
+
+static void
+push (cache, pixel)
+    PIXEL cache[LRU_CACHE];
+    PIXEL pixel;
+{
+    int    e;
+
+    e = LRU_CACHE - 1;
+    while (--e >= 0)
+	cache[e+1] = cache[e];
+    cache[0] = pixel;
+}
+
+static PIXEL
+use (cache, e)
+    PIXEL  cache[LRU_CACHE];
+    int    e;
+{
+    PIXEL   tmp;
+
+    tmp = cache[e];
+    if (e)
+    {
+	while (--e >= 0)
+	    cache[e+1] = cache[e];
+	cache[0] = tmp;
+    }
+    return tmp;
+}
+
+static int
+match (cache, pixel)
+    PIXEL	cache[LRU_CACHE];
+    PIXEL	pixel;
+{
+    int	    e;
+
+    for (e = 0; e < LRU_CACHE; e++)
+        if (cache[e] == pixel)
+	{
+	    use (cache, e);
+            return e;
+	}
+    push (cache, pixel);
+    return LRU_MISS;
+}
+
+WcpAnalyzeImageNLRU (buf, len, width, height, bytes)
+    char    *buf;
+    int	    len;
+    int	    width;
+    int	    height;
+    int	    bytes;
+{
+    unsigned char   *data = (unsigned char *) buf;
+    unsigned char   byte;
+    int		    x, y;
+    int		    w;
+    int		    i;
+    int		    bytewidth;
+    int		    cache;
+    unsigned long   run;
+    PIXEL	    lru[LRU_CACHE];
+    PIXEL	    pix;
+    char	    *error = 0;
+
+    y = 0;
+    bytewidth = width * bytes;
+    while (!error && height--)
+    {
+	x = 0;
+	if (Verbose > 2)
+	    fprintf (stdout, "%s %9d %9d:", Leader, y, (char *) data - buf);
+	NextByte (byte);
+	if (Verbose > 2)
+	    fprintf (stdout, " %2x", byte);
+	switch (byte) {
+	case 0xff:
+	    for (i = 0; i < bytewidth; i++)
+	    {
+		NextByte (byte);
+	    }
+	    break;
+	default:
+	    init_cache (lru, bytes * 8);
+	    w = width;
+	    while (w)
+	    {
+		NextByte (byte);
+		run = byte >> 4;
+		cache = byte & 0xf;
+		if (run == LRU_LONG)
+		{
+		    NextByte (byte);
+		    run = (int) byte + MAX_LRU_SHORT;
+		}
+		run++;
+		if (cache == LRU_MISS)
+		{
+		    pix = 0;
+		    for (i = 0; i < bytes; i++)
+		    {
+			pix = pix << 8;
+			NextByte (byte);
+			pix |= byte;
+		    }
+		    push (lru, pix);
+		}
+		else
+		{
+		    pix = use (lru, cache);
+		}
+		w -= run;
+		if (w < 0)
+		{
+		    error = "bad run";
+		    break;
+		}
+		x += run;
+		fprintf (stdout, " %3d:%0*x", run, bytes * 2, pix);
+	    }
+	    break;
+	}
+	if (Verbose > 2)
+	    fprintf (stdout, "\n");
+	y++;
+    }
+    if (error)
+	fprintf (stdout, "%s%20s: %d, %d %d\n", Leader, error, 
+		 x, y - 1, (char *) data - buf);
+}
+
+WcpAnalyzeImage (buf, len, depth, encoding, width, height)
+    char    *buf;
+    int	    len;
+    int	    depth;
+    int	    encoding;
+    int	    width;
+    int	    height;
+{
+    int	    bytes;
+    
+    bytes = depth / 8;
+    switch (depth) {
+    case 1:
+	switch (encoding) {
+	case 1:
+	case 2:
+	case 3:
+	case 4:
+	    WcpAnalyzeImage1RLL (buf, len, width, height);
+	    return;
+	default:
+	    break;
+	}
+	break;
+    case 4:
+	switch (encoding) {
+	case 1:
+	case 2:
+	case 3:
+	case 4:
+	default:
+	    break;
+	}
+	break;
+    case 8:
+    case 16:
+    case 24:
+	switch (encoding) {
+	case 1:
+	case 2:
+	case 3:
+	    WcpAnalyzeImageNRLL (buf, len, width, height, bytes);
+	    return;
+	case 4:
+	    WcpAnalyzeImageNLRU (buf, len, width, height, bytes);
+	    return;
+	default:
+	    break;
+	}
+	break;
+    }
+    fprintf (stdout, "%s%20s: ", Leader, "invalid");
+    fprintf (stdout, "encoding %d depth %d\n", encoding, depth);
+}
+
+WcpPutImage (fd, buf)
+  unsigned char	*buf;
+{
+  int n;
+  PrintField (buf, 0, 1, REQUEST, REQUESTHEADER) /* WcpRequest */ ;
+  PrintField (buf, 1, 1, WCPREQUEST, WCPREQUESTHEADER) /* WcpSwitch */ ;
+  if (Verbose < 1)
+    return;
+  if (Verbose > 1)
+    PrintField(SBf, 0, 4, CARD32, "sequence number");
+
+  n = (IShort(&buf[2]) - 7) * 4;
+  printfield(buf, 2, 2, DVALUE2(7 + (n + p) / 4), "request length");
+  PrintField(buf, 4, 4, DRAWABLE, "drawable");
+  PrintField(buf, 8, 4, GCONTEXT, "gc");
+  if (Verbose > 2)
+    PrintValueRec (ILong(&buf[8]),
+		   GC_function|
+		   GC_plane_mask|
+		   GC_foreground|
+		   GC_background,
+		   GC_BITMASK);
+  PrintField(buf, 12, 4, CARD32, "lut");
+  PrintField(buf, 16, 2, INT16, "dst-x");
+  PrintField(buf, 18, 2, INT16, "dst-y");
+  PrintField(buf, 20, 2, CARD16, "width");
+  PrintField(buf, 22, 2, CARD16, "height");
+  PrintField(buf, 24, 1, CARD8, "depth");
+  PrintField(buf, 25, 1, CARD8, "encoding");
+  PrintField(buf, 26, 1, CARD8, "left-pad");
+  WcpAnalyzeImage (&buf[28], (long) n, buf[24], buf[25], 
+		   IShort(&buf[20]) + buf[26],
+		   IShort(&buf[22]));
+  PrintBytes(&buf[28], (long)n, "data");
+}
+
+WcpGetImage (fd, buf)
+  unsigned char	*buf;
+{
+  PrintField (buf, 0, 1, REQUEST, REQUESTHEADER) /* WcpRequest */ ;
+  PrintField (buf, 1, 1, WCPREQUEST, WCPREQUESTHEADER) /* WcpSwitch */ ;
+  if (Verbose < 1)
+    return;
+  if (Verbose > 1)
+    PrintField(SBf, 0, 4, CARD32, "sequence number");
+
+  printfield(buf, 2, 2, CONST2(2), "request length");
+  PrintField(buf, 4, 4, DRAWABLE, "drawable");
+  PrintField(buf, 8, 4, CARD32, "lut");
+  PrintField(buf, 12, 2, INT16, "x");
+  PrintField(buf, 14, 2, INT16, "y");
+  PrintField(buf, 16, 2, CARD16, "width");
+  PrintField(buf, 18, 2, CARD16, "height");
+  PrintField(buf, 20, 1, CARD8, "encoding");
+}
+
+WcpGetImageReply (fd, buf)
+register unsigned char	*buf;
+{
+  long	  n;
+
+  PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* WcpRequest reply */ ;
+  PrintField(RBf, 1, 1, WCPREPLY, WCPREPLYHEADER) /* WcpGetImage reply */;
+  if (Verbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  printfield(buf, 4, 4, DVALUE4(n), "reply length");
+  PrintField(buf, 8, 4, CARD32, "visual");
+  n = ILong (&buf[4]) * 4;
+  PrintBytes (&buf[32], n, "data");
+}
+
+WcpCreateColorCursor (fd, buf)
+register unsigned char	*buf;
+{
+  PrintField (buf, 0, 1, REQUEST, REQUESTHEADER) /* WcpRequest */ ;
+  PrintField (buf, 1, 1, WCPREQUEST, WCPREQUESTHEADER) /* WcpSwitch */ ;
+  if (Verbose < 1)
+    return;
+  if (Verbose > 1)
+    PrintField(SBf, 0, 4, CARD32, "sequence number");
+
+  printfield(buf, 2, 2, CONST2(2), "request length");
+}
+
+WcpCreateLut (fd, buf)
+register unsigned char	*buf;
+{
+  PrintField (buf, 0, 1, REQUEST, REQUESTHEADER) /* WcpRequest */ ;
+  PrintField (buf, 1, 1, WCPREQUEST, WCPREQUESTHEADER) /* WcpSwitch */ ;
+  if (Verbose < 1)
+    return;
+  if (Verbose > 1)
+    PrintField(SBf, 0, 4, CARD32, "sequence number");
+
+  printfield(buf, 2, 2, CONST2(2), "request length");
+}
+
+WcpFreeLut (fd, buf)
+register unsigned char	*buf;
+{
+  PrintField (buf, 0, 1, REQUEST, REQUESTHEADER) /* WcpRequest */ ;
+  PrintField (buf, 1, 1, WCPREQUEST, WCPREQUESTHEADER) /* WcpSwitch */ ;
+  if (Verbose < 1)
+    return;
+  if (Verbose > 1)
+    PrintField(SBf, 0, 4, CARD32, "sequence number");
+
+  printfield(buf, 2, 2, CONST2(2), "request length");
+}
+
+WcpCopyArea (fd, buf)
+register unsigned char	*buf;
+{
+  PrintField (buf, 0, 1, REQUEST, REQUESTHEADER) /* WcpRequest */ ;
+  PrintField (buf, 1, 1, WCPREQUEST, WCPREQUESTHEADER) /* WcpSwitch */ ;
+  if (Verbose < 1)
+    return;
+  if (Verbose > 1)
+    PrintField(SBf, 0, 4, CARD32, "sequence number");
+
+  printfield(buf, 2, 2, CONST2(2), "request length");
+}