/*
*   This file is part of Luma3DS
*   Copyright (C) 2016 Aurora Wright, TuxSH
*
*   This program is free software: you can redistribute it and/or modify
*   it under the terms of the GNU General Public License as published by
*   the Free Software Foundation, either version 3 of the License, or
*   (at your option) any later version.
*
*   This program is distributed in the hope that 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/>.
*
*   Additional Terms 7.b of GPLv3 applies to this file: Requiring preservation of specified
*   reasonable legal notices or author attributions in that material or in the Appropriate Legal
*   Notices displayed by works containing it.
*/

#include "memory.h"
#include "cache.h"
#include "i2c.h"
#include "types.h"
#include "fatfs/ff.h"
#include "../../build/bundled.h"

static FATFS fs;

void main(void)
{
    if(f_mount(&fs, "0:", 0) == FR_OK)
    {
        FIL pathFile,
            payload;
        bool foundPayload = false;

        if(f_open(&pathFile, "luma/path.txt", FA_READ) == FR_OK)
        {
            u32 pathSize = f_size(&pathFile);

            if(pathSize > 5 && pathSize < 58)
            {
                char path[57];
                unsigned int read;
                f_read(&pathFile, path, pathSize, &read);
                if(path[pathSize - 1] == 0xA) pathSize--;
                if(path[pathSize - 1] == 0xD) pathSize--;

                if(pathSize > 5 && pathSize < 56 && path[0] == '/' && memcmp(path + pathSize - 4, ".bin", 4) == 0)
                {
                    path[pathSize] = 0;
                    foundPayload = f_open(&payload, path, FA_READ) == FR_OK;
                }
            }

            f_close(&pathFile);
        }

        if(!foundPayload) foundPayload = f_open(&payload, "arm9loaderhax.bin", FA_READ) == FR_OK;

        if(foundPayload)
        {
            u32 *loaderAddress = (u32 *)0x24FFFE00;
            void *payloadAddress = (void *)0x24F00000;
            u32 payloadSize = f_size(&payload);

            memcpy(loaderAddress, loader_bin, loader_bin_size);
            loaderAddress[1] = payloadSize;

            unsigned int read;
            f_read(&payload, payloadAddress, payloadSize, &read);
            f_close(&payload);

            if((u32)read == payloadSize)
            {
                flushDCacheRange(loaderAddress, loader_bin_size);
                flushICacheRange(loaderAddress, loader_bin_size);

                ((void (*)())loaderAddress)();
            }
        }
    }

    //Ensure that all memory transfers have completed and that the data cache has been flushed
    flushEntireDCache();

    i2cWriteRegister(I2C_DEV_MCU, 0x20, 1 << 0);
    while(true);
}