// Copyright 2014 Citra Emulator Project
// Licensed under GPLv2 or any later version
// Refer to the license.txt file included.

#include <cstdio>
#include <cstring>

#include "video_core/utils.h"

namespace VideoCore {

/**
 * Dumps a texture to TGA
 * @param filename String filename to dump texture to
 * @param width Width of texture in pixels
 * @param height Height of texture in pixels
 * @param raw_data Raw RGBA8 texture data to dump
 * @todo This should be moved to some general purpose/common code
 */
void DumpTGA(std::string filename, short width, short height, u8* raw_data) {
    TGAHeader hdr = {0, 0, 2, 0, 0, 0, 0, width, height, 24, 0};
    FILE* fout = fopen(filename.c_str(), "wb");

    fwrite(&hdr, sizeof(TGAHeader), 1, fout);

    for (int y = 0; y < height; y++) {
        for (int x = 0; x < width; x++) {
            putc(raw_data[(3 * (y * width)) + (3 * x) + 0], fout); // b
            putc(raw_data[(3 * (y * width)) + (3 * x) + 1], fout); // g
            putc(raw_data[(3 * (y * width)) + (3 * x) + 2], fout); // r
        }
    }

    fclose(fout);
}

template<int size>
void CopyTextureAndTile(const u8* src, u8* dst, unsigned int width, unsigned int height) {
    for (unsigned int y = 0; y + 8 <= height; y += 8) {
        for (unsigned int x = 0; x + 8 <= width; x += 8) {
            const u8* line = &src[y * width + x];

            for (unsigned int yy = 0; yy < 8; ++yy) {
                for (unsigned int xx = 0; xx < 8; ++xx) {
                    memcpy(dst + size * morton_lut[yy * 8 + xx], line + size * xx, size);
                }
                line += width;
            }

            dst += 8 * 8;
        }
    }
}

template void CopyTextureAndTile<2>(const u8* src, u8* dst, unsigned int width, unsigned int height);
template void CopyTextureAndTile<3>(const u8* src, u8* dst, unsigned int width, unsigned int height);
template void CopyTextureAndTile<4>(const u8* src, u8* dst, unsigned int width, unsigned int height);

template<int size>
void CopyTextureAndUntile(const u8* src, u8* dst, unsigned int width, unsigned int height) {
    for (unsigned int y = 0; y + 8 <= height; y += 8) {
        for (unsigned int x = 0; x + 8 <= width; x += 8) {
            u8* line = &dst[y * width + x];

            for (unsigned int yy = 0; yy < 8; ++yy) {
                for (unsigned int xx = 0; xx < 8; ++xx) {
                    memcpy(line + size * xx, src + size * morton_lut[yy * 8 + xx], size);
                }
                line += width;
            }

            src += 8 * 8;
        }
    }
}

template void CopyTextureAndUntile<2>(const u8* src, u8* dst, unsigned int width, unsigned int height);
template void CopyTextureAndUntile<3>(const u8* src, u8* dst, unsigned int width, unsigned int height);
template void CopyTextureAndUntile<4>(const u8* src, u8* dst, unsigned int width, unsigned int height);

} // namespace