clib package

packages/clib/maildrop/rfc822/rfc822_getaddrs.c

@@ -0,0 +1,94 @@
+/*
+** Copyright 1998 - 1999 Double Precision, Inc.
+** See COPYING for distribution information.
+*/
+
+/*
+** $Id$
+*/
+#include	"rfc822.h"
+#include	<stdlib.h>
+
+static void cntlen(char c, void *p)
+{
+	c=c;
+	++ *(size_t *)p;
+}
+
+static void cntlensep(const char *p, void *ptr)
+{
+	while (*p)	cntlen(*p++, ptr);
+}
+
+static void saveaddr(char c, void *ptr)
+{
+	*(*(char **)ptr)++=c;
+}
+
+static void saveaddrsep(const char *p, void *ptr)
+{
+	while (*p)	saveaddr(*p++, ptr);
+}
+
+char *rfc822_getaddrs(const struct rfc822a *rfc)
+{
+size_t	addrbuflen=0;
+char	*addrbuf, *ptr;
+
+	rfc822_print(rfc, &cntlen, &cntlensep, &addrbuflen);
+	if (!(addrbuf=malloc(addrbuflen+1)))
+		return (0);
+
+	ptr=addrbuf;
+	rfc822_print(rfc, &saveaddr, &saveaddrsep, &ptr);
+	addrbuf[addrbuflen]=0;
+	return (addrbuf);
+}
+
+static void saveaddrsep_wrap(const char *p, void *ptr)
+{
+int	c;
+
+	while ((c=*p++) != 0)
+	{
+		if (c == ' ')	c='\n';
+		saveaddr(c, ptr);
+	}
+}
+
+char *rfc822_getaddrs_wrap(const struct rfc822a *rfc, int w)
+{
+size_t	addrbuflen=0;
+char	*addrbuf, *ptr, *start, *lastnl;
+
+	rfc822_print(rfc, &cntlen, &cntlensep, &addrbuflen);
+	if (!(addrbuf=malloc(addrbuflen+1)))
+		return (0);
+
+	ptr=addrbuf;
+	rfc822_print(rfc, &saveaddr, &saveaddrsep_wrap, &ptr);
+	addrbuf[addrbuflen]=0;
+
+	for (lastnl=0, start=ptr=addrbuf; *ptr; )
+	{
+		while (*ptr && *ptr != '\n')	ptr++;
+		if (ptr-start < w)
+		{
+			if (lastnl)	*lastnl=' ';
+			lastnl=ptr;
+			if (*ptr)	++ptr;
+		}
+		else
+		{
+			if (lastnl)
+				start=lastnl+1;
+			else
+			{
+				start=ptr+1;
+				if (*ptr)	++ptr;
+			}
+			lastnl=0;
+		}
+	}
+	return (addrbuf);
+}