sys/fmtio/strlen.x


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

# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.

# STRLEN -- Return length of string (EOS not included).

int procedure strlen (str)

char	str[ARB]
int	ip

begin
	do ip = 1, ARB
	    if (str[ip] == EOS)
		return (ip - 1)
end