/* SPDX-FileCopyrightText: 2001-2002 NaN Holding BV. All rights reserved.
 *
 * SPDX-License-Identifier: GPL-2.0-or-later */

/** \file
 * \ingroup bke
 *
 * Contains management of #Main database itself.
 */

#include <cstring>
#include <iostream>

#include "CLG_log.h"

#include "MEM_guardedalloc.h"

#include "BLI_ghash.h"
#include "BLI_listbase.h"
#include "BLI_map.hh"
#include "BLI_mempool.h"
#include "BLI_path_utils.hh"
#include "BLI_string.h"
#include "BLI_threads.h"
#include "BLI_vector.hh"

#include "DNA_ID.h"

#include "BKE_bpath.hh"
#include "BKE_global.hh"
#include "BKE_idtype.hh"
#include "BKE_lib_id.hh"
#include "BKE_lib_query.hh"
#include "BKE_lib_remap.hh"
#include "BKE_library.hh"
#include "BKE_main.hh"
#include "BKE_main_idmap.hh"
#include "BKE_main_namemap.hh"
#include "BKE_report.hh"

#include "IMB_colormanagement.hh"
#include "IMB_imbuf.hh"
#include "IMB_imbuf_types.hh"

namespace blender {

using namespace blender::bke;

static CLG_LogRef LOG = {"lib.main"};

Main::Main()
{
  SpinLock *main_lock = MEM_new_uninitialized<SpinLock>("main lock");
  BLI_spin_init(main_lock);
  /* Use C-style cast to workaround an issue casting away volatile for builds without TBB. */
  this->lock = (MainLock *)main_lock;

  /* Just rebuilding the Action Slot to ID* map once is likely cheaper than,
   * for every ID, when it's loaded from disk, check whether it's animated or
   * not, and then figure out which Main it went into, and then set the flag. */
  this->is_action_slot_to_id_map_dirty = true;
}

Main::~Main()
{
  /* In case this is called on a 'split-by-libraries' list of mains.
   *
   * Should not happen in typical usages, but can occur e.g. if a file reading is aborted. */
  if (this->split_mains) {
    for (Main *main_it : *this->split_mains) {
      if (main_it == this) {
        continue;
      }
      main_it->split_mains.reset();
      MEM_delete(main_it);
    }
  }

  /* Include this check here as the path may be manipulated after creation. */
  BLI_assert_msg(!(this->filepath[0] == '/' && this->filepath[1] == '/'),
                 "'.blend' relative \"//\" must not be used in Main!");

  BKE_main_clear(*this);

  BLI_spin_end(reinterpret_cast<SpinLock *>(this->lock));
  /* The void cast is needed when building without TBB. */
  MEM_delete_void((void *)reinterpret_cast<SpinLock *>(this->lock));
  this->lock = nullptr;
}

Main *BKE_main_new()
{
  Main *bmain = MEM_new<Main>(__func__);
  IMB_colormanagement_working_space_init_default(bmain);
  return bmain;
}

void BKE_main_init_from_reference(Main &bmain, const Main &reference)
{
  STRNCPY(bmain.filepath, reference.filepath);
  bmain.colorspace = reference.colorspace;
}

void BKE_main_clear(Main &bmain)
{
  /* Also call when reading a file, erase all, etc */

  /* Since we are removing whole main, no need to bother 'properly' (and slowly) removing each ID
   * from it. */
  const int free_flag = (LIB_ID_FREE_NO_MAIN | LIB_ID_FREE_NO_UI_USER |
                         LIB_ID_FREE_NO_USER_REFCOUNT | LIB_ID_FREE_NO_DEG_TAG);

  MEM_SAFE_DELETE(bmain.blen_thumb);

  MainListsArray lbarray = BKE_main_lists_get(bmain);
  int a = lbarray.size();
  while (a--) {
    ListBaseT<ID> *lb = lbarray[a];
    ID *id, *id_next;

    for (id = static_cast<ID *>(lb->first); id != nullptr; id = id_next) {
      id_next = static_cast<ID *>(id->next);
#if 1
      BKE_id_free_ex(&bmain, id, free_flag, false);
#else
      /* Errors freeing ID's can be hard to track down,
       * enable this so VALGRIND or ASAN will give the line number in its error log. */

#  define CASE_ID_INDEX(id_index) \
    case id_index: \
      BKE_id_free_ex(&bmain, id, free_flag, false); \
      break

      switch ((eID_Index)a) {
        CASE_ID_INDEX(INDEX_ID_LI);
        CASE_ID_INDEX(INDEX_ID_AC);
        CASE_ID_INDEX(INDEX_ID_GD_LEGACY);
        CASE_ID_INDEX(INDEX_ID_NT);
        CASE_ID_INDEX(INDEX_ID_VF);
        CASE_ID_INDEX(INDEX_ID_TXT);
        CASE_ID_INDEX(INDEX_ID_SO);
        CASE_ID_INDEX(INDEX_ID_MSK);
        CASE_ID_INDEX(INDEX_ID_IM);
        CASE_ID_INDEX(INDEX_ID_MC);
        CASE_ID_INDEX(INDEX_ID_TE);
        CASE_ID_INDEX(INDEX_ID_MA);
        CASE_ID_INDEX(INDEX_ID_LS);
        CASE_ID_INDEX(INDEX_ID_WO);
        CASE_ID_INDEX(INDEX_ID_CF);
        CASE_ID_INDEX(INDEX_ID_SIM);
        CASE_ID_INDEX(INDEX_ID_PA);
        CASE_ID_INDEX(INDEX_ID_KE);
        CASE_ID_INDEX(INDEX_ID_AR);
        CASE_ID_INDEX(INDEX_ID_ME);
        CASE_ID_INDEX(INDEX_ID_CU_LEGACY);
        CASE_ID_INDEX(INDEX_ID_MB);
        CASE_ID_INDEX(INDEX_ID_CV);
        CASE_ID_INDEX(INDEX_ID_PT);
        CASE_ID_INDEX(INDEX_ID_VO);
        CASE_ID_INDEX(INDEX_ID_LT);
        CASE_ID_INDEX(INDEX_ID_LA);
        CASE_ID_INDEX(INDEX_ID_CA);
        CASE_ID_INDEX(INDEX_ID_SPK);
        CASE_ID_INDEX(INDEX_ID_LP);
        CASE_ID_INDEX(INDEX_ID_OB);
        CASE_ID_INDEX(INDEX_ID_GR);
        CASE_ID_INDEX(INDEX_ID_PAL);
        CASE_ID_INDEX(INDEX_ID_PC);
        CASE_ID_INDEX(INDEX_ID_BR);
        CASE_ID_INDEX(INDEX_ID_SCE);
        CASE_ID_INDEX(INDEX_ID_SCR);
        CASE_ID_INDEX(INDEX_ID_WS);
        CASE_ID_INDEX(INDEX_ID_WM);
        case INDEX_ID_NULL: {
          BLI_assert_unreachable();
          break;
        }
      }

#  undef CASE_ID_INDEX

#endif
    }
    lb->clear_no_delete();
  }

  if (bmain.relations) {
    BKE_main_relations_free(&bmain);
  }

  if (bmain.id_map) {
    BKE_main_idmap_destroy(bmain.id_map);
  }

  /* NOTE: `name_map` in libraries are freed together with the library IDs above. */
  BKE_main_namemap_destroy(&bmain.name_map);
  BKE_main_namemap_destroy(&bmain.name_map_global);
}

void BKE_main_free(Main *bmain)
{
  MEM_delete(bmain);
}

static bool are_ids_from_different_mains_matching(Main *bmain_1, ID *id_1, Main *bmain_2, ID *id_2)
{
  /* Both IDs should not be null at the same time.
   *
   * NOTE: E.g. `id_1` may be null, in case `id_2` is a Library ID which path is the filepath of
   * `bmain_1`. */
  BLI_assert(id_1 || id_2);

  /* Special handling for libraries, since their filepaths is used then, not their ID names.
   *
   * NOTE: In library case, this call should always return true, since given data should always
   * match. The asserts below merely ensure that expected conditions are always met:
   *   - A given library absolute filepath should never match its own bmain filepath.
   *   - If both given libraries are non-null:
   *     - Their absolute filepath should match.
   *     - Neither of their absolute filepaths should match any of the bmain filepaths.
   *   - If one of the library is null:
   *      - The other library should match the bmain filepath of the null library. */
  if ((!id_1 && GS(id_2->name) == ID_LI) || GS(id_1->name) == ID_LI) {
    BLI_assert(!id_1 || !ID_IS_LINKED(id_1));
    BLI_assert(!id_2 || !ID_IS_LINKED(id_2));

    Library *lib_1 = reinterpret_cast<Library *>(id_1);
    Library *lib_2 = reinterpret_cast<Library *>(id_2);

    if (lib_1 && lib_2) {
      BLI_assert(STREQ(lib_1->runtime->filepath_abs, lib_2->runtime->filepath_abs));
    }
    if (lib_1) {
      BLI_assert(!STREQ(lib_1->runtime->filepath_abs, bmain_1->filepath));
      if (lib_2) {
        BLI_assert(!STREQ(lib_1->runtime->filepath_abs, bmain_2->filepath));
      }
      else {
        BLI_assert(STREQ(lib_1->runtime->filepath_abs, bmain_2->filepath));
      }
    }
    if (lib_2) {
      BLI_assert(!STREQ(lib_2->runtime->filepath_abs, bmain_2->filepath));
      if (lib_1) {
        BLI_assert(!STREQ(lib_2->runtime->filepath_abs, bmain_1->filepath));
      }
      else {
        BLI_assert(STREQ(lib_2->runtime->filepath_abs, bmain_1->filepath));
      }
    }

    return true;
  }

  /* Now both IDs are expected to be valid data, and caller is expected to have ensured already
   * that they have the same name. */
  BLI_assert(id_1 && id_2);
  BLI_assert(STREQ(id_1->name, id_2->name));

  if (!id_1->lib && !id_2->lib) {
    return true;
  }

  /* Linked packed IDs only match with other packed IDs, and only if their deep-hashes are
   * identical. */
  if (ID_IS_PACKED(id_1) && ID_IS_PACKED(id_2)) {
    BLI_assert_msg(false, "No packed ID should be passed to this function currently.");
    return (id_1->deep_hash == id_2->deep_hash);
  }
  if (ID_IS_PACKED(id_1) || ID_IS_PACKED(id_2)) {
    BLI_assert_msg(false, "No packed ID should be passed to this function currently.");
    return false;
  }

  if (id_1->lib && id_2->lib) {
    if (id_1->lib == id_2->lib) {
      return true;
    }
    if (STREQ(id_1->lib->runtime->filepath_abs, id_2->lib->runtime->filepath_abs)) {
      return true;
    }
    return false;
  }

  /* In case one Main is the library of the ID from the other Main. */

  if (id_1->lib) {
    if (STREQ(id_1->lib->runtime->filepath_abs, bmain_2->filepath)) {
      return true;
    }
    return false;
  }

  if (id_2->lib) {
    if (STREQ(id_2->lib->runtime->filepath_abs, bmain_1->filepath)) {
      return true;
    }
    return false;
  }

  BLI_assert_unreachable();
  return false;
}

static void main_merge_add_id_to_move(Main *bmain_dst,
                                      Map<std::string, Vector<ID *>> &id_map_dst,
                                      ID *id_src,
                                      id::IDRemapper &id_remapper,
                                      Vector<ID *> &ids_to_move,
                                      const bool is_library,
                                      MainMergeReport &reports)
{
  const bool is_id_src_linked = ID_IS_LINKED(id_src);
  bool is_id_src_from_bmain_dst = false;
  if (is_id_src_linked) {
    BLI_assert(!is_library);
    Library *ref_src_library = ID_IS_PACKED(id_src) ? id_src->lib->archive_parent_library :
                                                      id_src->lib;
    BLI_assert((ref_src_library->flag & LIBRARY_FLAG_IS_ARCHIVE) == 0);
    Vector<ID *> id_src_lib_dst = id_map_dst.lookup_default(ref_src_library->runtime->filepath_abs,
                                                            {});
    /* The current library of the source ID would be remapped to null, which means that it comes
     * from the destination Main. */
    is_id_src_from_bmain_dst = !id_src_lib_dst.is_empty() && !id_src_lib_dst[0];
  }
  CLOG_DEBUG(&LOG, "ID '%s' is linked from dst Main: %d", id_src->name, is_id_src_from_bmain_dst);

  if (is_id_src_from_bmain_dst) {
    /* Do not move an ID supposed to be from `bmain_dst` (used as library in `bmain_src`) into
     * `bmain_src`. Fact that no match was found is worth a warning, although it could happen
     * e.g. in case `bmain_dst` has been updated since it file was loaded as library in
     * `bmain_src`. */
    CLOG_WARN(&LOG,
              "ID '%s' defined in source Main as linked from destination Main (file '%s'), but "
              "not found in given destination Main, will be skipped",
              id_src->name,
              bmain_dst->filepath);
    id_remapper.add(id_src, nullptr);
    reports.num_unknown_ids++;
  }
  else {
    if (is_library) {
      /* Archive libraries are never moved.
       * When moved, regular libraries need to see their vector of owned archive libraries cleared,
       * since these will remain in the source Main. */
      Library *lib_src = id_cast<Library *>(id_src);
      BLI_assert((lib_src->flag & LIBRARY_FLAG_IS_ARCHIVE) == 0);
      lib_src->runtime->archived_libraries.clear();
      /* Libraries should be added to destination Main before any other ID, to ensure that
       * potential packed IDs can find the required owner 'regular' library for their archive
       * library containers. */
      ids_to_move.prepend(id_src);
    }
    else {
      ids_to_move.append(id_src);
    }
  }
}

void BKE_main_merge(Main *bmain_dst,
                    Set<ID *> *force_merge_src_ids,
                    Main **r_bmain_src,
                    MainMergeReport &reports)
{
  Main *bmain_src = *r_bmain_src;
  /* NOTE: Dedicated mapping type is needed here, to handle properly the library cases. */
  Map<std::string, Vector<ID *>> id_map_dst;
  /* Packed IDs are only matched by their deep hashes, and can only match with other packed IDS, so
   * they have their own dedicated mapping. */
  Map<IDHash, ID *> id_packed_map_dst;
  ID *id_iter_dst, *id_iter_src;
  FOREACH_MAIN_ID_BEGIN (bmain_dst, id_iter_dst) {
    if (GS(id_iter_dst->name) == ID_LI) {
      /* Libraries need specific handling, as we want to check them by their filepath, not the IDs
       * themselves. */
      Library *lib_dst = reinterpret_cast<Library *>(id_iter_dst);
      if (lib_dst->flag & LIBRARY_FLAG_IS_ARCHIVE) {
        /* Archive libraries are never merged per-se, since they are only 'namespace' containers
         * for packed linked data. Existing matching archive libraries will be re-used for packed
         * IDs in the destination Main, or new ones will be created as needed. */
        BLI_assert(lib_dst->archive_parent_library);
        continue;
      }
      BLI_assert(!id_map_dst.contains(lib_dst->runtime->filepath_abs));
      id_map_dst.add(lib_dst->runtime->filepath_abs, {id_iter_dst});
    }
    else if (ID_IS_PACKED(id_iter_dst)) {
      BLI_assert(!id_packed_map_dst.contains(id_iter_dst->deep_hash));
      id_packed_map_dst.add_new(id_iter_dst->deep_hash, id_iter_dst);
    }
    else {
      id_map_dst.lookup_or_add(id_iter_dst->name, {}).append(id_iter_dst);
    }
  }
  FOREACH_MAIN_ID_END;
  /* Add the current `bmain_dst` filepath in the mapping as well, as it may be a library of the
   * `bmain_src` Main. */
  id_map_dst.add(bmain_dst->filepath, {nullptr});

  /* A dedicated remapper for libraries is needed because these need to be remapped _before_ IDs
   * are moved from `bmain_src` to `bmain_dst`, to avoid having to fix naming and ordering of IDs
   * afterwards (especially in case some source linked IDs become local in `bmain_dst`). */
  id::IDRemapper id_remapper;
  id::IDRemapper id_remapper_libraries;
  Vector<ID *> ids_to_move;

  FOREACH_MAIN_ID_BEGIN (bmain_src, id_iter_src) {
    const bool is_library = GS(id_iter_src->name) == ID_LI;
    const bool is_packed = ID_IS_PACKED(id_iter_src);
    BLI_assert(!is_packed || !is_library);
    BLI_assert(!is_library || !ID_IS_LINKED(id_iter_src));
    BLI_assert(!is_packed || ID_IS_LINKED(id_iter_src));

    if (is_library) {
      Library *lib_src = reinterpret_cast<Library *>(id_iter_src);
      if (lib_src->flag & LIBRARY_FLAG_IS_ARCHIVE) {
        BLI_assert(lib_src->archive_parent_library);
        continue;
      }
    }

    if (is_packed) {
      ID *id_packed_dst = id_packed_map_dst.lookup_default(id_iter_src->deep_hash, nullptr);
      if (id_packed_dst) {
        id_remapper.add(id_iter_src, id_packed_dst);
        reports.num_remapped_ids++;
      }
      else {
        main_merge_add_id_to_move(
            bmain_dst, id_map_dst, id_iter_src, id_remapper, ids_to_move, is_library, reports);
      }
    }
    else {
      Vector<ID *> ids_dst = id_map_dst.lookup_default(
          is_library ? reinterpret_cast<Library *>(id_iter_src)->runtime->filepath_abs :
                       id_iter_src->name,
          {});
      if (is_library) {
        BLI_assert(ids_dst.size() <= 1);
      }
      if (ids_dst.is_empty()) {
        main_merge_add_id_to_move(
            bmain_dst, id_map_dst, id_iter_src, id_remapper, ids_to_move, is_library, reports);
        continue;
      }

      bool src_has_match_in_dst = false;
      /* Never try to find a matching ID in destination Main if the source ID is forced to be
       * merged. */
      if (!force_merge_src_ids || !force_merge_src_ids->contains(id_iter_src)) {
        for (ID *id_iter_dst : ids_dst) {
          if (are_ids_from_different_mains_matching(
                  bmain_dst, id_iter_dst, bmain_src, id_iter_src))
          {
            /* There should only ever be one potential match, never more. */
            BLI_assert(!src_has_match_in_dst);
            if (!src_has_match_in_dst) {
              if (is_library) {
                id_remapper_libraries.add(id_iter_src, id_iter_dst);
                reports.num_remapped_libraries++;
              }
              else {
                id_remapper.add(id_iter_src, id_iter_dst);
                reports.num_remapped_ids++;
              }
              src_has_match_in_dst = true;
            }
#ifdef NDEBUG /* In DEBUG builds, keep looping to ensure there is only one match. */
            break;
#endif
          }
        }
      }
      if (!src_has_match_in_dst) {
        main_merge_add_id_to_move(
            bmain_dst, id_map_dst, id_iter_src, id_remapper, ids_to_move, is_library, reports);
      }
    }
  }
  FOREACH_MAIN_ID_END;

  reports.num_merged_ids = int(ids_to_move.size());

  /* Rebase relative filepaths in `bmain_src` using `bmain_dst` path as new reference, or make them
   * absolute if destination bmain has no filepath. */
  if (bmain_src->filepath[0] != '\0') {
    char dir_src[FILE_MAXDIR];
    BLI_path_split_dir_part(bmain_src->filepath, dir_src, sizeof(dir_src));
    BLI_path_normalize_native(dir_src);

    if (bmain_dst->filepath[0] != '\0') {
      char dir_dst[FILE_MAXDIR];
      BLI_path_split_dir_part(bmain_dst->filepath, dir_dst, sizeof(dir_dst));
      BLI_path_normalize_native(dir_dst);
      BKE_bpath_relative_rebase(bmain_src, dir_src, dir_dst, reports.reports);
    }
    else {
      BKE_bpath_absolute_convert(bmain_src, dir_src, reports.reports);
    }
  }

  for (ID *id_iter_src : ids_to_move) {
    BKE_libblock_management_main_remove(bmain_src, id_iter_src);
    if (ID_IS_PACKED(id_iter_src)) {
      /* Set the packed ID's library back to the regular library, so that the call to
       * #BKE_libblock_management_main_add() later in that function can select or create a suitable
       * archive library for it in `bmain_dst`. */
      id_iter_src->lib = id_iter_src->lib->archive_parent_library;
    }
    /* Libraries need to be remapped:
     *  - _After_ removing IDs from the old source Main, to ensure that they get properly removed
     *    from the expected namemap.
     *  - _Before_ moving them into `bmain_dst`, to ensure that the sorting of inserted IDs is
     *    correct. */
    if (ID_IS_LINKED(id_iter_src)) {
      /* Note that no bmain is given here, so this is only a 'raw' remapping. */
      BKE_libblock_relink_multiple(nullptr,
                                   Span(&id_iter_src, 1),
                                   ID_REMAP_TYPE_REMAP,
                                   id_remapper_libraries,
                                   ID_REMAP_DO_LIBRARY_POINTERS);
      BLI_assert(id_iter_src->lib);
    }
  }

  /* Adding back the IDs into the destination Main needs to be done in a separate loop. The main
   * reason is again the name-maps of libraries (for linked IDs).
   *
   * Since libraries are also moved from old to new Main, getting their name-map 'randomly' built
   * when their first linked ID is moved can lead to it missing some ID names, and other validity
   * issues.
   *
   * See also https://projects.blender.org/blender/blender/pulls/150355#issuecomment-1808744 for a
   * reproducible case. */
  for (ID *id_iter_src : ids_to_move) {
    BLI_assert((id_iter_src->tag & ID_TAG_NO_MAIN) != 0);
    BKE_libblock_management_main_add(bmain_dst, id_iter_src);
  }

  /* The other data has to be remapped once all IDs are in `bmain_dst`, to ensure that additional
   * update process (e.g. collection hierarchy handling) happens as expected with the correct set
   * of data. */
  BKE_libblock_relink_multiple(bmain_dst, ids_to_move, ID_REMAP_TYPE_REMAP, id_remapper, 0);

  BKE_reportf(
      reports.reports,
      RPT_INFO,
      "Merged %d IDs from '%s' Main into '%s' Main; %d IDs and %d Libraries already existed as "
      "part of the destination Main, and %d IDs missing from destination Main, were freed "
      "together with the source Main",
      reports.num_merged_ids,
      bmain_src->filepath,
      bmain_dst->filepath,
      reports.num_remapped_ids,
      reports.num_remapped_libraries,
      reports.num_unknown_ids);

  /* Remapping above may have made some IDs local. So namemap needs to be cleared, and moved IDs
   * need to be re-sorted. */
  BKE_main_namemap_clear(*bmain_dst);

  BLI_assert(BKE_main_namemap_validate(*bmain_dst));

  BKE_main_free(bmain_src);
  *r_bmain_src = nullptr;
}

void BKE_main_merge(Main *bmain_dst, Main **r_bmain_src, MainMergeReport &reports)
{
  BKE_main_merge(bmain_dst, nullptr, r_bmain_src, reports);
}

bool BKE_main_is_empty(Main *bmain)
{
  bool result = true;
  ID *id_iter;
  FOREACH_MAIN_ID_BEGIN (bmain, id_iter) {
    result = false;
    break;
  }
  FOREACH_MAIN_ID_END;
  return result;
}

bool BKE_main_has_issues(const Main *bmain)
{
  return bmain->has_forward_compatibility_issues || bmain->is_asset_edit_file ||
         bmain->colorspace.is_missing_opencolorio_config;
}

bool BKE_main_needs_overwrite_confirm(const Main *bmain)
{
  return bmain->has_forward_compatibility_issues || bmain->is_asset_edit_file ||
         bmain->colorspace.is_missing_opencolorio_config;
}

void BKE_main_lock(Main *bmain)
{
  BLI_spin_lock(reinterpret_cast<SpinLock *>(bmain->lock));
}

void BKE_main_unlock(Main *bmain)
{
  BLI_spin_unlock(reinterpret_cast<SpinLock *>(bmain->lock));
}

static int main_relations_create_idlink_cb(LibraryIDLinkCallbackData *cb_data)
{
  MainIDRelations *bmain_relations = static_cast<MainIDRelations *>(cb_data->user_data);
  ID *self_id = cb_data->self_id;
  ID **id_pointer = cb_data->id_pointer;
  const LibraryForeachIDCallbackFlag cb_flag = cb_data->cb_flag;

  if (*id_pointer) {

    /* Add `id_pointer` as child of `self_id`. */
    {
      MainIDRelationsEntry *entry = bmain_relations->relations_from_pointers->lookup_or_add_cb(
          self_id, [&]() {
            auto *entry = MEM_new_zeroed<MainIDRelationsEntry>(__func__);
            entry->session_uid = self_id->session_uid;
            return entry;
          });
      BLI_assert(entry->session_uid == self_id->session_uid);
      MainIDRelationsEntryItem *to_id_entry = static_cast<MainIDRelationsEntryItem *>(
          BLI_mempool_alloc(bmain_relations->entry_items_pool));
      to_id_entry->next = entry->to_ids;
      to_id_entry->id_pointer.to = *id_pointer;
      to_id_entry->session_uid = (*id_pointer != nullptr) ? (*id_pointer)->session_uid :
                                                            MAIN_ID_SESSION_UID_UNSET;
      to_id_entry->usage_flag = cb_flag;
      entry->to_ids = to_id_entry;
    }

    /* Add `self_id` as parent of `id_pointer`. */
    if (*id_pointer != nullptr) {
      MainIDRelationsEntry *entry = bmain_relations->relations_from_pointers->lookup_or_add_cb(
          *id_pointer, [&]() {
            auto *entry = MEM_new_zeroed<MainIDRelationsEntry>(__func__);
            entry->session_uid = (*id_pointer)->session_uid;
            return entry;
          });
      BLI_assert(entry->session_uid == (*id_pointer)->session_uid);
      MainIDRelationsEntryItem *from_id_entry = static_cast<MainIDRelationsEntryItem *>(
          BLI_mempool_alloc(bmain_relations->entry_items_pool));
      from_id_entry->next = entry->from_ids;
      from_id_entry->id_pointer.from = self_id;
      from_id_entry->session_uid = self_id->session_uid;
      from_id_entry->usage_flag = cb_flag;
      entry->from_ids = from_id_entry;
    }
  }

  return IDWALK_RET_NOP;
}

void BKE_main_relations_create(Main *bmain, const short flag)
{
  if (bmain->relations != nullptr) {
    BKE_main_relations_free(bmain);
  }

  bmain->relations = MEM_new_uninitialized<MainIDRelations>(__func__);
  bmain->relations->relations_from_pointers = MEM_new<Map<const ID *, MainIDRelationsEntry *>>(
      __func__);
  bmain->relations->entry_items_pool = BLI_mempool_create(
      sizeof(MainIDRelationsEntryItem), 128, 128, BLI_MEMPOOL_NOP);

  bmain->relations->flag = flag;

  ID *id;
  FOREACH_MAIN_ID_BEGIN (bmain, id) {
    const LibraryForeachIDFlag idwalk_flag = IDWALK_READONLY |
                                             ((flag & MAINIDRELATIONS_INCLUDE_UI) != 0 ?
                                                  IDWALK_INCLUDE_UI :
                                                  IDWALK_NOP);

    /* Ensure all IDs do have an entry, even if they are not connected to any other. */
    MainIDRelationsEntry *entry = bmain->relations->relations_from_pointers->lookup_or_add_cb(
        id, [&]() {
          auto *entry = MEM_new_zeroed<MainIDRelationsEntry>(__func__);
          entry->session_uid = id->session_uid;
          return entry;
        });
    BLI_assert(entry->session_uid == id->session_uid);
    UNUSED_VARS_NDEBUG(entry);

    BKE_library_foreach_ID_link(
        nullptr, id, main_relations_create_idlink_cb, bmain->relations, idwalk_flag);
  }
  FOREACH_MAIN_ID_END;
}

void BKE_main_relations_free(Main *bmain)
{
  if (bmain->relations != nullptr) {
    for (MainIDRelationsEntry *entry : bmain->relations->relations_from_pointers->values()) {
      MEM_delete(entry);
    }
    MEM_delete(bmain->relations->relations_from_pointers);
    BLI_mempool_destroy(bmain->relations->entry_items_pool);
    MEM_delete(bmain->relations);
    bmain->relations = nullptr;
  }
}

void BKE_main_relations_tag_set(Main *bmain, const eMainIDRelationsEntryTags tag, const bool value)
{
  if (bmain->relations == nullptr) {
    return;
  }
  for (MainIDRelationsEntry *entry : bmain->relations->relations_from_pointers->values()) {
    if (value) {
      entry->tags |= tag;
    }
    else {
      entry->tags &= ~tag;
    }
  }
}

Set<const ID *> *BKE_main_set_create(Main *bmain, Set<const ID *> *set)
{
  if (set == nullptr) {
    set = MEM_new<Set<const ID *>>(__func__);
  }

  ID *id;
  FOREACH_MAIN_ID_BEGIN (bmain, id) {
    set->add(id);
  }
  FOREACH_MAIN_ID_END;
  return set;
}

/* Utils for ID's library weak reference API. */
struct LibWeakRefKey {
  char filepath[FILE_MAX];
  char id_name[MAX_ID_NAME];

