/*
 *  File.cpp
 *  ProFUSE
 *
 *  Created by Kelvin Sherlock on 12/18/08.
 *
 */

#include <ProDOS/File.h>
#include <ProDOS/DateTime.h>
#include <Endian/Endian.h>

#include "common.h"
#include <cstring>
#include <cctype>
#include <cstdio>

#include <stdint.h>

using namespace LittleEndian;


bool FileEntry::Load(const void *data)
{
    const uint8_t *cp = (const uint8_t *)data;
    
    address = 0;
    
    storage_type = cp[0x00] >> 4;
    name_length = cp[0x00] & 0x0f;
    
    memcpy(file_name, &cp[0x01], name_length);
    file_name[name_length] = 0;
    
    file_type = cp[0x10];
    
    key_pointer = Read16(&cp[0x11]);
    
    blocks_used = Read16(&cp[0x13]);
    
    eof = Read24(&cp[0x15]);

    creation = ProDOS::DateTime(Read16(&cp[0x18]), Read16(&cp[0x1a]));
    
    //version = cp[0x1c];
    //min_version = cp[0x1d];
    
    unsigned xcase = Read16(&cp[0x1c]);
    if (xcase & 0x8000)
    {
        // gsos technote #8
        unsigned mask = 0x4000;
        for (unsigned i = 0; i < name_length; i++)
        {
            if (xcase & mask) file_name[i] = tolower(file_name[i]);
            mask = mask >> 1;
        }
    }
    
    
    
    access = cp[0x1e];


    aux_type = Read16(&cp[0x1f]);
    
    last_mod = ProDOS::DateTime(Read16(&cp[0x21]), Read16(&cp[0x23]));
    
    header_pointer = Read16(&cp[0x25]);
    
    return true;
}




bool ExtendedEntry::Load(const void *data)
{
    const uint8_t *cp = (const uint8_t *)data;
    
    //prodos technote #25.
    // offset 0 - mini entry for data fork
    
    dataFork.storage_type = cp[0x00] & 0x0f;
    dataFork.key_block = Read16(&cp[0x01]);
    dataFork.blocks_used = Read16(&cp[0x03]);
    dataFork.eof = Read24(&cp[0x05]);
    
    // offset 256 - mini entry for resource fork.

    resourceFork.storage_type = cp[256 + 0x00] & 0x0f;
    resourceFork.key_block = Read16(&cp[256 + 0x01]);
    resourceFork.blocks_used = Read16(&cp[256 + 0x03]);
    resourceFork.eof = Read24(&cp[256 + 0x05]);
    
    // xFInfo may be missing.
    bzero(FInfo, sizeof(FInfo));
    bzero(xFInfo, sizeof(xFInfo));
    
    // size must be 18.
    unsigned size;
    unsigned entry;
    
    for (unsigned i = 0; i < 2; i++)
    {
        unsigned ptr = i == 0 ? 8 : 26;
        size = cp[ptr];
        if (size != 18) continue;
        entry = cp[ptr + 1];
        switch(entry)
        {
            case 1:
                memcpy(FInfo, &cp[ptr + 2], 16);
                break;
            case 2:
                memcpy(xFInfo, &cp[ptr + 2], 16);
                break;
        }
    }
    //
    return true;
}



bool VolumeEntry::Load(const void *data)
{
    const uint8_t *cp = (const uint8_t *)data;

    //prev_block = load16(&cp[0x00]);
    //next_block = load16(&cp[0x02]);
    
    storage_type = cp[0x00] >> 4;
    name_length = cp[0x00] & 0x0f;
    
    memcpy(volume_name, &cp[0x01], name_length);
    volume_name[name_length] = 0;

    // 0x14--0x1b reserved
    
    creation = ProDOS::DateTime(Read16(&cp[0x18]), Read16(&cp[0x1a]));
    last_mod = ProDOS::DateTime(Read16(&cp[0x12]), Read16(&cp[0x14]));

    if (last_mod == 0) last_mod = creation;
    
    //version = cp[0x1c];
    //min_version = cp[0x1d];
    
    unsigned xcase = Read16(&cp[0x16]);
    if (xcase & 0x8000)
    {
        // gsos technote #8
        unsigned mask = 0x4000;
        for (unsigned i = 0; i < name_length; i++)
        {
            if (xcase & mask) volume_name[i] = tolower(volume_name[i]);
            mask = mask >> 1;
        }
    }    
    
    
    access = cp[0x1e];

    entry_length = cp[0x1f];

    entries_per_block = cp[0x20];

    file_count = Read16(&cp[0x21]);

    bit_map_pointer = Read16(&cp[0x23]);
    
    total_blocks = Read16(&cp[0x25]);
    
    return true;
}




bool SubdirEntry::Load(const void *data)
{
    const uint8_t *cp = (const uint8_t *)data;
    
    
    //prev_block = load16(&cp[0x00]);
    //next_block = load16(&cp[0x02]);
    
    storage_type = cp[0x00] >> 4;
    name_length = cp[0x00] & 0x0f;
    
    memcpy(subdir_name, &cp[0x01], name_length);
    subdir_name[name_length] = 0;
    
    // 0x14 should be $14.
    
    // 0x145-0x1b reserved
    
    creation = ProDOS::DateTime(Read16(&cp[0x18]), Read16(&cp[0x1a]));
    
    //version = cp[0x1c];
    //min_version = cp[0x1d];
    /*
    unsigned xcase = load16(&cp[0x1c]);
    if (xcase & 0x8000)
    {
        // gsos technote #8
        unsigned mask = 0x4000;
        for (unsigned i = 0; i < name_length; i++)
        {
            if (xcase & mask) subdir_name[i] = tolower(subdir_name[i]);
            mask = mask >> 1;
        }
    }    
    */
    
    access = cp[0x1e];
    
    entry_length = cp[0x1f];
    
    entries_per_block = cp[0x20];
    
    file_count = Read16(&cp[0x21]);
    
    parent_pointer = Read16(&cp[0x23]);
    
    parent_entry = cp[0x25];
    
    parent_entry_length = cp[0x26];
    
    return true;
}