/* vim:set ts=2 sw=2 sts=2 et: */
/**
 * \author     Marcus Holland-Moritz (github@mhxnet.de)
 * \copyright  Copyright (c) Marcus Holland-Moritz
 *
 * This file is part of dwarfs.
 *
 * dwarfs 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.
 *
 * dwarfs 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 dwarfs.  If not, see <https://www.gnu.org/licenses/>.
 */

#include <algorithm>
#include <bit>
#include <cassert>
#include <numeric>
#include <queue>

#include <fmt/format.h>

#include <dwarfs/error.h>
#include <dwarfs/logger.h>
#include <dwarfs/match.h>
#include <dwarfs/util.h>

#include <dwarfs/reader/internal/metadata_types.h>

#include <dwarfs/gen-cpp2/metadata_types_custom_protocol.h>

namespace dwarfs::reader::internal {

using namespace dwarfs::internal;
using namespace ::apache::thrift;

namespace {

template <typename T>
class shared_ptr_ctor {
 public:
  template <typename... Args>
  auto operator()(Args&&... args) {
    return std::make_shared<T>(std::forward<Args>(args)...);
  }
};

template <typename T>
class stack_ctor {
 public:
  template <typename... Args>
  auto operator()(Args&&... args) {
    return T(std::forward<Args>(args)...);
  }
};

bool dir_has_self_entry(global_metadata::Meta const& meta) {
  auto layout = meta.findFirstOfType<
      std::unique_ptr<frozen::Layout<thrift::metadata::metadata>>>();
  return (*layout)
             ->directoriesField.layout.itemField.layout.self_entryField.layout
             .bits > 0;
}

std::optional<global_metadata::bundled_directories_view>
unpack_directories(logger& lgr, global_metadata::Meta const& meta) {
  auto opts = meta.options();
  auto dep = meta.dir_entries();

  if ((!opts or !opts->packed_directories()) and
      (!dep or dir_has_self_entry(meta))) {
    return std::nullopt;
  }

  LOG_PROXY(debug_logger_policy, lgr);

  auto td = LOG_TIMED_DEBUG;

  auto dirent = *dep;
  auto metadir = meta.directories();

  std::vector<thrift::metadata::directory> directories;

  if (opts->packed_directories()) {
    directories.resize(metadir.size());

    // delta-decode first entries first
    {
      auto tt = LOG_TIMED_TRACE;

      directories[0].first_entry() = metadir[0].first_entry();

      for (size_t i = 1; i < directories.size(); ++i) {
        directories[i].first_entry() =
            directories[i - 1].first_entry().value() + metadir[i].first_entry();
      }

      tt << "delta-decoded " << directories.size() << " first entries";
    }

    // then traverse to recover parent entries
    {
      auto tt = LOG_TIMED_TRACE;

      std::queue<uint32_t> queue;
      queue.push(0);

      while (!queue.empty()) {
        auto parent = queue.front();
        queue.pop();

        auto p_ino = dirent[parent].inode_num();

        auto beg = directories[p_ino].first_entry().value();
        auto end = directories[p_ino + 1].first_entry().value();

        for (auto e = beg; e < end; ++e) {
          if (auto e_ino = dirent[e].inode_num();
              e_ino < (directories.size() - 1)) {
            directories[e_ino].parent_entry() = parent;
            queue.push(e);
          }
        }
      }

      tt << "recovered " << directories.size() << " parent entries";
    }
  } else {
    auto tt = LOG_TIMED_TRACE;

    directories = metadir.thaw();

    tt << "thawed " << directories.size() << " directories";
  }

  // finally, set self entries
  {
    auto tt = LOG_TIMED_TRACE;

    for (size_t i = 0; i < dirent.size(); ++i) {
      auto ino = dirent[i].inode_num();
      if (ino < directories.size()) {
        directories[ino].self_entry() = i;
      }
    }

    tt << "recoverd " << directories.size() << " self entries from "
       << dirent.size() << " dir entries";
  }

  // freeze to save memory
  auto view = [&] {
    auto tt = LOG_TIMED_TRACE;

    auto v = frozen::freeze(directories);

    tt << "froze " << directories.size() << " directories ("
       << size_with_unit(sizeof(thrift::metadata::directory) *
                         directories.size())
       << ")";

    return v;
  }();

  auto l_old = meta.findFirstOfType<
      std::unique_ptr<frozen::Layout<thrift::metadata::metadata>>>();
  auto bits_per_dir_old =
      (*l_old)->directoriesField.layout.itemField.layout.bits;
  auto l_new = view.findFirstOfType<std::unique_ptr<
      frozen::Layout<std::vector<thrift::metadata::directory>>>>();
  auto bits_per_dir_new = (*l_new)->itemField.layout.bits;

  td << "unpacked directories table with " << directories.size() << " entries ("
     << size_with_unit((bits_per_dir_old * directories.size() + 7) / 8)
     << " -> "
     << size_with_unit((bits_per_dir_new * directories.size() + 7) / 8) << ")";

  return view;
}

// TODO: merge with inode_rank in metadata_v2
int mode_rank(uint32_t mode) {
  switch (posix_file_type::from_mode(mode)) {
  case posix_file_type::directory:
    return 0;
  case posix_file_type::symlink:
    return 1;
  case posix_file_type::regular:
    return 2;
  case posix_file_type::block:
  case posix_file_type::character:
    return 3;
  default:
    return 4;
  }
}

void check_empty_tables(global_metadata::Meta const& meta) {
  if (meta.inodes().empty()) {
    DWARFS_THROW(runtime_error, "empty inodes table");
  }

  if (meta.directories().empty()) {
    DWARFS_THROW(runtime_error, "empty directories table");
  }

  if (meta.chunk_table().empty()) {
    DWARFS_THROW(runtime_error, "empty chunk_table table");
  }

  if (auto de = meta.dir_entries()) {
    if (de->empty()) {
      DWARFS_THROW(runtime_error, "empty dir_entries table");
    }
  } else {
    if (meta.entry_table_v2_2().empty()) {
      DWARFS_THROW(runtime_error, "empty entry_table_v2_2 table");
    }
  }

  if (meta.modes().empty()) {
    DWARFS_THROW(runtime_error, "empty modes table");
  }
}

void check_index_range(global_metadata::Meta const& meta) {
  auto const num_modes = meta.modes().size();
  auto const num_uids = meta.uids().size();
  auto const num_gids = meta.gids().size();
  auto num_names = meta.names().size();
  auto const num_inodes = meta.inodes().size();
  bool const v2_2 = !static_cast<bool>(meta.dir_entries());
  auto const max_names = v2_2 ? num_inodes : meta.dir_entries()->size();
  auto const max_inodes =
      v2_2 ? std::numeric_limits<uint32_t>::max() : meta.dir_entries()->size();

  if (num_modes > num_inodes) {
    DWARFS_THROW(runtime_error, fmt::format("invalid number of modes: {} > {}",
                                            num_modes, num_inodes));
  }

  if (num_uids > num_inodes) {
    DWARFS_THROW(runtime_error, fmt::format("invalid number of uids: {} > {}",
                                            num_uids, num_inodes));
  }

  if (num_gids > num_inodes) {
    DWARFS_THROW(runtime_error, fmt::format("invalid number of gids: {} > {}",
                                            num_gids, num_inodes));
  }

  if (num_names > max_names) {
    DWARFS_THROW(runtime_error, fmt::format("invalid number of names: {} > {}",
                                            num_names, max_names));
  }

  if (num_inodes > max_inodes) {
    DWARFS_THROW(runtime_error, fmt::format("invalid number of inodes: {} > {}",
                                            num_inodes, max_inodes));
  }

  for (auto ino : meta.inodes()) {
    if (ino.mode_index() >= num_modes) {
      DWARFS_THROW(runtime_error,
                   fmt::format("mode_index out of range: {} >= {}",
                               ino.mode_index(), num_modes));
    }
    // Special handling for legacy filesystems built with --set-owner
    // where num_uids == 0 is valid and owner_index is used to store
    // the uid.
    if (num_uids > 0) {
      if (auto i = ino.owner_index(); i >= num_uids) {
        DWARFS_THROW(
            runtime_error,
            fmt::format("owner_index out of range: {} >= {}", i, num_uids));
      }
    }
    // Special handling for legacy filesystems built with --set-group
    // where num_gids == 0 is valid and group_index is used to store
    // the gid.
    if (num_gids > 0) {
      if (auto i = ino.group_index(); i >= num_gids) {
        DWARFS_THROW(
            runtime_error,
            fmt::format("group_index out of range: {} >= {}", i, num_gids));
      }
    }
    if (v2_2) {
      if (auto i = ino.name_index_v2_2(); i >= num_names && i > 0) {
        DWARFS_THROW(runtime_error,
                     fmt::format("name_index_v2_2 out of range: {} >= {}", i,
                                 num_names));
      }
    }
  }

  if (auto dep = meta.dir_entries()) {
    if (dep->size() >= std::numeric_limits<uint32_t>::max()) {
      DWARFS_THROW(runtime_error,
                   fmt::format("invalid number of dir_entries: {} >= {}",
                               dep->size(),
                               std::numeric_limits<uint32_t>::max()));
    }

    if (auto cn = meta.compact_names()) {
      num_names = cn->index().size();
      if (!cn->packed_index()) {
        if (num_names == 0) {
          DWARFS_THROW(runtime_error, "empty compact_names index");
        }
        --num_names;
      }
    }

    for (auto de : *dep) {
      if (auto i = de.name_index(); i >= num_names && i > 0) {
        DWARFS_THROW(
            runtime_error,
            fmt::format("name_index out of range: {} >= {}", i, num_names));
      }
      if (auto i = de.inode_num(); i >= num_inodes) {
        DWARFS_THROW(
            runtime_error,
            fmt::format("inode_num out of range: {} >= {}", i, num_inodes));
      }
    }
  } else {
    if (meta.entry_table_v2_2().size() >=
        std::numeric_limits<uint32_t>::max()) {
      DWARFS_THROW(runtime_error,
                   fmt::format("invalid number of entries: {} >= {}",
                               meta.entry_table_v2_2().size(),
                               std::numeric_limits<uint32_t>::max()));
    }

    for (auto ent : meta.entry_table_v2_2()) {
      if (ent >= num_inodes) {
        DWARFS_THROW(
            runtime_error,
            fmt::format("entry_table_v2_2 value out of range: {} >= {}", ent,
                        num_inodes));
      }
    }
  }
}

void check_packed_tables(global_metadata::Meta const& meta) {
  auto const num_inodes = meta.inodes().size();

  if (meta.directories().size() > num_inodes + 1) {
    DWARFS_THROW(runtime_error,
                 fmt::format("invalid number of directories: {} > {}",
                             meta.directories().size(), num_inodes + 1));
  }

  // strictly, the chunk table can only one entry per regular file,
  // plus the sentinel entry at the end
  if (meta.chunk_table().size() > num_inodes) {
    DWARFS_THROW(runtime_error,
                 fmt::format("invalid number of chunk_table entries: {} > {}",
                             meta.chunk_table().size(), num_inodes));
  }

  if (auto opt = meta.options(); opt and opt->packed_directories()) {
    if (std::any_of(meta.directories().begin(), meta.directories().end(),
                    [](auto i) { return i.parent_entry() != 0; })) {
      DWARFS_THROW(runtime_error, "parent_entry set in packed directory");
    }
    if (std::any_of(meta.directories().begin(), meta.directories().end(),
                    [](auto i) { return i.self_entry() != 0; })) {
      DWARFS_THROW(runtime_error, "self_entry set in packed directory");
    }
    if (auto expected =
            std::accumulate(meta.directories().begin(),
                            meta.directories().end(), static_cast<size_t>(0),
                            [](auto n, auto d) { return n + d.first_entry(); });
        expected != meta.dir_entries()->size()) {
      DWARFS_THROW(
          runtime_error,
          fmt::format(
              "first_entry inconsistency in packed directories: {} != {}",
              expected, meta.dir_entries()->size()));
    }
  } else {
    size_t num_entries =
        meta.dir_entries() ? meta.dir_entries()->size() : meta.inodes().size();

    if (!std::is_sorted(
            meta.directories().begin(), meta.directories().end(),
            [](auto a, auto b) { return a.first_entry() < b.first_entry(); })) {
      DWARFS_THROW(runtime_error, "first_entry values not sorted");
    }

    auto const num_dirs = meta.directories().size();
    auto const has_self = dir_has_self_entry(meta);

    for (size_t i = 0; i < num_dirs; ++i) {
      bool const is_last = i == num_dirs - 1;
      auto const d = meta.directories()[i];
      auto const f = d.first_entry();
      auto const p = d.parent_entry();
      auto const s = d.self_entry();

      if (f > num_entries) {
        DWARFS_THROW(runtime_error,
                     fmt::format("[{}] first_entry out of range: {} > {}", i, f,
                                 num_entries));
      }

      if (s > num_entries) {
        DWARFS_THROW(runtime_error,
                     fmt::format("[{}] self_entry out of range: {} > {}", i, s,
                                 num_entries));
      }

      if (p >= num_entries) {
        DWARFS_THROW(runtime_error,
                     fmt::format("[{}] parent_entry out of range: {} >= {}", i,
                                 p, num_entries));
      }

      if (f == p) {
        DWARFS_THROW(runtime_error,
                     fmt::format("[{}] first_entry == parent_entry", i));
      }

      if (i == 0 || is_last) {
        if (p != 0) {
          DWARFS_THROW(
              runtime_error,
              fmt::format("[{}] parent_entry {} != 0 for root directory", i,
                          p));
        }
        if (has_self && s != 0) {
          DWARFS_THROW(
              runtime_error,
              fmt::format("[{}] self_entry {} != 0 for root directory", i, s));
        }
      } else if (has_self) {
        if (f == s) {
          DWARFS_THROW(runtime_error,
                       fmt::format("[{}] first_entry == self_entry", i));
        }

        if (s == p) {
          DWARFS_THROW(runtime_error,
                       fmt::format("[{}] self_entry == parent_entry", i));
        }
      }
    }
  }

  if (auto opt = meta.options(); opt and opt->packed_chunk_table()) {
    if (auto expected =
            std::accumulate(meta.chunk_table().begin(),
                            meta.chunk_table().end(), static_cast<size_t>(0));
        expected != meta.chunks().size()) {
      DWARFS_THROW(runtime_error,
                   fmt::format("packed chunk_table inconsistency: {} != {}",
                               expected, meta.chunks().size()));
    }
  } else {
    if (!std::is_sorted(meta.chunk_table().begin(), meta.chunk_table().end())) {
      DWARFS_THROW(runtime_error, "chunk_table values not sorted");
    }
    if (meta.chunk_table().back() != meta.chunks().size()) {
      DWARFS_THROW(runtime_error,
                   fmt::format("chunk_table end value mismatch: {} != {}",
                               meta.chunk_table().back(),
                               meta.chunks().size()));
    }
  }
}

void check_compact_strings(
    ::apache::thrift::frozen::View<thrift::metadata::string_table> v,
    size_t expected_num, size_t max_item_len, std::string const& what) {
  size_t index_size = v.index().size();

  if (!v.packed_index() && index_size > 0) {
    --index_size;
  }

  if (index_size != expected_num) {
    DWARFS_THROW(runtime_error,
                 fmt::format("unexpected number of compact {0}: {1} != {2}",
                             what, index_size, expected_num));
  }

  size_t expected_data_size = 0;
  size_t longest_item_len = 0;
  if (!v.index().empty()) {
    if (v.packed_index()) {
      expected_data_size =
          std::accumulate(v.index().begin(), v.index().end(), size_t{0});
      longest_item_len = *std::max_element(v.index().begin(), v.index().end());
    } else {
      auto idx = v.index();
      if (idx.front() != 0) {
        DWARFS_THROW(runtime_error,
                     fmt::format("invalid first compact {0} index: {1}", what,
                                 idx.front()));
      }
      if (!std::is_sorted(idx.begin(), idx.end())) {
        DWARFS_THROW(runtime_error,
                     fmt::format("compact {0} index not sorted", what));
      }
      expected_data_size = idx.back();
      // waiting for std::ranges::views::adjacent_transform...
      for (size_t i = 1; i < idx.size(); ++i) {
        longest_item_len =
            std::max<size_t>(longest_item_len, idx[i] - idx[i - 1]);
      }
    }
  }

  if (v.buffer().size() != expected_data_size) {
    DWARFS_THROW(runtime_error,
                 fmt::format("data size mismatch for compact {0}: {1} != {2}",
                             what, v.buffer().size(), expected_data_size));
  }

  if (longest_item_len > max_item_len) {
    DWARFS_THROW(runtime_error,
                 fmt::format("invalid item length in compact {0}: {1} > {2}",
                             what, longest_item_len, max_item_len));
  }
}

void check_plain_strings(
    ::apache::thrift::frozen::View<std::vector<std::string>> v,
    size_t expected_num, size_t max_item_len, std::string const& what) {
  if (v.size() != expected_num) {
    DWARFS_THROW(runtime_error,
                 fmt::format("unexpected number of {0}: {1} != {2}", what,
                             v.size(), expected_num));
  }

  size_t total_size = 0;

  for (auto s : v) {
    if (s.size() > max_item_len) {
      DWARFS_THROW(runtime_error,
                   fmt::format("invalid item length in {0}: {1} > {2}", what,
                               s.size(), max_item_len));
    }
    total_size += s.size();
  }

  if (!v.empty()) {
    auto expected = static_cast<size_t>(v.back().end() - v.front().begin());
    if (total_size != expected) {
      DWARFS_THROW(runtime_error,
                   fmt::format("unexpected data size in {0}: {1} != {2}", what,
                               total_size, expected));
    }
  }
}

void check_string_tables(global_metadata::Meta const& meta) {
  size_t expected_num_names = 0;
  if (auto dep = meta.dir_entries()) {
    if (dep->size() > 1) {
      expected_num_names =
          std::max_element(dep->begin(), dep->end(),
                           [](auto const& a, auto const& b) {
                             return a.name_index() < b.name_index();
                           })
              ->name_index() +
          1;
    }
  } else {
    if (meta.inodes().size() > 1) {
      expected_num_names =
          std::max_element(meta.inodes().begin(), meta.inodes().end(),
                           [](auto const& a, auto const& b) {
                             return a.name_index_v2_2() < b.name_index_v2_2();
                           })
              ->name_index_v2_2() +
          1;
    }
  }

  // max name length is usually 255, but fsst compression, in the worst
  // case, will use 2 bytes per input byte...
  constexpr size_t max_name_len = 512;
  constexpr size_t max_symlink_len = 4096;

  if (auto cn = meta.compact_names()) {
    if (!meta.names().empty()) {
      DWARFS_THROW(runtime_error,
                   "both compact and plain names tables populated");
    }
    check_compact_strings(*cn, expected_num_names, max_name_len, "names");
  } else {
    check_plain_strings(meta.names(), expected_num_names, max_name_len,
                        "names");
  }

  size_t num_symlink_strings = 0;
  if (!meta.symlink_table().empty()) {
    num_symlink_strings = *std::max_element(meta.symlink_table().begin(),
                                            meta.symlink_table().end()) +
                          1;
  }

  if (auto cs = meta.compact_symlinks()) {
    if (!meta.symlinks().empty()) {
      DWARFS_THROW(runtime_error,
                   "both compact and plain symlinks tables populated");
    }
    check_compact_strings(*cs, num_symlink_strings, max_symlink_len,
                          "symlink strings");
  } else {
    check_plain_strings(meta.symlinks(), num_symlink_strings, max_symlink_len,
                        "symlink strings");
  }
}

void check_chunks(global_metadata::Meta const& meta) {
  auto block_size = meta.block_size();

  if (!std::has_single_bit(block_size)) {
    DWARFS_THROW(runtime_error,
                 fmt::format("invalid block size: {}", block_size));
  }

  // chunks().size() is already covered by check_packed_tables()

  for (auto c : meta.chunks()) {
    if (c.offset() >= block_size) {
      DWARFS_THROW(runtime_error,
                   fmt::format("chunk offset out of range: {} >= {}",
                               c.offset(), block_size));
    }
    if (c.size() > block_size) {
      DWARFS_THROW(runtime_error,
                   fmt::format("chunk size out of range: {} > {}", c.size(),
                               block_size));
    }
    if (c.offset() + c.size() > block_size) {
      DWARFS_THROW(runtime_error,
                   fmt::format("chunk end outside of block: {} + {} > {}",
                               c.offset(), c.size(), block_size));
    }
  }
}

std::array<size_t, 6> check_partitioning(global_metadata::Meta const& meta) {
  std::array<size_t, 6> offsets;

  for (int r = 0; r < static_cast<int>(offsets.size()); ++r) {
    if (auto dep = meta.dir_entries()) {
      auto pred = [r, modes = meta.modes()](auto ino) {
        return mode_rank(modes[ino.mode_index()]) < r;
      };
      auto inodes = meta.inodes();

      if (!std::is_partitioned(inodes.begin(), inodes.end(), pred)) {
        DWARFS_THROW(runtime_error, "inode table is not partitioned");
      }

      offsets[r] = std::distance(
          inodes.begin(),
          std::partition_point(inodes.begin(), inodes.end(), pred));
    } else {
      auto pred = [r, modes = meta.modes(), inodes = meta.inodes()](auto ent) {
        return mode_rank(modes[inodes[ent].mode_index()]) < r;
      };
      auto entries = meta.entry_table_v2_2();

      if (!std::is_partitioned(entries.begin(), entries.end(), pred)) {
        DWARFS_THROW(runtime_error, "entry_table_v2_2 is not partitioned");
      }

      offsets[r] = std::distance(
          entries.begin(),
          std::partition_point(entries.begin(), entries.end(), pred));
    }
  }

  return offsets;
}

global_metadata::Meta const&
check_metadata(logger& lgr, global_metadata::Meta const& meta, bool check) {
  if (check) {
    LOG_PROXY(debug_logger_policy, lgr);

    auto ti = LOG_TIMED_DEBUG;

    ti << "check metadata consistency";

    check_empty_tables(meta);
    check_index_range(meta);
    check_packed_tables(meta);
    check_string_tables(meta);
    check_chunks(meta);
    auto offsets = check_partitioning(meta);

    auto num_dir = meta.directories().size() - 1;
    auto num_lnk = meta.symlink_table().size();
    auto num_reg_unique = meta.chunk_table().size() - 1;
    size_t num_reg_shared = 0;

    if (auto sfp = meta.shared_files_table()) {
      if (meta.options() and meta.options()->packed_shared_files_table()) {
        num_reg_shared =
            std::accumulate(sfp->begin(), sfp->end(), 2 * sfp->size());
        num_reg_unique -= sfp->size();
      } else {
        if (!std::is_sorted(sfp->begin(), sfp->end())) {
          DWARFS_THROW(runtime_error,
                       "unpacked shared_files_table is not sorted");
        }
        num_reg_shared = sfp->size();
        if (!sfp->empty()) {
          num_reg_unique -= sfp->back() + 1;
        }
      }
    }

    size_t num_dev = meta.devices() ? meta.devices()->size() : 0;

    if (num_dir != offsets[1]) {
      DWARFS_THROW(runtime_error,
                   fmt::format("wrong number of directories: {} != {}", num_dir,
                               offsets[1]));
    }

    if (num_lnk != offsets[2] - offsets[1]) {
      DWARFS_THROW(runtime_error,
                   fmt::format("wrong number of links: {} != {}", num_lnk,
                               offsets[2] - offsets[1]));
    }

    if (num_reg_unique + num_reg_shared != offsets[3] - offsets[2]) {
      DWARFS_THROW(runtime_error,
                   fmt::format("wrong number of files: {} + {} != {}",
                               num_reg_unique, num_reg_shared,
                               offsets[3] - offsets[2]));
    }

    if (num_dev != offsets[4] - offsets[3]) {
      DWARFS_THROW(runtime_error,
                   fmt::format("wrong number of devices: {} != {}", num_dev,
                               offsets[4] - offsets[3]));
    }

    if (!meta.dir_entries()) {
      for (auto ino : meta.inodes()) {
        auto mode = meta.modes()[ino.mode_index()];
        auto i = ino.inode_v2_2();
        int base = mode_rank(mode);

        if (i < offsets[base] ||
            (i >= offsets[base + 1] && i > offsets[base])) {
          DWARFS_THROW(runtime_error, "inode_v2_2 out of range");
        }
      }
    }
  }

  return meta; // NOLINT(bugprone-return-const-ref-from-parameter)
}

template <typename T>
T const& unbundled(frozen::Bundled<T> const& bundle) {
  return bundle;
}

} // namespace

global_metadata::global_metadata(logger& lgr, Meta const& meta)
    : meta_{meta}
    , bundled_directories_{unpack_directories(lgr, meta_)}
    , directories_{bundled_directories_ ? unbundled(*bundled_directories_)
                                        : meta_.directories()}
    , names_{meta_.compact_names()
                 ? string_table(lgr, "names", *meta_.compact_names())
                 : string_table(meta_.names())} {}

void global_metadata::check_consistency(logger& lgr, Meta const& meta) {
  check_metadata(lgr, meta, true);
}

void global_metadata::check_consistency(logger& lgr) const {
  check_consistency(lgr, meta_);
}

uint32_t global_metadata::first_dir_entry(uint32_t ino) const {
  return directories_[ino].first_entry();
}

uint32_t global_metadata::parent_dir_entry(uint32_t ino) const {
  return directories_[ino].parent_entry();
}

uint32_t global_metadata::self_dir_entry(uint32_t ino) const {
  if (!meta_.entry_table_v2_2().empty()) {
    return meta_.entry_table_v2_2()[ino];
  }

  return directories_[ino].self_entry();
}

auto global_metadata::bundled_directories() const
    -> std::optional<directories_view> {
  if (bundled_directories_) {
    return directories_;
  }
  return std::nullopt;
}

auto inode_view_impl::mode() const -> mode_type {
  assert(mode_index() < meta_->modes().size());
  return meta_->modes()[mode_index()];
}

auto inode_view_impl::mode_string() const -> std::string {
  return file_stat::mode_string(mode());
}

auto inode_view_impl::perm_string() const -> std::string {
  return file_stat::perm_string(mode());
}

auto inode_view_impl::getuid() const -> uid_type {
  auto uids = meta_->uids();
  auto ix = owner_index();
  if (!uids.empty()) {
    assert(ix < uids.size());
    return uids[ix];
  }
  // Releases up to and including 0.7.x, when using --set-owner, would store
  // the uid in the owner_index field and leave the uids table empty.
  return ix;
}

auto inode_view_impl::getgid() const -> gid_type {
  auto gids = meta_->gids();
  auto ix = group_index();
  if (!gids.empty()) {
    assert(ix < gids.size());
    return gids[ix];
  }
  // Releases up to and including 0.7.x, when using --set-group, would store
  // the gid in the group_index field and leave the gids table empty.
  return ix;
}

// TODO: pretty certain some of this stuff can be simplified

std::string dir_entry_view_impl::name() const {
  switch (g_.get_data()) {
  case entry_name_type::other:
    break;
  case entry_name_type::self:
    return ".";
  case entry_name_type::parent:
    return "..";
  }

  if (is_root()) {
    return {};
  }

  return v_ |
         match{
             [this](DirEntryView const& dev) {
               return g_->names()[dev.name_index()];
             },
             [this](InodeView const& iv) {
               return std::string(g_->meta().names()[iv.name_index_v2_2()]);
             },
         };
}

template <template <typename...> class Ctor>
auto dir_entry_view_impl::make_inode() const {
  return v_ |
         match{
             [this](DirEntryView const& dev) {
               return Ctor<inode_view_impl>()(
                   g_->meta().inodes()[dev.inode_num()], dev.inode_num(),
                   g_->meta());
             },
             [this](InodeView const& iv) {
               return Ctor<inode_view_impl>()(iv, iv.inode_v2_2(), g_->meta());
             },
         };
}

std::shared_ptr<inode_view_impl> dir_entry_view_impl::inode_shared() const {
  return make_inode<shared_ptr_ctor>();
}

inode_view_impl dir_entry_view_impl::inode() const {
  return make_inode<stack_ctor>();
}

bool dir_entry_view_impl::is_root() const {
  return v_ | match{
                  [](DirEntryView const& dev) { return dev.inode_num() == 0; },
                  [](InodeView const& iv) { return iv.inode_v2_2() == 0; },
              };
}

/**
 * We need a parent index if the dir_entry_view_impl is for a file. For
 * directories, the parent can be determined via the directory's
 * inode, but for files, this isn't possible.
 */

template <template <typename...> class Ctor>
auto dir_entry_view_impl::make_dir_entry_view(uint32_t self_index,
                                              uint32_t parent_index,
                                              global_metadata const& g,
                                              entry_name_type name_type) {
  auto& meta = g.meta();

  if (auto de = meta.dir_entries()) {
    DWARFS_CHECK(self_index < de->size(),
                 fmt::format("self_index out of range: {0} >= {1}", self_index,
                             de->size()));
    DWARFS_CHECK(parent_index < de->size(),
                 fmt::format("parent_index out of range: {0} >= {1}",
                             parent_index, de->size()));

    auto dev = (*de)[self_index];

    return Ctor<dir_entry_view_impl>()(dev, self_index, parent_index, g,
                                       name_type);
  }

  DWARFS_CHECK(self_index < meta.inodes().size(),
               fmt::format("self_index out of range: {0} >= {1}", self_index,
                           meta.inodes().size()));
  DWARFS_CHECK(parent_index < meta.inodes().size(),
               fmt::format("parent_index out of range: {0} >= {1}",
                           parent_index, meta.inodes().size()));

  auto iv = meta.inodes()[self_index];

  return Ctor<dir_entry_view_impl>()(iv, self_index, parent_index, g,
                                     name_type);
}

template <template <typename...> class Ctor>
auto dir_entry_view_impl::make_dir_entry_view(uint32_t self_index,
                                              global_metadata const& g,
                                              entry_name_type name_type) {
  auto& meta = g.meta();

  if (auto de = meta.dir_entries()) {
    DWARFS_CHECK(self_index < de->size(),
                 fmt::format("self_index out of range: {0} >= {1}", self_index,
                             de->size()));
    auto dev = (*de)[self_index];
    DWARFS_CHECK(dev.inode_num() < meta.directories().size(),
                 fmt::format("inode_num out of range: {0} >= {1}",
                             dev.inode_num(), meta.directories().size()));
    return Ctor<dir_entry_view_impl>()(
        dev, self_index, g.parent_dir_entry(dev.inode_num()), g, name_type);
  }

  DWARFS_CHECK(self_index < meta.inodes().size(),
               fmt::format("self_index out of range: {0} >= {1}", self_index,
                           meta.inodes().size()));
  auto iv = meta.inodes()[self_index];

  DWARFS_CHECK(iv.inode_v2_2() < meta.directories().size(),
               fmt::format("inode_v2_2 out of range: {0} >= {1}",
                           iv.inode_v2_2(), meta.directories().size()));
  return Ctor<dir_entry_view_impl>()(
      iv, self_index,
      meta.entry_table_v2_2()[meta.directories()[iv.inode_v2_2()]
                                  .parent_entry()],
      g, name_type);
}

std::shared_ptr<dir_entry_view_impl>
dir_entry_view_impl::from_dir_entry_index_shared(uint32_t self_index,
                                                 uint32_t parent_index,
                                                 global_metadata const& g,
                                                 entry_name_type name_type) {
  return make_dir_entry_view<shared_ptr_ctor>(self_index, parent_index, g,
                                              name_type);
}

std::shared_ptr<dir_entry_view_impl>
dir_entry_view_impl::from_dir_entry_index_shared(uint32_t self_index,
                                                 global_metadata const& g,
                                                 entry_name_type name_type) {
  return make_dir_entry_view<shared_ptr_ctor>(self_index, g, name_type);
}

dir_entry_view_impl
dir_entry_view_impl::from_dir_entry_index(uint32_t self_index,
                                          uint32_t parent_index,
                                          global_metadata const& g,
                                          entry_name_type name_type) {
  return make_dir_entry_view<stack_ctor>(self_index, parent_index, g,
                                         name_type);
}

dir_entry_view_impl
dir_entry_view_impl::from_dir_entry_index(uint32_t self_index,
                                          global_metadata const& g,
                                          entry_name_type name_type) {
  return make_dir_entry_view<stack_ctor>(self_index, g, name_type);
}

std::shared_ptr<dir_entry_view_impl> dir_entry_view_impl::parent() const {
  if (is_root()) {
    return nullptr;
  }

  return from_dir_entry_index_shared(parent_index_, *g_);
}

std::string
dir_entry_view_impl::name(uint32_t index, global_metadata const& g) {
  if (auto de = g.meta().dir_entries()) {
    DWARFS_CHECK(index < de->size(), "index out of range");
    auto dev = (*de)[index];
    return g.names()[dev.name_index()];
  }

  DWARFS_CHECK(index < g.meta().inodes().size(), "index out of range");
  auto iv = g.meta().inodes()[index];
  return std::string(g.meta().names()[iv.name_index_v2_2()]);
}

std::string dir_entry_view_impl::path() const {
  // paths in metadata are guaranteed to be valid UTF-8
  return u8string_to_string(fs_path().u8string());
}

std::string dir_entry_view_impl::unix_path() const {
  static constexpr char preferred =
      static_cast<char>(std::filesystem::path::preferred_separator);
  auto p = path();
  if constexpr (preferred != '/') {
    std::replace(p.begin(), p.end(), preferred, '/');
  }
  return p;
}

std::wstring dir_entry_view_impl::wpath() const { return fs_path().wstring(); }

std::filesystem::path dir_entry_view_impl::fs_path() const {
  std::filesystem::path p;
  append_to(p);
  return p;
}

void dir_entry_view_impl::append_to(std::filesystem::path& p) const {
  if (auto ev = parent()) {
    if (!ev->is_root()) {
      ev->append_to(p);
    }
  }
  if (!is_root()) {
    p /= string_to_u8string(name());
  }
}

} // namespace dwarfs::reader::internal
