| /* ts.c: minor string processing subroutines */ | 
 | #include "t.h" | 
 |  | 
 | 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++) | 
 | 		; | 
 | } | 
 |  | 
 |  |