1*14514Ssam #ifndef lint 2*14514Ssam static char sccsid[] = "@(#)ts.c 4.2 08/11/83"; 3*14514Ssam #endif 411044Sshannon 511044Sshannon /* ts.c: minor string processing subroutines */ 611044Sshannon match (s1, s2) 711044Sshannon char *s1, *s2; 811044Sshannon { 911044Sshannon while (*s1 == *s2) 1011044Sshannon if (*s1++ == '\0') 1111044Sshannon return(1); 1211044Sshannon else 1311044Sshannon s2++; 1411044Sshannon return(0); 1511044Sshannon } 1611044Sshannon prefix(small, big) 1711044Sshannon char *small, *big; 1811044Sshannon { 1911044Sshannon int c; 2011044Sshannon while ((c= *small++) == *big++) 2111044Sshannon if (c==0) return(1); 2211044Sshannon return(c==0); 2311044Sshannon } 2411044Sshannon letter (ch) 2511044Sshannon { 2611044Sshannon if (ch >= 'a' && ch <= 'z') 2711044Sshannon return(1); 2811044Sshannon if (ch >= 'A' && ch <= 'Z') 2911044Sshannon return(1); 3011044Sshannon return(0); 3111044Sshannon } 3211044Sshannon numb(str) 3311044Sshannon char *str; 3411044Sshannon { 3511044Sshannon /* convert to integer */ 3611044Sshannon int k; 3711044Sshannon for (k=0; *str >= '0' && *str <= '9'; str++) 3811044Sshannon k = k*10 + *str - '0'; 3911044Sshannon return(k); 4011044Sshannon } 4111044Sshannon digit(x) 4211044Sshannon { 4311044Sshannon return(x>= '0' && x<= '9'); 4411044Sshannon } 4511044Sshannon max(a,b) 4611044Sshannon { 4711044Sshannon return( a>b ? a : b); 4811044Sshannon } 4911044Sshannon tcopy (s,t) 5011044Sshannon char *s, *t; 5111044Sshannon { 5211044Sshannon while (*s++ = *t++); 5311044Sshannon } 54