Initial commit

1 files changed, 123 insertions, 0 deletions

diff --git a/pkg/tbtables/tbegp.x b/pkg/tbtables/tbegp.x
new file mode 100644
index 00000000..5f93e46f
--- /dev/null
+++ b/pkg/tbtables/tbegp.x
@@ -0,0 +1,123 @@
+include <mach.h>		# for unpacking strings in tbegpt
+include "tbtables.h"
+
+# tbegp[tbirds] -- primitive get element
+# This procedure reads one element (i.e. row, column) from a table.
+# No type conversion is performed, and there is no checking for INDEF
+# values.  Character strings will be unpacked by tbegpt, however.
+#
+# Phil Hodge, 15-Sep-1987  Subroutine created.
+# Phil Hodge, 31-Mar-1993  Include short datatype.
+# Phil Hodge, 13-Sep-1994  In tbegpt, use tbeszt for length of string to read.
+
+procedure tbegpb (tp, cptr, offset, rownum, buffer)
+
+pointer tp			# i: pointer to table descriptor
+pointer cptr			# i: pointer to column descriptor
+long	offset			# i: offset in char to location for reading
+int	rownum			# i: row number
+bool	buffer			# o: buffer to receive value
+#--
+int	read()
+errchk	seek, read
+
+begin
+	call seek (TB_FILE(tp), offset)
+	if (read (TB_FILE(tp), buffer, SZ_BOOL) < SZ_BOOL)
+		call error (1, "tbegpb:  unexpected end of file")
+end
+
+procedure tbegpd (tp, cptr, offset, rownum, buffer)
+
+pointer tp			# i: pointer to table descriptor
+pointer cptr			# i: pointer to column descriptor
+long	offset			# i: offset in char to location for reading
+int	rownum			# i: row number
+double	buffer			# o: buffer to receive value
+#--
+int	read()
+errchk	seek, read
+
+begin
+	call seek (TB_FILE(tp), offset)
+	if (read (TB_FILE(tp), buffer, SZ_DOUBLE) < SZ_DOUBLE)
+		call error (1, "tbegpd:  unexpected end of file")
+end
+
+procedure tbegpr (tp, cptr, offset, rownum, buffer)
+
+pointer tp			# i: pointer to table descriptor
+pointer cptr			# i: pointer to column descriptor
+long	offset			# i: offset in char to location for reading
+int	rownum			# i: row number
+real	buffer			# o: buffer to receive value
+#--
+int	read()
+errchk	seek, read
+
+begin
+	call seek (TB_FILE(tp), offset)
+	if (read (TB_FILE(tp), buffer, SZ_REAL) < SZ_REAL)
+		call error (1, "tbegpr:  unexpected end of file")
+end
+
+procedure tbegpi (tp, cptr, offset, rownum, buffer)
+
+pointer tp			# i: pointer to table descriptor
+pointer cptr			# i: pointer to column descriptor
+long	offset			# i: offset in char to location for reading
+int	rownum			# i: row number
+int	buffer			# o: buffer to receive value
+#--
+int	read()
+errchk	seek, read
+
+begin
+	call seek (TB_FILE(tp), offset)
+	if (read (TB_FILE(tp), buffer, SZ_INT32) < SZ_INT32)
+		call error (1, "tbegpi:  unexpected end of file")
+	if (SZ_INT != SZ_INT32)
+	    call iupk32 (buffer, buffer, 1)
+end
+
+procedure tbegps (tp, cptr, offset, rownum, buffer)
+
+pointer tp			# i: pointer to table descriptor
+pointer cptr			# i: pointer to column descriptor
+long	offset			# i: offset in char to location for reading
+int	rownum			# i: row number
+short	buffer			# o: buffer to receive value
+#--
+int	read()
+errchk	seek, read
+
+begin
+	call seek (TB_FILE(tp), offset)
+	if (read (TB_FILE(tp), buffer, SZ_SHORT) < SZ_SHORT)
+		call error (1, "tbegps:  unexpected end of file")
+end
+
+procedure tbegpt (tp, cptr, offset, rownum, buffer, maxch)
+
+pointer tp			# i: pointer to table descriptor
+pointer cptr			# i: pointer to column descriptor
+long	offset			# i: offset in char to location for reading
+int	rownum			# i: row number
+char	buffer[ARB]		# o: buffer to receive value
+int	maxch			# i: max number of char to read
+#--
+char	cbuf[SZ_LINE]		# buffer for reading from table
+int	nchar			# number of char to read
+int	read()
+int	tbeszt()
+errchk	seek, read
+
+begin
+	nchar = min (tbeszt (cptr), SZ_LINE)
+	call seek (TB_FILE(tp), offset)
+	if (read (TB_FILE(tp), cbuf, nchar) < nchar)
+	    call error (1, "tbegpt:  unexpected end of file")
+	# It may be that no EOS was read from the entry in the table.
+	cbuf[nchar+1] = EOS
+	call strupk (cbuf, buffer, maxch)
+end