1 files changed, 158 insertions, 0 deletions
diff --git a/unix/os/zzdbg.c b/unix/os/zzdbg.c
new file mode 100644
index 00000000..eaffd8ad
--- /dev/null
+++ b/unix/os/zzdbg.c
@@ -0,0 +1,158 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <time.h>
+
+#define import_spp
+#define import_kernel
+#define import_knames
+#define import_xnames
+#define import_prtype
+#include <iraf.h>
+
+
+
+void zzval_ (XINT *val) 
+{ 
+    fprintf (stderr, "zzprnt: %ld 0x%lx\n", (long)*val, (long)*val); 
+}
+
+
+void zzprnt_ (XINT *val, XINT *len) 
+{   
+    int  i;
+
+
+    fprintf (stderr, "zzprnt:\n");
+    for (i=0; i < *len; i++)
+        fprintf (stderr, "%ld\n", (long)*val); 
+    fprintf (stderr, "\n");
+}
+
+
+void zzmsg_ (XCHAR *buf, XINT *val) 
+{ 
+    char i, *cp = (char *) buf;
+
+    fprintf (stderr, "zzmsg: ");
+    for (i=0; i < 64; i++, cp++) {
+	if (*cp == '\n' || (*cp == '\0' && *(cp+1) == '\0'))
+	    break;
+	fprintf (stderr, "%c", *cp);
+    }
+    fprintf (stderr, "   %ld 0x%lx\n", (long)*val, (long)*val); 
+    fflush (stderr);
+}
+
+
+void zzmfd_ (XCHAR *buf, XINT *fd, XINT *val) 
+{ 
+    char i, *cp = (char *) buf;
+
+    fprintf (stderr, "zzmfd[%2d]: ", (int) *fd);
+    for (i=0; i < 64; i++) {
+	if (*cp == '\n' || (*cp == '\0' && *(cp+1) == '\0'))
+	    break;
+	fprintf (stderr, "%c", *cp++);
+    }
+    fprintf (stderr, "   %ld 0x%lx\n", (long)*val, (long)*val); 
+    fflush (stderr);
+}
+
+
+void zzmstr_ (XCHAR *s1, XCHAR *s2, XINT *val) {
+ 
+    char i, *c1 = (char *) s1, *c2 = (char *) s2;
+
+    fprintf (stderr, "zzmstr: ");
+    for (i=0; i < 64; i++) {
+	if (*c1 == '\n' || (*c1 == '\0' && *(c1+1) == '\0'))
+	    break;
+	fprintf (stderr, "%c", *c1++);
+    }
+    fprintf (stderr, "   ");
+    for (i=0; i < 64; i++) {
+	if (*c2 == '\n' || (*c2 == '\0' && *(c2+1) == '\0'))
+	    break;
+	fprintf (stderr, "%c", *c2++);
+    }
+    fprintf (stderr, "   %ld 0x%lx\n", (long)*val, (long)*val); 
+    fflush (stderr);
+}
+
+
+void zzdmp_ (XCHAR *buf, XINT *len) { 
+    int i; 
+    char *cp = (char *) buf;
+    for (i=0; i < *len; i++, cp++) {
+	if (*cp == '\0' && *(cp+1) == '\0')
+	    break;
+	else
+            fprintf (stderr, "%c'", *cp);
+    }
+    fprintf (stderr, "\n");
+    fflush (stderr);
+}
+
+
+void mdump_ (XINT *buf, XINT *nbytes)
+{
+    register int i=0, j=0, nb=(*nbytes);
+    char ch, *p = LOC_TO_ADDR(*buf,char);
+
+    /*
+    fprintf (stderr, "*buf = %d  %d %d   %d %d\n", 
+      *buf, ((int)p)*2, (((int)p)*4-4), ((int)(*buf))*2, (((int)(*buf))*4-4) );
+    p = ((*buf) * 4 - 4);
+    */
+
+    printf ("\n");
+    while ( i < nb ) {
+        printf ("%4d  %ld 0x%lx\t", i, (long)(p+i), (long)(p+i) );
+        for (j=0; j < 8; j++) {
+            ch = *(p+i);
+            printf ("0x%02x ", (ch & 0xff));
+            i++;
+        }
+        printf ("\n");
+    }
+    printf ("\n");
+}
+
+
+void
+zzpeek_ (void *a, XINT *nelems, XINT *nl)
+{
+    XINT  i;
+    char *c;
+
+    for (i=0, c=(char *)a; i < *nelems; i++)
+        printf ("%2d ", *c++);
+    printf ("%s", (*nl ? " : " : "\n"));
+}
+
+
+void
+zzpdat_ (XCHAR *msg, void *a, XINT *nelems, XINT *nl)
+{
+    XINT   i;
+    char  *c;
+
+    for (i=0; i < 32; i++) {
+        if (msg[i])
+            printf ("%c", (char )msg[i]);
+        else {
+            printf (": ");
+            break;
+        }
+    }
+
+    for (i=0, c=(char *)a; i < *nelems; i++)
+        printf ("%2d ", *c++);
+    printf ("%s", (*nl ? " : " : "\n"));
+}