/* MSPDebug - debugging tool for the eZ430
 * Copyright (C) 2009, 2010 Daniel Beer
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */

#include <string.h>
#include "device.h"
#include "prog.h"
#include "output.h"

void prog_init(struct prog_data *prog, int flags)
{
	memset(prog, 0, sizeof(*prog));
	prog->flags = flags;
}

int prog_flush(struct prog_data *prog)
{
	if (!prog->len)
		return 0;

	if (!prog->have_erased && (prog->flags & PROG_WANT_ERASE)) {
		printc("Erasing...\n");
		if (device_erase(DEVICE_ERASE_MAIN, 0) < 0)
			return -1;

		printc("Programming...\n");
		prog->have_erased = 1;
	}

	printc_dbg("%s %4d bytes at %04x",
		   (prog->flags & PROG_VERIFY) ? "Verifying" : "Writing",
		   prog->len, prog->addr);
	if (prog->section[0])
		printc_dbg(" [section: %s]", prog->section);
	printc_dbg("...\n");

	if (prog->flags & PROG_VERIFY) {
		uint8_t cmp_buf[PROG_BUFSIZE];
		int i;

		if (device_readmem(prog->addr, cmp_buf, prog->len) < 0)
			return -1;

		for (i = 0; i < prog->len; i++)
			if (cmp_buf[i] != prog->buf[i]) {
				printc("\x1b[1mERROR:\x1b[0m "
				       "mismatch at %04x (read %02x, "
				       "expected %02x)\n",
				       prog->addr + i,
				       cmp_buf[i], prog->buf[i]);
				return -1;
			}
	} else {
		if (device_writemem(prog->addr, prog->buf, prog->len) < 0)
			return -1;
	}

	prog->total_written += prog->len;
	prog->addr += prog->len;
	prog->len = 0;
	return 0;
}

int prog_feed(struct prog_data *prog, const struct binfile_chunk *ch)
{
	const char *section = ch->name ? ch->name : "";
	const uint8_t *data = ch->data;
	int len = ch->len;

	/* Flush if this chunk is discontiguous, or in a different
	 * section.
	 */
	if (prog->len &&
	     ((prog->addr + prog->len != ch->addr) ||
	     strcmp(prog->section, section))) {
		if (prog_flush(prog) < 0)
			return -1;
	}

	if (!prog->len) {
		prog->addr = ch->addr;

		strncpy(prog->section, section, sizeof(prog->section));
		prog->section[sizeof(prog->section) - 1] = 0;
	}

	/* Add the buffer in piece by piece, flushing when it gets
	 * full.
	 */
	while (len) {
		int count = sizeof(prog->buf) - prog->len;

		if (count > len)
			count = len;

		if (!count) {
			if (prog_flush(prog) < 0)
				return -1;
		} else {
			memcpy(prog->buf + prog->len, data, count);
			prog->len += count;
			data += count;
			len -= count;
		}
	}

	return 0;
}