1 5cedca1b 2004-05-15 devnull /* ts.c: minor string processing subroutines */
 2 5cedca1b 2004-05-15 devnull #include "t.h"
 3 5cedca1b 2004-05-15 devnull 
 4 5cedca1b 2004-05-15 devnull int
 5 5cedca1b 2004-05-15 devnull match (char *s1, char *s2)
 6 5cedca1b 2004-05-15 devnull {
 7 5cedca1b 2004-05-15 devnull 	while (*s1 == *s2)
 8 5cedca1b 2004-05-15 devnull 		if (*s1++ == '\0')
 9 5cedca1b 2004-05-15 devnull 			return(1);
10 5cedca1b 2004-05-15 devnull 		else
11 5cedca1b 2004-05-15 devnull 			s2++;
12 5cedca1b 2004-05-15 devnull 	return(0);
13 5cedca1b 2004-05-15 devnull }
14 5cedca1b 2004-05-15 devnull 
15 5cedca1b 2004-05-15 devnull 
16 5cedca1b 2004-05-15 devnull int
17 5cedca1b 2004-05-15 devnull prefix(char *small, char *big)
18 5cedca1b 2004-05-15 devnull {
19 5cedca1b 2004-05-15 devnull 	int	c;
20 5cedca1b 2004-05-15 devnull 
21 5cedca1b 2004-05-15 devnull 	while ((c = *small++) == *big++)
22 5cedca1b 2004-05-15 devnull 		if (c == 0) 
23 5cedca1b 2004-05-15 devnull 			return(1);
24 5cedca1b 2004-05-15 devnull 	return(c == 0);
25 5cedca1b 2004-05-15 devnull }
26 5cedca1b 2004-05-15 devnull 
27 5cedca1b 2004-05-15 devnull 
28 5cedca1b 2004-05-15 devnull int
29 5cedca1b 2004-05-15 devnull letter (int ch)
30 5cedca1b 2004-05-15 devnull {
31 5cedca1b 2004-05-15 devnull 	if (ch >= 'a' && ch <= 'z')
32 5cedca1b 2004-05-15 devnull 		return(1);
33 5cedca1b 2004-05-15 devnull 	if (ch >= 'A' && ch <= 'Z')
34 5cedca1b 2004-05-15 devnull 		return(1);
35 5cedca1b 2004-05-15 devnull 	return(0);
36 5cedca1b 2004-05-15 devnull }
37 5cedca1b 2004-05-15 devnull 
38 5cedca1b 2004-05-15 devnull 
39 5cedca1b 2004-05-15 devnull int
40 5cedca1b 2004-05-15 devnull numb(char *str)
41 5cedca1b 2004-05-15 devnull {
42 5cedca1b 2004-05-15 devnull 				/* convert to integer */
43 5cedca1b 2004-05-15 devnull 	int	k;
44 5cedca1b 2004-05-15 devnull 	for (k = 0; *str >= '0' && *str <= '9'; str++)
45 5cedca1b 2004-05-15 devnull 		k = k * 10 + *str - '0';
46 5cedca1b 2004-05-15 devnull 	return(k);
47 5cedca1b 2004-05-15 devnull }
48 5cedca1b 2004-05-15 devnull 
49 5cedca1b 2004-05-15 devnull 
50 5cedca1b 2004-05-15 devnull int
51 5cedca1b 2004-05-15 devnull digit(int x)
52 5cedca1b 2004-05-15 devnull {
53 5cedca1b 2004-05-15 devnull 	return(x >= '0' && x <= '9');
54 5cedca1b 2004-05-15 devnull }
55 5cedca1b 2004-05-15 devnull 
56 5cedca1b 2004-05-15 devnull 
57 5cedca1b 2004-05-15 devnull int
58 5cedca1b 2004-05-15 devnull max(int a, int b)
59 5cedca1b 2004-05-15 devnull {
60 5cedca1b 2004-05-15 devnull 	return( a > b ? a : b);
61 5cedca1b 2004-05-15 devnull }
62 5cedca1b 2004-05-15 devnull 
63 5cedca1b 2004-05-15 devnull 
64 5cedca1b 2004-05-15 devnull void
65 5cedca1b 2004-05-15 devnull tcopy (char *s, char *t)
66 5cedca1b 2004-05-15 devnull {
67 8a3cbc15 2004-05-17 devnull 	while (*s++ = *t++)
68 5cedca1b 2004-05-15 devnull 		;
69 5cedca1b 2004-05-15 devnull }
70 5cedca1b 2004-05-15 devnull 
71 5cedca1b 2004-05-15 devnull