/*      $NetBSD: dk.c,v 1.1 2014/02/24 07:23:43 skrll Exp $     */

/*      $OpenBSD: dk.c,v 1.5 1999/04/20 20:01:01 mickey Exp $   */

/*
 * Copyright 1996 1995 by Open Software Foundation, Inc.
 *              All Rights Reserved
 *
 * Permission to use, copy, modify, and distribute this software and
 * its documentation for any purpose and without fee is hereby granted,
 * provided that the above copyright notice appears in all copies and
 * that both the copyright notice and this permission notice appear in
 * supporting documentation.
 *
 * OSF DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
 * FOR A PARTICULAR PURPOSE.
 *
 * IN NO EVENT SHALL OSF BE LIABLE FOR ANY SPECIAL, INDIRECT, OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
 * LOSS OF USE, DATA OR PROFITS, WHETHER IN ACTION OF CONTRACT,
 * NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
 * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 *
 */

#include "libsa.h"

#include <sys/param.h>
#include <sys/disklabel.h>
#include <sys/reboot.h>
#include <machine/pdc.h>
#include <machine/iomod.h>

#include "dev_hppa.h"

const char *dk_disklabel(struct hppa_dev *, struct disklabel *);

iodcio_t dkiodc;        /* boot IODC entry point */

const char *
dk_disklabel(struct hppa_dev *dp, struct disklabel *label)
{
        char buf[DEV_BSIZE];
        size_t ret;

        if (iodcstrategy(dp, F_READ, LABELSECTOR, DEV_BSIZE, buf, &ret) ||
            ret != DEV_BSIZE)
                return "can't read disklabel";

        return (getdisklabel(buf, label));
}

int
dkopen(struct open_file *f, ...)
{
        struct disklabel dkl;
        struct hppa_dev *dp = f->f_devdata;
        const char *st;
        u_int i;

#ifdef  DEBUG
        if (debug)
                printf("dkopen(%p)\n", f);
#endif

        if (!(dp->pz_dev = pdc_findev(-1, PCL_RANDOM)))
                return ENXIO;

        dp->part_off = 0;
        st = NULL;
#ifdef DEBUG
        if (debug)
                printf ("disklabel\n");
#endif
        if ((st = dk_disklabel(dp, &dkl)) != NULL) {
#ifdef DEBUG
                if (debug)
                        printf ("dkopen: %s\n", st);
#endif
        /*
         * Ignore disklabel errors for this two reasons:
         * 1. It is possible to dd(1) a LIF image containing the bootloader
         * and a kernel with attached RAM disk to disk and boot it. That way
         * the netboot installation LIF image is also usable as disk boot
         * image.
         * 2. Some old 700 machines report a wrong device class in
         * PAGE0->mem_boot.pz_class when net booting. (PCL_RANDOM instead
         * PCL_NET_MASK|PCL_SEQU) So the bootloader thinks it is booting
         * from disk when it is actually net booting. The net boot LIF image
         * contains no disklabel so the test for the disklabel will fail.
         * If the device open fails if there is no disklabel we are not able
         * to netboot those machines.
         * Therefore the error is ignored. The bootloader will fall back to
         * LIF later when there is no disklabel / FFS partition.
         * At the moment it doesn't matter that the wrong device type ("dk"
         * instead "lf") is used, as all I/O is abstracted by the firmware.
         * To get the correct device type it would be necessary to add a
         * quirk table to the switch() in dev_hppa.c:devboot().
         */
        } else {
                i = B_PARTITION(dp->bootdev);
#ifdef DEBUG
                if (debug)
                        printf("bootdev 0x%x, partition %u\n", dp->bootdev, i);
#endif
                if (i >= dkl.d_npartitions || !dkl.d_partitions[i].p_size) {
                        return (EPART);
                }
                dp->part_off = dkl.d_partitions[i].p_offset * dkl.d_secsize;
        }
#ifdef DEBUGBUG
        if (debug)
                printf ("dkopen() ret\n");
#endif
        return (0);
}

int
dkclose(struct open_file *f)
{
        dealloc(f->f_devdata, sizeof(struct hppa_dev));
        f->f_devdata = NULL;
        return 0;
}