/*
 * This file is part of the libpayload project.
 *
 * Copyright (C) 2008 Advanced Micro Devices, Inc.
 * Copyright (C) 2009 coresystems GmbH
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */
#include	"u.h"
#include	"../port/lib.h"
#include	"mem.h"
#include	"dat.h"
#include	"fns.h"
#include	"../port/error.h"
#include        "coreboot.h"
/*
 * Some of this is x86 specific, and the rest of it is generic. Right now,
 * since we only support x86, we'll avoid trying to make lots of infrastructure
 * we don't need. If in the future, we want to use coreboot on some other
 * architecture, then take out the generic parsing code and move it elsewhere.
 */

/* === Parsing code === */
/* This is the generic parsing code. */
#define I_AM_HERE print("Core 0 is in %s() at %s:%d\n", \
                         __FUNCTION__, __FILE__, __LINE__);

static void cb_parse_memory(void *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_memory *mem = ptr;
	int count = MEM_RANGE_COUNT(mem);
	int i;

	if (count > SYSINFO_MAX_MEM_RANGES)
		count = SYSINFO_MAX_MEM_RANGES;

	info->n_memranges = 0;

	for (i = 0; i < count; i++) {
		struct cb_memory_range *range = MEM_RANGE_PTR(mem, i);

		info->memrange[info->n_memranges].base =
		    cb_unpack64(range->start);

		info->memrange[info->n_memranges].size =
		    cb_unpack64(range->size);

		info->memrange[info->n_memranges].type = range->type;

		info->n_memranges++;
	}
}

static void cb_parse_serial(void *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	info->serial = ((struct cb_serial *)ptr);
}

static void cb_parse_vboot_handoff(unsigned char *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_range *vbho = (struct cb_range *)ptr;

	info->vboot_handoff = (void *)(uintptr_t)vbho->range_start;
	info->vboot_handoff_size = vbho->range_size;
}

static void cb_parse_vbnv(unsigned char *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_range *vbnv = (struct cb_range *)ptr;

	info->vbnv_start = vbnv->range_start;
	info->vbnv_size = vbnv->range_size;
}

static void cb_parse_gpios(unsigned char *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	int i;
	struct cb_gpios *gpios = (struct cb_gpios *)ptr;

	info->num_gpios = (gpios->count < SYSINFO_MAX_GPIOS) ?
				(gpios->count) : SYSINFO_MAX_GPIOS;

	for (i = 0; i < info->num_gpios; i++)
		info->gpios[i] = gpios->gpios[i];
}

static void cb_parse_vdat(unsigned char *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_range *vdat = (struct cb_range *) ptr;

	info->vdat_addr = KADDR(vdat->range_start);
	info->vdat_size = vdat->range_size;
}

static void cb_parse_tstamp(unsigned char *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_cbmem_tab *const cbmem = (struct cb_cbmem_tab *)ptr;
	info->tstamp_table = KADDR(cbmem->cbmem_tab);
}

static void cb_parse_cbmem_cons(unsigned char *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_cbmem_tab *const cbmem = (struct cb_cbmem_tab *)ptr;
	info->cbmem_cons = KADDR(cbmem->cbmem_tab);
}

static void cb_parse_mrc_cache(unsigned char *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_cbmem_tab *const cbmem = (struct cb_cbmem_tab *)ptr;
	info->mrc_cache = KADDR(cbmem->cbmem_tab);
}

static void cb_parse_acpi_gnvs(unsigned char *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_cbmem_tab *const cbmem = (struct cb_cbmem_tab *)ptr;
	info->acpi_gnvs = KADDR(cbmem->cbmem_tab);
}

static void cb_parse_optiontable(void *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	/* ptr points to a coreboot table entry and is already virtual */
	info->option_table = ptr;
}

static void cb_parse_checksum(void *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_cmos_checksum *cmos_cksum = ptr;
	info->cmos_range_start = cmos_cksum->range_start;
	info->cmos_range_end = cmos_cksum->range_end;
	info->cmos_checksum_location = cmos_cksum->location;
}
static void cb_parse_framebuffer(void *ptr, struct sysinfo_t *info)
{ print("%s\n", __func__);
	/* ptr points to a coreboot table entry and is already virtual */
	info->framebuffer = ptr;
}

