/*      $NetBSD: ld_amr.c,v 1.26 2025/04/13 02:34:03 rin Exp $  */

/*-
* Copyright (c) 2002, 2003 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Andrew Doran.
*
* 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.
*/

/*
* AMI RAID controller front-end for ld(4) driver.
*/

#include <sys/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: ld_amr.c,v 1.26 2025/04/13 02:34:03 rin Exp $");

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/kernel.h>
#include <sys/device.h>
#include <sys/buf.h>
#include <sys/bufq.h>
#include <sys/endian.h>
#include <sys/dkio.h>
#include <sys/disk.h>
#include <sys/module.h>

#include <sys/bus.h>

#include <dev/ldvar.h>

#include <dev/pci/pcireg.h>
#include <dev/pci/pcivar.h>
#include <dev/pci/amrreg.h>
#include <dev/pci/amrvar.h>

#include "ioconf.h"

struct ld_amr_softc {
       struct  ld_softc sc_ld;
       int     sc_hwunit;
};

static int      ld_amr_dobio(struct ld_amr_softc *, void *, int, int, int,
                            struct buf *);
static int      ld_amr_dump(struct ld_softc *, void *, daddr_t, int);
static void     ld_amr_handler(struct amr_ccb *);
static int      ld_amr_start(struct ld_softc *, struct buf *);

static int
ld_amr_match(device_t parent, cfdata_t match, void *aux)
{
       return (1);
}

static void
ld_amr_attach(device_t parent, device_t self, void *aux)
{
       struct amr_attach_args *amra = aux;
       struct ld_amr_softc *sc = device_private(self);
       struct ld_softc *ld = &sc->sc_ld;
       struct amr_softc *amr = device_private(parent);
       const char *statestr;
       int happy;

       ld->sc_dv = self;

       sc->sc_hwunit = amra->amra_unit;
       ld->sc_maxxfer = amr_max_xfer;
       ld->sc_maxqueuecnt = (amr->amr_maxqueuecnt - AMR_NCCB_RESV)
           / amr->amr_numdrives;
       ld->sc_secperunit = amr->amr_drive[sc->sc_hwunit].al_size;
       ld->sc_secsize = AMR_SECTOR_SIZE;
       ld->sc_start = ld_amr_start;
       ld->sc_dump = ld_amr_dump;

       if (ld->sc_maxqueuecnt > AMR_MAX_CMDS_PU)
               ld->sc_maxqueuecnt = AMR_MAX_CMDS_PU;

       /*
        * Print status information and attach to the ld driver proper.
        */
       statestr = amr_drive_state(amr->amr_drive[sc->sc_hwunit].al_state,
           &happy);
       if (happy)
               ld->sc_flags = LDF_ENABLED;
       aprint_normal(": RAID %d, %s\n",
           amr->amr_drive[sc->sc_hwunit].al_properties & AMR_DRV_RAID_MASK,
           statestr);

       ldattach(ld, BUFQ_DISK_DEFAULT_STRAT);
}

CFATTACH_DECL_NEW(ld_amr, sizeof(struct ld_amr_softc),
   ld_amr_match, ld_amr_attach, NULL, NULL);

static int
ld_amr_dobio(struct ld_amr_softc *sc, void *data, int datasize,
            int blkno, int dowrite, struct buf *bp)
{
       struct amr_ccb *ac;
       struct amr_softc *amr;
       struct amr_mailbox_cmd *mb;
       int rv;

       amr = device_private(device_parent(sc->sc_ld.sc_dv));

       if ((rv = amr_ccb_alloc(amr, &ac)) != 0)
               return (rv);

       mb = &ac->ac_cmd;
       mb->mb_command = (dowrite ? AMR_CMD_LWRITE : AMR_CMD_LREAD);
       mb->mb_drive = sc->sc_hwunit;
       mb->mb_blkcount = htole16(datasize / AMR_SECTOR_SIZE);
       mb->mb_lba = htole32(blkno);

       rv = amr_ccb_map(amr, ac, data, datasize,
           (dowrite ? AC_XFER_OUT : AC_XFER_IN));
       if (rv != 0) {
               amr_ccb_free(amr, ac);
               return (rv);
       }

       if (bp == NULL) {
               /*
                * Polled commands must not sit on the software queue.  Wait
                * up to 30 seconds for the command to complete.
                */
               rv = amr_ccb_poll(amr, ac, 30000);
               amr_ccb_unmap(amr, ac);
               amr_ccb_free(amr, ac);
       } else {
               ac->ac_handler = ld_amr_handler;
               ac->ac_context = bp;
               ac->ac_dv = sc->sc_ld.sc_dv;
               amr_ccb_enqueue(amr, ac);
               rv = 0;
       }

       return (rv);
}

static int
ld_amr_start(struct ld_softc *ld, struct buf *bp)
{
       return (ld_amr_dobio((struct ld_amr_softc *)ld, bp->b_data,
           bp->b_bcount, bp->b_rawblkno, (bp->b_flags & B_READ) == 0, bp));
}

static void
ld_amr_handler(struct amr_ccb *ac)
{
       struct buf *bp;
       struct ld_amr_softc *sc;
       struct amr_softc *amr;

       bp = ac->ac_context;
       sc = device_private(ac->ac_dv);
       amr = device_private(device_parent(sc->sc_ld.sc_dv));

       if (ac->ac_status != AMR_STATUS_SUCCESS) {
               printf("%s: cmd status 0x%02x\n", device_xname(sc->sc_ld.sc_dv),
                   ac->ac_status);

               bp->b_error = EIO;
               bp->b_resid = bp->b_bcount;
       } else
               bp->b_resid = 0;

       amr_ccb_unmap(amr, ac);
       amr_ccb_free(amr, ac);
       lddone(&sc->sc_ld, bp);
}

static int
ld_amr_dump(struct ld_softc *ld, void *data, daddr_t blkno, int blkcnt)
{
       struct ld_amr_softc *sc;

       /* ld_amr_dobio() takes only an 'int' as a disk address */
       if (blkno + blkcnt - 1 > INT_MAX)
               return (EIO);

       sc = (struct ld_amr_softc *)ld;

       return (ld_amr_dobio(sc, data, blkcnt * ld->sc_secsize, blkno, 1,
           NULL));
}

MODULE(MODULE_CLASS_DRIVER, ld_amr, "ld,amr");

#ifdef _MODULE
/*
* XXX Don't allow ioconf.c to redefine the "struct cfdriver ld_cd"
* XXX it will be defined in the common-code module
*/
#undef  CFDRIVER_DECL
#define CFDRIVER_DECL(name, class, attr)
#include "ioconf.c"
#endif

static int
ld_amr_modcmd(modcmd_t cmd, void *opaque)
{
#ifdef _MODULE
       /*
        * We ignore the cfdriver_vec[] that ioconf provides, since
        * the cfdrivers are attached already.
        */
       static struct cfdriver * const no_cfdriver_vec[] = { NULL };
#endif
       int error = 0;

#ifdef _MODULE
       switch (cmd) {
       case MODULE_CMD_INIT:
               error = config_init_component(no_cfdriver_vec,
                   cfattach_ioconf_ld_amr, cfdata_ioconf_ld_amr);
               break;
       case MODULE_CMD_FINI:
               error = config_fini_component(no_cfdriver_vec,
                   cfattach_ioconf_ld_amr, cfdata_ioconf_ld_amr);
               break;
       default:
               error = ENOTTY;
               break;
       }
#endif

       return error;
}