/*-
 * Copyright (c) 1999 Andrzej Bialecki <abial@freebsd.org>
 * 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 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.
 *
 * $Id: kget.c,v 1.6 1999/05/05 11:34:03 jkh Exp $
 */

#include "sysinstall.h"
#include <sys/sysctl.h>
#include <i386/isa/isa_device.h>
#include <i386/isa/pnp.h>

int
kget(char *out)
{
    int len, i, bytes_written = 0;
    char *buf;
    char *mib1 = "machdep.uc_devlist";
    char *mib2 = "machdep.uc_pnplist";
    char name[9];
    FILE *fout;
    struct isa_device *id;
    struct pnp_cinfo *c;
    char *p;
 
    /* We use sysctlbyname, because the oid is unknown (OID_AUTO) */
    /* get the buffer size */
    i = sysctlbyname(mib1, NULL, &len, NULL, NULL);
    if (i) {
	msgDebug("kget: error buffer sizing\n");
	return -1;
    }
    if (len <= 0) {
	msgDebug("kget: mib1 has length of %d\n", len);
	goto pnp;
    }
    buf = (char *)alloca(len * sizeof(char));
    i = sysctlbyname(mib1, buf, &len, NULL, NULL);
    if (i) {
	msgDebug("kget: error retrieving data\n");
	return -1;
    }

    /* now it's time to create the output file; if we end up not writing to
       it, we'll unlink() it later. */
    fout = fopen(out, "w");
    if (fout == NULL) {
	msgDebug("kget: Unable to open %s for writing.\n", out);
	return -1;
    }

    i = 0;
    while (i < len) {
	id = (struct isa_device *)(buf + i);
	p = (buf + i + sizeof(struct isa_device));
	strncpy(name, p, 8);
	if (!id->id_enabled) {
	    bytes_written += fprintf(fout, "di %s%d\n", name, id->id_unit);
	}
	else {
	    bytes_written += fprintf(fout, "en %s%d\n", name, id->id_unit);
	    if (id->id_iobase > 0) {
		bytes_written += fprintf(fout, "po %s%d %#x\n",
					 name, id->id_unit, id->id_iobase);
	    }
	    if (id->id_irq > 0) {
		bytes_written += fprintf(fout, "ir %s%d %d\n", name,
					 id->id_unit, ffs(id->id_irq) - 1);
	    }
	    if (id->id_drq > 0) {
		bytes_written += fprintf(fout, "dr %s%d %d\n", name,
					 id->id_unit, id->id_drq);
	    }
	    if (id->id_maddr > 0) {
		bytes_written += fprintf(fout, "iom %s%d %#x\n", name,
					 id->id_unit, (u_int)id->id_maddr);
	    }
	    if (id->id_msize > 0) {
		bytes_written += fprintf(fout, "ios %s%d %d\n", name,
					 id->id_unit, id->id_msize);
	    }
	    bytes_written += fprintf(fout, "f %s%d %#x\n", name,
				     id->id_unit, id->id_flags);
	}
	i += sizeof(struct isa_device) + 8;
    }

pnp:
    /* Now, print the changes to PnP override table */
    i = sysctlbyname(mib2, NULL, &len, NULL, NULL);
    if (i) {
	/* Possibly our kernel doesn't support PnP. Ignore the error. */
	msgDebug("kget: can't get PnP data - skipping...\n");
	goto bail;
    }
    if (len <= 0) {
	msgDebug("kget: PnP data has length of %d\n", len);
	goto bail;
    }
    buf = (char *)alloca(len * sizeof(char));
    i = sysctlbyname(mib2, buf, &len, NULL, NULL);
    if (i) {
	msgDebug("kget: error retrieving data mib2\n");
	goto bail;
    }
    /* Print the PnP override table. Taken from userconfig.c */
 
    i = 0;
    do {
	c = (struct pnp_cinfo *)(buf + i);
	if (c->csn >0 && c->csn != 255) {
	    int pmax, mmax;

	    if (c->enable == 0) {
		bytes_written += fprintf(fout, "pnp %d %d disable\n",
					 c->csn, c->ldn);
		continue;
	    }
	    bytes_written += fprintf(fout, "pnp %d %d %s irq0 %d irq1 %d drq0 %d drq1 %d",
				     c->csn, c->ldn, c->override ? "os":"bios",
				     c->irq[0], c->irq[1], c->drq[0], c->drq[1]);
	    if (c->flags)
		bytes_written += fprintf(fout, " flags 0x%lx", c->flags);
	    pmax = 0;
	    while (c->port[pmax] != 0 && pmax < 8) {
		bytes_written += fprintf(fout, " port%d %d", pmax, c->port[pmax]);
		pmax++;
	    }
	    mmax = 0;
	    while (c->mem[mmax].base != 0 && mmax < 8) {
		bytes_written += fprintf(fout, " mem%d %d",
					 mmax, (int)c->mem[mmax].base);
		mmax++;
	    }
	    bytes_written += fprintf(fout,"\n");
        }
    } while ((i += sizeof(struct pnp_cinfo)) < len);

bail:
    if (bytes_written)
	fprintf(fout, "q\n");
    else
	unlink(out);
    fclose(fout);
    return 0;
}