/*
 * Copyright (c) 2004 The Regents of The University of Michigan
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are
 * met: redistributions of source code must retain the above copyright
 * notice, this list of conditions and the following disclaimer;
 * 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;
 * neither the name of the copyright holders nor the names of its
 * contributors may be used to endorse or promote products derived from
 * this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS 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 COPYRIGHT
 * OWNER 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.
 */

/* @file
 * Implements a 8250 UART
 */

#include <string>
#include <vector>

#include "base/inifile.hh"
#include "base/str.hh"        // for to_number
#include "base/trace.hh"
#include "dev/simconsole.hh"
#include "dev/uart.hh"
#include "dev/platform.hh"
#include "mem/bus/bus.hh"
#include "mem/bus/pio_interface.hh"
#include "mem/bus/pio_interface_impl.hh"
#include "mem/functional_mem/memory_control.hh"
#include "sim/builder.hh"
#include "targetarch/ev5.hh"

using namespace std;

Uart::IntrEvent::IntrEvent(Uart *u)
    : Event(&mainEventQueue), uart(u)
{
    DPRINTF(Uart, "UART Interrupt Event Initilizing\n");
}

const char *
Uart::IntrEvent::description()
{
    return "uart interrupt delay event";
}

void
Uart::IntrEvent::process()
{
    if (UART_IER_THRI & uart->IER) {
       DPRINTF(Uart, "UART InterEvent, interrupting\n");
       uart->platform->postConsoleInt();
       uart->status |= TX_INT;
    }
    else
       DPRINTF(Uart, "UART InterEvent, not interrupting\n");

}

void
Uart::IntrEvent::scheduleIntr()
{
    DPRINTF(Uart, "Scheduling IER interrupt\n");
    if (!scheduled())
        schedule(curTick + 300);
    else
        reschedule(curTick + 300);
}

Uart::Uart(const string &name, SimConsole *c, MemoryController *mmu, Addr a,
                         Addr s, HierParams *hier, Bus *bus, Platform *p)
    : PioDevice(name), addr(a), size(s), cons(c), intrEvent(this), platform(p)
{
    mmu->add_child(this, Range<Addr>(addr, addr + size));


    if (bus) {
        pioInterface = newPioInterface(name, hier, bus, this,
                                      &Uart::cacheAccess);
         pioInterface->addAddrRange(addr, addr + size - 1);
    }

    readAddr = 0;
    IER = 0;
    DLAB = 0;
    LCR = 0;
    MCR = 0;
    status = 0;

    // set back pointers
    cons->uart = this;
    platform->uart = this;

}

