/*
 * This program reads a *.tul binary file and disassembles it back
 * to ASCII form.  It is intended for checking the correctness of
 * trau-ul-compile, and also for sanity checks during actual TRAU
 * testing with these tools.
 */

#include <stdio.h>
#include <stdint.h>
#include <stdlib.h>
#include <string.h>
#include <strings.h>
#include <tw_gsmfr.h>
#include <gsm_efr.h>

main(argc, argv)
	char **argv;
{
	FILE *binf, *outf;
	unsigned frame_index;
	uint8_t frame[34];
	int16_t params[GSMFR_NUM_PARAMS];
	int rc, i, j, n;

	if (argc < 2 || argc > 3) {
		fprintf(stderr, "usage: %s input.tul [output.tsrc]\n",
			argv[0]);
		exit(1);
	}
	binf = fopen(argv[1], "r");
	if (!binf) {
		perror(argv[1]);
		exit(1);
	}
	if (argc > 2) {
		outf = fopen(argv[2], "w");
		if (!outf) {
			perror(argv[2]);
			exit(1);
		}
	} else
		outf = stdout;
	for (frame_index = 0; ; frame_index++) {
		rc = fread(frame, 1, 34, binf);
		if (!rc)
			break;
		if (rc != 34) {
inv_input:		fprintf(stderr, "error: %s is not in expected format\n",
				argv[1]);
			exit(1);
		}
		switch (frame[0] & 0xF0) {
		case 0xC0:
			fprintf(outf, "# input frame %u\nFrame_EFR {\n",
				frame_index);
			if (frame_index % 24 == 23)
				fputs("\t# TAF position\n", outf);
			fprintf(outf, "\tBFI %u\n", frame[33] >> 7);
			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", frame[33] & 3);
			fputs("}\n\n", outf);
			break;
		case 0xD0:
			fprintf(outf, "# input frame %u\nFrame_FR {\n",
				frame_index);
			if (frame_index % 24 == 23)
				fputs("\t# TAF position\n", outf);
			fprintf(outf, "\tBFI %u\n", frame[33] >> 7);
			gsmfr_unpack_to_array(frame, params);
			n = 0;
			fputs("\tLARc", outf);
			for (i = 0; i < 8; i++)
				fprintf(outf, " %d", params[n++]);
			putc('\n', outf);
			for (i = 0; i < 4; i++) {
				fputs("\tsf", outf);
				for (j = 0; j < 17; j++)
					fprintf(outf, " %d", params[n++]);
				putc('\n', outf);
			}
			fprintf(outf, "\tSID %u\n", frame[33] & 3);
			fputs("}\n\n", outf);
			break;
		default:
			goto inv_input;
		}
	}
	exit(0);
}