pkg/tbtables/selector/tcscolumn.x


1
2
3
4
5
6
7
8
9
10
11
12

include "tcs.h"

# TCS_COLUMN -- Get column pointer from column selector

pointer procedure tcs_column (descrip)

pointer	descrip		# i: column descriptor
#--

begin
	return (TCS_COLUMN(descrip))
end