aboutsummaryrefslogtreecommitdiff
path: root/noao/digiphot/photcal/mctable/mctsget.x
diff options
context:
space:
mode:
Diffstat (limited to 'noao/digiphot/photcal/mctable/mctsget.x')
-rw-r--r--noao/digiphot/photcal/mctable/mctsget.x307
1 files changed, 307 insertions, 0 deletions
diff --git a/noao/digiphot/photcal/mctable/mctsget.x b/noao/digiphot/photcal/mctable/mctsget.x
new file mode 100644
index 00000000..b0361841
--- /dev/null
+++ b/noao/digiphot/photcal/mctable/mctsget.x
@@ -0,0 +1,307 @@
+include "../lib/mctable.h"
+
+
+
+# MCT_SGET - Get value sequentally (generic)
+
+int procedure mct_sgetc (table, value)
+
+pointer table # table descriptor
+char value # data value (output)
+
+int row, col # next row, and column
+char mct_getc()
+
+begin
+ # Check pointer and magic number.
+ if (table == NULL)
+ call error (0, "mct_sget: Null table pointer")
+ if (MCT_MAGIC (table) != MAGIC)
+ call error (0, "mct_sget: Bad magic number")
+
+ # Check table type.
+ if (MCT_TYPE (table) != TY_CHAR)
+ call error (0, "mct_sget: Wrong table type")
+
+ # Get next position.
+ row = max (MCT_NGROWS (table), 1)
+ col = MCT_NGCOLS (table) + 1
+
+ # Test if it's necessary to go to the next row.
+ if (col > MCT_MAXCOL (table)) {
+ col = 1
+ row = row + 1
+ }
+
+ # Get value and return status.
+ iferr (value = mct_getc (table, row, col))
+ return (EOF)
+ else
+ return (OK)
+end
+
+# MCT_SGET - Get value sequentally (generic)
+
+int procedure mct_sgets (table, value)
+
+pointer table # table descriptor
+short value # data value (output)
+
+int row, col # next row, and column
+short mct_gets()
+
+begin
+ # Check pointer and magic number.
+ if (table == NULL)
+ call error (0, "mct_sget: Null table pointer")
+ if (MCT_MAGIC (table) != MAGIC)
+ call error (0, "mct_sget: Bad magic number")
+
+ # Check table type.
+ if (MCT_TYPE (table) != TY_SHORT)
+ call error (0, "mct_sget: Wrong table type")
+
+ # Get next position.
+ row = max (MCT_NGROWS (table), 1)
+ col = MCT_NGCOLS (table) + 1
+
+ # Test if it's necessary to go to the next row.
+ if (col > MCT_MAXCOL (table)) {
+ col = 1
+ row = row + 1
+ }
+
+ # Get value and return status.
+ iferr (value = mct_gets (table, row, col))
+ return (EOF)
+ else
+ return (OK)
+end
+
+# MCT_SGET - Get value sequentally (generic)
+
+int procedure mct_sgeti (table, value)
+
+pointer table # table descriptor
+int value # data value (output)
+
+int row, col # next row, and column
+int mct_geti()
+
+begin
+ # Check pointer and magic number.
+ if (table == NULL)
+ call error (0, "mct_sget: Null table pointer")
+ if (MCT_MAGIC (table) != MAGIC)
+ call error (0, "mct_sget: Bad magic number")
+
+ # Check table type.
+ if (MCT_TYPE (table) != TY_INT)
+ call error (0, "mct_sget: Wrong table type")
+
+ # Get next position.
+ row = max (MCT_NGROWS (table), 1)
+ col = MCT_NGCOLS (table) + 1
+
+ # Test if it's necessary to go to the next row.
+ if (col > MCT_MAXCOL (table)) {
+ col = 1
+ row = row + 1
+ }
+
+ # Get value and return status.
+ iferr (value = mct_geti (table, row, col))
+ return (EOF)
+ else
+ return (OK)
+end
+
+# MCT_SGET - Get value sequentally (generic)
+
+int procedure mct_sgetl (table, value)
+
+pointer table # table descriptor
+long value # data value (output)
+
+int row, col # next row, and column
+long mct_getl()
+
+begin
+ # Check pointer and magic number.
+ if (table == NULL)
+ call error (0, "mct_sget: Null table pointer")
+ if (MCT_MAGIC (table) != MAGIC)
+ call error (0, "mct_sget: Bad magic number")
+
+ # Check table type.
+ if (MCT_TYPE (table) != TY_LONG)
+ call error (0, "mct_sget: Wrong table type")
+
+ # Get next position.
+ row = max (MCT_NGROWS (table), 1)
+ col = MCT_NGCOLS (table) + 1
+
+ # Test if it's necessary to go to the next row.
+ if (col > MCT_MAXCOL (table)) {
+ col = 1
+ row = row + 1
+ }
+
+ # Get value and return status.
+ iferr (value = mct_getl (table, row, col))
+ return (EOF)
+ else
+ return (OK)
+end
+
+# MCT_SGET - Get value sequentally (generic)
+
+int procedure mct_sgetr (table, value)
+
+pointer table # table descriptor
+real value # data value (output)
+
+int row, col # next row, and column
+real mct_getr()
+
+begin
+ # Check pointer and magic number.
+ if (table == NULL)
+ call error (0, "mct_sget: Null table pointer")
+ if (MCT_MAGIC (table) != MAGIC)
+ call error (0, "mct_sget: Bad magic number")
+
+ # Check table type.
+ if (MCT_TYPE (table) != TY_REAL)
+ call error (0, "mct_sget: Wrong table type")
+
+ # Get next position.
+ row = max (MCT_NGROWS (table), 1)
+ col = MCT_NGCOLS (table) + 1
+
+ # Test if it's necessary to go to the next row.
+ if (col > MCT_MAXCOL (table)) {
+ col = 1
+ row = row + 1
+ }
+
+ # Get value and return status.
+ iferr (value = mct_getr (table, row, col))
+ return (EOF)
+ else
+ return (OK)
+end
+
+# MCT_SGET - Get value sequentally (generic)
+
+int procedure mct_sgetd (table, value)
+
+pointer table # table descriptor
+double value # data value (output)
+
+int row, col # next row, and column
+double mct_getd()
+
+begin
+ # Check pointer and magic number.
+ if (table == NULL)
+ call error (0, "mct_sget: Null table pointer")
+ if (MCT_MAGIC (table) != MAGIC)
+ call error (0, "mct_sget: Bad magic number")
+
+ # Check table type.
+ if (MCT_TYPE (table) != TY_DOUBLE)
+ call error (0, "mct_sget: Wrong table type")
+
+ # Get next position.
+ row = max (MCT_NGROWS (table), 1)
+ col = MCT_NGCOLS (table) + 1
+
+ # Test if it's necessary to go to the next row.
+ if (col > MCT_MAXCOL (table)) {
+ col = 1
+ row = row + 1
+ }
+
+ # Get value and return status.
+ iferr (value = mct_getd (table, row, col))
+ return (EOF)
+ else
+ return (OK)
+end
+
+# MCT_SGET - Get value sequentally (generic)
+
+int procedure mct_sgetx (table, value)
+
+pointer table # table descriptor
+complex value # data value (output)
+
+int row, col # next row, and column
+complex mct_getx()
+
+begin
+ # Check pointer and magic number.
+ if (table == NULL)
+ call error (0, "mct_sget: Null table pointer")
+ if (MCT_MAGIC (table) != MAGIC)
+ call error (0, "mct_sget: Bad magic number")
+
+ # Check table type.
+ if (MCT_TYPE (table) != TY_COMPLEX)
+ call error (0, "mct_sget: Wrong table type")
+
+ # Get next position.
+ row = max (MCT_NGROWS (table), 1)
+ col = MCT_NGCOLS (table) + 1
+
+ # Test if it's necessary to go to the next row.
+ if (col > MCT_MAXCOL (table)) {
+ col = 1
+ row = row + 1
+ }
+
+ # Get value and return status.
+ iferr (value = mct_getx (table, row, col))
+ return (EOF)
+ else
+ return (OK)
+end
+
+# MCT_SGET - Get value sequentally (generic)
+
+int procedure mct_sgetp (table, value)
+
+pointer table # table descriptor
+pointer value # data value (output)
+
+int row, col # next row, and column
+pointer mct_getp()
+
+begin
+ # Check pointer and magic number.
+ if (table == NULL)
+ call error (0, "mct_sget: Null table pointer")
+ if (MCT_MAGIC (table) != MAGIC)
+ call error (0, "mct_sget: Bad magic number")
+
+ # Check table type.
+ if (MCT_TYPE (table) != TY_POINTER)
+ call error (0, "mct_sget: Wrong table type")
+
+ # Get next position.
+ row = max (MCT_NGROWS (table), 1)
+ col = MCT_NGCOLS (table) + 1
+
+ # Test if it's necessary to go to the next row.
+ if (col > MCT_MAXCOL (table)) {
+ col = 1
+ row = row + 1
+ }
+
+ # Get value and return status.
+ iferr (value = mct_getp (table, row, col))
+ return (EOF)
+ else
+ return (OK)
+end
generated by cgit (git 2.34.1) at 2025-09-20 11:29:59 -0400