1*48316Sbostic /*-
2*48316Sbostic * %sccs.include.proprietary.c%
3*48316Sbostic */
4*48316Sbostic
514514Ssam #ifndef lint
6*48316Sbostic static char sccsid[] = "@(#)ts.c 4.3 (Berkeley) 04/18/91";
7*48316Sbostic #endif /* not lint */
811044Sshannon
911044Sshannon /* ts.c: minor string processing subroutines */
match(s1,s2)1011044Sshannon match (s1, s2)
1111044Sshannon char *s1, *s2;
1211044Sshannon {
1311044Sshannon while (*s1 == *s2)
1411044Sshannon if (*s1++ == '\0')
1511044Sshannon return(1);
1611044Sshannon else
1711044Sshannon s2++;
1811044Sshannon return(0);
1911044Sshannon }
prefix(small,big)2011044Sshannon prefix(small, big)
2111044Sshannon char *small, *big;
2211044Sshannon {
2311044Sshannon int c;
2411044Sshannon while ((c= *small++) == *big++)
2511044Sshannon if (c==0) return(1);
2611044Sshannon return(c==0);
2711044Sshannon }
letter(ch)2811044Sshannon letter (ch)
2911044Sshannon {
3011044Sshannon if (ch >= 'a' && ch <= 'z')
3111044Sshannon return(1);
3211044Sshannon if (ch >= 'A' && ch <= 'Z')
3311044Sshannon return(1);
3411044Sshannon return(0);
3511044Sshannon }
numb(str)3611044Sshannon numb(str)
3711044Sshannon char *str;
3811044Sshannon {
3911044Sshannon /* convert to integer */
4011044Sshannon int k;
4111044Sshannon for (k=0; *str >= '0' && *str <= '9'; str++)
4211044Sshannon k = k*10 + *str - '0';
4311044Sshannon return(k);
4411044Sshannon }
digit(x)4511044Sshannon digit(x)
4611044Sshannon {
4711044Sshannon return(x>= '0' && x<= '9');
4811044Sshannon }
max(a,b)4911044Sshannon max(a,b)
5011044Sshannon {
5111044Sshannon return( a>b ? a : b);
5211044Sshannon }
tcopy(s,t)5311044Sshannon tcopy (s,t)
5411044Sshannon char *s, *t;
5511044Sshannon {
5611044Sshannon while (*s++ = *t++);
5711044Sshannon }
58