#include <stdio.h>
#include <stdint.h>
#include <string.h>
#include <stdlib.h>
#include "lint.h"

#define CHECK_OFFSET(xxx) \
	if (hmt->binsize < (xxx)) \
	{ \
		printf("File too small to patch.\n"); \
		return; \
	}

void
cmd_new(struct hmt *hmt, int flag)
{
	CHECK_OFFSET(HMT_FLAGS1)

	if (flag)
		hmt->bin[HMT_FLAGS1] &= ~HMT_FLAGS1_NEW;
	else
		hmt->bin[HMT_FLAGS1] |= HMT_FLAGS1_NEW;
	hmt->modified++;
}

void
cmd_lock(struct hmt *hmt, int flag)
{
	CHECK_OFFSET(HMT_FLAGS1)

	if (flag)
		hmt->bin[HMT_FLAGS1] |= HMT_FLAGS1_LOCKED;
	else
		hmt->bin[HMT_FLAGS1] &= ~HMT_FLAGS1_LOCKED;
	hmt->modified++;
}

void
cmd_guidance(struct hmt *hmt, int flag)
{
	/* 0x03E0  2 byte 'Guide' flag for Media List.
	   0xFF00 = Guide off. 0x0101 = Guide on. */
	if (flag)
	{
		patch_byte(hmt, HMT_GUIDEFLAG, 0x01);
		patch_byte(hmt, HMT_GUIDEFLAG + 1, 0x01);
	}
	else
	{
		patch_byte(hmt, HMT_GUIDEFLAG, 0xff);
		patch_byte(hmt, HMT_GUIDEFLAG + 1, 0x00);
	}
	hmt->modified++;
}

void
cmd_protect(struct hmt *hmt, int flag)
{
	CHECK_OFFSET(HMT_FLAGS2)

	if (flag)
		hmt->bin[HMT_FLAGS2] = 0;
	else
		hmt->bin[HMT_FLAGS2] = 4;
	hmt->modified++;
}

void
cmd_encrypted(struct hmt *hmt, int flag)
{
	CHECK_OFFSET(HMT_ENCRYPTED);

	if (flag)
		hmt->bin[HMT_ENCRYPTED] |= HMT_IS_ENCRYPTED;
	else
		hmt->bin[HMT_ENCRYPTED] &= ~HMT_IS_ENCRYPTED;
	hmt->modified++;
}

void
cmd_shrunk(struct hmt *hmt, int flag)
{
	CHECK_OFFSET(HMT_SHRUNK);

	if (flag)
		hmt->bin[HMT_SHRUNK] = 'E';
	else
		hmt->bin[HMT_SHRUNK] = 'e';
	hmt->modified++;
}

void
cmd_dedup(struct hmt *hmt, int flag)
{
	CHECK_OFFSET(HMT_DEDUPED);

	if (flag)
		hmt->bin[HMT_DEDUPED] = 'N';
	else
		hmt->bin[HMT_DEDUPED] = 'n';
	hmt->modified++;
}

void
cmd_detectads(struct hmt *hmt, int flag)
{
	CHECK_OFFSET(HMT_DETECTADS);

	if (flag)
		hmt->bin[HMT_DETECTADS] = 'G';
	else
		hmt->bin[HMT_DETECTADS] = 'g';
	hmt->modified++;
}

void
cmd_setgenre(struct hmt *hmt, char *g)
{
	CHECK_OFFSET(HMT_GENRE)

	printf("Current genre: %s\n", genredescr(hmt->bin[HMT_GENRE]));
	if (*g == '-')
		hmt->bin[HMT_GENRE] = atoi(g + 1);
	else
		hmt->bin[HMT_GENRE] = genrecode(g);
	printf("Set genre to:  %s\n", genredescr(hmt->bin[HMT_GENRE]));
	hmt->modified++;
}

void
cmd_setresume(struct hmt *hmt, char *resume)
{
	int32_t r = strtoll(resume, (char **)NULL, 10);

	CHECK_OFFSET(HMT_PLAYED_TIME)

	if (r < 0)
	{
		uint32_t d;
		d = hmt->end - hmt->start;
		printf("Recording Duration:%lu\n", d);
		r += d;
	}

	printf("Setting resume point to: %lu second(s) in.\n", r);
	write_uint32(hmt->bin + HMT_PLAYED_TIME, r);
	hmt->modified++;
}

static void
patch_epg_offset(struct hmt *hmt, uint32_t offset, uint32_t len, char *str)
{
	if (hmt->binsize > 0x1001)
	{
		uint32_t j, k;
		uint32_t n;

		/* Read the number of EPG blocks. */
		j = read_uint16(hmt->bin + 0x1000, 1);

		/* Loop through them. */
		for (n = 1; n <= j; n++)
		{
			/* Offset of block header. */
			uint32_t off = 0x1004 + n * 32;

			if (hmt->binsize < off)
				break;

			/* Read offset of EPG data. */
			k = read_uint32(hmt->bin + off + 8, 1);

			if (k < off)
				continue;

			if (hmt->binsize >= k + 704)
			{
				if (debug)
					printf("Patching EPG block %d.\n", n);
				patch_string(hmt, k + offset, len, str);
			}
		}
	}
}

void
cmd_settitle(struct hmt *hmt, char *str)
{
	patch_string(hmt, HMT_TITLE, HMT_TITLE_LEN, str);
	patch_string(hmt, HMT_ITITLE, HMT_ITITLE_LEN, str);
	patch_epg_offset(hmt, 0x3e, HMT_TITLE_LEN, str);
}

