--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/miscutil/gsmrec-dump.c	Sun Nov 20 08:05:32 2022 +0000
@@ -0,0 +1,69 @@
+/*
+ * This program reads a binary file in our extended-libgsm format
+ * and dumps all frames in human-readable form.
+ */
+
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <gsm.h>
+#include "../libtest/binreader.h"
+
+main(argc, argv)
+	char **argv;
+{
+	FILE *binf;
+	gsm dummy_state;
+	unsigned frame_index;
+	uint8_t frame[BINFILE_MAX_FRAME];
+	gsm_signal fr_params[76];
+	int rc, i, j, n;
+
+	if (argc != 2) {
+		fprintf(stderr, "usage: %s bin-stream-file\n", argv[0]);
+		exit(1);
+	}
+	binf = fopen(argv[1], "r");
+	if (!binf) {
+		perror(argv[1]);
+		exit(1);
+	}
+	dummy_state = gsm_create();
+	if (!dummy_state) {
+		fprintf(stderr, "gsm_create() failed!\n");
+		exit(1);
+	}
+	for (frame_index = 0; ; frame_index++) {
+		rc = binfile_read_frame(binf, frame);
+		if (rc < 0) {
+			fprintf(stderr, "error: garbage in %s\n", argv[1]);
+			exit(1);
+		}
+		if (!rc)
+			break;
+		printf("#%u: ", frame_index);
+		switch (frame[0] & 0xF0) {
+		case 0xB0:
+			printf("BFI TAF=%u\n", frame[1] & 1);
+			break;
+		case 0xC0:
+			puts("EFR (decoding not implemented)");
+			break;
+		case 0xD0:
+			fputs("FR", stdout);
+			gsm_explode(dummy_state, frame, fr_params);
+			n = 0;
+			for (i = 0; i < 8; i++)
+				printf(" %u", fr_params[n++]);
+			putchar('\n');
+			for (i = 0; i < 4; i++) {
+				putchar(' ');
+				for (j = 0; j < 17; j++)
+					printf(" %u", fr_params[n++]);
+				putchar('\n');
+			}
+			break;
+		}
+	}
+	exit(0);
+}