/*	$NetBSD: iris_boot.c,v 1.1 2019/01/12 16:44:47 tsutsui Exp $	*/

/*
 * Copyright (c) 2018 Naruaki Etomi
 * All rights reserved.
 *
 * 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``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 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.
 */

/*
 * Silicon Graphics "IRIS" series MIPS processors machine bootloader.
 *
 * Notes:
 *   The amount of physical memory space available to
 *   the system is 3661820 (0x80002000 - 0x8037fffc) bytes.
 *   This space is too tight for kernel and bootloader.
 *   So we keep it simple.
 */

#include <lib/libsa/stand.h>
#include <lib/libsa/loadfile.h>
#include <lib/libkern/libkern.h>

#include <sys/param.h>
#include <sys/exec.h>
#include <sys/exec_elf.h>
#include <sys/boot_flag.h>

#ifndef	INDIGO_R3K_MODE
#include <dev/arcbios/arcbios.h>
#endif

#include "iris_machdep.h"

#include "common.h"
#include "bootinfo.h"

int main(int, char **);

/* Storage must be static. */
struct btinfo_symtab bi_syms;
struct btinfo_bootpath bi_bpath;

static uint8_t bootinfo[BOOTINFO_SIZE];

/*
 * This gets arguments from the PROM monitor.
 * argv[0] will be path to the bootloader (i.e., "dksc(X,Y,8)/bootiris").
 *
 * argv[1] through argv[n] will contain arguments passed from the PROM, if any.
 */

int
main(int argc, char **argv)
{
	char kernelname[1 + 32];
	void (*entry) (int, char *[], int, void *);
	u_long marks[MARK_MAX];
	int win = 0;
	int zs_addr, speed;

	cninit(&zs_addr, &speed);

 	/* print a banner */
	printf("\n");
	printf("%s " NETBSD_VERS " Yet another Bootstrap, Revision %s\n",
	    bootprog_name, bootprog_rev);
	printf("\n");

	memset(marks, 0, sizeof marks);

	/* initialise bootinfo structure early */
	bi_init(bootinfo);

	switch (argc) {
#ifdef INDIGO_R3K_MODE
	case 1:
		again();
		break;
#endif
	case 2:
		/* To specify HDD on Indigo R3K */ 
		if (strstr(argv[1], "dksc(")) {
			parse(argv, kernelname);
		} else {
			again();
		}
		break;
	default:
		/* To specify HDD on Indigo R4K and Indy */ 
		if (strstr(argv[1], "dksc(")) {
			parse(argv, kernelname);
		} else {
			again();
		}
		break;
	}

	find_devs();

	win = loadfile(kernelname, marks, LOAD_KERNEL);

	if (win < 0) {
		printf("Boot failed!  Halting...\n");
		reboot();
	}

	strlcpy(bi_bpath.bootpath, kernelname, BTINFO_BOOTPATH_LEN);
	bi_add(&bi_bpath, BTINFO_BOOTPATH, sizeof(bi_bpath));

	bi_syms.nsym = marks[MARK_NSYM];
	bi_syms.ssym = marks[MARK_SYM];
	bi_syms.esym = marks[MARK_END];
	bi_add(&bi_syms, BTINFO_SYMTAB, sizeof(bi_syms));
	entry = (void *)marks[MARK_ENTRY];

	(*entry)(argc, argv, BOOTINFO_MAGIC, bootinfo);

	printf("Kernel returned!  Halting...\n");
	return 0;
}

void
again(void)
{
	printf("Invalid argument\n");
	printf("i.e., dksc(0,X,8)loader dksc(0,X,0)/kernel\n");
	reboot();
}

void
reboot(void)
{
#ifdef INDIGO_R3K_MODE
	romrestart();
#else
	arcbios_Reboot();
#endif
}