/*
 * Copyright (c) 2018-2019 Atmosphère-NX
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms and conditions of the GNU General Public License,
 * version 2, as published by the Free Software Foundation.
 *
 * This program is distributed in the hope it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
 * more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include "boot_functions.hpp"
#include "boot_pinmux_map.hpp"

static bool g_initialized_pinmux_vaddr = false;
static uintptr_t g_pinmux_vaddr = 0;

static inline const PinmuxDefinition *GetPinmuxDefinition(u32 pinmux_name) {
    if (pinmux_name >= PinmuxPadNameMax) {
        std::abort();
    }

    return &PinmuxMap[pinmux_name];
}

static inline const PinmuxDrivePadDefinition *GetPinmuxDrivePadDefinition(u32 pinmux_name) {
    if (pinmux_name >= PinmuxDrivePadNameMax) {
        std::abort();
    }

    return &PinmuxDrivePadMap[pinmux_name];
}

static uintptr_t GetPinmuxBaseAddress() {
    if (!g_initialized_pinmux_vaddr) {
        u64 vaddr;
        if (R_FAILED(svcQueryIoMapping(&vaddr, Boot::ApbMiscPhysicalBase, 0x4000))) {
            std::abort();
        }
        g_pinmux_vaddr = vaddr;
        g_initialized_pinmux_vaddr = true;
    }
    return g_pinmux_vaddr;
}

u32 Boot::PinmuxUpdatePark(u32 pinmux_name) {
    const uintptr_t pinmux_base_vaddr = GetPinmuxBaseAddress();
    const PinmuxDefinition *pinmux_def = GetPinmuxDefinition(pinmux_name);

    /* Fetch this PINMUX's register offset */
    u32 pinmux_reg_offset = pinmux_def->reg_offset;

    /* Fetch this PINMUX's mask value */
    u32 pinmux_mask_val = pinmux_def->mask_val;

    /* Get current register ptr. */
    volatile u32 *pinmux_reg = reinterpret_cast<volatile u32 *>(pinmux_base_vaddr + pinmux_reg_offset);

    /* Read from the PINMUX register */
    u32 pinmux_val = *pinmux_reg;

    /* This PINMUX supports park change */
    if (pinmux_mask_val & 0x20) {
        /* Clear park status if set */
        if (pinmux_val & 0x20) {
            pinmux_val &= ~(0x20);
        }
    }

    /* Write to the appropriate PINMUX register */
    *pinmux_reg = pinmux_val;

    /* Do a dummy read from the PINMUX register */
    pinmux_val = *pinmux_reg;

    return pinmux_val;
}