Fault
Uart::read(MemReqPtr &req, uint8_t *data)
{
    Addr daddr = req->paddr - (addr & PA_IMPL_MASK);
    DPRINTF(Uart, " read register %#x\n", daddr);


#ifdef ALPHA_TLASER

    switch (req->size) {
      case sizeof(uint64_t):
        *(uint64_t *)data = 0;
        break;
      case sizeof(uint32_t):
        *(uint32_t *)data = 0;
        break;
      case sizeof(uint16_t):
        *(uint16_t *)data = 0;
        break;
      case sizeof(uint8_t):
        *(uint8_t *)data = 0;
        break;
    }

    switch (daddr) {
      case 0x80: // Status Register
        if (readAddr == 3) {
            readAddr = 0;
            if (status & TX_INT)
                *data = (1 << 4);
             else if (status & RX_INT)
                *data = (1 << 5);
             else
                DPRINTF(Uart, "spurious read\n");

        } else {
            *data = (1 << 2);
            if (status & RX_INT)
                *data |= (1 << 0);
        }
        break;

      case 0xc0: // Data register (RX)
        if (!cons->dataAvailable())
            panic("No data to read");

        cons->in(*data);

        if (!cons->dataAvailable()) {
            platform->clearConsoleInt();
            status &= ~RX_INT;
        }

        DPRINTF(Uart, "read data register \'%c\' %2x\n",
                isprint(*data) ? *data : ' ', *data);
        break;
    }


#else


    assert(req->size == 1);

    switch (daddr) {
        case 0x0:
            if (!(LCR & 0x80)) { // read byte
                //assert(cons->dataAvailable());
                if (cons->dataAvailable())
                    cons->in(*data);
                else {
                    *(uint8_t*)data = 0;
                    // A limited amount of these are ok.
                    DPRINTF(Uart, "empty read of RX register\n");
                }

                if (cons->dataAvailable())
                    platform->postConsoleInt();
                else
                {
                    status &= ~RX_INT;
                    platform->clearConsoleInt();
                }
            } else { // dll divisor latch
               ;
            }
            break;
        case 0x1:
            if (!(LCR & 0x80)) { // Intr Enable Register(IER)
                *(uint8_t*)data = IER;
            } else { // DLM divisor latch MSB
                ;
            }
            break;
        case 0x2: // Intr Identification Register (IIR)
            if (status)
                *(uint8_t*)data = 1;
            else
                *(uint8_t*)data = 0;
            break;
        case 0x3: // Line Control Register (LCR)
            *(uint8_t*)data = LCR;
            break;
        case 0x4: // Modem Control Register (MCR)
            break;
        case 0x5: // Line Status Register (LSR)
            uint8_t lsr;
            lsr = 0;
            // check if there are any bytes to be read
            if (cons->dataAvailable())
                lsr = UART_LSR_DR;
            lsr |= UART_LSR_TEMT | UART_LSR_THRE;
            *(uint8_t*)data = lsr;
            break;
        case 0x6: // Modem Status Register (MSR)
            *(uint8_t*)data = 0;
            break;
        case 0x7: // Scratch Register (SCR)
            *(uint8_t*)data = 0; // doesn't exist with at 8250.
            break;
        default:
            panic("Tried to access a UART port that doesn't exist\n");
            break;
    }

#endif
    return No_Fault;

}

Fault
Uart::write(MemReqPtr &req, const uint8_t *data)
{
    Addr daddr = req->paddr - (addr & PA_IMPL_MASK);

    DPRINTF(Uart, " write register %#x value %#x\n", daddr, *(uint8_t*)data);

#ifdef ALPHA_TLASER

    switch (daddr) {
      case 0x80:
        readAddr = *data;
        switch (*data) {
          case 0x28: // Ack of TX
              if ((status & TX_INT) == 0)
                  panic("Ack of transmit, though there was no interrupt");

              status &= ~TX_INT;
              platform->clearConsoleInt();
              break;
          case 0x00:
          case 0x01:
          case 0x03: // going to read RR3
          case 0x12:
                break;
          default:
                DPRINTF(Uart, "writing status register %#x \n",
                        *(uint64_t *)data);
                break;
        }
        break;

      case 0xc0: // Data register (TX)
        cons->out(*(uint64_t *)data);
        platform->postConsoleInt();
        status |= TX_INT;
        break;
    }


#else
    switch (daddr) {
        case 0x0:
            if (!(LCR & 0x80)) { // write byte
                cons->out(*(uint64_t *)data);
                platform->clearConsoleInt();
                status &= ~TX_INT;
                if (UART_IER_THRI & IER)
                    intrEvent.scheduleIntr();
            } else { // dll divisor latch
               ;
            }
            break;
        case 0x1:
            if (!(LCR & 0x80)) { // Intr Enable Register(IER)
                IER = *(uint8_t*)data;
                if ((UART_IER_THRI & IER) || ((UART_IER_RDI & IER) && cons->dataAvailable()))
                    platform->postConsoleInt();
                else
                {
                    platform->clearConsoleInt();
                    if (intrEvent.scheduled())
                        intrEvent.deschedule();

                }
                if (!(UART_IER_THRI & IER))
                    status &= ~TX_INT;
                if (!((UART_IER_RDI & IER) && cons->dataAvailable()))
                    status &= ~RX_INT;
             } else { // DLM divisor latch MSB
                ;
            }
            break;
        case 0x2: // FIFO Control Register (FCR)
            break;
        case 0x3: // Line Control Register (LCR)
            LCR = *(uint8_t*)data;
            break;
        case 0x4: // Modem Control Register (MCR)
            if (*(uint8_t*)data == (UART_MCR_LOOP | 0x0A))
                    MCR = 0x9A;
            break;
        case 0x7: // Scratch Register (SCR)
            // We are emulating a 8250 so we don't have a scratch reg
            break;
        default:
            panic("Tried to access a UART port that doesn't exist\n");
            break;
    }
#endif

    return No_Fault;
}

