--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/efrtest/encode-r.c	Thu Dec 15 01:42:31 2022 +0000
@@ -0,0 +1,62 @@
+/*
+ * gsmefr-encode-r is just like gsmefr-encode, but reads the source
+ * linear PCM data to be encoded from a raw BE file ("robe")
+ * instead of WAV.
+ */
+
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include <strings.h>
+#include "../libgsmefr/gsm_efr.h"
+#include "../libtest/roberead.h"
+
+main(argc, argv)
+	char **argv;
+{
+	char *infname, *outfname;
+	FILE *inf, *binf;
+	struct EFR_encoder_state *state;
+	int16_t pcm[160];
+	uint8_t frame[EFR_RTP_FRAME_LEN];
+	int dtx, rc;
+
+	if (argc == 3 && argv[1][0] != '-') {
+		dtx = 0;
+		infname = argv[1];
+		outfname = argv[2];
+	} else if (argc == 4 && !strcmp(argv[1], "-d")) {
+		dtx = 1;
+		infname = argv[2];
+		outfname = argv[3];
+	} else {
+		fprintf(stderr, "usage: %s [-d] input.wav output.gsmx\n",
+			argv[0]);
+		exit(1);
+	}
+	inf = fopen(infname, "r");
+	if (!inf) {
+		perror(infname);
+		exit(1);
+	}
+	binf = fopen(outfname, "w");
+	if (!binf) {
+		perror(outfname);
+		exit(1);
+	}
+	state = EFR_encoder_create(dtx);
+	if (!state) {
+		perror("EFR_encoder_create()");
+		exit(1);
+	}
+	for (;;) {
+		rc = robe_get_pcm_block(inf, pcm);
+		if (!rc)
+			break;
+		EFR_encode_frame(state, pcm, frame, (int *) 0, (int *) 0);
+		fwrite(frame, 1, sizeof frame, binf);
+	}
+	fclose(binf);
+	exit(0);
+}