FreeCalypso > hg > freecalypso-tools
changeset 357:15120d15cab5
uptools/libcoding: septet to octet packing function implemented
| author | Mychaela Falconia <falcon@freecalypso.org> |
|---|---|
| date | Wed, 07 Feb 2018 06:50:14 +0000 |
| parents | dbeb4a5628f5 |
| children | 7154a231e4b5 |
| files | uptools/libcoding/Makefile uptools/libcoding/gsm7_pack.c |
| diffstat | 2 files changed, 25 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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}
--- /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; + } +}