u32 Boot::PinmuxUpdatePad(u32 pinmux_name, u32 pinmux_config_val, u32 pinmux_config_mask_val) {
    const uintptr_t pinmux_base_vaddr = GetPinmuxBaseAddress();
    const PinmuxDefinition *pinmux_def = GetPinmuxDefinition(pinmux_name);

    /* Fetch this PINMUX's register offset */
    u32 pinmux_reg_offset = pinmux_def->reg_offset;

    /* Fetch this PINMUX's mask value */
    u32 pinmux_mask_val = pinmux_def->mask_val;

    /* Get current register ptr. */
    volatile u32 *pinmux_reg = reinterpret_cast<volatile u32 *>(pinmux_base_vaddr + pinmux_reg_offset);

    /* Read from the PINMUX register */
    u32 pinmux_val = *pinmux_reg;

    /* This PINMUX register is locked */
    if (pinmux_val & 0x80) {
        std::abort();
    }

    u32 pm_val = (pinmux_config_val & 0x07);

    /* Adjust PM */
    if (pinmux_config_mask_val & 0x07) {
        /* Apply additional changes first */
        if (pm_val == 0x05) {
            /* This pin supports PUPD change */
            if (pinmux_mask_val & 0x0C) {
                /* Change PUPD */
                if ((pinmux_val & 0x0C) != 0x04) {
                    pinmux_val &= 0xFFFFFFF3;
                    pinmux_val |= 0x04;
                }
            }

            /* This pin supports Tristate change */
            if (pinmux_mask_val & 0x10) {
                /* Change Tristate */
                if (!(pinmux_val & 0x10)) {
                    pinmux_val |= 0x10;
                }
            }

            /* This pin supports EInput change */
            if (pinmux_mask_val & 0x40) {
                /* Change EInput */
                if (pinmux_val & 0x40) {
                    pinmux_val &= 0xFFFFFFBF;
                }
            }
        } else if (pm_val >= 0x06) {
            /* Default to safe value */
            pm_val = 0x04;
        }

        /* Translate PM value if necessary */
        if (pm_val == 0x04 || pm_val == 0x05) {
            pm_val = pinmux_def->pm_val;
        }

        /* This pin supports PM change */
        if (pinmux_mask_val & 0x03) {
            /* Change PM */
            if ((pinmux_val & 0x03) != (pm_val & 0x03)) {
                pinmux_val &= 0xFFFFFFFC;
                pinmux_val |= (pm_val & 0x03);
            }
        }
    }

    u32 pupd_config_val = (pinmux_config_val & 0x18);

    /* Adjust PUPD */
    if (pinmux_config_mask_val & 0x18) {
        if (pupd_config_val < 0x11) {
            /* This pin supports PUPD change */
            if (pinmux_mask_val & 0x0C) {
                /* Change PUPD */
                if (((pinmux_val >> 0x02) & 0x03) != (pupd_config_val >> 0x03)) {
                    pinmux_val &= 0xFFFFFFF3;
                    pinmux_val |= (pupd_config_val >> 0x01);
                }
            }
        }
    }

    u32 eod_config_val = (pinmux_config_val & 0x60);

    /* Adjust EOd field */
    if (pinmux_config_mask_val & 0x60) {
        if (eod_config_val == 0x20) {
            /* This pin supports Tristate change */
            if (pinmux_mask_val & 0x10) {
                /* Change Tristate */
                if (!(pinmux_val & 0x10)) {
                    pinmux_val |= 0x10;
                }
            }

            /* This pin supports EInput change */
            if (pinmux_mask_val & 0x40) {
                /* Change EInput */
                if (!(pinmux_val & 0x40)) {
                    pinmux_val |= 0x40;
                }
            }

            /* This pin supports EOd change */
            if (pinmux_mask_val & 0x800) {
                /* Change EOd */
                if (pinmux_val & 0x800) {
                    pinmux_val &= 0xFFFFF7FF;
                }
            }
        } else if (eod_config_val == 0x40) {
            /* This pin supports Tristate change */
            if (pinmux_mask_val & 0x10) {
                /* Change Tristate */
                if (pinmux_val & 0x10) {
                    pinmux_val &= 0xFFFFFFEF;
                }
            }

            /* This pin supports EInput change */
            if (pinmux_mask_val & 0x40) {
                /* Change EInput */
                if (!(pinmux_val & 0x40)) {
                    pinmux_val |= 0x40;
                }
            }

            /* This pin supports EOd change */
            if (pinmux_mask_val & 0x800) {
                /* Change EOd */
                if (pinmux_val & 0x800) {
                    pinmux_val &= 0xFFFFF7FF;
                }
            }
        } else if (eod_config_val == 0x60) {
            /* This pin supports Tristate change */
            if (pinmux_mask_val & 0x10) {
                /* Change Tristate */
                if (pinmux_val & 0x10) {
                    pinmux_val &= 0xFFFFFFEF;
                }
            }

            /* This pin supports EInput change */
            if (pinmux_mask_val & 0x40) {
                /* Change EInput */
                if (!(pinmux_val & 0x40)) {
                    pinmux_val |= 0x40;
                }
            }

            /* This pin supports EOd change */
            if (pinmux_mask_val & 0x800) {
                /* Change EOd */
                if (!(pinmux_val & 0x800)) {
                    pinmux_val |= 0x800;
                }
            }
        } else {
            /* This pin supports Tristate change */
            if (pinmux_mask_val & 0x10) {
                /* Change Tristate */
                if (pinmux_val & 0x10) {
                    pinmux_val &= 0xFFFFFFEF;
                }
            }

            /* This pin supports EInput change */
            if (pinmux_mask_val & 0x40) {
                /* Change EInput */
                if (pinmux_val & 0x40) {
                    pinmux_val &= 0xFFFFFFBF;
                }
            }

            /* This pin supports EOd change */
            if (pinmux_mask_val & 0x800) {
                /* Change EOd */
                if (pinmux_val & 0x800) {
                    pinmux_val &= 0xFFFFF7FF;
                }
            }
        }
    }

    u32 lock_config_val = (pinmux_config_val & 0x80);

    /* Adjust Lock */
    if (pinmux_config_mask_val & 0x80) {
        /* This pin supports Lock change */
        if (pinmux_mask_val & 0x80) {
            /* Change Lock */
            if ((pinmux_val ^ pinmux_config_val) & 0x80) {
                pinmux_val &= 0xFFFFFF7F;
                pinmux_val |= lock_config_val;
            }
        }
    }

    u32 ioreset_config_val = (((pinmux_config_val >> 0x08) & 0x1) << 0x10);

    /* Adjust IoReset */
    if (pinmux_config_mask_val & 0x100) {
        /* This pin supports IoReset change */
        if (pinmux_mask_val & 0x10000) {
            /* Change IoReset */
            if (((pinmux_val >> 0x10) ^ (pinmux_config_val >> 0x08)) & 0x01) {
                pinmux_val &= 0xFFFEFFFF;
                pinmux_val |= ioreset_config_val;
            }
        }
    }

    u32 park_config_val = (((pinmux_config_val >> 0x0A) & 0x1) << 0x5);

    /* Adjust Park */
    if (pinmux_config_mask_val & 0x400) {
        /* This pin supports Park change */
        if (pinmux_mask_val & 0x20) {
            /* Change Park */
            if (((pinmux_val >> 0x05) ^ (pinmux_config_val >> 0x0A)) & 0x01) {
                pinmux_val &= 0xFFFFFFDF;
                pinmux_val |= park_config_val;
            }
        }
    }

    u32 elpdr_config_val = (((pinmux_config_val >> 0x0B) & 0x1) << 0x08);

    /* Adjust ELpdr */
    if (pinmux_config_mask_val & 0x800) {
        /* This pin supports ELpdr change */
        if (pinmux_mask_val & 0x100) {
            /* Change ELpdr */
            if (((pinmux_val >> 0x08) ^ (pinmux_config_val >> 0x0B)) & 0x01) {
                pinmux_val &= 0xFFFFFEFF;
                pinmux_val |= elpdr_config_val;
            }
        }
    }

    u32 ehsm_config_val = (((pinmux_config_val >> 0x0C) & 0x1) << 0x09);

    /* Adjust EHsm */
    if (pinmux_config_mask_val & 0x1000) {
        /* This pin supports EHsm change */
        if (pinmux_mask_val & 0x200) {
            /* Change EHsm */
            if (((pinmux_val >> 0x09) ^ (pinmux_config_val >> 0x0C)) & 0x01) {
                pinmux_val &= 0xFFFFFDFF;
                pinmux_val |= ehsm_config_val;
            }
        }
    }

    u32 eiohv_config_val = (((pinmux_config_val >> 0x09) & 0x1) << 0x0A);

    /* Adjust EIoHv */
    if (pinmux_config_mask_val & 0x200) {
        /* This pin supports EIoHv change */
        if (pinmux_mask_val & 0x400) {
            /* Change EIoHv */
            if (((pinmux_val >> 0x0A) ^ (pinmux_config_val >> 0x09)) & 0x01) {
                pinmux_val &= 0xFFFFFBFF;
                pinmux_val |= eiohv_config_val;
            }
        }
    }

    u32 eschmt_config_val = (((pinmux_config_val >> 0x0D) & 0x1) << 0x0C);

    /* Adjust ESchmt */
    if (pinmux_config_mask_val & 0x2000) {
        /* This pin supports ESchmt change */
        if (pinmux_mask_val & 0x1000) {
            /* Change ESchmt */
            if (((pinmux_val >> 0x0C) ^ (pinmux_config_val >> 0x0D)) & 0x01) {
                pinmux_val &= 0xFFFFEFFF;
                pinmux_val |= eschmt_config_val;
            }
        }
    }

    u32 preemp_config_val = (((pinmux_config_val >> 0x10) & 0x1) << 0xF);

    /* Adjust Preemp */
    if (pinmux_config_mask_val & 0x10000) {
        /* This pin supports Preemp change */
        if (pinmux_mask_val & 0x8000) {
            /* Change Preemp */
            if (((pinmux_val >> 0x0F) ^ (pinmux_config_val >> 0x10)) & 0x01) {
                pinmux_val &= 0xFFFF7FFF;
                pinmux_val |= preemp_config_val;
            }
        }
    }

    u32 drvtype_config_val = (((pinmux_config_val >> 0x0E) & 0x3) << 0xD);

    /* Adjust DrvType */
    if (pinmux_config_mask_val & 0xC000) {
        /* This pin supports DrvType change */
        if (pinmux_mask_val & 0x6000) {
            /* Change DrvType */
            if (((pinmux_val >> 0x0D) ^ (pinmux_config_val >> 0x0E)) & 0x03) {
                pinmux_val &= 0xFFFF9FFF;
                pinmux_val |= drvtype_config_val;
            }
        }
    }

    /* Write to the appropriate PINMUX register */
    *pinmux_reg = pinmux_val;

    /* Do a dummy read from the PINMUX register */
    pinmux_val = *pinmux_reg;

    return pinmux_val;
}

