aboutsummaryrefslogtreecommitdiff
path: root/pkg/tbtables/tbagt.x
diff options
context:
space:
mode:
Diffstat (limited to 'pkg/tbtables/tbagt.x')
-rw-r--r--pkg/tbtables/tbagt.x238
1 files changed, 238 insertions, 0 deletions
diff --git a/pkg/tbtables/tbagt.x b/pkg/tbtables/tbagt.x
new file mode 100644
index 00000000..1f54557b
--- /dev/null
+++ b/pkg/tbtables/tbagt.x
@@ -0,0 +1,238 @@
+include <mach.h> # for MAX_INT and MAX_SHORT
+include <tbset.h>
+include "tbtables.h"
+
+# tbagt[tbirds] -- get an array of values
+#
+# Phil Hodge, 12-Sep-1994 Subroutines created.
+# Phil Hodge, 9-Jun-1995 Modify for FITS tables.
+# Phil Hodge, 2-Mar-1998 Map selected row number to actual row number.
+
+int procedure tbagtd (tp, cp, selrow, buffer, first, nelem)
+
+pointer tp # i: pointer to table struct
+pointer cp # i: pointer to column struct
+int selrow # i: row number (or selected row number)
+double buffer[ARB] # o: values read from table
+int first # i: number of first array element to read
+int nelem # i: maximum number of elements to read
+#--
+int row # actual row number
+int nret # actual number of elements read
+int tbxagd(), tbfagd()
+errchk tbsirow, tbegtd, tbfagd, tbxagd
+
+begin
+ if (selrow < 1 || first < 1)
+ call error (1, "tbagtd: invalid row or element number")
+
+ if (nelem < 1)
+ return (0)
+
+ if (first == 1 && nelem == 1) {
+ call tbegtd (tp, cp, selrow, buffer)
+ return (1)
+ }
+
+ call tbsirow (tp, selrow, row)
+
+ if (TB_TYPE(tp) == TBL_TYPE_S_ROW)
+ nret = tbxagd (tp, cp, row, buffer, first, nelem)
+ else if (TB_TYPE(tp) == TBL_TYPE_FITS)
+ nret = tbfagd (tp, cp, row, buffer, first, nelem)
+ else
+ call error (1, "can't read an array from this type of table")
+
+ return (nret)
+end
+
+int procedure tbagtr (tp, cp, selrow, buffer, first, nelem)
+
+pointer tp # i: pointer to table struct
+pointer cp # i: pointer to column struct
+int selrow # i: row number (or selected row number)
+real buffer[ARB] # o: values read from table
+int first # i: number of first array element to read
+int nelem # i: maximum number of elements to read
+#--
+int row # actual row number
+int nret # actual number of elements read
+int tbxagr(), tbfagr()
+errchk tbsirow, tbegtr, tbfagr, tbxagr, tbxagr
+
+begin
+ if (selrow < 1 || first < 1)
+ call error (1, "tbagtr: invalid row or element number")
+
+ if (nelem < 1)
+ return (0)
+
+ if (first == 1 && nelem == 1) {
+ call tbegtr (tp, cp, selrow, buffer)
+ return (1)
+ }
+
+ call tbsirow (tp, selrow, row)
+
+ if (TB_TYPE(tp) == TBL_TYPE_S_ROW)
+ nret = tbxagr (tp, cp, row, buffer, first, nelem)
+ else if (TB_TYPE(tp) == TBL_TYPE_FITS)
+ nret = tbfagr (tp, cp, row, buffer, first, nelem)
+ else
+ call error (1, "can't read an array from this type of table")
+
+ return (nret)
+end
+
+int procedure tbagti (tp, cp, selrow, buffer, first, nelem)
+
+pointer tp # i: pointer to table struct
+pointer cp # i: pointer to column struct
+int selrow # i: row number (or selected row number)
+int buffer[ARB] # o: values read from table
+int first # i: number of first array element to read
+int nelem # i: maximum number of elements to read
+#--
+int row # actual row number
+int nret # actual number of elements read
+int tbxagi(), tbfagi()
+errchk tbsirow, tbegti, tbfagi, tbxagi
+
+begin
+ if (selrow < 1 || first < 1)
+ call error (1, "tbagti: invalid row or element number")
+
+ if (nelem < 1)
+ return (0)
+
+ if (first == 1 && nelem == 1) {
+ call tbegti (tp, cp, selrow, buffer)
+ return (1)
+ }
+
+ call tbsirow (tp, selrow, row)
+
+ if (TB_TYPE(tp) == TBL_TYPE_S_ROW)
+ nret = tbxagi (tp, cp, row, buffer, first, nelem)
+ else if (TB_TYPE(tp) == TBL_TYPE_FITS)
+ nret = tbfagi (tp, cp, row, buffer, first, nelem)
+ else
+ call error (1, "can't read an array from this type of table")
+
+ return (nret)
+end
+
+int procedure tbagts (tp, cp, selrow, buffer, first, nelem)
+
+pointer tp # i: pointer to table struct
+pointer cp # i: pointer to column struct
+int selrow # i: row number (or selected row number)
+short buffer[ARB] # o: values read from table
+int first # i: number of first array element to read
+int nelem # i: maximum number of elements to read
+#--
+int row # actual row number
+int nret # actual number of elements read
+int tbxags(), tbfags()
+errchk tbsirow, tbegts, tbfags, tbxags
+
+begin
+ if (selrow < 1 || first < 1)
+ call error (1, "tbagts: invalid row or element number")
+
+ if (nelem < 1)
+ return (0)
+
+ if (first == 1 && nelem == 1) {
+ call tbegts (tp, cp, selrow, buffer)
+ return (1)
+ }
+
+ call tbsirow (tp, selrow, row)
+
+ if (TB_TYPE(tp) == TBL_TYPE_S_ROW)
+ nret = tbxags (tp, cp, row, buffer, first, nelem)
+ else if (TB_TYPE(tp) == TBL_TYPE_FITS)
+ nret = tbfags (tp, cp, row, buffer, first, nelem)
+ else
+ call error (1, "can't read an array from this type of table")
+
+ return (nret)
+end
+
+int procedure tbagtb (tp, cp, selrow, buffer, first, nelem)
+
+pointer tp # i: pointer to table struct
+pointer cp # i: pointer to column struct
+int selrow # i: row number (or selected row number)
+bool buffer[ARB] # o: values read from table
+int first # i: number of first array element to read
+int nelem # i: maximum number of elements to read
+#--
+int row # actual row number
+int nret # actual number of elements read
+int tbxagb(), tbfagb()
+errchk tbsirow, tbegtb, tbfagb, tbxagb
+
+begin
+ if (selrow < 1 || first < 1)
+ call error (1, "tbagtb: invalid row or element number")
+
+ if (nelem < 1)
+ return (0)
+
+ if (first == 1 && nelem == 1) {
+ call tbegtb (tp, cp, selrow, buffer)
+ return (1)
+ }
+
+ call tbsirow (tp, selrow, row)
+
+ if (TB_TYPE(tp) == TBL_TYPE_S_ROW)
+ nret = tbxagb (tp, cp, row, buffer, first, nelem)
+ else if (TB_TYPE(tp) == TBL_TYPE_FITS)
+ nret = tbfagb (tp, cp, row, buffer, first, nelem)
+ else
+ call error (1, "can't read an array from this type of table")
+
+ return (nret)
+end
+
+int procedure tbagtt (tp, cp, selrow, cbuf, maxch, first, nelem)
+
+pointer tp # i: pointer to table struct
+pointer cp # i: pointer to column struct
+int selrow # i: row number (or selected row number)
+char cbuf[maxch,ARB] # o: values read from table
+int maxch # i: size of first dimension of cbuf
+int first # i: number of first array element to read
+int nelem # i: maximum number of elements to read
+#--
+int row # actual row number
+int nret # actual number of elements read
+int tbxagt(), tbfagt()
+errchk tbsirow, tbegtt, tbfagt, tbxagt
+
+begin
+ if (selrow < 1 || first < 1)
+ call error (1, "tbagtt: invalid row or element number")
+
+ if (nelem < 1)
+ return (0)
+
+ if (first == 1 && nelem == 1) {
+ call tbegtt (tp, cp, selrow, cbuf, maxch)
+ return (1)
+ }
+
+ call tbsirow (tp, selrow, row)
+
+ if (TB_TYPE(tp) == TBL_TYPE_S_ROW)
+ nret = tbxagt (tp, cp, row, cbuf, maxch, first, nelem)
+ else if (TB_TYPE(tp) == TBL_TYPE_FITS)
+ nret = tbfagt (tp, cp, row, cbuf, maxch, first, nelem)
+ else
+ call error (1, "can't read an array from this type of table")
+
+ return (nret)
+end
generated by cgit (git 2.34.1) at 2025-09-20 11:21:33 -0400