FreeCalypso > hg > sms-coding-utils
annotate libcoding/gsm7_pack.c @ 6:b831ee7d512c
libcoding: add absolute time encoding function
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sat, 05 Aug 2023 05:45:15 +0000 |
parents | 2d0082216916 |
children |
rev | line source |
---|---|
0
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
1 /* |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
2 * This library module implements the function for packing septets into octets. |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
3 */ |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
4 |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
5 #include <sys/types.h> |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
6 |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
7 gsm7_pack(inbuf, outbuf, noctets) |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
8 u_char *inbuf, *outbuf; |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
9 unsigned noctets; |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
10 { |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
11 u_char *ip = inbuf, *op = outbuf; |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
12 unsigned n, c; |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
13 |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
14 for (n = 0; n < noctets; n++) { |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
15 c = n % 7; |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
16 *op++ = ((ip[1] << 7) | ip[0]) >> c; |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
17 if (c == 6) |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
18 ip += 2; |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
19 else |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
20 ip += 1; |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
21 } |
2d0082216916
libcoding: beginning with a subset of uptools version
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
22 } |