/*      $NetBSD: gendiofb.c,v 1.2 2025/05/27 18:44:31 tsutsui Exp $     */
/*      $OpenBSD: tvrx.c,v 1.1 2006/04/14 21:05:43 miod Exp $   */

/*
* Copyright (c) 2006, Miodrag Vallat.
* 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 ``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.
*
*/

/*
* dumb graphics routines for frame buffer on HP362 and HP382 based on tvrx.c
*/

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/conf.h>
#include <sys/device.h>
#include <sys/proc.h>
#include <sys/ioctl.h>
#include <sys/bus.h>
#include <sys/cpu.h>

#include <machine/autoconf.h>

#include <hp300/dev/dioreg.h>
#include <hp300/dev/diovar.h>
#include <hp300/dev/diodevs.h>

#include <dev/cons.h>

#include <dev/wscons/wsconsio.h>
#include <dev/wscons/wsdisplayvar.h>
#include <dev/rasops/rasops.h>

#include <hp300/dev/diofbreg.h>
#include <hp300/dev/diofbvar.h>

struct  gendiofb_softc {
       device_t        sc_dev;
       struct diofb    *sc_fb;
       struct diofb    sc_fb_store;
       int             sc_scode;
};

static int gendiofb_match(device_t, cfdata_t, void *);
static void gendiofb_attach(device_t, device_t, void *);

CFATTACH_DECL_NEW(gendiofb, sizeof(struct gendiofb_softc),
   gendiofb_match, gendiofb_attach, NULL, NULL);

static int gendiofb_reset(struct diofb *, int, struct diofbreg *);

static int gendiofb_ioctl(void *, void *, u_long, void *, int, struct lwp *);

static struct wsdisplay_accessops gendiofb_accessops = {
       .ioctl        = gendiofb_ioctl,
       .mmap         = diofb_mmap,
       .alloc_screen = diofb_alloc_screen,
       .free_screen  = diofb_free_screen,
       .show_screen  = diofb_show_screen,
       .load_font    = NULL,
};

/*
* Attachment glue
*/

static int
gendiofb_match(device_t parent, cfdata_t cf, void *aux)
{
       struct dio_attach_args *da = aux;

       if (da->da_id == DIO_DEVICE_ID_FRAMEBUFFER) {
               switch (da->da_secid) {
               case DIO_DEVICE_SECID_A147xVGA:
               case DIO_DEVICE_SECID_A1474MID:
                       return 1;
               }
       }

       return 0;
}

static void
gendiofb_attach(device_t parent, device_t self, void *aux)
{
       struct gendiofb_softc *sc = device_private(self);
       struct dio_attach_args *da = aux;
       bus_space_handle_t bsh;
       struct diofbreg *fbr;
       bus_size_t size;

       sc->sc_dev = self;
       sc->sc_scode = da->da_scode;
       if (sc->sc_scode == conscode) {
               fbr = (struct diofbreg *)conaddr;       /* already mapped */
               sc->sc_fb = &diofb_cn;
       } else {
               sc->sc_fb = &sc->sc_fb_store;
               size = da->da_size;
               if (size > DIOII_DEVSIZE)       /* XXX */
                       size = DIOII_DEVSIZE;
               if (bus_space_map(da->da_bst, da->da_addr, size, 0,
                   &bsh)) {
                       aprint_error(": can't map framebuffer\n");
                       return;
               }
               fbr = bus_space_vaddr(da->da_bst, bsh);
               if (gendiofb_reset(sc->sc_fb, sc->sc_scode, fbr) != 0) {
                       aprint_error(": failed to reset\n");
                       return;
               }
       }

       diofb_end_attach(self, &gendiofb_accessops, sc->sc_fb,
           sc->sc_scode == conscode, NULL);
}

