+
−char *
+
−rindex(p, ch)
+
−	register char *p, ch;
+
−{
+
−	register char *save;
+
−
+
−	for (save = 0;; ++p) {
+
−		if (*p == ch)
+
−			save = p;
+
−		if (!*p)
+
−			return(save);
+
−	}
+
−	/* NOTREACHED */
+
−}