blob: 0a25ce2bb456816d185024d8e2e7fe3137b16a21 (
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
|
include "tcs.h"
# TCS_SHAPE -- Shape of column array
procedure tcs_shape (descrip, length, ndim, maxdimen)
pointer descrip # i: column selector
int length[ARB] # o: dimension lengths
int ndim # o: number of dimensions
int maxdimen # i: max number of dimensions
#--
int idim
begin
ndim = TCS_DIMEN(descrip)
do idim = 1, ndim {
if (idim > maxdimen)
break
length[idim] = (((TCS_LAST(descrip,idim) -
TCS_FIRST(descrip,idim)) /
TCS_INC(descrip,idim)) + 1)
}
end
|
