/*      $NetBSD: disklabel_conv.c,v 1.4 2008/04/28 20:23:18 martin Exp $        */

/*-
 * Copyright (c) 2004 The NetBSD Foundation, Inc.
 * All rights reserved.
 *
 * This code is derived from software contributed to The NetBSD Foundation
 * by UCHIYAMA Yasushi.
 *
 * 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 NETBSD FOUNDATION, INC. 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 FOUNDATION 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 <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: disklabel_conv.c,v 1.4 2008/04/28 20:23:18 martin Exp $");

#include <sys/systm.h>
#include <sys/param.h>

#ifndef _KERNEL
#include "local.h"
#endif

#include <sys/disklabel.h>

/*
 * NetBSD/ews4800mips EWS-UX compatible disk layout.
 *
 * 0============================+ cylinder 0
 * 1    1stboot program (4KB)   |
 * .                            .
 * 7----------------------------+
 * 8    PDINFO                  | UX unvisible region.
 * 9    BSD disklabel           | I (uch) decided to locate disklabel here.
 * .                            .
 * .    error log       (UX)    |
 * +============================+ cylinder 1
 * |    logical_start   (UX)    |
 * |    VTOC                    |
 * .                            . UX Boot block (partition 7)
 * .                            . 100 blocks (default. at least 2 blocks)
 * .                            .
 * .                            .
 * +============================+
 * |   BFS                      |
 * |            boot loader     |
 * .            disklabel       .
 * .            and etc.        . BFS           (partition 3)
 * .                            .
 * .                            .
 * .                            .
 * -----------------------------+
 */

#define _BFS_SIZE                       16384   /* 8MB */
#define _BOOTBLOCK_SIZE                 100     /* UX default */
#define _FAKE_TRACKS_PER_CYLINDER       16
#define _FAKE_SECTORS_PER_TRACK         1

void
disklabel_set_default(struct disklabel *d)
{

        d->d_magic = DISKMAGIC;
        d->d_magic2 = DISKMAGIC;
        d->d_secsize = DEV_BSIZE;
        d->d_npartitions = MAXPARTITIONS;
}

void
vtoc_set_default( struct cpu_disklabel *ux, struct disklabel *d)
{
        struct pdinfo_sector *pdinfo = &ux->pdinfo;
        struct vtoc_sector *vtoc = &ux->vtoc;
        struct ux_partition *bfs;
        struct ux_partition *boot;
        struct ux_partition *bsdraw;
        int nsectors, logical_sector, cylinder_blocks, res;

        memset(vtoc, 0, sizeof *vtoc);
        memset(pdinfo, 0, sizeof *pdinfo);
        if (d)
                cylinder_blocks = d->d_ntracks * d->d_nsectors;
        else
                cylinder_blocks =
                    _FAKE_TRACKS_PER_CYLINDER * _FAKE_SECTORS_PER_TRACK;
        logical_sector = cylinder_blocks;

        pdinfo->drive_id = 0x5c512000;  /* Fake for EWS-UX */
        pdinfo->magic = PDINFO_MAGIC;
        pdinfo->version = PDINFO_VERSION;
        pdinfo->logical_sector = logical_sector;
        pdinfo->ux.errorlog_sector = logical_sector - 1;
        pdinfo->ux.errorlog_size_byte = DEV_BSIZE;

        if (d) { /* use drivers disk geometory */
                pdinfo->geometory.cylinders_per_drive = d->d_ncylinders;
                pdinfo->geometory.tracks_per_cylinder = d->d_ntracks;
                pdinfo->geometory.sectors_per_track = d->d_nsectors;
                pdinfo->geometory.bytes_per_sector = d->d_secsize;
                nsectors = d->d_ncylinders * d->d_ntracks * d->d_nsectors;
        } else { /* set fake */
                pdinfo->geometory.sectors_per_track =
                    _FAKE_SECTORS_PER_TRACK;
                pdinfo->geometory.tracks_per_cylinder =
                    _FAKE_TRACKS_PER_CYLINDER;
                pdinfo->geometory.cylinders_per_drive = 0x1fffffff;
                pdinfo->geometory.bytes_per_sector = DEV_BSIZE;
                nsectors = 0x1fffffff;
        }

        /* following magic numbers are required for EWS-UX */
        pdinfo->device_depend[15] = 0xfb7e10;
        pdinfo->device_depend[16] = 0x200;
        pdinfo->device_depend[17] = 0x10;

        vtoc->magic = VTOC_MAGIC;
        vtoc->version = VTOC_VERSION;
        vtoc->sector_size_byte = DEV_BSIZE;
        vtoc->npartitions = VTOC_MAXPARTITIONS;

        boot = &vtoc->partition[7];
        boot->tag = VTOC_TAG_BOOT;
        boot->flags = VTOC_FLAG_UNMOUNT;
        boot->start_sector = 0;
        boot->nsectors = _BOOTBLOCK_SIZE;

        bfs = &vtoc->partition[3];
        bfs->tag = VTOC_TAG_STAND;
        bfs->flags = 0;
        bfs->start_sector = _BOOTBLOCK_SIZE;

        res = nsectors - bfs->start_sector;
        bfs->nsectors = res > _BFS_SIZE ? _BFS_SIZE : res;

        bsdraw = &vtoc->partition[RAW_PART];
        bsdraw->tag = VTOC_TAG_NONAME;
        bsdraw->flags = VTOC_FLAG_UNMOUNT;
        bsdraw->start_sector = -pdinfo->logical_sector;
        bsdraw->nsectors = nsectors;
}

