// PAK Archive format - THQ Australia Engine (Xbox 360)
// Xbox 360 version uses version 2, big-endian, 24-byte entries

type thqa_pak_xenon [display="THQA PAK (Xbox 360)"] byteorder BE
{
  // Header (24 bytes)
  magic = ascii(read(4));

  ui("magic", "Magic");
  u32 version;

  ui("version", "Version");
  u32 entry_table_offset;

  ui("entry_table_offset", "Entry Table Offset");
  u32 metadata_size;

  ui("metadata_size", "Metadata Size");
  u32 entry_table_size;

  ui("entry_table_size", "Entry Table Size");
  u32 entry_count;

  ui("entry_count", "Entry Count");

  // Calculate derived values
  entry_size = entry_table_size / entry_count;

  ui("entry_size", "Entry Size");
  filename_table_offset = entry_table_offset + entry_table_size;

  ui("filename_table_offset", "Filename Table Offset");

  // Seek to entry table and read entries
  seek(entry_table_offset);

  if (entry_count > 0 && entry_count < 10000) {
    entry_idx = 0;
    repeat(entry_count) {
      // Read entry fields (24 bytes each)
      u32 e_offset;
      u32 e_decomp_size;
      u32 e_comp_size;
      u32 e_name_off;
      u32 e_unknown;
      e_compress = ascii(read(4));

      saved_pos = pos();

      // Get filename
      seek(filename_table_offset + e_name_off);
      e_name = cstring();

      // Extract file data
      seek(e_offset);
      if (e_compress == "zlib") {
        raw_data = read(e_comp_size);
        file_data = raw_data |> zlib;
      } else {
        file_data = read(e_decomp_size);
      }

      // Export file
      write_file(e_name, file_data);

      // Pass filename to child via global
      ctx_set("_thqa_pak_entry_name", e_name);

      // Create child entry
      child = file_data |> parse thqa_pak_entry_be;
      push("entries", child);

      seek(saved_pos);
      entry_idx = entry_idx + 1;
    }
  }

  file_size = size();


  ui("file_size", "Total File Size");
}