aboutsummaryrefslogtreecommitdiff
path: root/pkg/tbtables/selector/selrows.x
blob: 2a82e9e786fe0de59174a66e9857bc0ed05c0cc5 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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