| /* ts.c: minor string processing subroutines */ |
| #include "t.h" |
| |
| int |
| match (char *s1, char *s2) |
| { |
| while (*s1 == *s2) |
| if (*s1++ == '\0') |
| return(1); |
| else |
| s2++; |
| return(0); |
| } |
| |
| |
| int |
| prefix(char *small, char *big) |
| { |
| int c; |
| |
| while ((c = *small++) == *big++) |
| if (c == 0) |
| return(1); |
| return(c == 0); |
| } |
| |
| |
| int |
| letter (int ch) |
| { |
| if (ch >= 'a' && ch <= 'z') |
| return(1); |
| if (ch >= 'A' && ch <= 'Z') |
| return(1); |
| return(0); |
| } |
| |
| |
| int |
| numb(char *str) |
| { |
| /* convert to integer */ |
| int k; |
| for (k = 0; *str >= '0' && *str <= '9'; str++) |
| k = k * 10 + *str - '0'; |
| return(k); |
| } |
| |
| |
| int |
| digit(int x) |
| { |
| return(x >= '0' && x <= '9'); |
| } |
| |
| |
| int |
| max(int a, int b) |
| { |
| return( a > b ? a : b); |
| } |
| |
| |
| void |
| tcopy (char *s, char *t) |
| { |
| while (*s++ = *t++) |
| ; |
| } |
| |
| |