1 files changed, 59 insertions, 0 deletions
diff --git a/dl_pack_ascii.c b/dl_pack_ascii.c
new file mode 100644
index 0000000..fe8f08d
--- /dev/null
+++ b/dl_pack_ascii.c
@@ -0,0 +1,59 @@
+/* 
+ * Copyright 1996-2002 - Karl R. Hakimian and David Fries
+ *
+ * This file is part of datalink.
+ *
+ * Datalink is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * Datalink is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with datalink (see COPYING); if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ *
+ */
+
+#include "datalink.h"
+
+int dl_pack_ascii(unsigned char *to, unsigned char *from)
+{
+	int c;
+	int p = 0;
+	int o = 0;
+
+	while (*from)
+	{
+
+		if (o == 0)
+		{
+			to[p] = dl_pack_char(*from);
+			o = 6;
+			from++;
+			continue;
+		}
+
+		c = dl_pack_char(*from);
+		to[p] |= c << o;
+		to[++p] = c >> (8 - o);
+		o = (o + 6) % 8;
+		from++;
+	}
+
+	if (o)
+	{
+		to[p] |= 0x3f << o;
+		to[++p] = 0x3f >> (8 - o);
+		o = (o + 6) % 8;
+		if (o)
+			p++;
+	} else
+		to[p++] = 0x3f;
+
+	return (p);
+}