void
cmd_setsynopsis(struct hmt *hmt, char *str)
{
	CHECK_OFFSET(HMT_EPG)

	if (strlen(str) >= HMT_EPG_LEN)
	{
		fprintf(stderr, "New synopsis too long.\n");
		return;
	}

	patch_string(hmt, HMT_EPG, HMT_EPG_LEN, str);
	patch_epg_offset(hmt, 0x141, HMT_EPG_LEN, str);
}

void
cmd_setseries(struct hmt *hmt, char *g)
{
	unsigned int series, episode, episodes;

	if (sscanf(g, "%u,%u,%u", &series, &episode, &episodes) >= 2)
	{
		hmt->bin[HMT_SERIES] = series;
		hmt->bin[HMT_EPISODE] = episode;
		hmt->bin[HMT_EPISODETOT] = episodes;
		hmt->modified++;
	}
	else
		printf("Invalid episode '%s'\n", g);
}

static int
intcomp(const void *a, const void *b)
{
	return (*(uint32_t *)a - *(uint32_t *)b);
}

void
cmd_bookmarks(struct hmt *hmt, char *str, int add)
{
	uint32_t *b = (uint32_t *)(hmt->bin + HMT_BOOKMARKS);
	uint16_t n = read_uint16(hmt->bin + HMT_BOOKMARKS_CNT, 1);
	char *p;

	if (!add)
		n = 0;
	if (!str || !(p = strtok(str, ":")))
	{
		/* No bookmarks provided. */
		if (add)
			return;
		*(uint16_t *)(hmt->bin + HMT_BOOKMARKS_CNT) = 0;
		hmt->modified++;
		return;
	}

	do
	{
		if (n >= 32)
		{
			fprintf(stderr, "Too many bookmarks, maximum 32.\n");
			return;
		}
		b[n++] = (uint32_t)strtoul(p, (char **)NULL, 10);
		hmt->modified++;
	} while ((p = strtok((char *)NULL, ":")));
	*(uint16_t *)(hmt->bin + HMT_BOOKMARKS_CNT) = n;

	qsort(b, n, sizeof(uint32_t), intcomp);
}

void
patch_byte(struct hmt *hmt, uint32_t offset, uint8_t val)
{
	CHECK_OFFSET(offset)

	if (hmt->bin[offset] != val)
	{
		hmt->bin[offset] = val;
		hmt->modified++;
	}
}

void
patch_string(struct hmt *hmt, uint32_t offset, uint32_t len, char *str)
{
	CHECK_OFFSET(offset + strlen(str))

	if (debug > 3)
		fprintf(stderr, "patch_string(%#x, %d, %s)\n",
		    offset, len, str);

	memset(hmt->bin + offset, '\0', len - 1);
	strcpy((char *)(hmt->bin + offset), (const char *)str);
	hmt->modified++;
}

void
patch_uint16(struct hmt *hmt, uint32_t offset, uint32_t val)
{
	CHECK_OFFSET(offset)

	write_uint16(hmt->bin + offset, val);
	hmt->modified++;
}

void
patch_uint32(struct hmt *hmt, uint32_t offset, uint32_t val)
{
	CHECK_OFFSET(offset)

	write_uint32(hmt->bin + offset, val);
	hmt->modified++;
}

void
cmd_patch(struct hmt *hmt, char *str)
{
	int width;
	uint32_t offset;
	uint32_t val;
	char offsets[0x20], vals[0x20];

	if (sscanf(str, "%d=%[^:]:%s", &width, offsets, vals) != 3)
	{
		printf("Syntax error.\n");
		return;
	}

	offset = strtoul(offsets, (char **)NULL, 0);
	val = strtoul(vals, (char **)NULL, 0);

	printf("Patching width %d - %#x(%lu) = %#x(%lu)\n", width,
	    offset, offset, val, val);

	switch(width)
	{
	    case 8:
		patch_byte(hmt, offset, val);
		break;
	    case 16:
		patch_uint16(hmt, offset, val);
		break;
	    case 32:
		patch_uint32(hmt, offset, val);
		break;
	    default:
		printf("Unknown patch width.\n");
		break;
	}
}

void
cmd_unpatch(struct hmt *hmt, char *str)
{
	int width;
	uint32_t offset;
	char offsets[0x20];

	if (sscanf(str, "%d=%[^:]", &width, offsets) != 2)
	{
		printf("Syntax error.\n");
		return;
	}

	offset = strtoul(offsets, (char **)NULL, 0);

	if (hmt->binsize < offset)
	{
		printf("Offset too large for file.\n");
		return;
	}

	if (debug)
		printf("Reading width %d - %#x(%lu)\n", width,
		    offset, offset);

	switch(width)
	{
	    case 8:
	    {
		uint8_t val = hmt->bin[offset] & 0xff;
		printf("%d %#x\n", val, val);
		break;
	    }
	    case 16:
	    {
		uint16_t val = read_uint16(hmt->bin + offset, 1);
		printf("%d %#x\n", val, val);
		break;
	    }
	    case 32:
	    {
		uint32_t val = read_uint32(hmt->bin + offset, 1);
		printf("%ld %#x\n", val, val);
		break;
	    }
	    default:
		printf("Unknown patch width.\n");
		break;
	}
}