void
Uart::dataAvailable()
{
#ifdef ALPHA_TLASER
        platform->postConsoleInt();
        status |= RX_INT;
#else

    // if the kernel wants an interrupt when we have data
    if (IER & UART_IER_RDI)
    {
        platform->postConsoleInt();
        status |= RX_INT;
    }

#endif
}

Tick
Uart::cacheAccess(MemReqPtr &req)
{
    return curTick + 1000;
}

void
Uart::serialize(ostream &os)
{
#ifdef ALPHA_TLASER
    SERIALIZE_SCALAR(readAddr);
    SERIALIZE_SCALAR(status);
#else
    SERIALIZE_SCALAR(status);
    SERIALIZE_SCALAR(IER);
    SERIALIZE_SCALAR(DLAB);
    SERIALIZE_SCALAR(LCR);
    SERIALIZE_SCALAR(MCR);
    Tick intrwhen;
    if (intrEvent.scheduled())
        intrwhen = intrEvent.when();
    else
        intrwhen = 0;
    SERIALIZE_SCALAR(intrwhen);
#endif
}

void
Uart::unserialize(Checkpoint *cp, const std::string &section)
{
#ifdef ALPHA_TLASER
    UNSERIALIZE_SCALAR(readAddr);
    UNSERIALIZE_SCALAR(status);
#else
    UNSERIALIZE_SCALAR(status);
    UNSERIALIZE_SCALAR(IER);
    UNSERIALIZE_SCALAR(DLAB);
    UNSERIALIZE_SCALAR(LCR);
    UNSERIALIZE_SCALAR(MCR);
    Tick intrwhen;
    UNSERIALIZE_SCALAR(intrwhen);
    if (intrwhen != 0)
        intrEvent.schedule(intrwhen);
#endif

}

BEGIN_DECLARE_SIM_OBJECT_PARAMS(Uart)

    SimObjectParam<SimConsole *> console;
    SimObjectParam<MemoryController *> mmu;
    SimObjectParam<Platform *> platform;
    Param<Addr> addr;
    Param<Addr> size;
    SimObjectParam<Bus*> io_bus;
    SimObjectParam<HierParams *> hier;


END_DECLARE_SIM_OBJECT_PARAMS(Uart)

BEGIN_INIT_SIM_OBJECT_PARAMS(Uart)

    INIT_PARAM(console, "The console"),
    INIT_PARAM(mmu, "Memory Controller"),
    INIT_PARAM(platform, "Pointer to platfrom"),
    INIT_PARAM(addr, "Device Address"),
    INIT_PARAM_DFLT(size, "Device size", 0x8),
    INIT_PARAM_DFLT(io_bus, "The IO Bus to attach to", NULL),
    INIT_PARAM_DFLT(hier, "Hierarchy global variables", &defaultHierParams)

END_INIT_SIM_OBJECT_PARAMS(Uart)

CREATE_SIM_OBJECT(Uart)
{
    return new Uart(getInstanceName(), console, mmu, addr, size, hier, io_bus,
                    platform);
}

REGISTER_SIM_OBJECT("Uart", Uart)