/*
   Strchr and index.
   
   See COPYLEFT.JRD
*/

#ifdef __GNUC__
asm (".text");
asm (".even\n.globl _index\n_index:");
#else
char * strchr();

char * index(str, chr)
char * str;
char chr;
{ return(strchr(str, chr)) }
#endif

char * strchr(str, chr)
char * str;
char chr;
{
  char c;

  while (c = *str++)
	if (c == chr)
		return(str - 1);
  return((char * )0);
}