static void cb_parse_x86_rom_var_mtrr(void *ptr, struct sysinfo_t *info)
{ 
	print("%s, ignoring MTRR information.\n", __func__);
}

static void cb_parse_string(unsigned char *ptr, char **info)
{ print("%s\n", __func__);
	*info = (char *)((struct cb_string *)ptr)->string;
}

int cb_parse_header(void *addr, int len, struct sysinfo_t *info)
{ print("%s\n", __func__);
	struct cb_header *header;
	unsigned char *ptr = addr;
	void *forward;
	int i;

	for (i = 0; i < len; i += 16, ptr += 16) {
		header = (struct cb_header *)ptr;
		if (0)
		print("Check header %p sig %p val %02x %02x %02x %02x\n", header, header->signature, 
				header->signature[0], 
				header->signature[1], 
				header->signature[2], 
				header->signature[3]);
		if (!strncmp((char *)header->signature, "LBIO", 4))
			break;
	}

	print("found ? i %d len %d\n", i, len);
	/* We walked the entire space and didn't find anything. */
	if (i >= len)
		return -1;
	I_AM_HERE;
	if (!header->table_bytes)
		return 0;
	I_AM_HERE;
	/* Make sure the checksums match. */
	if (ipchksum((uint8_t *) header, sizeof(*header)) != 0)
		return -1;
	I_AM_HERE;
	if (ipchksum((uint8_t *) (ptr + sizeof(*header)),
		     header->table_bytes) != header->table_checksum)
		return -1;
	I_AM_HERE;
	info->header = header;

	/* Now, walk the tables. */
	ptr += header->header_bytes;
	I_AM_HERE;
	for (i = 0; i < header->table_entries; i++) {
		struct cb_record *rec = (struct cb_record *)ptr;
	I_AM_HERE;
	print("rec %p tag %p\n", rec, rec->tag);
		/* We only care about a few tags here (maybe more later). */
		switch (rec->tag) {
		case CB_TAG_FORWARD:
			forward = KADDR((unsigned long)((struct cb_forward *)rec)->forward);
			print("FORWARD: %p %p\n", (unsigned long)((struct cb_forward *)rec)->forward, 
					forward);
			return cb_parse_header(forward, len, info);
			continue;
		case CB_TAG_MEMORY:
			cb_parse_memory(ptr, info);
			break;
		case CB_TAG_SERIAL:
			cb_parse_serial(ptr, info);
			break;
		case CB_TAG_VERSION:
			cb_parse_string(ptr, &info->cb_version);
			break;
		case CB_TAG_EXTRA_VERSION:
			cb_parse_string(ptr, &info->extra_version);
			break;
		case CB_TAG_BUILD:
			cb_parse_string(ptr, &info->build);
			break;
		case CB_TAG_COMPILE_TIME:
			cb_parse_string(ptr, &info->compile_time);
			break;
		case CB_TAG_COMPILE_BY:
			cb_parse_string(ptr, &info->compile_by);
			break;
		case CB_TAG_COMPILE_HOST:
			cb_parse_string(ptr, &info->compile_host);
			break;
		case CB_TAG_COMPILE_DOMAIN:
			cb_parse_string(ptr, &info->compile_domain);
			break;
		case CB_TAG_COMPILER:
			cb_parse_string(ptr, &info->compiler);
			break;
		case CB_TAG_LINKER:
			cb_parse_string(ptr, &info->linker);
			break;
		case CB_TAG_ASSEMBLER:
			cb_parse_string(ptr, &info->assembler);
			break;
		case CB_TAG_CMOS_OPTION_TABLE:
			cb_parse_optiontable(ptr, info);
			break;
		case CB_TAG_OPTION_CHECKSUM:
			cb_parse_checksum(ptr, info);
			break;
		// FIXME we should warn on serial if coreboot set up a
		// framebuffer buf the payload does not know about it.
		case CB_TAG_FRAMEBUFFER:
			cb_parse_framebuffer(ptr, info);
			break;
		case CB_TAG_MAINBOARD:
			info->mainboard = (struct cb_mainboard *)ptr;
		case CB_TAG_GPIO:
			cb_parse_gpios(ptr, info);
			break;
		case CB_TAG_VDAT:
			cb_parse_vdat(ptr, info);
			break;
		case CB_TAG_VBNV:
			cb_parse_vbnv(ptr, info);
			break;
		case CB_TAG_VBOOT_HANDOFF:
			cb_parse_vboot_handoff(ptr, info);
			break;
		case CB_TAG_TIMESTAMPS:
			cb_parse_tstamp(ptr, info);
			break;
		case CB_TAG_CBMEM_CONSOLE:
			cb_parse_cbmem_cons(ptr, info);
			break;
		case CB_TAG_MRC_CACHE:
			cb_parse_mrc_cache(ptr, info);
			break;
		case CB_TAG_ACPI_GNVS:
			cb_parse_acpi_gnvs(ptr, info);
			break;
		case CB_TAG_X86_ROM_MTRR:
			cb_parse_x86_rom_var_mtrr(ptr, info);
			break;
		}

		ptr += rec->size;
	}

	return 1;
}