/*
* Initialize hardware and display routines.
*/
static int
gendiofb_reset(struct diofb *fb, int scode, struct diofbreg *fbr)
{
       int rc;
       struct rasops_info *ri = &fb->ri;

       if ((rc = diofb_fbinquire(fb, scode, fbr)) != 0)
               return (rc);

       /*
        * We rely on the PROM to initialize the frame buffer in the mode
        * we expect it: cleared, overlay plane enabled and accessible
        * at the beginning of the video memory.
        *
        * This is NOT the mode we would end up by simply resetting the
        * board.
        */

       ri->ri_depth = 8;
       ri->ri_stride = (fb->fbwidth * ri->ri_depth) / 8;

       ri->ri_flg = RI_CENTER | RI_FULLCLEAR;
       if (fb == &diofb_cn)
               ri->ri_flg |= RI_NO_AUTO;       /* XXX */
       ri->ri_bits = fb->fbkva;
       ri->ri_width = fb->dwidth;
       ri->ri_height = fb->dheight;
       ri->ri_hw = fb;

       /*
        * Ask for an unholy big display, rasops will trim this to more
        * reasonable values.
        */
       rasops_init(ri, 160, 160);
       ri->ri_flg |= RI_FORCEMONO;     /* no colormap */

       diofb_resetcmap(fb);

       fb->wsd.name = fb->wsdname;
       fb->wsd.ncols = ri->ri_cols;
       fb->wsd.nrows = ri->ri_rows;
       fb->wsd.textops = &ri->ri_ops;
       fb->wsd.fontwidth = ri->ri_font->fontwidth;
       fb->wsd.fontheight = ri->ri_font->fontheight;
       fb->wsd.capabilities = ri->ri_caps;
       strlcpy(fb->wsdname, "std", sizeof(fb->wsdname));

       return 0;
}

static int
gendiofb_ioctl(void *v, void *vs, u_long cmd, void *data, int flags,
   struct lwp *l)
{
       struct diofb *fb = v;
       struct wsdisplay_fbinfo *wdf;

       switch (cmd) {
       case WSDISPLAYIO_GTYPE:
               *(u_int *)data = WSDISPLAY_TYPE_UNKNOWN;
               return 0;
       case WSDISPLAYIO_SMODE:
               fb->mapmode = *(u_int *)data;
               return 0;
       case WSDISPLAYIO_GINFO:
               wdf = (void *)data;
               wdf->width = fb->ri.ri_width;
               wdf->height = fb->ri.ri_height;
               wdf->depth = fb->ri.ri_depth;
               wdf->cmsize = 0;
               return 0;
       case WSDISPLAYIO_LINEBYTES:
               *(u_int *)data = fb->ri.ri_stride;
               return 0;
       case WSDISPLAYIO_GETCMAP:
       case WSDISPLAYIO_PUTCMAP:
               /* until color support is implemented */
               return EPASSTHROUGH;
       case WSDISPLAYIO_GVIDEO:
       case WSDISPLAYIO_SVIDEO:
               /* unsupported */
               return EPASSTHROUGH;
       }

       return EPASSTHROUGH;
}


/*
*  Console attachment
*/

int
gendiofbcnattach(bus_space_tag_t bst, bus_addr_t addr, int scode)
{
       bus_space_handle_t bsh;
       void *va;
       struct diofbreg *fbr;
       struct diofb *fb = &diofb_cn;
       bus_size_t size;

       if (bus_space_map(bst, addr, PAGE_SIZE, 0, &bsh))
               return 1;
       va = bus_space_vaddr(bst, bsh);
       fbr = va;
       if (badaddr(va) ||
           fbr->id != GRFHWID ||
           (fbr->fbid != DIO_DEVICE_SECID_A1474MID &&
            fbr->fbid != DIO_DEVICE_SECID_A147xVGA)) {
               bus_space_unmap(bst, bsh, PAGE_SIZE);
               return 1;
       }

       size = DIO_SIZE(scode, va);
       if (size > DIOII_DEVSIZE)       /* XXX */
               size = DIOII_DEVSIZE;

       bus_space_unmap(bst, bsh, PAGE_SIZE);
       if (bus_space_map(bst, addr, size, 0, &bsh))
               return 1;
       va = bus_space_vaddr(bst, bsh);

       /*
        * Initialize the framebuffer hardware.
        */
       conscode = scode;
       conaddr = va;
       gendiofb_reset(fb, conscode, (struct diofbreg *)conaddr);

       /*
        * Initialize the terminal emulator.
        */
       diofb_cnattach(fb);
       return 0;
}