FreeCalypso > hg > freecalypso-tools
annotate uptools/libcoding/gsm7_pack.c @ 954:21604c3413c1
rvinterf: disallow -Petmoff mode
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Wed, 07 Jun 2023 20:15:43 +0000 |
parents | 15120d15cab5 |
children |
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 } |