From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 sys/memio/zzdebug.c | 366 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 366 insertions(+)
 create mode 100644 sys/memio/zzdebug.c

(limited to 'sys/memio/zzdebug.c')

diff --git a/sys/memio/zzdebug.c b/sys/memio/zzdebug.c
new file mode 100644
index 00000000..35b0f7ad
--- /dev/null
+++ b/sys/memio/zzdebug.c
@@ -0,0 +1,366 @@
+/* zzdebug.x -- translated by f2c (version 20061008).
+   You must link the resulting object file with libf2c:
+	on Microsoft Windows system, link with libf2c.lib;
+	on Linux or Unix systems, link with .../path/to/libf2c.a -lm
+	or, if you install libf2c.a in a standard place, with -lf2c -lm
+	-- in that order, at the end of the command line, as in
+		cc *.o -lf2c -lm
+	Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
+
+		http://www.netlib.org/f2c/libf2c.zip
+*/
+
+#include "f2c.h"
+
+/* Common Block Declarations */
+
+struct {
+    logical xerflg, xerpad[84];
+} xercom_;
+
+#define xercom_1 xercom_
+
+struct {
+    doublereal memd[1];
+} mem_;
+
+#define mem_1 mem_
+
+/* Table of constant values */
+
+static integer c__4 = 4;
+static integer c__1 = 1;
+static integer c__0 = 0;
+static integer c__2 = 2;
+static integer c__1023 = 1023;
+static integer c_b46 = 999999999;
+
+integer sysruk_(task, cmd, rukarf, rukint)
+shortint *task, *cmd;
+integer *rukarf, *rukint;
+{
+    /* Initialized data */
+
+    static shortint dict[14] = { 115,116,97,99,107,0,114,101,97,108,108,111,
+	    99,0 };
+    static shortint st0009[29] = { 105,110,118,97,108,105,100,32,115,101,116,
+	    32,115,116,97,116,101,109,101,110,116,58,32,39,37,115,39,10,0 };
+    static shortint st0010[25] = { 105,110,118,97,108,105,100,32,83,69,84,32,
+	    105,110,32,73,82,65,70,32,77,97,105,110,0 };
+    static integer dp[3] = { 1,7,0 };
+    static integer lmarg = 5;
+    static integer maxch = 0;
+    static integer ncol = 0;
+    static integer rukean = 3;
+    static integer ntasks = 0;
+    static shortint st0001[9] = { 116,116,121,110,99,111,108,115,0 };
+    static shortint st0002[6] = { 99,104,100,105,114,0 };
+    static shortint st0003[3] = { 99,100,0 };
+    static shortint st0004[6] = { 104,111,109,101,36,0 };
+    static shortint st0005[6] = { 72,79,77,69,36,0 };
+    static shortint st0006[4] = { 115,101,116,0 };
+    static shortint st0007[6] = { 114,101,115,101,116,0 };
+    static shortint st0008[2] = { 9,0 };
+
+    /* System generated locals */
+    integer ret_val;
+
+    /* Local variables */
+    static integer i__, rmarg;
+    extern logical streq_();
+    extern /* Subroutine */ integer trealc_();
+    extern integer envgei_();
+    extern /* Subroutine */ integer xfchdr_(), erract_(), eprinf_(), tstack_()
+	    ;
+    extern integer envscn_();
+    extern /* Subroutine */ integer xffluh_(), pargsr_(), envlit_(), syspac_()
+	    , xerpsh_(), strtbl_();
+    extern logical xerpop_();
+    extern /* Subroutine */ integer zzepro_();
+
+    /* Parameter adjustments */
+    --cmd;
+    --task;
+
+    /* Function Body */
+    if (! (ntasks == 0)) {
+	goto L110;
+    }
+    i__ = 1;
+L120:
+    if (! (dp[i__ - 1] != 0)) {
+	goto L122;
+    }
+/* L121: */
+    ++i__;
+    goto L120;
+L122:
+    ntasks = i__ - 1;
+L110:
+    if (! (task[1] == 63)) {
+	goto L130;
+    }
+    xerpsh_();
+    rmarg = envgei_(st0001);
+    if (! xerpop_()) {
+	goto L140;
+    }
+    rmarg = 80;
+L140:
+    strtbl_(&c__4, dict, dp, &ntasks, &lmarg, &rmarg, &maxch, &ncol);
+    ret_val = 0;
+    goto L100;
+L130:
+    if (! (streq_(&task[1], st0002) || streq_(&task[1], st0003))) {
+	goto L150;
+    }
+    xerpsh_();
+    if (! (cmd[*rukarf] == 0)) {
+	goto L170;
+    }
+    xerpsh_();
+    xfchdr_(st0004);
+    if (! xerpop_()) {
+	goto L180;
+    }
+    xfchdr_(st0005);
+L180:
+    goto L171;
+L170:
+    xfchdr_(&cmd[*rukarf]);
+L171:
+/* L162: */
+    if (! xerpop_()) {
+	goto L160;
+    }
+    if (! (*rukint == 1)) {
+	goto L190;
+    }
+    erract_(&rukean);
+    if (xercom_1.xerflg) {
+	goto L100;
+    }
+    goto L191;
+L190:
+L191:
+L160:
+    ret_val = 0;
+    goto L100;
+L150:
+    if (! (streq_(&task[1], st0006) || streq_(&task[1], st0007))) {
+	goto L200;
+    }
+    xerpsh_();
+    if (! (cmd[*rukarf] == 0)) {
+	goto L220;
+    }
+    envlit_(&c__4, st0008, &c__1);
+    xffluh_(&c__4);
+    goto L221;
+L220:
+    if (! (envscn_(&cmd[1]) <= 0)) {
+	goto L230;
+    }
+    if (! (*rukint == 1)) {
+	goto L240;
+    }
+    eprinf_(st0009);
+    pargsr_(&cmd[1]);
+    goto L241;
+L240:
+    goto L91;
+L241:
+L230:
+L221:
+/* L212: */
+    if (! xerpop_()) {
+	goto L210;
+    }
+    if (! (*rukint == 1)) {
+	goto L250;
+    }
+    erract_(&rukean);
+    if (xercom_1.xerflg) {
+	goto L100;
+    }
+    goto L251;
+L250:
+L91:
+    syspac_(&c__0, st0010);
+L251:
+L210:
+    ret_val = 0;
+    goto L100;
+L200:
+/* L151: */
+/* L131: */
+    if (! streq_(&task[1], &dict[dp[0] - 1])) {
+	goto L260;
+    }
+    tstack_();
+    ret_val = 0;
+    goto L100;
+L260:
+    if (! streq_(&task[1], &dict[dp[1] - 1])) {
+	goto L270;
+    }
+    trealc_();
+    ret_val = 0;
+    goto L100;
+L270:
+    ret_val = -1;
+    goto L100;
+L100:
+    zzepro_();
+    return ret_val;
+} /* sysruk_ */
+
+/* Subroutine */ integer tstack_()
+{
+    /* Initialized data */
+
+    static shortint st0001[12] = { 98,117,102,102,101,114,95,115,105,122,101,
+	    0 };
+    static shortint st0002[28] = { 98,117,102,102,101,114,32,112,111,105,110,
+	    116,101,114,61,37,100,44,32,115,105,122,101,61,37,100,10,0 };
+
+    /* Local variables */
+    static integer sp;
+#define memb ((logical *)&mem_1)
+#define memc ((shortint *)&mem_1)
+#define memi ((integer *)&mem_1)
+#define meml ((integer *)&mem_1)
+#define memr ((real *)&mem_1)
+#define mems ((shortint *)&mem_1)
+#define memx ((complex *)&mem_1)
+    static integer junk;
+    extern /* Subroutine */ integer pargi_(), sfree_(), smark_();
+    extern integer clglpi_();
+    static integer bufsie;
+    extern /* Subroutine */ integer salloc_(), xffluh_(), xprinf_(), zzepro_()
+	    ;
+
+    smark_(&sp);
+L110:
+    if (! (clglpi_(st0001, &bufsie) != -2)) {
+	goto L111;
+    }
+    salloc_(&junk, &bufsie, &c__2);
+    xprinf_(st0002);
+    pargi_(&junk);
+    pargi_(&bufsie);
+    xffluh_(&c__4);
+    goto L110;
+L111:
+    sfree_(&sp);
+/* L100: */
+    zzepro_();
+    return 0;
+} /* tstack_ */
+
+#undef memx
+#undef mems
+#undef memr
+#undef meml
+#undef memi
+#undef memc
+#undef memb
+
+
+/* Subroutine */ integer trealc_()
+{
+    /* Initialized data */
+
+    static shortint st0001[12] = { 97,98,99,100,101,102,103,104,105,106,107,0 
+	    };
+    static shortint st0002[11] = { 48,49,50,51,52,53,54,55,56,57,0 };
+    static shortint st0003[25] = { 97,32,105,115,32,97,116,32,37,100,44,32,
+	    115,105,122,101,32,37,100,58,32,37,115,10,0 };
+    static shortint st0004[25] = { 98,32,105,115,32,97,116,32,37,100,44,32,
+	    115,105,122,101,32,37,100,58,32,37,115,10,0 };
+    static shortint st0005[33] = { 45,45,45,45,45,45,45,45,45,45,45,45,45,45,
+	    45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,45,10,0 };
+    static shortint st0006[10] = { 97,95,98,117,102,115,105,122,101,0 };
+    static shortint st0007[10] = { 98,95,98,117,102,115,105,122,101,0 };
+    static shortint st0008[30] = { 97,32,98,117,102,32,37,100,44,32,115,105,
+	    122,101,32,37,100,32,45,45,62,32,37,100,58,32,37,115,10,0 };
+    static shortint st0009[30] = { 98,32,98,117,102,32,37,100,44,32,115,105,
+	    122,101,32,37,100,32,45,45,62,32,37,100,58,32,37,115,10,0 };
+
+    /* Local variables */
+    static integer a, b, sza, szb;
+#define memb ((logical *)&mem_1)
+#define memc ((shortint *)&mem_1)
+#define memi ((integer *)&mem_1)
+#define meml ((integer *)&mem_1)
+#define memr ((real *)&mem_1)
+#define mems ((shortint *)&mem_1)
+#define memx ((complex *)&mem_1)
+    extern /* Subroutine */ integer pargi_();
+    extern integer clgeti_();
+    extern /* Subroutine */ integer xrealc_(), xmallc_(), eprinf_(), xmfree_()
+	    , pargsr_();
+    static integer newsza, newszb;
+    extern /* Subroutine */ integer zzepro_(), xstrcy_();
+
+    xmallc_(&a, &c__1023, &c__2);
+    xstrcy_(st0001, &memc[a - 1], &c_b46);
+    sza = 1023;
+    xmallc_(&b, &c__1023, &c__2);
+    xstrcy_(st0002, &memc[b - 1], &c_b46);
+    szb = 1023;
+    eprinf_(st0003);
+    pargi_(&a);
+    pargi_(&sza);
+    pargsr_(&memc[a - 1]);
+    eprinf_(st0004);
+    pargi_(&b);
+    pargi_(&szb);
+    pargsr_(&memc[b - 1]);
+    eprinf_(st0005);
+L110:
+    newsza = clgeti_(st0006);
+    if (! (newsza == 0)) {
+	goto L120;
+    }
+    goto L100;
+L120:
+    xrealc_(&a, &newsza, &c__2);
+    newszb = clgeti_(st0007);
+    if (! (newszb == 0)) {
+	goto L130;
+    }
+    goto L100;
+L130:
+    xrealc_(&b, &newszb, &c__2);
+    eprinf_(st0008);
+    pargi_(&a);
+    pargi_(&sza);
+    pargi_(&newsza);
+    pargsr_(&memc[a - 1]);
+    eprinf_(st0009);
+    pargi_(&b);
+    pargi_(&szb);
+    pargi_(&newszb);
+    pargsr_(&memc[b - 1]);
+    sza = newsza;
+    szb = newszb;
+/* L111: */
+    goto L110;
+/* L112: */
+    xmfree_(&a, &c__2);
+    xmfree_(&b, &c__2);
+L100:
+    zzepro_();
+    return 0;
+} /* trealc_ */
+
+#undef memx
+#undef mems
+#undef memr
+#undef meml
+#undef memi
+#undef memc
+#undef memb
+
+
-- 
cgit