  LibWeakRefKey(const char *lib_path, const char *id_name)
  {
    STRNCPY(this->filepath, lib_path);
    STRNCPY(this->id_name, id_name);
  }

  friend bool operator==(const LibWeakRefKey &a, const LibWeakRefKey &b)
  {
    return STREQ(a.filepath, b.filepath) && STREQ(a.id_name, b.id_name);
  }

  uint64_t hash() const
  {
    return get_default_hash(StringRef(this->filepath), StringRef(this->id_name));
  }
};

struct MainLibraryWeakReferenceMap {
  Map<LibWeakRefKey, ID *> map;
};

MainLibraryWeakReferenceMap *BKE_main_library_weak_reference_create(Main *bmain)
{
  auto *library_weak_reference_mapping = MEM_new<MainLibraryWeakReferenceMap>(__func__);

  ListBaseT<ID> *lb;
  FOREACH_MAIN_LISTBASE_BEGIN (bmain, lb) {
    ID *id_iter = static_cast<ID *>(lb->first);
    if (id_iter == nullptr) {
      continue;
    }
    if (!BKE_idtype_idcode_append_is_reusable(GS(id_iter->name))) {
      continue;
    }
    BLI_assert(BKE_idtype_idcode_is_linkable(GS(id_iter->name)));

    FOREACH_MAIN_LISTBASE_ID_BEGIN (lb, id_iter) {
      if (id_iter->library_weak_reference == nullptr) {
        continue;
      }
      const LibWeakRefKey key{id_iter->library_weak_reference->library_filepath,
                              id_iter->library_weak_reference->library_id_name};
      library_weak_reference_mapping->map.add(key, id_iter);
    }
    FOREACH_MAIN_LISTBASE_ID_END;
  }
  FOREACH_MAIN_LISTBASE_END;

  return library_weak_reference_mapping;
}

void BKE_main_library_weak_reference_destroy(
    MainLibraryWeakReferenceMap *library_weak_reference_mapping)
{
  MEM_delete(library_weak_reference_mapping);
}

ID *BKE_main_library_weak_reference_search_item(
    MainLibraryWeakReferenceMap *library_weak_reference_mapping,
    const char *library_filepath,
    const char *library_id_name)
{
  const LibWeakRefKey key{library_filepath, library_id_name};
  return library_weak_reference_mapping->map.lookup_default(key, nullptr);
}

void BKE_main_library_weak_reference_add_item(
    MainLibraryWeakReferenceMap *library_weak_reference_mapping,
    const char *library_filepath,
    const char *library_id_name,
    ID *new_id)
{
  BLI_assert(GS(library_id_name) == GS(new_id->name));
  BLI_assert(new_id->library_weak_reference == nullptr);
  BLI_assert(BKE_idtype_idcode_append_is_reusable(GS(new_id->name)));

  const LibWeakRefKey key{library_filepath, library_id_name};
  /* With packed IDs and archive libraries, it is now possible to have several instances of the
   * (originally) same linked ID made local at the same time in an append operation, so it is
   * possible to get the same key several time here. And `Map::add_new` cannot be used safely
   * anymore.
   *
   * Simply consider the first added one as valid, there is no good way to determine the 'best' one
   * to keep around for append-or-reuse operations anyway - and the whole append-and-reuse may be
   * deprecated soon too. */
  library_weak_reference_mapping->map.add(key, new_id);

  BKE_main_library_weak_reference_add(new_id, library_filepath, library_id_name);
}

void BKE_main_library_weak_reference_update_item(
    MainLibraryWeakReferenceMap *library_weak_reference_mapping,
    const char *library_filepath,
    const char *library_id_name,
    ID *old_id,
    ID *new_id)
{
  BLI_assert(GS(library_id_name) == GS(old_id->name));
  BLI_assert(GS(library_id_name) == GS(new_id->name));
  BLI_assert(old_id->library_weak_reference != nullptr);
  BLI_assert(new_id->library_weak_reference == nullptr);
  BLI_assert(STREQ(old_id->library_weak_reference->library_filepath, library_filepath));
  BLI_assert(STREQ(old_id->library_weak_reference->library_id_name, library_id_name));

  const LibWeakRefKey key{library_filepath, library_id_name};
  BLI_assert(library_weak_reference_mapping->map.lookup(key) == old_id);
  library_weak_reference_mapping->map.add_overwrite(key, new_id);

  new_id->library_weak_reference = old_id->library_weak_reference;
  old_id->library_weak_reference = nullptr;
}

void BKE_main_library_weak_reference_remove_item(
    MainLibraryWeakReferenceMap *library_weak_reference_mapping,
    const char *library_filepath,
    const char *library_id_name,
    ID *old_id)
{
  BLI_assert(GS(library_id_name) == GS(old_id->name));
  BLI_assert(old_id->library_weak_reference != nullptr);

  const LibWeakRefKey key{library_filepath, library_id_name};

  BLI_assert(library_weak_reference_mapping->map.lookup(key) == old_id);
  library_weak_reference_mapping->map.remove(key);

  MEM_SAFE_DELETE(old_id->library_weak_reference);
}

ID *BKE_main_library_weak_reference_find(Main *bmain,
                                         const char *library_filepath,
                                         const char *library_id_name)
{
  /* Make filepath absolute so we can compare filepaths that may be either relative or absolute. */
  char library_filepath_abs[FILE_MAX];
  STRNCPY(library_filepath_abs, library_filepath);
  BLI_path_abs(library_filepath_abs, BKE_main_blendfile_path(bmain));

  ListBaseT<ID> *id_list = which_libbase(bmain, GS(library_id_name));
  for (ID &existing_id : *id_list) {
    if (!(existing_id.library_weak_reference &&
          STREQ(existing_id.library_weak_reference->library_id_name, library_id_name)))
    {
      continue;
    }

    char existing_filepath_abs[FILE_MAX];
    STRNCPY(existing_filepath_abs, existing_id.library_weak_reference->library_filepath);
    BLI_path_abs(existing_filepath_abs, BKE_main_blendfile_path(bmain));

    if (!STREQ(existing_filepath_abs, library_filepath_abs)) {
      continue;
    }

    return &existing_id;
  }

  return nullptr;
}

void BKE_main_library_weak_reference_add(ID *local_id,
                                         const char *library_filepath,
                                         const char *library_id_name)
{
  if (local_id->library_weak_reference == nullptr) {
    local_id->library_weak_reference = MEM_new<LibraryWeakReference>(__func__);
  }

  STRNCPY(local_id->library_weak_reference->library_filepath, library_filepath);
  STRNCPY(local_id->library_weak_reference->library_id_name, library_id_name);
}

BlendThumbnail *BKE_main_thumbnail_from_buffer(Main *bmain, const uint8_t *rect, const int size[2])
{
  BlendThumbnail *data = nullptr;

  if (bmain) {
    MEM_SAFE_DELETE(bmain->blen_thumb);
  }

  if (rect) {
    const size_t data_size = BLEN_THUMB_MEMSIZE(size[0], size[1]);
    data = static_cast<BlendThumbnail *>(MEM_new_uninitialized(data_size, __func__));
    data->width = size[0];
    data->height = size[1];
    memcpy(data->rect, rect, data_size - sizeof(*data));
  }

  if (bmain) {
    bmain->blen_thumb = data;
  }
  return data;
}

BlendThumbnail *BKE_main_thumbnail_from_imbuf(Main *bmain, ImBuf *img)
{
  BlendThumbnail *data = nullptr;

  if (bmain) {
    MEM_SAFE_DELETE(bmain->blen_thumb);
  }

  if (img) {
    const size_t data_size = BLEN_THUMB_MEMSIZE(img->x, img->y);
    data = static_cast<BlendThumbnail *>(MEM_new_uninitialized(data_size, __func__));

    IMB_byte_from_float(img); /* Just in case... */
    data->width = img->x;
    data->height = img->y;
    memcpy(data->rect, img->byte_data(), data_size - sizeof(*data));
  }

  if (bmain) {
    bmain->blen_thumb = data;
  }
  return data;
}

ImBuf *BKE_main_thumbnail_to_imbuf(Main *bmain, BlendThumbnail *data)
{
  ImBuf *img = nullptr;

  if (!data && bmain) {
    data = bmain->blen_thumb;
  }

  if (data) {
    img = IMB_allocFromBuffer(reinterpret_cast<const uint8_t *>(data->rect),
                              nullptr,
                              uint(data->width),
                              uint(data->height),
                              4);
  }

  return img;
}

void BKE_main_thumbnail_create(Main *bmain)
{
  MEM_SAFE_DELETE(bmain->blen_thumb);

  bmain->blen_thumb = static_cast<BlendThumbnail *>(
      MEM_new_zeroed(BLEN_THUMB_MEMSIZE(BLEN_THUMB_SIZE, BLEN_THUMB_SIZE), __func__));
  bmain->blen_thumb->width = BLEN_THUMB_SIZE;
  bmain->blen_thumb->height = BLEN_THUMB_SIZE;
}

const char *BKE_main_blendfile_path(const Main *bmain)
{
  return bmain->filepath;
}

const char *BKE_main_blendfile_path_from_global()
{
  return BKE_main_blendfile_path(G_MAIN);
}

const char *BKE_main_blendfile_path_from_library(const Library &library)
{
  return library.runtime->filepath_abs;
}

ListBaseT<ID> *which_libbase(Main *bmain, short type)
{
  switch (ID_Type(type)) {
    case ID_SCE:
      return &(bmain->scenes.cast<ID>());
    case ID_LI:
      return &(bmain->libraries.cast<ID>());
    case ID_OB:
      return &(bmain->objects.cast<ID>());
    case ID_ME:
      return &(bmain->meshes.cast<ID>());
    case ID_CU_LEGACY:
      return &(bmain->curves.cast<ID>());
    case ID_MB:
      return &(bmain->metaballs.cast<ID>());
    case ID_MA:
      return &(bmain->materials.cast<ID>());
    case ID_TE:
      return &(bmain->textures.cast<ID>());
    case ID_IM:
      return &(bmain->images.cast<ID>());
    case ID_LT:
      return &(bmain->lattices.cast<ID>());
    case ID_LA:
      return &(bmain->lights.cast<ID>());
    case ID_CA:
      return &(bmain->cameras.cast<ID>());
    case ID_KE:
      return &(bmain->shapekeys.cast<ID>());
    case ID_WO:
      return &(bmain->worlds.cast<ID>());
    case ID_SCR:
      return &(bmain->screens.cast<ID>());
    case ID_VF:
      return &(bmain->fonts.cast<ID>());
    case ID_TXT:
      return &(bmain->texts.cast<ID>());
    case ID_SPK:
      return &(bmain->speakers.cast<ID>());
    case ID_LP:
      return &(bmain->lightprobes.cast<ID>());
    case ID_SO:
      return &(bmain->sounds.cast<ID>());
    case ID_GR:
      return &(bmain->collections.cast<ID>());
    case ID_AR:
      return &(bmain->armatures.cast<ID>());
    case ID_AC:
      return &(bmain->actions.cast<ID>());
    case ID_NT:
      return &(bmain->nodetrees.cast<ID>());
    case ID_BR:
      return &(bmain->brushes.cast<ID>());
    case ID_PA:
      return &(bmain->particles.cast<ID>());
    case ID_WM:
      return &(bmain->wm.cast<ID>());
    case ID_GD_LEGACY:
      return &(bmain->gpencils.cast<ID>());
    case ID_GP:
      return &(bmain->grease_pencils.cast<ID>());
    case ID_MC:
      return &(bmain->movieclips.cast<ID>());
    case ID_MSK:
      return &(bmain->masks.cast<ID>());
    case ID_LS:
      return &(bmain->linestyles.cast<ID>());
    case ID_PAL:
      return &(bmain->palettes.cast<ID>());
    case ID_PC:
      return &(bmain->paintcurves.cast<ID>());
    case ID_CF:
      return &(bmain->cachefiles.cast<ID>());
    case ID_WS:
      return &(bmain->workspaces.cast<ID>());
    case ID_CV:
      return &(bmain->hair_curves.cast<ID>());
    case ID_PT:
      return &(bmain->pointclouds.cast<ID>());
    case ID_VO:
      return &(bmain->volumes.cast<ID>());
  }
  return nullptr;
}

MainListsArray BKE_main_lists_get(Main &bmain)
{
  MainListsArray lb{};
  /* Libraries may be accessed from pretty much any other ID. */
  lb[INDEX_ID_LI] = &(bmain.libraries.cast<ID>());

  /* Moved here to avoid problems when freeing with animato (aligorith). */
  lb[INDEX_ID_AC] = &(bmain.actions.cast<ID>());

  lb[INDEX_ID_KE] = &(bmain.shapekeys.cast<ID>());

  /* Referenced by gpencil, so needs to be before that to avoid crashes. */
  lb[INDEX_ID_PAL] = &(bmain.palettes.cast<ID>());

  /* Referenced by nodes, objects, view, scene etc, before to free after. */
  lb[INDEX_ID_GD_LEGACY] = &(bmain.gpencils.cast<ID>());
  lb[INDEX_ID_GP] = &(bmain.grease_pencils.cast<ID>());

  lb[INDEX_ID_NT] = &(bmain.nodetrees.cast<ID>());
  lb[INDEX_ID_IM] = &(bmain.images.cast<ID>());
  lb[INDEX_ID_TE] = &(bmain.textures.cast<ID>());
  lb[INDEX_ID_MA] = &(bmain.materials.cast<ID>());
  lb[INDEX_ID_VF] = &(bmain.fonts.cast<ID>());

  /* Important!: When adding a new object type,
   * the specific data should be inserted here. */

  lb[INDEX_ID_AR] = &(bmain.armatures.cast<ID>());

  lb[INDEX_ID_CF] = &(bmain.cachefiles.cast<ID>());
  lb[INDEX_ID_ME] = &(bmain.meshes.cast<ID>());
  lb[INDEX_ID_CU_LEGACY] = &(bmain.curves.cast<ID>());
  lb[INDEX_ID_MB] = &(bmain.metaballs.cast<ID>());
  lb[INDEX_ID_CV] = &(bmain.hair_curves.cast<ID>());
  lb[INDEX_ID_PT] = &(bmain.pointclouds.cast<ID>());
  lb[INDEX_ID_VO] = &(bmain.volumes.cast<ID>());

  lb[INDEX_ID_LT] = &(bmain.lattices.cast<ID>());
  lb[INDEX_ID_LA] = &(bmain.lights.cast<ID>());
  lb[INDEX_ID_CA] = &(bmain.cameras.cast<ID>());

  lb[INDEX_ID_TXT] = &(bmain.texts.cast<ID>());
  lb[INDEX_ID_SO] = &(bmain.sounds.cast<ID>());
  lb[INDEX_ID_GR] = &(bmain.collections.cast<ID>());
  lb[INDEX_ID_PAL] = &(bmain.palettes.cast<ID>());
  lb[INDEX_ID_PC] = &(bmain.paintcurves.cast<ID>());
  lb[INDEX_ID_BR] = &(bmain.brushes.cast<ID>());
  lb[INDEX_ID_PA] = &(bmain.particles.cast<ID>());
  lb[INDEX_ID_SPK] = &(bmain.speakers.cast<ID>());
  lb[INDEX_ID_LP] = &(bmain.lightprobes.cast<ID>());

  lb[INDEX_ID_WO] = &(bmain.worlds.cast<ID>());
  lb[INDEX_ID_MC] = &(bmain.movieclips.cast<ID>());
  lb[INDEX_ID_SCR] = &(bmain.screens.cast<ID>());
  lb[INDEX_ID_OB] = &(bmain.objects.cast<ID>());
  /* referenced by scenes */
  lb[INDEX_ID_LS] = &(bmain.linestyles.cast<ID>());
  lb[INDEX_ID_SCE] = &(bmain.scenes.cast<ID>());
  /* before wm, so it's freed after it! */
  lb[INDEX_ID_WS] = &(bmain.workspaces.cast<ID>());
  lb[INDEX_ID_WM] = &(bmain.wm.cast<ID>());
  lb[INDEX_ID_MSK] = &(bmain.masks.cast<ID>());

  return lb;
}

MainAllIDsIterator &MainAllIDsIterator::operator++()
{
  if (curr_id_) {
    BLI_assert(curr_lbarray_index_ > -1 && curr_lbarray_index_ < int64_t(lbarray_.size()));
    curr_id_ = static_cast<ID *>(curr_id_->next);
    if (curr_id_) {
      return *this;
    }
  }

  BLI_assert(curr_id_ == nullptr);
  BLI_assert(curr_lbarray_index_ >= -1 && curr_lbarray_index_ <= int64_t(lbarray_.size()));

  if (curr_lbarray_index_ >= int64_t(lbarray_.size())) {
    return *this;
  }
  while (true) {
    curr_lbarray_index_++;
    if (curr_lbarray_index_ == int64_t(lbarray_.size())) {
      return *this;
    }
    /* Listbase pointers from lbarray_ can be nullptr when no data was provided (default
     * constructor case). */
    ListBaseT<ID> *lb_ids = lbarray_[size_t(curr_lbarray_index_)];
    if (lb_ids && !lb_ids->is_empty()) {
      curr_id_ = static_cast<ID *>(lb_ids->first);
      return *this;
    }
  }
  BLI_assert_unreachable();
  return *this;
}

MainAllIDsIterator &MainAllIDsIterator::operator--()
{
  if (curr_id_) {
    BLI_assert(curr_lbarray_index_ > -1 && curr_lbarray_index_ < int64_t(lbarray_.size()));
    curr_id_ = static_cast<ID *>(curr_id_->prev);
    if (curr_id_) {
      return *this;
    }
  }
  BLI_assert(curr_id_ == nullptr);
  BLI_assert(curr_lbarray_index_ >= -1 && curr_lbarray_index_ <= int64_t(lbarray_.size()));

  if (this->curr_lbarray_index_ <= -1) {
    return *this;
  }
  while (true) {
    curr_lbarray_index_--;
    if (curr_lbarray_index_ == -1) {
      return *this;
    }
    /* Listbase pointers from lbarray_ can be nullptr when no data was provided (default
     * constructor case). */
    ListBaseT<ID> *lb_ids = lbarray_[size_t(curr_lbarray_index_)];
    if (lb_ids && !lb_ids->is_empty()) {
      curr_id_ = static_cast<ID *>(lb_ids->last);
      return *this;
    }
  }
  BLI_assert_unreachable();
  return *this;
}

int64_t MainAllIDsIterator::size() const
{
  int64_t size = 0;
  for (const ListBaseT<ID> *lb_ids : lbarray_) {
    /* Listbase pointers from lbarray_ can be nullptr when no data was provided (default
     * constructor case). */
    if (!lb_ids) {
      continue;
    }
    size += lb_ids->count();
  }
  return size;
}

}  // namespace blender
