projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
major rework: made faster, cleaned up, obsolete code removed,
[unix-history] / usr / src / usr.bin / mail / head.c
diff --git a/usr/src/usr.bin/mail/head.c b/usr/src/usr.bin/mail/head.c
index 6e450e2..ca78f6e 100644 (file)
--- a/usr/src/usr.bin/mail/head.c
+++ b/usr/src/usr.bin/mail/head.c
@@ -5,7 +5,7 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint
-static char sccsid[] = "@(#)head.c     5.1 (Berkeley) %G%";
+static char *sccsid = "@(#)head.c      5.3 (Berkeley) %G%";
 #endif not lint
 
 #include "rcv.h"
 #endif not lint
 
 #include "rcv.h"
@@ -21,7 +21,6 @@ static char sccsid[] = "@(#)head.c    5.1 (Berkeley) %G%";
  * Return true if yes.  Note the extreme pains to
  * accomodate all funny formats.
  */
  * Return true if yes.  Note the extreme pains to
  * accomodate all funny formats.
  */
-
 ishead(linebuf)
        char linebuf[];
 {
 ishead(linebuf)
        char linebuf[];
 {
@@ -30,32 +29,34 @@ ishead(linebuf)
        char parbuf[BUFSIZ];
 
        cp = linebuf;
        char parbuf[BUFSIZ];
 
        cp = linebuf;
-       if (strncmp("From ", cp, 5) != 0)
-               return(0);
-       parse(cp, &hl, parbuf);
+       if (*cp++ != 'F' || *cp++ != 'r' || *cp++ != 'o' || *cp++ != 'm' ||
+           *cp++ != ' ')
+               return (0);
+       parse(linebuf, &hl, parbuf);
        if (hl.l_from == NOSTR || hl.l_date == NOSTR) {
                fail(linebuf, "No from or date field");
        if (hl.l_from == NOSTR || hl.l_date == NOSTR) {
                fail(linebuf, "No from or date field");
-               return(0);
+               return (0);
        }
        if (!isdate(hl.l_date)) {
                fail(linebuf, "Date field not legal date");
        }
        if (!isdate(hl.l_date)) {
                fail(linebuf, "Date field not legal date");
-               return(0);
+               return (0);
        }
        }
-       
        /*
         * I guess we got it!
         */
        /*
         * I guess we got it!
         */
-
-       return(1);
+       return (1);
 }
 
 }
 
