/*      $NetBSD: main.c,v 1.35 2025/05/06 18:16:12 pgoyette Exp $       */

/*
* Copyright (c) 1996
*      Matthias Drochner.  All rights reserved.
* Copyright (c) 1996
*      Perry E. Metzger.  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.
* 3. All advertising materials mentioning features or use of this software
*    must display the following acknowledgements:
*      This product includes software developed for the NetBSD Project
*      by Matthias Drochner.
*      This product includes software developed for the NetBSD Project
*      by Perry E. Metzger.
* 4. The names of the authors 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 ``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.
*
*/

#include <sys/types.h>
#include <sys/reboot.h>
#include <sys/bootblock.h>

#include <lib/libkern/libkern.h>

#include <lib/libsa/stand.h>
#include <lib/libsa/bootcfg.h>

#include <libi386.h>
#include <bootmenu.h>
#include <bootmod.h>
#include "pxeboot.h"
#include "vbe.h"

extern struct x86_boot_params boot_params;

int errno;
int debug;

extern char     bootprog_name[], bootprog_rev[], bootprog_kernrev[];

int     main(void);

void    command_help(char *);
void    command_quit(char *);
void    command_boot(char *);
void    command_consdev(char *);
void    command_modules(char *);
void    command_multiboot(char *);

const struct bootblk_command commands[] = {
       { "help",       command_help },
       { "?",          command_help },
       { "quit",       command_quit },
       { "boot",       command_boot },
       { "consdev",    command_consdev },
       { "modules",    command_modules },
       { "multiboot",  command_multiboot },
       { "load",       module_add },
       { "vesa",       command_vesa },
       { "userconf",   userconf_add },
       { NULL,         NULL },
};

static void
clearit(void)
{

       if (bootcfg_info.clear)
               clear_pc_screen();
}

static void
alldone(void)
{
       pxe_fini();
       clearit();
}

static int
bootit(const char *filename, int howto)
{
       if (exec_netbsd(filename, 0, howto, 0, alldone) < 0)
               printf("boot: %s\n", strerror(errno));
       else
               printf("boot returned\n");
       return (-1);
}

int
main(void)
{
       extern char twiddle_toggle;
       char c;

       twiddle_toggle = 1;     /* no twiddling until we're ready */

#ifdef SUPPORT_SERIAL
       initio(SUPPORT_SERIAL);
#else
       initio(CONSDEV_PC);
#endif
       gateA20();
       boot_modules_enabled = !(boot_params.bp_flags
                                & X86_BP_FLAGS_NOMODULES);

#ifndef SMALL
       if (!(boot_params.bp_flags & X86_BP_FLAGS_NOBOOTCONF)) {
               parsebootconf(BOOTCFG_FILENAME);
       } else {
               bootcfg_info.timeout = boot_params.bp_timeout;
       }

       /*
        * If console set in boot.cfg, switch to it.
        * This will print the banner, so we don't need to explicitly do it
        */
       if (bootcfg_info.consdev) {
               command_consdev(bootcfg_info.consdev);
       } else {
               clearit();
               print_bootcfg_banner(bootprog_name, bootprog_rev);
       }

       /* Display the menu, if applicable */
       twiddle_toggle = 0;
       if (bootcfg_info.nummenu > 0) {
               /* Does not return */
               doboottypemenu();
       }
#else
       twiddle_toggle = 0;
       clearit();
       print_bootcfg_banner(bootprog_name, bootprog_rev);
#endif

       printf("Press return to boot now, any other key for boot menu\n");
       printf("booting netbsd - starting in ");

#ifdef SMALL
       c = awaitkey(boot_params.bp_timeout, 1);
#else
       c = awaitkey((bootcfg_info.timeout < 0) ? 0 : bootcfg_info.timeout, 1);
#endif
       if ((c != '\r') && (c != '\n') && (c != '\0') &&
           ((boot_params.bp_flags & X86_BP_FLAGS_PASSWORD) == 0
            || check_password((char *)boot_params.bp_password))) {
               printf("type \"?\" or \"help\" for help.\n");
               bootmenu(); /* does not return */
       }

       /*
        * The file name provided here is just a default.  If the
        * DHCP server provides a file name, we'll use that instead.
        */
       bootit("netbsd", 0);

       /*
        * If that fails, let the BIOS try the next boot device.
        */
       return (1);
}

/*
* dummy function to satisfy link against call in
* sys/arch/i386/stand/lib/bootmenu.c:do_bootcfg_command()
*/

/* ARGSUSED */
void
command_dev(char *arg)
{
       (void)arg;
       return;
}

/* ARGSUSED */
void
command_help(char *arg)
{
       printf("commands are:\n"
              "boot [filename] [-acdsqv]\n"
              "     (ex. \"netbsd.old -s\"\n"
              "consdev {pc|{com[0123]|com[0123]kbd|auto}[,{speed}]}\n"
              "vesa {modenum|on|off|enabled|disabled|list}\n"
              "multiboot [filename] [<args>]\n"
              "modules {on|off|enabled|disabled}\n"
              "load {path_to_module}\n"
              "userconf {command}\n"
              "help|?\n"
              "quit\n");
}

/* ARGSUSED */
void
command_quit(char *arg)
{

       printf("Exiting...\n");
       delay(1000000);
       reboot();
       /* Note: we shouldn't get to this point! */
       panic("Could not reboot!");
}

void
command_boot(char *arg)
{
       char *filename;
       int howto;

       if (parseboot(arg, &filename, &howto))
               bootit(filename, howto);
}

static const struct cons_devs {
   const char  *name;
   u_int       tag;
} cons_devs[] = {
       { "pc",         CONSDEV_PC },
       { "com0",       CONSDEV_COM0 },
       { "com1",       CONSDEV_COM1 },
       { "com2",       CONSDEV_COM2 },
       { "com3",       CONSDEV_COM3 },
       { "com0kbd",    CONSDEV_COM0KBD },
       { "com1kbd",    CONSDEV_COM1KBD },
       { "com2kbd",    CONSDEV_COM2KBD },
       { "com3kbd",    CONSDEV_COM3KBD },
       { "auto",       CONSDEV_AUTO },
       { 0, 0 } };

void
command_consdev(char *arg)
{
       const struct cons_devs *cdp;
       char *sep;
       int speed;

       sep = strchr(arg, ',');
       if (sep != NULL)
               *sep++ = '\0';

       for (cdp = cons_devs; cdp->name; cdp++) {
               if (strcmp(arg, cdp->name) != 0)
                       continue;

               if (sep != NULL) {
                       if (cdp->tag == CONSDEV_PC)
                               goto error;

                       speed = atoi(sep);
                       if (speed < 0)
                               goto error;
                       boot_params.bp_conspeed = speed;
               }

               initio(cdp->tag);
               clearit();
               print_bootcfg_banner(bootprog_name, bootprog_rev);
               return;
       }
error:
       printf("invalid console device.\n");
}

void
command_modules(char *arg)
{
       if (strcmp(arg, "enabled") == 0 ||
                       strcmp(arg, "on") == 0)
               boot_modules_enabled = true;
       else if (strcmp(arg, "disabled") == 0 ||
                       strcmp(arg, "off") == 0)
               boot_modules_enabled = false;
       else
               printf("invalid flag, must be 'enabled' or 'disabled'.\n");
}

void
command_multiboot(char *arg)
{
       char *filename;

       filename = arg;
       if (exec_multiboot(filename, gettrailer(arg)) < 0)
               printf("multiboot: %s: %s\n", filename,
                 strerror(errno));
       else
               printf("boot returned\n");
}