/*
 * This program reads an FR codec parameters file in ETSI *.cod test sequence
 * format and converts it into classic libgsm format.
 */

#include <stdio.h>
#include <stdint.h>
#include <stdlib.h>
#include <string.h>
#include <strings.h>
#include "../libgsmfr2/tw_gsmfr.h"

static void
bytes_to_params(bytes, params, big_endian)
	uint8_t *bytes;
	int16_t *params;
{
	uint8_t *sp;
	unsigned n;
	uint16_t val;

	sp = bytes;
	for (n = 0; n < 76; n++) {
		if (big_endian)
			val = ((uint16_t) sp[0] << 8) | ((uint16_t) sp[1]);
		else
			val = ((uint16_t) sp[1] << 8) | ((uint16_t) sp[0]);
		params[n] = val;
		sp += 2;
	}
}

main(argc, argv)
	char **argv;
{
	char *infname, *outfname;
	FILE *inf, *outf;
	int big_endian;
	unsigned frame_no;
	uint8_t input_bytes[76*2], frame[33];
	int16_t params[76];
	int cc;

	if (argc == 3 && argv[1][0] != '-') {
		big_endian = 0;
		infname = argv[1];
		outfname = argv[2];
	} else if (argc == 4 && !strcmp(argv[1], "-b")) {
		big_endian = 1;
		infname = argv[2];
		outfname = argv[3];
	} else {
		fprintf(stderr, "usage: %s [-b] input.cod output.gsm\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);
	}
	for (frame_no = 0; ; frame_no++) {
		cc = fread(input_bytes, 2, 76, inf);
		if (cc == 0)
			break;
		if (cc != 76) {
			fprintf(stderr, "error: short read from %s\n", infname);
			exit(1);
		}
		bytes_to_params(input_bytes, params, big_endian);
		gsmfr_pack_from_array(params, frame);
		fwrite(frame, 1, sizeof frame, outf);
	}
	fclose(outf);
	exit(0);
}