--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/amrconv/efr2amr.c	Tue Jan 03 02:33:45 2023 +0000
@@ -0,0 +1,92 @@
+/*
+ * Our gsm-efr2amr utility reads in an EFR speech recording in our
+ * extended-libgsm file format and converts it to AMR, inserting
+ * an AMR NO_DATA frame in the place of every BFI in the input
+ * but NOT performing any special handling or even detection of
+ * EFR SID frames.
+ */
+
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include <strings.h>
+#include "../libtest/binreader.h"
+
+extern const uint8_t amr_122_bit_order[244];
+
+static const char amr_file_hdr[] = "#!AMR\n";
+
+main(argc, argv)
+	char **argv;
+{
+	char *infname, *outfname;
+	FILE *inf, *outf;
+	int wrong_flag;
+	uint8_t frm_in[BINFILE_MAX_FRAME], frm_out[32];
+	unsigned bit_a, bit_n, outlen;
+	int rc, bfi;
+
+	if (argc == 3 && argv[1][0] != '-') {
+		wrong_flag = 0;
+		infname = argv[1];
+		outfname = argv[2];
+	} else if (argc == 4 && !strcmp(argv[1], "-w")) {
+		wrong_flag = 1;
+		infname = argv[2];
+		outfname = argv[3];
+	} else {
+		fprintf(stderr, "usage: %s [-w] input.gsmx output.amr\n",
+			argv[0]);
+		exit(1);
+	}
+	inf = fopen(infname, "r");
+	if (!inf) {
+		perror(infname);
+		exit(1);
+	}
+	outf = fopen(outfname, "w");
+	if (!outf) {
+		perror(outfname);
+		exit(1);
+	}
+	fwrite(amr_file_hdr, 1, 6, outf);
+	for (;;) {
+		rc = binfile_read_frame(inf, frm_in);
+		if (rc < 0) {
+			fprintf(stderr, "error: garbage in %s\n", infname);
+			exit(1);
+		}
+		if (!rc)
+			break;
+		if (frm_in[0] == 0xBF)
+			bfi = 1;
+		else if ((frm_in[0] & 0xF0) == 0xC0)
+			bfi = 0;
+		else {
+			fprintf(stderr,
+				"error: %s is not in EFR codec format\n",
+				infname);
+			exit(1);
+		}
+		if (bfi) {
+			frm_out[0] = 0x78;
+			outlen = 1;
+		} else {
+			frm_out[0] = 0x3C;
+			frm_out[31] = 0;
+			for (bit_a = 0; bit_a < 244; bit_a++) {
+				if (wrong_flag)
+					bit_n = bit_a;
+				else
+					bit_n = amr_122_bit_order[bit_a];
+				msb_set_bit(frm_out + 1, bit_a,
+					    msb_get_bit(frm_in, 4 + bit_n));
+			}
+			outlen = 32;
+		}
+		fwrite(frm_out, 1, outlen, outf);
+	}
+	fclose(outf);
+	exit(0);
+}