/* runtime.c
   L. Stewart April 2, 1982  4:39 PM
   C runtime library
 */

/* compare two strings without regard to case */
int eqstr(s1, s2)
  char *s1, *s2;
  {
  while (*s1 != 0) if (lc(*s1++) != lc(*s2++)) return(0);
  if (*s2 != 0) return (0);
  return (1);
  };

int isdigit(c)
  char c;
  {
  if (c >= '0' && c <= '9') return(1);
  else return(0);
  };

lc(c)
  char c;
  {
  if (c >= 'A' && c <= 'Z') c = c - 'A' + 'a';
  return (c);
  };

uc(c)
  char c;
  {
  if (c >= 'a' && c <= 'z') c = c - 'a' + 'A';
  return (c);
  };