/*
 * 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;
{
	FILE *inf, *outf;
	uint8_t frm_in[BINFILE_MAX_FRAME], frm_out[32];
	unsigned bit_a, bit_n, outlen;
	int rc, bfi;

	if (argc != 3) {
		fprintf(stderr, "usage: %s input.gsmx output.amr\n", argv[0]);
		exit(1);
	}
	inf = fopen(argv[1], "r");
	if (!inf) {
		perror(argv[1]);
		exit(1);
	}
	outf = fopen(argv[2], "w");
	if (!outf) {
		perror(argv[2]);
		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", argv[1]);
			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",
				argv[1]);
			exit(1);
		}
		if (bfi) {
			frm_out[0] = 0x78;
			outlen = 1;
		} else {
			frm_out[0] = 0x3C;
			bzero(frm_out + 1, 31);
			for (bit_a = 0; bit_a < 244; bit_a++) {
				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);
}