FreeCalypso > hg > gsm-net-reveng

annotate trau-decode/trau-hr-dump-hex.c @ 78:00fd38c7c8fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
trau-decode: factor out parse-amr.c
author Mychaela Falconia <falcon@freecalypso.org>
date Sat, 08 Feb 2025 06:22:45 +0000
parents b518ab15b518
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
75
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2 * This program reads a line-based text file in an ad hoc hex format
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
3 * where each line represents a TRAU-8k frame. These TRAU-8k frames
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4 * are then decoded.
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5 */
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 #include <ctype.h>
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8 #include <stdio.h>
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 #include <stdint.h>
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10 #include <stdlib.h>
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11 #include <string.h>
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 #include <strings.h>
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
13
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
14 static int
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
15 decode_hex_digit(c)
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
16 {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
17 if (isdigit(c))
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 return c - '0';
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19 else if (isupper(c))
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20 return c - 'A' + 10;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 else
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
22 return c - 'a' + 10;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
23 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
24
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
25 static void
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
26 hex2bits(hex, bits)
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
27 char *hex;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
28 uint8_t *bits;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
29 {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
30 unsigned n, m, x;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
31
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
32 for (n = 0; n < 40; n++) {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
33 x = decode_hex_digit(hex[n]);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
34 for (m = 8; m; m >>= 1) {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
35 if (x & m)
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
36 *bits++ = 1;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
37 else
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
38 *bits++ = 0;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
39 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
40 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
41 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
42
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
43 static void
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
44 process_record(hex_frame, lineno)
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
45 char *hex_frame;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
46 {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
47 uint8_t frame_bits[160];
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
48
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
49 printf("line %d: %s\n", lineno, hex_frame);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
50 hex2bits(hex_frame, frame_bits);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
51 print_gsmhr_frame(frame_bits);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
52 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
53
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
54 static void
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
55 process_line(linebuf, filename, lineno)
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
56 char *linebuf, *filename;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
57 {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
58 char *cp, *np;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
59 unsigned n;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
60
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
61 for (cp = linebuf; isspace(*cp); cp++)
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
62 ;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
63 if (*cp == '\0' || *cp == '#')
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
64 return;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
65 np = cp;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
66 for (n = 0; n < 40; n++) {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
67 if (!isxdigit(*cp))
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
68 goto inv;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
69 cp++;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
70 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
71 if (*cp) {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
72 if (!isspace(*cp))
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
73 goto inv;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
74 *cp++ = '\0';
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
75 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
76 while (isspace(*cp))
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
77 cp++;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
78 if (*cp != '\0' && *cp != '#')
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
79 goto inv;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
80 process_record(np, lineno);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
81 return;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
82
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
83 inv: fprintf(stderr, "%s line %d: invalid syntax\n", filename, lineno);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
84 exit(1);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
85 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
86
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
87 main(argc, argv)
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
88 char **argv;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
89 {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
90 FILE *inf;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
91 char linebuf[128];
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
92 int lineno;
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
93
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
94 if (argc != 2) {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
95 fprintf(stderr, "usage: %s hex-file\n", argv[0]);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
96 exit(1);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
97 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
98 inf = fopen(argv[1], "r");
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
99 if (!inf) {
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
100 perror(argv[1]);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
101 exit(1);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
102 }
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
103 for (lineno = 1; fgets(linebuf, sizeof linebuf, inf); lineno++)
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
104 process_line(linebuf, argv[1], lineno);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
105 exit(0);
b518ab15b518 trau-decode: new program trau-hr-dump-hex
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
106 }