strchri(str, c)
{
	local i = 0;

	loop {
		if ([str + i] == c)
			return (i);
		if ([str + i] == 0)
			return (0 - 1);
		i++;
	}
}