u32 Boot::PinmuxUpdateDrivePad(u32 pinmux_drivepad_name, u32 pinmux_drivepad_config_val, u32 pinmux_drivepad_config_mask_val) {
    const uintptr_t pinmux_base_vaddr = GetPinmuxBaseAddress();
    const PinmuxDrivePadDefinition *pinmux_drivepad_def = GetPinmuxDrivePadDefinition(pinmux_drivepad_name);

    /* Fetch this PINMUX drive group's register offset */
    u32 pinmux_drivepad_reg_offset = pinmux_drivepad_def->reg_offset;

    /* Fetch this PINMUX drive group's mask value */
    u32 pinmux_drivepad_mask_val = pinmux_drivepad_def->mask_val;

    /* Get current register ptr. */
    volatile u32 *pinmux_drivepad_reg = reinterpret_cast<volatile u32 *>(pinmux_base_vaddr + pinmux_drivepad_reg_offset);

    /* Read from the PINMUX drive group register */
    u32 pinmux_drivepad_val = *pinmux_drivepad_reg;

    /* Adjust DriveDownStrength */
    if (pinmux_drivepad_config_mask_val & 0x1F000) {
        u32 mask_val = 0x7F000;

        /* Adjust mask value */
        if ((pinmux_drivepad_mask_val & 0x7F000) != 0x7F000)
            mask_val = 0x1F000;

        /* This drive group supports DriveDownStrength change */
        if (pinmux_drivepad_mask_val & mask_val) {
            /* Change DriveDownStrength */
            if (((pinmux_drivepad_config_val & 0x7F000) & mask_val) != (pinmux_drivepad_val & mask_val)) {
                pinmux_drivepad_val &= ~(mask_val);
                pinmux_drivepad_val |= ((pinmux_drivepad_config_val & 0x7F000) & mask_val);
            }
        }
    }

    /* Adjust DriveUpStrength */
    if (pinmux_drivepad_config_mask_val & 0x1F00000) {
        u32 mask_val = 0x7F00000;

        /* Adjust mask value */
        if ((pinmux_drivepad_mask_val & 0x7F00000) != 0x7F00000)
            mask_val = 0x1F00000;

        /* This drive group supports DriveUpStrength change */
        if (pinmux_drivepad_mask_val & mask_val) {
            /* Change DriveUpStrength */
            if (((pinmux_drivepad_config_val & 0x7F00000) & mask_val) != (pinmux_drivepad_val & mask_val)) {
                pinmux_drivepad_val &= ~(mask_val);
                pinmux_drivepad_val |= ((pinmux_drivepad_config_val & 0x7F00000) & mask_val);
            }
        }
    }

    /* Adjust DriveDownSlew */
    if (pinmux_drivepad_config_mask_val & 0x30000000) {
        /* This drive group supports DriveDownSlew change */
        if (pinmux_drivepad_mask_val & 0x30000000) {
            /* Change DriveDownSlew */
            if ((pinmux_drivepad_val ^ pinmux_drivepad_config_val) & 0x30000000) {
                pinmux_drivepad_val &= 0xCFFFFFFF;
                pinmux_drivepad_val |= (pinmux_drivepad_config_val & 0x30000000);
            }
        }
    }

    /* Adjust DriveUpSlew */
    if (pinmux_drivepad_config_mask_val & 0xC0000000) {
        /* This drive group supports DriveUpSlew change */
        if (pinmux_drivepad_mask_val & 0xC0000000) {
            /* Change DriveUpSlew */
            if ((pinmux_drivepad_val ^ pinmux_drivepad_config_val) & 0xC0000000) {
                pinmux_drivepad_val &= 0x3FFFFFFF;
                pinmux_drivepad_val |= (pinmux_drivepad_config_val & 0xC0000000);
            }
        }
    }

    /* Write to the appropriate PINMUX drive group register */
    *pinmux_drivepad_reg = pinmux_drivepad_val;

    /* Do a dummy read from the PINMUX drive group register */
    pinmux_drivepad_val = *pinmux_drivepad_reg;

    return pinmux_drivepad_val;
}

u32 Boot::PinmuxDummyReadDrivePad(u32 pinmux_drivepad_name) {
    const uintptr_t pinmux_base_vaddr = GetPinmuxBaseAddress();
    const PinmuxDrivePadDefinition *pinmux_drivepad_def = GetPinmuxDrivePadDefinition(pinmux_drivepad_name);

    /* Fetch this PINMUX drive group's register offset */
    u32 pinmux_drivepad_reg_offset = pinmux_drivepad_def->reg_offset;

    /* Get current register ptr. */
    volatile u32 *pinmux_drivepad_reg = reinterpret_cast<volatile u32 *>(pinmux_base_vaddr + pinmux_drivepad_reg_offset);

    return *pinmux_drivepad_reg;
}