# HG changeset patch
# User Mychaela Falconia <falcon@freecalypso.org>
# Date 1719181479 0
# Node ID 8957383370c5db3736bffcfe66baa5344b9900ab
# Parent  453461ad9c1584b1267fcb6eec61d3246b948508
trau-ul-prep: implement efrdec2tsrc

diff -r 453461ad9c15 -r 8957383370c5 .hgignore
--- a/.hgignore	Sun Jun 23 22:05:17 2024 +0000
+++ b/.hgignore	Sun Jun 23 22:24:39 2024 +0000
@@ -11,4 +11,5 @@
 ^trau-files/.*\.gsmx$
 ^trau-files/.*\.wav$
 
+^trau-ul-prep/efrdec2tsrc$
 ^trau-ul-prep/gsmx2tsrc$
diff -r 453461ad9c15 -r 8957383370c5 trau-ul-prep/Makefile
--- a/trau-ul-prep/Makefile	Sun Jun 23 22:05:17 2024 +0000
+++ b/trau-ul-prep/Makefile	Sun Jun 23 22:24:39 2024 +0000
@@ -1,9 +1,12 @@
 CC=	gcc
 CFLAGS=	-O2
-PROGS=	gsmx2tsrc
+PROGS=	efrdec2tsrc gsmx2tsrc
 
 all:	${PROGS}
 
+efrdec2tsrc:	efrdec2tsrc.o etsi-bit-rd.o
+	${CC} ${CFLAGS} -o $@ $^ -lgsmefr
+
 gsmx2tsrc:	binreader.o gsmx2tsrc.o
 	${CC} ${CFLAGS} -o $@ $^ -lgsmfr2 -lgsmefr
 
diff -r 453461ad9c15 -r 8957383370c5 trau-ul-prep/efrdec2tsrc.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/trau-ul-prep/efrdec2tsrc.c	Sun Jun 23 22:24:39 2024 +0000
@@ -0,0 +1,84 @@
+/*
+ * This program reads an EFR *.dec file in ETSI test sequence format
+ * and converts it into ASCII source for TRAU-UL construction.
+ */
+
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include <strings.h>
+#include <unistd.h>
+#include <gsm_efr.h>
+#include "etsi.h"
+
+main(argc, argv)
+	char **argv;
+{
+	char *infname, *outfname;
+	FILE *inf, *outf;
+	int big_endian = 0;
+	unsigned frame_no;
+	uint8_t input_bits[ETSI_DEC_NWORDS], frame[EFR_RTP_FRAME_LEN];
+	int16_t params[EFR_NUM_PARAMS];
+	int rc, i, j, n;
+	extern int optind;
+
+	while ((rc = getopt(argc, argv, "b")) != EOF) {
+		switch (rc) {
+		case 'b':
+			big_endian = 1;
+			continue;
+		default:
+		usage:
+			fprintf(stderr,
+				"usage: %s [-b] input.dec [output.tsrc]\n",
+				argv[0]);
+			exit(1);
+		}
+	}
+	if (argc < optind + 1 || argc > optind + 2)
+		goto usage;
+	infname = argv[optind];
+	outfname = argv[optind+1];
+
+	inf = fopen(infname, "r");
+	if (!inf) {
+		perror(infname);
+		exit(1);
+	}
+	if (outfname) {
+		outf = fopen(outfname, "w");
+		if (!outf) {
+			perror(outfname);
+			exit(1);
+		}
+	} else
+		outf = stdout;
+	for (frame_no = 0; ; frame_no++) {
+		rc = read_etsi_bits(inf, big_endian, input_bits,
+				    ETSI_DEC_NWORDS, infname);
+		if (!rc)
+			break;
+		bits2frame(input_bits + 1, frame, infname, frame_no);
+		fprintf(outf, "# input frame %u\nFrame_EFR {\n", frame_no);
+		if (input_bits[246])
+			fputs("\t# TAF position\n", outf);
+		fprintf(outf, "\tBFI %u\n", input_bits[0]);
+		EFR_frame2params(frame, params);
+		n = 0;
+		fputs("\tLPC", outf);
+		for (i = 0; i < 5; i++)
+			fprintf(outf, " %d", params[n++]);
+		putc('\n', outf);
+		for (i = 0; i < 4; i++) {
+			fputs("\tsf", outf);
+			for (j = 0; j < 13; j++)
+				fprintf(outf, " %d", params[n++]);
+			putc('\n', outf);
+		}
+		fprintf(outf, "\tSID %u\n", input_bits[245]);
+		fputs("}\n\n", outf);
+	}
+	exit(0);
+}
diff -r 453461ad9c15 -r 8957383370c5 trau-ul-prep/etsi-bit-rd.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/trau-ul-prep/etsi-bit-rd.c	Sun Jun 23 22:24:39 2024 +0000
@@ -0,0 +1,83 @@
+/*
+ * In this module we implement utility functions for reading ETSI *.cod
+ * and *.dec files in either LE or BE format.
+ */
+
+#include <stdio.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include <strings.h>
+#include <gsm_efr.h>
+#include "etsi.h"
+
+read_etsi_bits(inf, big_endian, bitvec, nwords, filename_for_errs)
+	FILE *inf;
+	uint8_t *bitvec;
+	unsigned nwords;
+	char *filename_for_errs;
+{
+	uint8_t file_bytes[ETSI_DEC_NWORDS * 2], *sp;
+	int cc;
+	unsigned n, upper;
+
+	cc = fread(file_bytes, 2, nwords, inf);
+	if (cc == 0)
+		return 0;
+	if (cc != nwords) {
+		fprintf(stderr, "error: short read from %s\n",
+			filename_for_errs);
+		exit(1);
+	}
+	sp = file_bytes;
+	for (n = 0; n < nwords; n++) {
+		if (big_endian) {
+			upper = sp[0];
+			bitvec[n] = sp[1];
+		} else {
+			bitvec[n] = sp[0];
+			upper = sp[1];
+		}
+		if (upper) {
+			fprintf(stderr,
+		"error in %s: non-zero in what should be %s upper byte\n",
+				filename_for_errs, big_endian ? "BE" : "LE");
+			exit(1);
+		}
+		sp += 2;
+	}
+	return 1;
+}
+
+void
+bits2frame(input_bits, frame, filename_for_errs, frame_no)
+	uint8_t *input_bits, *frame;
+	char *filename_for_errs;
+	unsigned frame_no;
+{
+	uint8_t bits[248], *sp, *dp;
+	unsigned nb, byte, mask;
+
+	bits[0] = 1;
+	bits[1] = 1;
+	bits[2] = 0;
+	bits[3] = 0;
+	bcopy(input_bits, bits + 4, 244);
+	sp = bits;
+	dp = frame;
+	for (nb = 0; nb < EFR_RTP_FRAME_LEN; nb++) {
+		byte = 0;
+		for (mask = 0x80; mask; mask >>= 1) {
+			if (*sp > 1) {
+				fprintf(stderr,
+					"error in %s frame #%u: data bit > 1\n",
+					filename_for_errs, frame_no);
+				exit(1);
+			}
+			if (*sp)
+				byte |= mask;
+			sp++;
+		}
+		*dp++ = byte;
+	}
+}
diff -r 453461ad9c15 -r 8957383370c5 trau-ul-prep/etsi.h
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/trau-ul-prep/etsi.h	Sun Jun 23 22:24:39 2024 +0000
@@ -0,0 +1,4 @@
+/* definitions for ETSI *.cod and *.dec files */
+
+#define	ETSI_ENC_NWORDS	246
+#define	ETSI_DEC_NWORDS	247