/*
 * Copyright (c) 2018-2020, Andreas Kling <kling@serenityos.org>
 * 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 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 HOLDER 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 <Kernel/ACPI/ACPIParser.h>
#include <Kernel/IO.h>
#include <Kernel/KParams.h>
#include <Kernel/Net/E1000NetworkAdapter.h>
#include <Kernel/Net/RTL8139NetworkAdapter.h>
#include <Kernel/PCI/IOAccess.h>
#include <Kernel/PCI/Initializer.h>
#include <Kernel/PCI/MMIOAccess.h>

static PCI::Initializer* s_pci_initializer;

PCI::Initializer& PCI::Initializer::the()
{
    if (s_pci_initializer == nullptr) {
        s_pci_initializer = new PCI::Initializer();
    }
    return *s_pci_initializer;
}
void PCI::Initializer::initialize_pci_mmio_access(ACPI_RAW::MCFG& mcfg)
{
    PCI::MMIOAccess::initialize(mcfg);
    detect_devices();
}
void PCI::Initializer::initialize_pci_io_access()
{
    PCI::IOAccess::initialize();
    detect_devices();
}

void PCI::Initializer::detect_devices()
{
    PCI::enumerate_all([&](const PCI::Address& address, PCI::ID id) {
        kprintf("PCI: device @ %w:%b:%b.%d [%w:%w]\n",
            address.seg(),
            address.bus(),
            address.slot(),
            address.function(),
            id.vendor_id,
            id.device_id);
        E1000NetworkAdapter::detect(address);
        RTL8139NetworkAdapter::detect(address);
    });
}

void PCI::Initializer::test_and_initialize(bool disable_pci_mmio)
{
    if (disable_pci_mmio) {
        if (test_pci_io()) {
            initialize_pci_io_access();
        } else {
            kprintf("No PCI Bus Access Method Detected, Halt!\n");
            ASSERT_NOT_REACHED(); // NO PCI Access ?!
        }
        return;
    }
    if (test_acpi()) {
        if (test_pci_mmio()) {
            initialize_pci_mmio_access_after_test();
        } else {
            if (test_pci_io()) {
                initialize_pci_io_access();
            } else {
                kprintf("No PCI Bus Access Method Detected, Halt!\n");
                ASSERT_NOT_REACHED(); // NO PCI Access ?!
            }
        }
    } else {
        if (test_pci_io()) {
            initialize_pci_io_access();
        } else {
            kprintf("No PCI Bus Access Method Detected, Halt!\n");
            ASSERT_NOT_REACHED(); // NO PCI Access ?!
        }
    }
}
PCI::Initializer::Initializer()
{
}
bool PCI::Initializer::test_acpi()
{
    if ((KParams::the().has("noacpi")) || !ACPIParser::the().is_operable())
        return false;
    else
        return true;
}

bool PCI::Initializer::test_pci_io()
{
    kprintf("Testing PCI via manual probing... ");
    u32 tmp = 0x80000000;
    IO::out32(PCI_ADDRESS_PORT, tmp);
    tmp = IO::in32(PCI_ADDRESS_PORT);
    if (tmp == 0x80000000) {
        kprintf("PCI IO Supported!\n");
        return true;
    }

    kprintf("PCI IO Not Supported!\n");
    return false;
}

bool PCI::Initializer::test_pci_mmio()
{
    if (ACPIParser::the().find_table("MCFG") != nullptr)
        return true;
    else
        return false;
}

void PCI::Initializer::initialize_pci_mmio_access_after_test()
{
    initialize_pci_mmio_access(*(ACPI_RAW::MCFG*)(ACPIParser::the().find_table("MCFG")));
}

void PCI::Initializer::dismiss()
{
    if (s_pci_initializer == nullptr)
        return;
    kprintf("PCI Subsystem Initializer dismissed.\n");
    delete s_pci_initializer;
    s_pci_initializer = nullptr;
}

PCI::Initializer::~Initializer()
{
}