enum{
	Qdir,
	Qtable,
};

static Dirtab corebootdir[]={
	".",	{Qdir, 0, QTDIR},	0,			DMDIR|0555,
	"table",	{Qtable},	0,			0444,
};

static struct sysinfo_t cbinfo;

static int
corebootdevgen(Chan *c, char *name, Dirtab *tab, int ntab, int i, Dir *dp)
{
	int rc;

	rc = devgen(c, name, tab, ntab, i, dp);
	return rc;
}

static void
corebootinit(void)
{
	get_coreboot_info(&cbinfo);
}

static Chan*
corebootattach(char *spec)
{
	return devattach('Y', spec);
}

static Walkqid*
corebootwalk(Chan *c, Chan *nc, char **name, int nname)
{
	Walkqid *wq;

	wq = devwalk(c, nc, name, nname, corebootdir, nelem(corebootdir), devgen);
	/* todo: cover any cases that need locking. There are none yet. */
	return wq;
}

static int
corebootstat(Chan *c, unsigned char *db, int n)
{
	return devstat(c, db, n, corebootdir, nelem(corebootdir), corebootdevgen);
}

static Chan*
corebootopen(Chan *c, int omode)
{
	switch((uint32_t)c->qid.path){
	case Qdir:
		if(omode != OREAD)
			error(Eperm);
		break;
	/* default are tables, which are unchanging, and readonly, so no need to lock them.
	 * They live in reserved memory.
	 */
	default:
		break;
	}
	c->mode = openmode(omode);
	c->flag |= COPEN;
	c->offset = 0;
	return c;
}

static void
corebootcreate(Chan *c, char *j, int i, int u)
{
	error(Eperm);
}

static void
corebootclose(Chan *c)
{
	/* anything to do? */
}


static int32_t
corebootread(Chan *c, void *va, int32_t n, int64_t off)
{
	switch((uint32_t)c->qid.path){
	case Qdir:
		return devdirread(c, va, n, corebootdir, nelem(corebootdir), corebootdevgen);
	case Qtable:
		/* todo: do something */
		break;
	}
	return 0;
}

static int32_t
corebootwrite(Chan *c, void *va, int32_t n, int64_t r)
{
	switch((uint32_t)c->qid.path){
	case Qdir:
		error(Eisdir);
		break;
	default:
		error(Eperm);
		break;
	}

	error(Egreg);
	return -1;
}

Dev corebootdevtab = {
	'Y',
	"coreboot",

	devreset,
	corebootinit,
	devshutdown,
	corebootattach,
	corebootwalk,
	corebootstat,
	corebootopen,
	corebootcreate,
	corebootclose,
	corebootread,
	devbread,
	corebootwrite,
	devbwrite,
	devremove,
	devwstat,
};