1 /*-
2  * SPDX-License-Identifier: BSD-3-Clause
36  * Mail -- a mail program
52 	if (strncmp(linebuf, "From ", 5) != 0)  in ishead()
53 		return (0);  in ishead()
57 		return (0);  in ishead()
61 		return (0);  in ishead()
92 	hl->l_from = NULL;  in parse()
93 	hl->l_tty = NULL;  in parse()
94 	hl->l_date = NULL;  in parse()
102 	 * Check for missing return-path.  in parse()
105 		hl->l_date = copyin(cp, &sp);  in parse()
109 	if (strlen(word) > 0)  in parse()
110 		hl->l_from = copyin(word, &sp);  in parse()
111 	if (cp != NULL && strncmp(cp, "tty", 3) == 0) {  in parse()
113 		hl->l_tty = copyin(word, &sp);  in parse()
116 		hl->l_date = copyin(cp, &sp);  in parse()
131 	while ((*cp++ = *src++) != '\0')  in copyin()
147  * <-|+>nnnn (-0800 for instance) at the end.
154  * '0'	A digit
163 	"Aaa Aaa O0 00:00:00 0000",	   /* Mon Jan 01 23:59:59 2001 */
164 	"Aaa Aaa O0 00:00:00 AAA 0000",	   /* Mon Jan 01 23:59:59 PST 2001 */
165 	"Aaa Aaa O0 00:00:00 0000 p0000",  /* Mon Jan 01 23:59:59 2001 -0800 */
166 	"Aaa Aaa O0 00:00 0000",	   /* Mon Jan 01 23:59 2001 */
167 	"Aaa Aaa O0 00:00 AAA 0000",	   /* Mon Jan 01 23:59 PST 2001 */
168 	"Aaa Aaa O0 00:00 0000 p0000",	   /* Mon Jan 01 23:59 2001 -0800 */
177 	for(i = 0; date_formats[i] != NULL; i++) {  in isdate()
181 	return (0);  in isdate()
186  * Return 1 if they match, 0 if they don't
192 	while (*cp != '\0' && *tp != '\0')  in cmatch()
196 				return (0);  in cmatch()
200 				return (0);  in cmatch()
204 				return (0);  in cmatch()
206 		case '0':  in cmatch()
208 				return (0);  in cmatch()
212 				return (0);  in cmatch()
217 				return (0);  in cmatch()
221 				return (0);  in cmatch()
226 				return (0);  in cmatch()
230 				return (0);  in cmatch()
233 	if (*cp != '\0' || *tp != '\0')  in cmatch()
234 		return (0);  in cmatch()
249 		*wbuf = '\0';  in nextword()
252 	while ((c = *wp++) != '\0' && c != ' ' && c != '\t') {  in nextword()
255  			while ((c = *wp++) != '\0' && c != '"')  in nextword()
260 				wp--;  in nextword()
263 	*wbuf = '\0';  in nextword()
266 	if (c == '\0')  in nextword()
268 	return (wp - 1);  in nextword()