Context Navigation

RINDEX.C@ a6f5b95

Last change on this file since a6f5b95 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago
Imported original source code.
Property mode set to `100755`
File size: 451 bytes

Rev	Line
[3ae31e9]	1	/*
	2	============================================================================
	3	rindex.c -- BSD style rindex function
	4	Version 2 -- 1987-06-12 -- D.N. Lynx Crowe
	5	============================================================================
	6	*/
	7
	8	char *
	9	rindex(str, c)
	10	register char *str;
	11	char c;
	12	{
	13	register char *cp;
	14
	15	for (cp = str ;*cp++ ; )
	16	;
	17
	18	while (cp > str)
	19	if (*--cp == c)
	20	return(cp);
	21
	22	return((char *)0);
	23	}

Note: See TracBrowser for help on using the repository browser.