use std::fs::File;
use std::path::{Path};
use std::fs::{self, OpenOptions};
use std::io::{Write, Seek, SeekFrom};
use binrw::{BinRead, BinReaderExt};

use crate::utils::common;

#[derive(BinRead)]
struct EpkHeader {
    #[br(count = 4)] _epk_magic: Vec<u8>, //epak
    file_size: u32,
    pak_count: u32,
    #[br(count = 4)] _epk2_magic: Vec<u8>, //EPK2
    #[br(count = 4)] version: Vec<u8>,
    #[br(count = 32)] ota_id_bytes: Vec<u8>,
}
impl EpkHeader {
    fn ota_id(&self) -> String {
        common::string_from_bytes(&self.ota_id_bytes)
    }
}

#[derive(BinRead)]
struct PakHeader {
    #[br(count = 4)] pak_name_bytes: Vec<u8>,
    image_size: u32,
    #[br(count = 64)] platform_id_bytes: Vec<u8>,
    _sw_version: u32,
    _sw_date: u32,
    _build_type: u32,
    segment_count: u32,
    segment_size: u32,
    segment_index: u32,
    #[br(count = 4)] _pak_magic_bytes: Vec<u8>, //MPAK
    #[br(count = 24)] _reserved: Vec<u8>,
    _segment_crc32: u32,
}
impl PakHeader {
    fn pak_name(&self) -> String {
        common::string_from_bytes(&self.pak_name_bytes)
    }
    fn platform_id(&self) -> String {
        common::string_from_bytes(&self.platform_id_bytes)
    }
}

#[derive(BinRead)]
struct Pak {
    offset : u32,
    size : u32,
}

pub fn is_epk2b_file(file: &File) -> bool {
    let epk2_magic = common::read_file(&file, 12, 4).expect("Failed to read from file.");
    let epak_magic = common::read_file(&file, 0, 4).expect("Failed to read from file.");
    if epak_magic == b"epak" && epk2_magic == b"EPK2" {
        true
    } else {
        false
    }
}

pub fn extract_epk2b(mut file: &File, output_folder: &str) -> Result<(), Box<dyn std::error::Error>> {
    let header: EpkHeader = file.read_le()?;

    println!("EPK info -\nData size: {}\nPak count: {}\nOTA ID: {}\nVersion: {:02x?}.{:02x?}.{:02x?}", 
            header.file_size, header.pak_count, header.ota_id(), header.version[2], header.version[1], header.version[0]);

    let mut paks: Vec<Pak> = Vec::new();

    for _i in 0..10 { //header can fit max 10 pak entries
        let pak: Pak = file.read_le()?;
        if pak.offset == 0 && pak.size == 0 {
            continue;
        }
        paks.push(Pak { offset: pak.offset, size: pak.size });
    }

    assert!(header.pak_count as usize == paks.len(), "Paks count in header does not match the amount of non empty pak entries!");

    for (i, pak) in paks.iter().enumerate() {
        file.seek(SeekFrom::Start(pak.offset as u64))?;
        let mut pak_header: PakHeader = file.read_le()?;

        let mut all_segment_size = 0;

        println!("\n({}/{}) - {}, Size: {}, Segment count: {}, Platform: {}", 
                i + 1, paks.len(), pak_header.pak_name(), pak_header.image_size, pak_header.segment_count, pak_header.platform_id());

        for i in 0..pak_header.segment_count {
            // for first segment we already read the header so skip doing that for it
            if i > 0 {
                pak_header = file.read_le()?;
            }

            assert!(i == pak_header.segment_index, "Unexpected segment index in pak header!, expected: {}, got: {}", i , pak_header.segment_index);

            println!("- Segment {}/{} - Size: {}", i + 1, pak_header.segment_count, pak_header.segment_size);
            let out_data = common::read_exact(&mut file, pak_header.segment_size as usize)?;
            all_segment_size += pak_header.segment_size;

            //for the last segment, the extra data should be calculated and stripped.
            let segment_limit = if i == pak_header.segment_count - 1 {
                let diff = all_segment_size - pak_header.image_size;
                pak_header.segment_size - diff
            } else {
                pak_header.segment_size
            };

            let output_path = Path::new(&output_folder).join(format!("{}.bin", pak_header.pak_name()));
            fs::create_dir_all(&output_folder)?;
            let mut out_file = OpenOptions::new().append(true).create(true).open(output_path)?;
            out_file.write_all(&out_data[..segment_limit as usize])?;

            println!("-- Saved to file!");
        }
    }

    println!("\nExtraction finished!");

    Ok(())
}