FreeCalypso > hg > gsm-codec-lib
annotate frtest/max-out.c @ 122:b33f2168fdec
doc/EFR-rationale article written
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sat, 10 Dec 2022 08:51:01 +0000 |
parents | a8fd4ff6b013 |
children | a5ffec18e4cd |
rev | line source |
---|---|
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
1 /* |
28
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
2 * This program reads an extended-libgsm binary file (which must be in FR |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
3 * codec format, not EFR) and performs the following processing, in this |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
4 * order: |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
5 * |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
6 * 1) dumps every frame in human-readable form just like gsmrec-dump; |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
7 * 2) passes the frame stream through our DTX Rx preprocessor; |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
8 * 3) dumps the output from the preprocessor; |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
9 * 4) feeds this output to the standard 06.10 decoder (libgsm); |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
10 * 5) finds the highest-magnitude PCM sample in the decoder output and |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
11 * reports this maximum output magnitude. |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
12 * |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
13 * This program is intended to serve as a debug aid, for troubleshooting |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
14 * of our libgsmfrp+libgsm stack. |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
15 */ |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
16 |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
17 #include <stdio.h> |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
18 #include <stdint.h> |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
19 #include <stdlib.h> |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
20 #include <gsm.h> |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
21 #include "../libgsmfrp/gsm_fr_preproc.h" |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
22 #include "../libtest/binreader.h" |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
23 |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
24 main(argc, argv) |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
25 char **argv; |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
26 { |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
27 FILE *binf; |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
28 gsm dec_state; |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
29 struct gsmfr_preproc_state *pp_state; |
26
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
30 unsigned frame_index; |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
31 uint8_t frame[BINFILE_MAX_FRAME]; |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
32 int16_t pcm[160]; |
26
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
33 gsm_signal fr_params[76]; |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
34 int rc, bfi, taf; |
26
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
35 int i, j, n; |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
36 unsigned samp_abs, samp_max; |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
37 |
26
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
38 if (argc != 2) { |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
39 fprintf(stderr, "usage: %s bin-stream-file\n", argv[0]); |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
40 exit(1); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
41 } |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
42 binf = fopen(argv[1], "r"); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
43 if (!binf) { |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
44 perror(argv[1]); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
45 exit(1); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
46 } |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
47 dec_state = gsm_create(); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
48 if (!dec_state) { |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
49 fprintf(stderr, "gsm_create() failed!\n"); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
50 exit(1); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
51 } |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
52 pp_state = gsmfr_preproc_create(); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
53 if (!pp_state) { |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
54 fprintf(stderr, "gsmfr_preproc_create() failed!\n"); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
55 exit(1); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
56 } |
26
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
57 for (frame_index = 0; ; frame_index++) { |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
58 rc = binfile_read_frame(binf, frame); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
59 if (rc < 0) { |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
60 fprintf(stderr, "error: garbage in %s\n", argv[1]); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
61 exit(1); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
62 } |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
63 if (!rc) |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
64 break; |
26
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
65 printf("#%u: ", frame_index); |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
66 switch (frame[0] & 0xF0) { |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
67 case 0xB0: |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
68 bfi = 1; |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
69 taf = frame[1] & 1; |
26
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
70 printf("BFI TAF=%u\n", taf); |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
71 break; |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
72 case 0xD0: |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
73 bfi = 0; |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
74 fputs("FR", stdout); |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
75 gsm_explode(dec_state, frame, fr_params); |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
76 n = 0; |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
77 for (i = 0; i < 8; i++) |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
78 printf(" %u", fr_params[n++]); |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
79 putchar('\n'); |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
80 for (i = 0; i < 4; i++) { |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
81 putchar(' '); |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
82 for (j = 0; j < 17; j++) |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
83 printf(" %u", fr_params[n++]); |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
84 putchar('\n'); |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
85 } |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
86 break; |
27
896ce7f1d271
frtest: cn-debug is now gsmfr-max-out
Mychaela Falconia <falcon@freecalypso.org>
parents:
26
diff
changeset
|
87 default: |
896ce7f1d271
frtest: cn-debug is now gsmfr-max-out
Mychaela Falconia <falcon@freecalypso.org>
parents:
26
diff
changeset
|
88 fprintf(stderr, "error: %s is not in FR codec format\n", |
896ce7f1d271
frtest: cn-debug is now gsmfr-max-out
Mychaela Falconia <falcon@freecalypso.org>
parents:
26
diff
changeset
|
89 argv[1]); |
896ce7f1d271
frtest: cn-debug is now gsmfr-max-out
Mychaela Falconia <falcon@freecalypso.org>
parents:
26
diff
changeset
|
90 exit(1); |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
91 } |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
92 if (bfi) |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
93 gsmfr_preproc_bfi(pp_state, taf, frame); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
94 else |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
95 gsmfr_preproc_good_frame(pp_state, frame); |
28
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
96 fputs("Xform:", stdout); |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
97 gsm_explode(dec_state, frame, fr_params); |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
98 n = 0; |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
99 for (i = 0; i < 8; i++) |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
100 printf(" %u", fr_params[n++]); |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
101 putchar('\n'); |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
102 for (i = 0; i < 4; i++) { |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
103 putchar(' '); |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
104 for (j = 0; j < 17; j++) |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
105 printf(" %u", fr_params[n++]); |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
106 putchar('\n'); |
a8fd4ff6b013
gsmfr-max-out: dump transformed codec parameters too
Mychaela Falconia <falcon@freecalypso.org>
parents:
27
diff
changeset
|
107 } |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
108 gsm_decode(dec_state, frame, pcm); |
26
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
109 samp_max = 0; |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
110 for (i = 0; i < 160; i++) { |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
111 if (pcm[i] >= 0) |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
112 samp_abs = pcm[i]; |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
113 else |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
114 samp_abs = -pcm[i]; |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
115 if (samp_abs > samp_max) |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
116 samp_max = samp_abs; |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
117 } |
40fcd89d8823
frtest: cn-debug utility added
Mychaela Falconia <falcon@freecalypso.org>
parents:
16
diff
changeset
|
118 printf(" MAX=%u\n", samp_max); |
12
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
119 } |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
120 exit(0); |
f88817a233fb
gsmfr-decode test program written
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff
changeset
|
121 } |