void
disklabel_to_vtoc(struct cpu_disklabel *ux, struct disklabel *d)
{
        struct pdinfo_sector *pdinfo = &ux->pdinfo;
        struct vtoc_sector *vtoc = &ux->vtoc;
        struct ux_partition *up;
        struct partition *p;
        uint32_t offset = pdinfo->logical_sector;
        int i;

        pdinfo->geometory.cylinders_per_drive = d->d_ncylinders;
        pdinfo->geometory.tracks_per_cylinder = d->d_ntracks;
        pdinfo->geometory.sectors_per_track = d->d_nsectors;
        pdinfo->geometory.bytes_per_sector = d->d_secsize;

        vtoc->npartitions = d->d_npartitions;
        vtoc->sector_size_byte = d->d_secsize;

        up = vtoc->partition;
        p = d->d_partitions;
        for (i = 0; i < vtoc->npartitions; i++, up++, p++) {
                if ((up->nsectors = p->p_size) != 0)
                        up->start_sector = p->p_offset - offset;
                else
                        up->start_sector = 0;

                switch (p->p_fstype) {
                case FS_BOOT:
                        up->tag = VTOC_TAG_BOOT;
                        up->flags = VTOC_FLAG_UNMOUNT;
                        break;
                case FS_SYSVBFS:
                        up->tag = VTOC_TAG_STAND;
                        break;
                case FS_SWAP:
                        up->tag = VTOC_TAG_SWAP;
                        up->flags = VTOC_FLAG_UNMOUNT;
                        break;
                case FS_BSDFFS:
                        up->tag = __VTOC_TAG_BSDFFS;
                        break;
                case FS_UNUSED:
                        if (i != RAW_PART && p->p_size > 0) {
                                up->tag = VTOC_TAG_RAWDISK;
                                up->flags = VTOC_FLAG_UNMOUNT;
                        }
                        break;
                default:
                        break;
                }
        }
}

void
vtoc_to_disklabel(struct cpu_disklabel *ux, struct disklabel *d)
{
        struct pdinfo_sector *pdinfo = &ux->pdinfo;
        struct vtoc_sector *vtoc = &ux->vtoc;
        struct ux_partition *up;
        struct partition *p;
        uint32_t offset = pdinfo->logical_sector;
        int i;

        d->d_secsize = pdinfo->geometory.bytes_per_sector;
        d->d_nsectors = pdinfo->geometory.sectors_per_track;
        d->d_ntracks = pdinfo->geometory.tracks_per_cylinder;
        d->d_ncylinders = pdinfo->geometory.cylinders_per_drive;
        d->d_secpercyl = d->d_nsectors * d->d_ntracks;
        d->d_secperunit = d->d_ncylinders * d->d_secpercyl;

        d->d_npartitions = vtoc->npartitions;
        d->d_secsize = vtoc->sector_size_byte;

        up = vtoc->partition;
        p = d->d_partitions;
        for (i = 0; i < vtoc->npartitions; i++, up++, p++) {

                if ((p->p_size = up->nsectors) != 0)
                        p->p_offset = up->start_sector + offset;
                else
                        p->p_offset = 0;

                switch (up->tag) {
                case VTOC_TAG_BOOT:
                        p->p_fstype = FS_BOOT;
                        break;
                case VTOC_TAG_STAND:
                        p->p_fstype = FS_SYSVBFS;
                        break;
                case VTOC_TAG_RAWDISK:
                        p->p_fstype = FS_UNUSED;
                        break;
                case VTOC_TAG_SWAP:
                        p->p_fstype = FS_SWAP;
                        break;
                case VTOC_TAG_NONAME:
                case VTOC_TAG_ROOT:
                case VTOC_TAG_USR:
                case VTOC_TAG_VAR:
                case VTOC_TAG_HOME:
                        p->p_fstype = FS_SYSV;
                        break;
                default:
                        if (up->nsectors != 0)
                                p->p_fstype = FS_SYSV;
                        else
                                p->p_fstype = FS_UNUSED;
                        break;
                }
        }

        d->d_checksum = 0;
        d->d_checksum = dkcksum(d);
}

bool
disklabel_sanity(struct disklabel *d)
{

        if (d->d_magic != DISKMAGIC || d->d_magic2 != DISKMAGIC ||
            dkcksum(d) != 0)
                return false;

        return true;
}