FreeCalypso > hg > freecalypso-tools

annotate uptools/libcoding/gsm7_pack.c @ 405:ed9b67e7e741

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fcup-smsend: fixed bug in the handling of -W with no dest address argument The original code checked for argv[optind+1] when argv[optind] is NULL; on most systems this bogus code gets the first line of the environment, which is clearly not what we are after. Fixed the code to check argc instead.
author Mychaela Falconia <falcon@freecalypso.org>
date Sat, 11 Aug 2018 18:59:54 +0000
parents 15120d15cab5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
357
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2 * This library module implements the function for packing septets into octets.
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
3 */
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5 #include <sys/types.h>
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 gsm7_pack(inbuf, outbuf, noctets)
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8 u_char *inbuf, *outbuf;
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 unsigned noctets;
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10 {
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11 u_char *ip = inbuf, *op = outbuf;
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 unsigned n, c;
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
13
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
14 for (n = 0; n < noctets; n++) {
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
15 c = n % 7;
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
16 *op++ = ((ip[1] << 7) | ip[0]) >> c;
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
17 if (c == 6)
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 ip += 2;
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19 else
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20 ip += 1;
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 }
15120d15cab5 uptools/libcoding: septet to octet packing function implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
22 }