BSD 4_1_snap release

[unix-history] / usr / src / cmd / delivermail / matchhdr.c

# include <stdio.h>
# include <ctype.h>

static char     SccsId[] = "@(#)matchhdr.c      2.1     11/5/80";

/*
**  MATCHHDR -- Match header line
**
**      Matches a header line in arpanet format (case and white
**      space is ignored).
**
**      This routine is used by arpa-mailer and delivermail.
**
**      Parameters:
**              line -- the line to match against.
**              pat -- the pattern to match against; must be in
**                      lower case.
**
**      Returns:
**              address of the 'value' of the pattern (the beginning
**                      of the non-white string following the delim).
**              NULL if none found.
**
**      Side Effects:
**              none
**
**      Called By:
**              maketemp
**              sendmail [arpa.c]
**
**      Deficiencies:
**              It doesn't handle folded lines.
*/

char *
matchhdr(line, pat)
       char *line;
       char *pat;
{
       register char *p;
       register char *q;

       for (q = pat, p = line; *q != '\0'; p++, q++)
               if (lower(*p) != *q)
                       return (NULL);
       while (isspace(*p))
               p++;
       if (*p != ':')
               return (NULL);
       while (isspace(*++p))
               continue;
       return (*p == '\0' ? NULL : p);
}
\f/*
**  LOWER -- Convert a character to lower case
**
**      If the argument is an upper case letter, it is converted
**      to a lower case letter, otherwise it is passed through
**      unchanged.
**
**      Parameters:
**              c -- the character to check.
**
**      Returns:
**              c converted to lower case.
**
**      Side Effects:
**              none
**
**      Called By:
**              matchhdr
*/

lower(c)
       register char c;
{
       if (isupper(c))
               c -= 'A' - 'a';
       return (c);
}