1*11044Sshannon /* ts.c 4.1 83/02/12 */ 2*11044Sshannon 3*11044Sshannon /* ts.c: minor string processing subroutines */ 4*11044Sshannon match (s1, s2) 5*11044Sshannon char *s1, *s2; 6*11044Sshannon { 7*11044Sshannon while (*s1 == *s2) 8*11044Sshannon if (*s1++ == '\0') 9*11044Sshannon return(1); 10*11044Sshannon else 11*11044Sshannon s2++; 12*11044Sshannon return(0); 13*11044Sshannon } 14*11044Sshannon prefix(small, big) 15*11044Sshannon char *small, *big; 16*11044Sshannon { 17*11044Sshannon int c; 18*11044Sshannon while ((c= *small++) == *big++) 19*11044Sshannon if (c==0) return(1); 20*11044Sshannon return(c==0); 21*11044Sshannon } 22*11044Sshannon letter (ch) 23*11044Sshannon { 24*11044Sshannon if (ch >= 'a' && ch <= 'z') 25*11044Sshannon return(1); 26*11044Sshannon if (ch >= 'A' && ch <= 'Z') 27*11044Sshannon return(1); 28*11044Sshannon return(0); 29*11044Sshannon } 30*11044Sshannon numb(str) 31*11044Sshannon char *str; 32*11044Sshannon { 33*11044Sshannon /* convert to integer */ 34*11044Sshannon int k; 35*11044Sshannon for (k=0; *str >= '0' && *str <= '9'; str++) 36*11044Sshannon k = k*10 + *str - '0'; 37*11044Sshannon return(k); 38*11044Sshannon } 39*11044Sshannon digit(x) 40*11044Sshannon { 41*11044Sshannon return(x>= '0' && x<= '9'); 42*11044Sshannon } 43*11044Sshannon max(a,b) 44*11044Sshannon { 45*11044Sshannon return( a>b ? a : b); 46*11044Sshannon } 47*11044Sshannon tcopy (s,t) 48*11044Sshannon char *s, *t; 49*11044Sshannon { 50*11044Sshannon while (*s++ = *t++); 51*11044Sshannon } 52