annotate uptools/libcoding/gsm7_pack.c @ 407:19e5a3e2f9c0

fcup-settime: moved time() retrieval a little closer to the output A fundamental problem with all simple time transfer tools is that there is always some delay between the time retrieval on the source system and that transmitted time being set on the destination, and the resulting time on the destination system is off by that delay amount. This delay cannot be fully eliminated when working in a simple environment like ours, but we should make our best effort to minimize it. In the present case, moving the atinterf_init() call before the time() retrieval should make a teensy-tiny improvement.
author Mychaela Falconia <falcon@freecalypso.org>
date Sat, 11 Aug 2018 21:52:17 +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 }