mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
46 lines
1.2 KiB
C
46 lines
1.2 KiB
C
/*********************************************************************
|
||
* STRRCHAR - returns a pointer to last occurrence of char in string.
|
||
*
|
||
* BYTE *strrchr(s,c)
|
||
* BYTE *s, c;
|
||
*
|
||
* Like 'strchr', only returns pointer to last c in s (instead of first),
|
||
* or zero if c not in s.
|
||
*
|
||
* Edits:
|
||
* 1/84 whf change from 'rindex()' to 'strchr()'
|
||
**********************************************************************/
|
||
|
||
#include "portab.h"
|
||
|
||
BYTE * strrchr(str,ch) /* CLEAR FUNCTION ***********/
|
||
REG BYTE *str, ch;
|
||
{
|
||
REG BYTE *t;
|
||
|
||
for( t=str; *t; t++ ) /* look for eos. */
|
||
;
|
||
for( ; ch != *t ; t-- ) /* look for c in s. */
|
||
if( t==str ) /* if we get to start of string,*/
|
||
return(NULL); /* too far. */
|
||
return(t); /* found c. note that 'rindex' */
|
||
/* works (ie. returns eos) */
|
||
/* if c==NULL. */
|
||
}
|
||
|
||
BYTE * rindex(str,ch) /* CLEAR FUNCTION ***********/
|
||
REG BYTE *str, ch;
|
||
{
|
||
return strrchr(str,ch); /* 'jacket' rtn for V7 compatability*/
|
||
}
|
||
ION ***********/
|
||
REG BYTE *str, ch;
|
||
{
|
||
return strrchr(str,ch); /* 'jacket' rtn for V7 compatability*/
|
||
}
|
||
ION ***********/
|
||
REG BYTE *str, ch;
|
||
{
|
||
return strrchr(str,ch); /* 'jacket' rtn for V7 compatability*/
|
||
}
|