# HG changeset patch
# User Mychaela Falconia <falcon@freecalypso.org>
# Date 1517986214 0
# Node ID 15120d15cab5a070e4ca9caf3338a829a1685c7d
# Parent  dbeb4a5628f5a8902ca332713147faaf7fab6b08
uptools/libcoding: septet to octet packing function implemented

diff -r dbeb4a5628f5 -r 15120d15cab5 uptools/libcoding/Makefile
--- a/uptools/libcoding/Makefile	Tue Feb 06 20:18:43 2018 +0000
+++ b/uptools/libcoding/Makefile	Wed Feb 07 06:50:14 2018 +0000
@@ -1,9 +1,9 @@
 CC=	gcc
 CFLAGS=	-O2
 OBJS=	alpha_addr.o decode_helpers.o grokdcs.o gsm7_decode.o \
-	gsm7_decode_tables.o gsm7_encode.o gsm7_encode_table.o gsm7_unpack.o \
-	gsmtime.o hexdecode.o hexdump.o number_decode.o scaddr.o ucs2_decode.o \
-	utf8_decode.o
+	gsm7_decode_tables.o gsm7_encode.o gsm7_encode_table.o gsm7_pack.o \
+	gsm7_unpack.o gsmtime.o hexdecode.o hexdump.o number_decode.o scaddr.o \
+	ucs2_decode.o utf8_decode.o
 LIB=	libcoding.a
 
 all:	${LIB}
diff -r dbeb4a5628f5 -r 15120d15cab5 uptools/libcoding/gsm7_pack.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/uptools/libcoding/gsm7_pack.c	Wed Feb 07 06:50:14 2018 +0000
@@ -0,0 +1,22 @@
+/*
+ * This library module implements the function for packing septets into octets.
+ */
+
+#include <sys/types.h>
+
+gsm7_pack(inbuf, outbuf, noctets)
+	u_char *inbuf, *outbuf;
+	unsigned noctets;
+{
+	u_char *ip = inbuf, *op = outbuf;
+	unsigned n, c;
+
+	for (n = 0; n < noctets; n++) {
+		c = n % 7;
+		*op++ = ((ip[1] << 7) | ip[0]) >> c;
+		if (c == 6)
+			ip += 2;
+		else
+			ip += 1;
+	}
+}