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

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

diff --git a/pkg/tbtables/selector/selrows.x b/pkg/tbtables/selector/selrows.x
new file mode 100644
index 00000000..2a82e9e7
--- /dev/null
+++ b/pkg/tbtables/selector/selrows.x
@@ -0,0 +1,30 @@
+#* HISTORY *
+#* 17-Mar-97	I.Busko		created
+#* 15-Jan-97	B.Simon		modified to call trsrows
+
+# SELROWS -- Count how many rows are selected by an expression
+
+int procedure selrows (tp, expr)
+
+pointer	tp		# i: table descriptor
+char	expr[ARB]	# i: expression to be evaluated
+#--
+int	nrow
+pointer	set
+
+int	rst_nelem()
+pointer	trsrows()
+errchk	trsrows
+
+begin
+	# Compute set of rows matching expression
+
+	set = trsrows (tp, expr)
+
+	# Count number of rows in set
+
+	nrow = rst_nelem (set)
+
+	call rst_free (set)
+	return (nrow)
+end
-- 
cgit