pkg/utilities/nttools/tmatch/setindex.x


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

# SETINDEX -- Initialize an index array

procedure setindex (index, len)

int	index[ARB]	# o: index rray
int	len		# i: array length
#--
int	i

begin
	do i = 1, len
	    index[i] = i
end