+/*ARGSUSED*/
 fail(linebuf, reason)
        char linebuf[], reason[];
 {
 
 fail(linebuf, reason)
        char linebuf[], reason[];
 {
 
-       if (1 /*value("debug") == NOSTR*/)
+       /*
+       if (value("debug") == NOSTR)
                return;
        fprintf(stderr, "\"%s\"\nnot a header because %s\n", linebuf, reason);
                return;
        fprintf(stderr, "\"%s\"\nnot a header because %s\n", linebuf, reason);
+       */
 }
 
 /*
 }
 
 /*
@@ -64,12 +65,11 @@ fail(linebuf, reason)
  * pointers into the copied line in the passed headline
  * structure.  Actually, it scans.
  */
  * pointers into the copied line in the passed headline
  * structure.  Actually, it scans.
  */
-
 parse(line, hl, pbuf)
        char line[], pbuf[];
 parse(line, hl, pbuf)
        char line[], pbuf[];
-       struct headline *hl;
+       register struct headline *hl;
 {
 {
-       register char *cp, *dp;
+       register char *cp;
        char *sp;
        char word[LINESIZE];
 
        char *sp;
        char word[LINESIZE];
 
@@ -78,25 +78,19 @@ parse(line, hl, pbuf)
        hl->l_date = NOSTR;
        cp = line;
        sp = pbuf;
        hl->l_date = NOSTR;
        cp = line;
        sp = pbuf;
-
        /*
        /*
-        * Skip the first "word" of the line, which should be "From"
-        * anyway.
+        * Skip over "From" first.
         */
         */
-
        cp = nextword(cp, word);
        cp = nextword(cp, word);
-       dp = nextword(cp, word);
-       if (!equal(word, ""))
+       cp = nextword(cp, word);
+       if (*word)
                hl->l_from = copyin(word, &sp);
                hl->l_from = copyin(word, &sp);
-       if (strncmp(dp, "tty", 3) == 0) {
-               cp = nextword(dp, word);
+       if (cp != NOSTR && cp[0] == 't' && cp[1] == 't' && cp[2] == 'y') {
+               cp = nextword(cp, word);
                hl->l_tty = copyin(word, &sp);
                hl->l_tty = copyin(word, &sp);
-               if (cp != NOSTR)
-                       hl->l_date = copyin(cp, &sp);
        }
        }
-       else
-               if (dp != NOSTR)
-                       hl->l_date = copyin(dp, &sp);
+       if (cp != NOSTR)
+               hl->l_date = copyin(cp, &sp);
 }
 
 /*
 }
 
 /*
@@ -105,22 +99,19 @@ parse(line, hl, pbuf)
  * Thus, dynamically allocate space in the right string, copying
  * the left string into it.
  */
  * Thus, dynamically allocate space in the right string, copying
  * the left string into it.
  */
-
 char *
 copyin(src, space)
 char *
 copyin(src, space)
-       char src[];
+       register char *src;
        char **space;
 {
        char **space;
 {
-       register char *cp, *top;
-       register int s;
+       register char *cp;
+       char *top;
 
 
-       s = strlen(src);
-       cp = *space;
-       top = cp;
-       strcpy(cp, src);
-       cp += s + 1;
+       top = cp = *space;
+       while (*cp++ = *src++)
+               ;
        *space = cp;
        *space = cp;
-       return(top);
+       return (top);
 }
 
 /*
 }
 
 /*
@@ -139,75 +130,62 @@ copyin(src, space)
 #define        N       6               /* A new line */
 #define U      7               /* An upper case char */
 
 #define        N       6               /* A new line */
 #define U      7               /* An upper case char */
 
-char ctypes[] = {U,L,L,S,U,L,L,S,O,D,S,D,D,C,D,D,C,D,D,S,D,D,D,D,0};
-char tmztypes[] = {U,L,L,S,U,L,L,S,O,D,S,D,D,C,D,D,C,D,D,S,U,U,U,S,D,D,D,D,0};
+char ctypes[] = { U,L,L,S,U,L,L,S,O,D,S,D,D,C,D,D,C,D,D,S,D,D,D,D,0 };
+char tmztypes[] = { U,L,L,S,U,L,L,S,O,D,S,D,D,C,D,D,C,D,D,S,U,U,U,S,D,D,D,D,0 };
 
 isdate(date)
        char date[];
 {
 
 isdate(date)
        char date[];
 {
-       register char *cp;
 
 
-       cp = date;
-       if (cmatch(cp, ctypes))
-               return(1);
-       return(cmatch(cp, tmztypes));
+       if (cmatch(date, ctypes))
+               return (1);
+       return (cmatch(date, tmztypes));
 }
 
 /*
 }
 
 /*
- * Match the given string against the given template.
+ * Match the given string (cp) against the given template (tp).
  * Return 1 if they match, 0 if they don't
  */
 
  * Return 1 if they match, 0 if they don't
  */
 
-cmatch(str, temp)
-       char str[], temp[];
-{
+cmatch(cp, tp)
        register char *cp, *tp;
        register char *cp, *tp;
-       register int c;
+{
 
 
-       cp = str;
-       tp = temp;
-       while (*cp != '\0' && *tp != 0) {
-               c = *cp++;
+       while (*cp && *tp)
                switch (*tp++) {
                case L:
                switch (*tp++) {
                case L:
-                       if (c < 'a' || c > 'z')
-                               return(0);
+                       if (!islower(*cp++))
+                               return 0;
                        break;
                        break;
-
                case U:
                case U:
-                       if (c < 'A' || c > 'Z')
-                               return(0);
+                       if (!isupper(*cp++))
+                               return 0;
                        break;
                        break;
-
                case S:
                case S:
-                       if (c != ' ')
-                               return(0);
+                       if (*cp++ != ' ')
+                               return 0;
                        break;
                        break;
-
                case D:
                case D:
-                       if (!isdigit(c))
-                               return(0);
+                       if (!isdigit(*cp++))
+                               return 0;
                        break;
                        break;
-
                case O:
                case O:
-                       if (c != ' ' && !isdigit(c))
-                               return(0);
+                       if (*cp != ' ' && !isdigit(*cp))
+                               return 0;
+                       cp++;
                        break;
                        break;
-
                case C:
                case C:
-                       if (c != ':')
-                               return(0);
+                       if (*cp++ != ':')
+                               return 0;
                        break;
                        break;
-
                case N:
                case N:
-                       if (c != '\n')
-                               return(0);
+                       if (*cp++ != '\n')
+                               return 0;
                        break;
                }
                        break;
                }
-       }
-       if (*cp != '\0' || *tp != 0)
-               return(0);
-       return(1);
+       if (*cp || *tp)
+               return 0;
+       return (1);
 }
 
 /*
 }
 
 /*
@@ -215,100 +193,45 @@ cmatch(str, temp)
  * passed.  Also, return a pointer to the next word following that,
  * or NOSTR if none follow.
  */
  * passed.  Also, return a pointer to the next word following that,
  * or NOSTR if none follow.
  */
-
 char *
 nextword(wp, wbuf)
 char *
 nextword(wp, wbuf)
-       char wp[], wbuf[];
+       register char *wp, *wbuf;
 {
 {
-       register char *cp, *cp2;
+       register c;
 
 
-       if ((cp = wp) == NOSTR) {
-               copy("", wbuf);
-               return(NOSTR);
+       if (wp == NOSTR) {
+               *wbuf = 0;
+               return (NOSTR);
        }
        }
-       cp2 = wbuf;
-       while (!any(*cp, " \t") && *cp != '\0')
-               if (*cp == '"') {
-                       *cp2++ = *cp++;
-                       while (*cp != '\0' && *cp != '"')
-                               *cp2++ = *cp++;
-                       if (*cp == '"')
-                               *cp2++ = *cp++;
-               } else
-                       *cp2++ = *cp++;
-       *cp2 = '\0';
-       while (any(*cp, " \t"))
-               cp++;
-       if (*cp == '\0')
-               return(NOSTR);
-       return(cp);
-}
-
-/*
- * Test to see if the character is an ascii alphabetic.
- */
-
-isalpha(c)
-{
-       register int ch;
-
-       ch = raise(c);
-       return(ch >= 'A' && ch <= 'Z');
-}
-
-/*
- * Test to see if the character is an ascii digit.
- */
-
-isdigit(c)
-{
-       return(c >= '0' && c <= '9');
-}
-
-/*
- * Copy str1 to str2, return pointer to null in str2.
- */
-
-char *
-copy(str1, str2)
-       char *str1, *str2;
-{
-       register char *s1, *s2;
-
-       s1 = str1;
-       s2 = str2;
-       while (*s1)
-               *s2++ = *s1++;
-       *s2 = 0;
-       return(s2);
+       while ((c = *wp++) && c != ' ' && c != '\t') {
+               *wbuf++ = c;
+               if (c == '"') {
+                       while ((c = *wp++) && c != '"')
+                               *wbuf++ = c;
+                       if (c == '"')
+                               *wbuf++ = c;
+                       else
+                               wp--;
+               }
+       }
+       *wbuf = '\0';
+       for (; c == ' ' || c == '\t'; c = *wp++)
+               ;
+       if (c == 0)
+               return (NOSTR);
+       return (wp - 1);
 }
 
 /*
 }
 
 /*
- * Is ch any of the characters in str?
+ * Is c contained in s?
  */
  */
-
-any(ch, str)
-       char *str;
-{
-       register char *f;
+any(c, s)
        register c;
        register c;
-
-       f = str;
-       c = ch;
-       while (*f)
-               if (c == *f++)
-                       return(1);
-       return(0);
-}
-
-/*
- * Convert lower case letters to upper case.
- */
-
-raise(c)
-       register int c;
+       register char *s;
 {
 {
-       if (c >= 'a' && c <= 'z')
-               c += 'A' - 'a';
-       return(c);
+
+       while (*s)
+               if (*s++ == c)
+                       return 1;
+       return 0;
 }
 }
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.