1 5cedca1b 2004-05-15 devnull /* ts.c: minor string processing subroutines */
2 5cedca1b 2004-05-15 devnull #include "t.h"
5 5cedca1b 2004-05-15 devnull match (char *s1, char *s2)
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);
12 5cedca1b 2004-05-15 devnull return(0);
17 5cedca1b 2004-05-15 devnull prefix(char *small, char *big)
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);
29 5cedca1b 2004-05-15 devnull letter (int ch)
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);
40 5cedca1b 2004-05-15 devnull numb(char *str)
42 5cedca1b 2004-05-15 devnull /* convert to integer */
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);
51 5cedca1b 2004-05-15 devnull digit(int x)
53 5cedca1b 2004-05-15 devnull return(x >= '0' && x <= '9');
58 5cedca1b 2004-05-15 devnull max(int a, int b)
60 5cedca1b 2004-05-15 devnull return( a > b ? a : b);
65 5cedca1b 2004-05-15 devnull tcopy (char *s, char *t)
67 8a3cbc15 2004-05-17 devnull while (*s++ = *t++)