1 files changed, 161 insertions, 0 deletions
diff --git a/pkg/xtools/catquery/cqistat.x b/pkg/xtools/catquery/cqistat.x
new file mode 100644
index 00000000..0ae35527
--- /dev/null
+++ b/pkg/xtools/catquery/cqistat.x
@@ -0,0 +1,161 @@
+include "cqdef.h"
+include "cq.h"
+
+
+# CQ_ISTATI -- Get an integer image results parameter.
+
+int procedure cq_istati (res, param)
+
+pointer res                     #I pointer to the results descriptor
+int     param                   #I the integer parameter to be retrieved
+
+begin
+        switch (param) {
+	case CQINQPARS:
+            return (CQ_INQPARS(res))
+        case CQIMTYPE:
+            return (CQ_IMTYPE(res))
+        case CQWCS:
+            return (CQ_WCS(res))
+        case CQNWCS:
+            return (CQ_NWCS(res))
+        case CQNIMPARS:
+            return (CQ_NIMPARS(res))
+        default:
+            call error (0, "Error fetching integer image results parameter")
+        }
+end
+
+
+# CQ_ISTATR -- Get a real image results parameter.
+
+real procedure cq_istatr (res, param)
+
+pointer res                     #I pointer to the image results descriptor
+int     param                   #I the real image parameter to be retrieved
+
+begin
+        switch (param) {
+        default:
+            call error (0, "Error fetching real results parameter")
+        }
+end
+
+
+# CQ_ISTATD -- Get a double precision image results parameter.
+
+double procedure cq_istatd (res, param)
+
+pointer res                     #I pointer to the image results descriptor
+int     param                   #I the double parameter to be retrieved
+
+begin
+        switch (param) {
+        default:
+            call error (0, "Error fetching double results parameter")
+        }
+end
+
+
+# CQ_ISTATS -- Get a string image results parameter.
+
+procedure cq_istats (res, param, str, maxch)
+
+pointer res                     #I pointer to the results descriptor
+int     param                   #I the string parameter to be retrieved
+char    str[ARB]                #O the output string parameter
+int     maxch                   #I the maximum size of the string parameter
+
+begin
+        switch (param) {
+        case CQIQPNAMES:
+            call strcpy (Memc[CQ_IQPNAMES(res)], str, maxch)
+        case CQIQPVALUES:
+            call strcpy (Memc[CQ_IQPVALUES(res)], str, maxch)
+        case CQIQPUNITS:
+            call strcpy (Memc[CQ_IQPUNITS(res)], str, maxch)
+        case CQIMCATDB:
+            call strcpy (CQ_IMCATDB(res), str, maxch)
+        case CQIMCATNAME:
+            call strcpy (CQ_IMCATNAME(res), str, maxch)
+        case CQIMADDRESS:
+            call strcpy (CQ_IMADDRESS(res), str, maxch)
+        case CQIMQUERY:
+            call strcpy (CQ_IMQUERY(res), str, maxch)
+        case CQIMNAME:
+            call strcpy (CQ_IMNAME(res), str, maxch)
+        default:
+            call error (0, "Error fetching string results parameter")
+        }
+end
+
+
+# CQ_ISTATT -- Get a text list results parameter. A text list is a
+# string with items separated from each other by newlines.
+
+int procedure cq_istatt (res, param, str, maxch)
+
+pointer res                     #I pointer to the results descriptor
+int     param                   #I the list parameter to be retrieved
+char    str[ARB]                #O the output string parameter
+int     maxch                   #I the maximum size of the string parameter
+
+pointer	sp, tstr
+int     i, fd
+int     stropen(), cq_wrdstr()
+
+begin
+        switch (param) {
+
+        case CQIQPNAMES:
+	    call smark (sp)
+	    call salloc (tstr, CQ_SZ_QPNAME, TY_CHAR)
+            fd = stropen (str, maxch, NEW_FILE)
+	    str[1] = EOS
+            do i = 1, CQ_INQPARS(res) {
+		if (cq_wrdstr (i, Memc[tstr], CQ_SZ_QPNAME,
+		    Memc[CQ_IQPNAMES(res)]) > 0) {
+                    call fprintf (fd, "%s\n")
+                        call pargstr (Memc[tstr])
+		}
+            }
+            call close (fd)
+	    call sfree (sp)
+            return (CQ_INQPARS(res))
+
+        case CQIQPVALUES:
+	    call smark (sp)
+	    call salloc (tstr, CQ_SZ_QPVALUE, TY_CHAR)
+            fd = stropen (str, maxch, NEW_FILE)
+	    str[1] = EOS
+            do i = 1, CQ_INQPARS(res) {
+		if (cq_wrdstr (i, Memc[tstr], CQ_SZ_QPVALUE,
+		    Memc[CQ_IQPVALUES(res)]) > 0) {
+                    call fprintf (fd, "%s\n")
+                        call pargstr (Memc[tstr])
+		}
+            }
+            call close (fd)
+	    call sfree (sp)
+            return (CQ_INQPARS(res))
+
+        case CQIQPUNITS:
+	    call smark (sp)
+	    call salloc (tstr, CQ_SZ_QPUNITS, TY_CHAR)
+            fd = stropen (str, maxch, NEW_FILE)
+	    str[1] = EOS
+            do i = 1, CQ_INQPARS(res) {
+		if (cq_wrdstr (i, Memc[tstr], CQ_SZ_QPUNITS,
+		    Memc[CQ_IQPUNITS(res)]) > 0) {
+                    call fprintf (fd, "%s\n")
+                        call pargstr (Memc[tstr])
+		}
+            }
+            call close (fd)
+	    call sfree (sp)
+            return (CQ_INQPARS(res))
+
+        default:
+            call error (0, "Error fetching list image results parameter")
+        }
+end