From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 pkg/tbtables/tbxscp.x | 77 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 pkg/tbtables/tbxscp.x

(limited to 'pkg/tbtables/tbxscp.x')

diff --git a/pkg/tbtables/tbxscp.x b/pkg/tbtables/tbxscp.x
new file mode 100644
index 00000000..77c38091
--- /dev/null
+++ b/pkg/tbtables/tbxscp.x
@@ -0,0 +1,77 @@
+include "tbtables.h"
+
+# tbxscp -- X copy to change size
+# This routine copies the contents of one table to another for the purpose
+# of changing the size of the user-parameter space, the space for column
+# descriptors, and/or the row or column length of the table itself.
+# Old_maxpar, etc describe the characteristics of the input file,
+# while TB_MAXPAR(tp), etc describe the output file.
+# This is called by tbxsiz.
+#
+# Phil Hodge, 19-Jan-1990  Replace TB_ROWLEN(tp) by TB_ROWLEN(tp)/SZ_REAL
+#			in call to amovr.
+# Phil Hodge, 30-Mar-1993  TB_INDEF is now TY_CHAR rather than TY_REAL.
+
+procedure tbxscp (tp, oldfd, newfd, old_maxpar,
+		old_maxcols, old_ncols, old_rowlen, old_colused)
+
+pointer tp		# i: pointer to table descriptor
+int	oldfd, newfd	# i: channel numbers for input & output tables
+int	old_maxpar	# i: previous maximum number of user parameters
+int	old_maxcols	# i: previous value for maximum number of columns
+int	old_ncols	# i: previous number of columns
+int	old_rowlen	# i: row length (=record length) in original table
+int	old_colused	# i: previous number of char used in row
+#--
+pointer sp
+pointer sbuf			# size info buffer
+pointer rbuf			# buffer for copying table (row buffer)
+char	zero			# for amovkc
+long	oldoff, newoff		# offsets from start of old & new files
+int	sbufsiz			# size of buffer pointed to by sbuf
+int	rbufsiz			# size of buffer pointed to by rbuf
+int	k			# loop index
+int	stat
+long	tbtbod()
+int	read()
+errchk	seek, read, write
+
+begin
+	# Create buffers for I/O
+	call smark (sp)
+	sbufsiz = SZ_SIZINFO				# unit = SZ_CHAR
+	rbufsiz = max (TB_ROWLEN(tp), old_rowlen)	# unit = SZ_CHAR
+	call salloc (sbuf, sbufsiz, TY_CHAR)
+	call salloc (rbuf, rbufsiz, TY_CHAR)
+
+	# Copy the indef record to the row buffer.
+	# bug fix 1/19/90 PEH; changed to ty_char 3/30/93 PEH
+	call amovc (Memc[TB_INDEF(tp)], Memc[rbuf], TB_ROWLEN(tp))
+
+	# Write dummy size info record.
+	zero = 0
+	call amovkc (zero, Memc[sbuf], SZ_SIZINFO)
+	newoff = 1
+	call seek (newfd, newoff)
+	call write (newfd, Memc[sbuf], SZ_SIZINFO)
+
+	# Copy each user parameter to the temporary file.
+	call tbtscu (tp, oldfd, newfd, old_maxpar)
+
+	# Copy each column descriptor to the temporary file.
+	call tbtscd (tp, oldfd, newfd, old_maxpar, old_ncols)
+
+	# Copy each row of the table to the temporary file.
+	# Note that only old_colused char of input record are read.
+	oldoff = tbtbod (old_maxpar, old_maxcols)
+	newoff = tbtbod (TB_MAXPAR(tp), TB_MAXCOLS(tp))
+	do k = 1, TB_NROWS(tp) {
+	    call seek (oldfd, oldoff)
+	    call seek (newfd, newoff)
+	    stat = read (oldfd, Memc[rbuf], old_colused)
+	    call write (newfd, Memc[rbuf], TB_ROWLEN(tp))
+	    oldoff = oldoff + old_rowlen
+	    newoff = newoff + TB_ROWLEN(tp)
+	}
+	call sfree (sp)
+end
-- 
cgit