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/selector/tcsaddcol.x | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 pkg/tbtables/selector/tcsaddcol.x

(limited to 'pkg/tbtables/selector/tcsaddcol.x')

diff --git a/pkg/tbtables/selector/tcsaddcol.x b/pkg/tbtables/selector/tcsaddcol.x
new file mode 100644
index 00000000..c17f2cb9
--- /dev/null
+++ b/pkg/tbtables/selector/tcsaddcol.x
@@ -0,0 +1,26 @@
+# TCS_ADDCOL -- Add a single column to the list of descriptors
+
+procedure tcs_addcol (tp, cp, descrip, ndescrip, maxdescrip)
+
+pointer	tp		# i: table descriptor
+pointer	cp		# i: column descriptor
+pointer	descrip[ARB]	# u: list of column array selectors
+int	ndescrip	# u: number of column array selectors
+int	maxdescrip	# i: length of descrip array
+#--
+string	toomany  "Overflow in descriptor array"
+
+begin
+	# Check for descriptor array overflow
+
+	if (ndescrip >= maxdescrip)
+	    call error (1, toomany)
+
+	# Convert the column pointer to a table column descriptor
+	# Function tcs_fillstruct can be found in tcs_open
+
+	ndescrip = ndescrip + 1
+	call tcs_fillstruct (tp, cp, "", descrip[ndescrip])
+
+end
+
-- 
cgit