MultiSource/Benchmarks/Prolangs-C/unix-tbl/ts.c

#ifndef lint
static char sccsid[] = "@(#)ts.c	4.2 8/11/83";
#endif

 /* ts.c: minor string processing subroutines */

int match(char *s1,char *s2)
{
	while (*s1 == *s2)
		if (*s1++ == '\0')
			return(1);
		else
			s2++;
	return(0);
}

int prefix(char *small,char *big)
{
int c;
while ((c= *small++) == *big++)
	if (c==0) return(1);
return(c==0);
}

int letter(int ch)
	{
	if (ch >= 'a' && ch <= 'z')
		return(1);
	if (ch >= 'A' && ch <= 'Z')
		return(1);
	return(0);
	}

int numb(char *str)
	{
	/* convert to integer */
	int k;
	for (k=0; *str >= '0' && *str <= '9'; str++)
		k = k*10 + *str - '0';
	return(k);
	}

int digit(int x)
	{
	return(x>= '0' && x<= '9');
	}

int max(int a,int b)
{
return( a>b ? a : b);
}

void tcopy(char *s,char *t)
{
	while (*s++ = *t++);
}