view uptools/libcoding/gsm7_pack.c @ 815:bc1e150f5bd9

rvinterf/include/bsim_etm_cmd.h: copy from FC Tourmaline
author Mychaela Falconia <falcon@freecalypso.org>
date Fri, 14 May 2021 15:51:20 +0000
parents 15120d15cab5
children
line wrap: on
line source

/*
 * 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;
	}
}