/* $NetBSD: console.c,v 1.16 2023/03/25 20:14:26 abs Exp $ */

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

/*
 * Bootblock support routines for Intuition console support.
 */

#include <sys/types.h>

#include <lib/libsa/stand.h>
#include "samachdep.h"

#include "amigatypes.h"
#include "amigagraph.h"
#include "amigaio.h"
#include "libstubs.h"

const u_int32_t screentags[] = {
        SA_Type, CUSTOMSCREEN,
        SA_DisplayID, 0x8000,
        SA_ShowTitle, 0,
        SA_Quiet, 1,
        0
};

u_int32_t windowtags[] = {
        WA_CustomScreen, 0L,
        WA_Borderless, 1L,
        WA_Backdrop, 1L,
        WA_Activate, 1L,
        0
};

struct Console {
        int magic;
        struct AmigaIO *cnior;
        struct TimerIO *tmior;
        struct MsgPort *cnmp;
        struct Screen *s;
        struct Window *w;
} *ConsoleBase;
static struct Console myConsole;

u_int16_t timelimit;

#ifdef SERCONSOLE
static int use_serconsole;
extern char default_command[];

static void
conspreinit(void)
{
        char *p = default_command;
        char c;

        /*
         * preparse the default command to check for -C option
         * that selects the serial console
         */
        while ((c = *p)) {
                while (c == ' ')
                        c = *++p;
                if (c == '-') {
                        while ((c = *++p) && c != ' ') {
                                switch (c) {
                                case 'C':
                                        use_serconsole = 1;
                                        break;
                                }
                        }
                } else {
                        while ((c = *++p) && c != ' ')
                                ;
                }
        }
}
#endif

int
consinit(void *consptr) {
        struct Console *mc;

        if (consptr != NULL) {
                /* Check magic? */
                mc = consptr;           /* Use existing console */
                goto done;
        }

        mc = &myConsole;
        IntuitionBase = OpenLibrary("intuition.library", 36L);
        if (IntuitionBase == 0)
                goto err;

        mc->s = OpenScreenTagList(0, screentags);
        if (!mc->s)
                goto err;

        windowtags[1] = (u_int32_t)mc->s;
        mc->w = OpenWindowTagList(0, windowtags);
        if (!mc->w)
                goto err;

        mc->cnmp = CreateMsgPort();

        if (!mc->cnmp)
                goto err;

        mc->cnior = (struct AmigaIO *)CreateIORequest(mc->cnmp, sizeof(struct AmigaIO));
        if (!mc->cnior)
                goto err;

        mc->cnior->buf = (void *)mc->w;
        mc->cnior->length = 136; /* sizeof(struct Window) */
        if (OpenDevice("console.device", 0, mc->cnior, 0)) {
                /* Kickstart 3.2 decided not to initialize console.device
                before bootstrap, so we have to do it ourselves. */
                void *res = FindResident("console.device");
                if (!res)
                        goto err;

                if (!InitResident(res, 0))
                        goto err;

                if (OpenDevice("console.device", 0, mc->cnior, 0))
                        goto err;
        }

        mc->tmior = (struct TimerIO *)CreateIORequest(mc->cnmp, sizeof(struct TimerIO));
        if (!mc->tmior)
                goto err;

        if (OpenDevice("timer.device", 0, (struct AmigaIO*)mc->tmior, 0))
                goto err;

done:

#ifdef SERCONSOLE
        conspreinit();
        if (use_serconsole)
                RawIOInit();
#endif

        ConsoleBase = mc;
        return 0;

err:
#ifdef notyet
        if (mc->tmior)
                DeleteIORequest(mc->tmior);

        if (mc->cnior)
                DeleteIORequest(mc->cnior);

        if (mc->cnmp)
                DeleteMsgPort(mc->cnmp);

        if (mc->w)
                CloseWindow(mc->w);

        if (mc->s)
                CloseScreen(mc->s);
        if (IntuitionBase)
                CloseLibrary(IntuitionBase);
#endif

        return 1;
}

#ifdef _PRIMARY_BOOT
int
consclose(void)
{
        struct Console *mc = ConsoleBase;

        if (mc == NULL)
                return 0;
        if (mc->tmior) {
                CloseDevice((struct AmigaIO *)mc->tmior);
                DeleteIORequest(mc->tmior);
        }

        if (mc->cnior) {
                CloseDevice(mc->cnior);
                DeleteIORequest(mc->cnior);
        }

        if (mc->cnmp)
                DeleteMsgPort(mc->cnmp);

        if (mc->w)
                CloseWindow(mc->w);

        if (mc->s)
                CloseScreen(mc->s);
        if (IntuitionBase)
                CloseLibrary(IntuitionBase);
        ConsoleBase = NULL;
        return 0;
}
#endif

void
putchar(int c)
{
        struct Console *mc = ConsoleBase;
        char buf = c;

        mc->cnior->length = 1;
        mc->cnior->buf = &buf;
        mc->cnior->cmd = Cmd_Wr;

#ifdef SERCONSOLE
        if (use_serconsole)
                RawPutChar((int32_t)c);
#endif

        (void)DoIO(mc->cnior);
}

void
puts(char *s)
{
        struct Console *mc = ConsoleBase;

        mc->cnior->length = -1;
        mc->cnior->buf = s;
        mc->cnior->cmd = Cmd_Wr;

#ifdef SERCONSOLE
        if (use_serconsole) {
                while (*s)
                        RawPutChar(*s++);
        }
#endif

        (void)DoIO(mc->cnior);
}

int
getchar(void)
{
        struct AmigaIO *ior;
        char c = '\n';
        struct Console *mc = ConsoleBase;
        unsigned long ticks;
#ifdef SERCONSOLE
        int32_t r;
#endif

        mc->cnior->length = 1;
        mc->cnior->buf = &c;
        mc->cnior->cmd = Cmd_Rd;

        SendIO(mc->cnior);

        ticks = 10 * timelimit;
        do {
                if (timelimit == 0)
                        ticks = 2;

                mc->tmior->cmd = Cmd_Addtimereq;
                mc->tmior->secs = 0;
                mc->tmior->usec = 100000;
                SendIO((struct AmigaIO *)mc->tmior);

                ior = WaitPort(mc->cnmp);
                if (ior == mc->cnior) {
                        AbortIO((struct AmigaIO *)mc->tmior);
                        ticks = 1;
                } else /* if (ior == mc->tmior) */ {
#ifdef SERCONSOLE
                        if (use_serconsole) {
                                r = RawMayGetChar();
                                if (r != -1) {
                                        c = r;
                                        ticks = 1;
                                }
                        }
#endif
                        if (ticks == 1)
                                AbortIO((struct AmigaIO *)mc->cnior);
                }
                WaitIO((struct AmigaIO *)mc->tmior);

                --ticks;
        } while (ticks != 0);
        timelimit = 0;

        (void)WaitIO(mc->cnior);
        return c;
}