/*
 * This program 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 2
 * of the License, or (at your option) any later version.
 *
 * This program 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 this program; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * The Original Code is Copyright (C) 2014 by Blender Foundation.
 * All rights reserved.
 */

/** \file
 * \ingroup bke
 */

#include <stdlib.h>

#include "DNA_anim_types.h"
#include "DNA_armature_types.h"
#include "DNA_brush_types.h"
#include "DNA_camera_types.h"
#include "DNA_collection_types.h"
#include "DNA_constraint_types.h"
#include "DNA_gpencil_types.h"
#include "DNA_hair_types.h"
#include "DNA_key_types.h"
#include "DNA_lattice_types.h"
#include "DNA_light_types.h"
#include "DNA_lightprobe_types.h"
#include "DNA_linestyle_types.h"
#include "DNA_mask_types.h"
#include "DNA_material_types.h"
#include "DNA_mesh_types.h"
#include "DNA_meta_types.h"
#include "DNA_movieclip_types.h"
#include "DNA_node_types.h"
#include "DNA_object_force_types.h"
#include "DNA_outliner_types.h"
#include "DNA_pointcloud_types.h"
#include "DNA_rigidbody_types.h"
#include "DNA_scene_types.h"
#include "DNA_screen_types.h"
#include "DNA_sequence_types.h"
#include "DNA_sound_types.h"
#include "DNA_space_types.h"
#include "DNA_speaker_types.h"
#include "DNA_text_types.h"
#include "DNA_vfont_types.h"
#include "DNA_volume_types.h"
#include "DNA_windowmanager_types.h"
#include "DNA_workspace_types.h"
#include "DNA_world_types.h"

#include "BLI_ghash.h"
#include "BLI_linklist_stack.h"
#include "BLI_listbase.h"
#include "BLI_utildefines.h"

#include "BKE_anim_data.h"
#include "BKE_collection.h"
#include "BKE_constraint.h"
#include "BKE_fcurve.h"
#include "BKE_gpencil_modifier.h"
#include "BKE_idprop.h"
#include "BKE_lib_id.h"
#include "BKE_lib_query.h"
#include "BKE_main.h"
#include "BKE_modifier.h"
#include "BKE_node.h"
#include "BKE_particle.h"
#include "BKE_rigidbody.h"
#include "BKE_sequencer.h"
#include "BKE_shader_fx.h"
#include "BKE_workspace.h"

#define FOREACH_FINALIZE _finalize
#define FOREACH_FINALIZE_VOID \
  if (0) { \
    goto FOREACH_FINALIZE; \
  } \
  FOREACH_FINALIZE: \
  ((void)0)

#define FOREACH_CALLBACK_INVOKE_ID_PP(_data, id_pp, _cb_flag) \
  CHECK_TYPE(id_pp, ID **); \
  if (!((_data)->status & IDWALK_STOP)) { \
    const int _flag = (_data)->flag; \
    ID *old_id = *(id_pp); \
    const int callback_return = (_data)->callback(&(struct LibraryIDLinkCallbackData){ \
        .user_data = (_data)->user_data, \
        .id_owner = (_data)->owner_id, \
        .id_self = (_data)->self_id, \
        .id_pointer = id_pp, \
        .cb_flag = ((_cb_flag | (_data)->cb_flag) & ~(_data)->cb_flag_clear)}); \
    if (_flag & IDWALK_READONLY) { \
      BLI_assert(*(id_pp) == old_id); \
    } \
    if (old_id && (_flag & IDWALK_RECURSE)) { \
      if (BLI_gset_add((_data)->ids_handled, old_id)) { \
        if (!(callback_return & IDWALK_RET_STOP_RECURSION)) { \
          BLI_LINKSTACK_PUSH((_data)->ids_todo, old_id); \
        } \
      } \
    } \
    if (callback_return & IDWALK_RET_STOP_ITER) { \
      (_data)->status |= IDWALK_STOP; \
      goto FOREACH_FINALIZE; \
    } \
  } \
  else { \
    goto FOREACH_FINALIZE; \
  } \
  ((void)0)

#define FOREACH_CALLBACK_INVOKE_ID(_data, id, cb_flag) \
  { \
    CHECK_TYPE_ANY(id, ID *, void *); \
    FOREACH_CALLBACK_INVOKE_ID_PP(_data, (ID **)&(id), cb_flag); \
  } \
  ((void)0)

#define FOREACH_CALLBACK_INVOKE(_data, id_super, cb_flag) \
  { \
    CHECK_TYPE(&((id_super)->id), ID *); \
    FOREACH_CALLBACK_INVOKE_ID_PP(_data, (ID **)&(id_super), cb_flag); \
  } \
  ((void)0)

/* status */
enum {
  IDWALK_STOP = 1 << 0,
};

typedef struct LibraryForeachIDData {
  Main *bmain;
  /**
   * 'Real' ID, the one that might be in bmain, only differs from self_id when the later is a
   * private one.
   */
  ID *owner_id;
  /**
   * ID from which the current ID pointer is being processed. It may be an embedded ID like master
   * collection or root node tree.
   */
  ID *self_id;

  int flag;
  int cb_flag;
  int cb_flag_clear;
  LibraryIDLinkCallback callback;
  void *user_data;
  int status;

  /* To handle recursion. */
  GSet *ids_handled; /* All IDs that are either already done, or still in ids_todo stack. */
  BLI_LINKSTACK_DECLARE(ids_todo, ID *);
} LibraryForeachIDData;

static void library_foreach_ID_link(Main *bmain,
                                    ID *id_owner,
                                    ID *id,
                                    LibraryIDLinkCallback callback,
                                    void *user_data,
                                    int flag,
                                    LibraryForeachIDData *inherit_data);

static void library_foreach_idpropertiesForeachIDLink(IDProperty *id_prop, void *user_data)
{
  BLI_assert(id_prop->type == IDP_ID);

  LibraryForeachIDData *data = (LibraryForeachIDData *)user_data;
  FOREACH_CALLBACK_INVOKE_ID(data, id_prop->data.pointer, IDWALK_CB_USER);

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_rigidbodyworldSceneLooper(struct RigidBodyWorld *UNUSED(rbw),
                                                      ID **id_pointer,
                                                      void *user_data,
                                                      int cb_flag)
{
  LibraryForeachIDData *data = (LibraryForeachIDData *)user_data;
  FOREACH_CALLBACK_INVOKE_ID_PP(data, id_pointer, cb_flag);

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_modifiersForeachIDLink(void *user_data,
                                                   Object *UNUSED(object),
                                                   ID **id_pointer,
                                                   int cb_flag)
{
  LibraryForeachIDData *data = (LibraryForeachIDData *)user_data;
  FOREACH_CALLBACK_INVOKE_ID_PP(data, id_pointer, cb_flag);

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_gpencil_modifiersForeachIDLink(void *user_data,
                                                           Object *UNUSED(object),
                                                           ID **id_pointer,
                                                           int cb_flag)
{
  LibraryForeachIDData *data = (LibraryForeachIDData *)user_data;
  FOREACH_CALLBACK_INVOKE_ID_PP(data, id_pointer, cb_flag);

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_shaderfxForeachIDLink(void *user_data,
                                                  Object *UNUSED(object),
                                                  ID **id_pointer,
                                                  int cb_flag)
{
  LibraryForeachIDData *data = (LibraryForeachIDData *)user_data;
  FOREACH_CALLBACK_INVOKE_ID_PP(data, id_pointer, cb_flag);

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_constraintObjectLooper(bConstraint *UNUSED(con),
                                                   ID **id_pointer,
                                                   bool is_reference,
                                                   void *user_data)
{
  LibraryForeachIDData *data = (LibraryForeachIDData *)user_data;
  const int cb_flag = is_reference ? IDWALK_CB_USER : IDWALK_CB_NOP;
  FOREACH_CALLBACK_INVOKE_ID_PP(data, id_pointer, cb_flag);

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_particlesystemsObjectLooper(ParticleSystem *UNUSED(psys),
                                                        ID **id_pointer,
                                                        void *user_data,
                                                        int cb_flag)
{
  LibraryForeachIDData *data = (LibraryForeachIDData *)user_data;
  FOREACH_CALLBACK_INVOKE_ID_PP(data, id_pointer, cb_flag);

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_nla_strip(LibraryForeachIDData *data, NlaStrip *strip)
{
  FOREACH_CALLBACK_INVOKE(data, strip->act, IDWALK_CB_USER);

  LISTBASE_FOREACH (NlaStrip *, substrip, &strip->strips) {
    library_foreach_nla_strip(data, substrip);
  }

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_animationData(LibraryForeachIDData *data, AnimData *adt)
{
  LISTBASE_FOREACH (FCurve *, fcu, &adt->drivers) {
    ChannelDriver *driver = fcu->driver;

    LISTBASE_FOREACH (DriverVar *, dvar, &driver->variables) {
      /* only used targets */
      DRIVER_TARGETS_USED_LOOPER_BEGIN (dvar) {
        FOREACH_CALLBACK_INVOKE_ID(data, dtar->id, IDWALK_CB_NOP);
      }
      DRIVER_TARGETS_LOOPER_END;
    }
  }

  FOREACH_CALLBACK_INVOKE(data, adt->action, IDWALK_CB_USER);
  FOREACH_CALLBACK_INVOKE(data, adt->tmpact, IDWALK_CB_USER);

  LISTBASE_FOREACH (NlaTrack *, nla_track, &adt->nla_tracks) {
    LISTBASE_FOREACH (NlaStrip *, nla_strip, &nla_track->strips) {
      library_foreach_nla_strip(data, nla_strip);
    }
  }

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_mtex(LibraryForeachIDData *data, MTex *mtex)
{
  FOREACH_CALLBACK_INVOKE(data, mtex->object, IDWALK_CB_NOP);
  FOREACH_CALLBACK_INVOKE(data, mtex->tex, IDWALK_CB_USER);

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_paint(LibraryForeachIDData *data, Paint *paint)
{
  FOREACH_CALLBACK_INVOKE(data, paint->brush, IDWALK_CB_USER);
  for (int i = 0; i < paint->tool_slots_len; i++) {
    FOREACH_CALLBACK_INVOKE(data, paint->tool_slots[i].brush, IDWALK_CB_USER);
  }
  FOREACH_CALLBACK_INVOKE(data, paint->palette, IDWALK_CB_USER);

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_bone(LibraryForeachIDData *data, Bone *bone)
{
  IDP_foreach_property(
      bone->prop, IDP_TYPE_FILTER_ID, library_foreach_idpropertiesForeachIDLink, data);

  LISTBASE_FOREACH (Bone *, curbone, &bone->childbase) {
    library_foreach_bone(data, curbone);
  }

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_layer_collection(LibraryForeachIDData *data, ListBase *lb)
{
  LISTBASE_FOREACH (LayerCollection *, lc, lb) {
    /* XXX This is very weak. The whole idea of keeping pointers to private IDs is very bad
     * anyway... */
    const int cb_flag = (lc->collection != NULL &&
                         (lc->collection->id.flag & LIB_EMBEDDED_DATA) != 0) ?
                            IDWALK_CB_EMBEDDED :
                            IDWALK_CB_NOP;
    FOREACH_CALLBACK_INVOKE(data, lc->collection, cb_flag);
    library_foreach_layer_collection(data, &lc->layer_collections);
  }

  FOREACH_FINALIZE_VOID;
}

/* Used by both real Collection data-blocks, and the fake horror of master collection from Scene.
 */
static void library_foreach_collection(LibraryForeachIDData *data, Collection *collection)
{
  LISTBASE_FOREACH (CollectionObject *, cob, &collection->gobject) {
    FOREACH_CALLBACK_INVOKE(data, cob->ob, IDWALK_CB_USER);
  }
  LISTBASE_FOREACH (CollectionChild *, child, &collection->children) {
    FOREACH_CALLBACK_INVOKE(data, child->collection, IDWALK_CB_NEVER_SELF | IDWALK_CB_USER);
  }
  LISTBASE_FOREACH (CollectionParent *, parent, &collection->parents) {
    /* XXX This is very weak. The whole idea of keeping pointers to private IDs is very bad
     * anyway... */
    const int cb_flag = ((parent->collection != NULL &&
                          (parent->collection->id.flag & LIB_EMBEDDED_DATA) != 0) ?
                             IDWALK_CB_EMBEDDED :
                             IDWALK_CB_NOP);
    FOREACH_CALLBACK_INVOKE(
        data, parent->collection, IDWALK_CB_NEVER_SELF | IDWALK_CB_LOOPBACK | cb_flag);
  }

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_dopesheet(LibraryForeachIDData *data, bDopeSheet *ads)
{
  if (ads != NULL) {
    FOREACH_CALLBACK_INVOKE_ID(data, ads->source, IDWALK_CB_NOP);
    FOREACH_CALLBACK_INVOKE(data, ads->filter_grp, IDWALK_CB_NOP);
  }

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_screen_area(LibraryForeachIDData *data, ScrArea *area)
{
  FOREACH_CALLBACK_INVOKE(data, area->full, IDWALK_CB_NOP);

  LISTBASE_FOREACH (SpaceLink *, sl, &area->spacedata) {
    switch (sl->spacetype) {
      case SPACE_VIEW3D: {
        View3D *v3d = (View3D *)sl;

        FOREACH_CALLBACK_INVOKE(data, v3d->camera, IDWALK_CB_NOP);
        FOREACH_CALLBACK_INVOKE(data, v3d->ob_center, IDWALK_CB_NOP);

        if (v3d->localvd) {
          FOREACH_CALLBACK_INVOKE(data, v3d->localvd->camera, IDWALK_CB_NOP);
        }
        break;
      }
      case SPACE_GRAPH: {
        SpaceGraph *sipo = (SpaceGraph *)sl;

        library_foreach_dopesheet(data, sipo->ads);
        break;
      }
      case SPACE_PROPERTIES: {
        SpaceProperties *sbuts = (SpaceProperties *)sl;

        FOREACH_CALLBACK_INVOKE_ID(data, sbuts->pinid, IDWALK_CB_NOP);
        break;
      }
      case SPACE_FILE:
        break;
      case SPACE_ACTION: {
        SpaceAction *saction = (SpaceAction *)sl;

        library_foreach_dopesheet(data, &saction->ads);
        FOREACH_CALLBACK_INVOKE(data, saction->action, IDWALK_CB_NOP);
        break;
      }
      case SPACE_IMAGE: {
        SpaceImage *sima = (SpaceImage *)sl;

        FOREACH_CALLBACK_INVOKE(data, sima->image, IDWALK_CB_USER_ONE);
        FOREACH_CALLBACK_INVOKE(data, sima->mask_info.mask, IDWALK_CB_USER_ONE);
        FOREACH_CALLBACK_INVOKE(data, sima->gpd, IDWALK_CB_USER);
        break;
      }
      case SPACE_SEQ: {
        SpaceSeq *sseq = (SpaceSeq *)sl;

        FOREACH_CALLBACK_INVOKE(data, sseq->gpd, IDWALK_CB_USER);
        break;
      }
      case SPACE_NLA: {
        SpaceNla *snla = (SpaceNla *)sl;

        library_foreach_dopesheet(data, snla->ads);
        break;
      }
      case SPACE_TEXT: {
        SpaceText *st = (SpaceText *)sl;

        FOREACH_CALLBACK_INVOKE(data, st->text, IDWALK_CB_NOP);
        break;
      }
      case SPACE_SCRIPT: {
        SpaceScript *scpt = (SpaceScript *)sl;

        FOREACH_CALLBACK_INVOKE(data, scpt->script, IDWALK_CB_NOP);
        break;
      }
      case SPACE_OUTLINER: {
        SpaceOutliner *so = (SpaceOutliner *)sl;

        FOREACH_CALLBACK_INVOKE_ID(data, so->search_tse.id, IDWALK_CB_NOP);

        if (so->treestore != NULL) {
          TreeStoreElem *tselem;
          BLI_mempool_iter iter;

          BLI_mempool_iternew(so->treestore, &iter);
          while ((tselem = BLI_mempool_iterstep(&iter))) {
            FOREACH_CALLBACK_INVOKE_ID(data, tselem->id, IDWALK_CB_NOP);
          }
        }
        break;
      }
      case SPACE_NODE: {
        SpaceNode *snode = (SpaceNode *)sl;

        const bool is_private_nodetree = snode->id != NULL &&
                                         ntreeFromID(snode->id) == snode->nodetree;

        FOREACH_CALLBACK_INVOKE_ID(data, snode->id, IDWALK_CB_NOP);
        FOREACH_CALLBACK_INVOKE_ID(data, snode->from, IDWALK_CB_NOP);

        FOREACH_CALLBACK_INVOKE(
            data, snode->nodetree, is_private_nodetree ? IDWALK_CB_EMBEDDED : IDWALK_CB_USER_ONE);

        LISTBASE_FOREACH (bNodeTreePath *, path, &snode->treepath) {
          if (path == snode->treepath.first) {
            /* first nodetree in path is same as snode->nodetree */
            FOREACH_CALLBACK_INVOKE(data,
                                    path->nodetree,
                                    is_private_nodetree ? IDWALK_CB_EMBEDDED : IDWALK_CB_USER_ONE);
          }
          else {
            FOREACH_CALLBACK_INVOKE(data, path->nodetree, IDWALK_CB_USER_ONE);
          }

          if (path->nodetree == NULL) {
            break;
          }
        }

        FOREACH_CALLBACK_INVOKE(data, snode->edittree, IDWALK_CB_NOP);
        break;
      }
      case SPACE_CLIP: {
        SpaceClip *sclip = (SpaceClip *)sl;

        FOREACH_CALLBACK_INVOKE(data, sclip->clip, IDWALK_CB_USER_ONE);
        FOREACH_CALLBACK_INVOKE(data, sclip->mask_info.mask, IDWALK_CB_USER_ONE);
        break;
      }
      default:
        break;
    }
  }

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_ID_as_subdata_link(ID **id_pp,
                                               LibraryIDLinkCallback callback,
                                               void *user_data,
                                               int flag,
                                               LibraryForeachIDData *data)
{
  /* Needed e.g. for callbacks handling relationships... This call shall be absolutely readonly. */
  ID *id = *id_pp;
  FOREACH_CALLBACK_INVOKE_ID_PP(data, id_pp, IDWALK_CB_EMBEDDED);
  BLI_assert(id == *id_pp);

  if (flag & IDWALK_IGNORE_EMBEDDED_ID) {
    /* Do Nothing. */
  }
  else if (flag & IDWALK_RECURSE) {
    /* Defer handling into main loop, recursively calling BKE_library_foreach_ID_link in
     * IDWALK_RECURSE case is troublesome, see T49553. */
    /* XXX note that this breaks the 'owner id' thing now, we likely want to handle that
     * differently at some point, but for now it should not be a problem in practice. */
    if (BLI_gset_add(data->ids_handled, id)) {
      BLI_LINKSTACK_PUSH(data->ids_todo, id);
    }
  }
  else {
    library_foreach_ID_link(data->bmain, data->owner_id, id, callback, user_data, flag, data);
  }

  FOREACH_FINALIZE_VOID;
}

static void library_foreach_ID_link(Main *bmain,
                                    ID *id_owner,
                                    ID *id,
                                    LibraryIDLinkCallback callback,
                                    void *user_data,
                                    int flag,
                                    LibraryForeachIDData *inherit_data)
{
  LibraryForeachIDData data = {.bmain = bmain};
  int i;

  BLI_assert(inherit_data == NULL || data.bmain == inherit_data->bmain);

  if (flag & IDWALK_RECURSE) {
    /* For now, recursion implies read-only. */
    flag |= IDWALK_READONLY;

    data.ids_handled = BLI_gset_new(BLI_ghashutil_ptrhash, BLI_ghashutil_ptrcmp, __func__);
    BLI_LINKSTACK_INIT(data.ids_todo);

    BLI_gset_add(data.ids_handled, id);
  }
  else {
    data.ids_handled = NULL;
  }
  data.flag = flag;
  data.status = 0;
  data.callback = callback;
  data.user_data = user_data;

#define CALLBACK_INVOKE_ID(check_id, cb_flag) FOREACH_CALLBACK_INVOKE_ID(&data, check_id, cb_flag)

#define CALLBACK_INVOKE(check_id_super, cb_flag) \
  FOREACH_CALLBACK_INVOKE(&data, check_id_super, cb_flag)

  for (; id != NULL; id = (flag & IDWALK_RECURSE) ? BLI_LINKSTACK_POP(data.ids_todo) : NULL) {
    data.self_id = id;
    /* Note that we may call this functions sometime directly on an embedded ID, without any
     * knowledge of the owner ID then.
     * While not great, and that should be probably sanitized at some point, we cal live with it
     * for now. */
    data.owner_id = ((id->flag & LIB_EMBEDDED_DATA) != 0 && id_owner != NULL) ? id_owner :
                                                                                data.self_id;

    /* inherit_data is non-NULL when this function is called for some sub-data ID
     * (like root nodetree of a material).
     * In that case, we do not want to generate those 'generic flags' from our current sub-data ID
     * (the node tree), but re-use those generated for the 'owner' ID (the material). */
    if (inherit_data == NULL) {
      data.cb_flag = ID_IS_LINKED(id) ? IDWALK_CB_INDIRECT_USAGE : 0;
      /* When an ID is not in Main database, it should never refcount IDs it is using.
       * Exceptions: NodeTrees (yeah!) directly used by Materials. */
      data.cb_flag_clear = (id->tag & LIB_TAG_NO_MAIN) ? IDWALK_CB_USER | IDWALK_CB_USER_ONE : 0;
    }
    else {
      data.cb_flag = inherit_data->cb_flag;
      data.cb_flag_clear = inherit_data->cb_flag_clear;
    }

    if (bmain != NULL && bmain->relations != NULL && (flag & IDWALK_READONLY) &&
        (((bmain->relations->flag & MAINIDRELATIONS_INCLUDE_UI) == 0) ==
         ((data.flag & IDWALK_INCLUDE_UI) == 0))) {
      /* Note that this is minor optimization, even in worst cases (like id being an object with
       * lots of drivers and constraints and modifiers, or material etc. with huge node tree),
       * but we might as well use it (Main->relations is always assumed valid,
       * it's responsibility of code creating it to free it,
       * especially if/when it starts modifying Main database). */
      MainIDRelationsEntry *entry = BLI_ghash_lookup(bmain->relations->id_user_to_used, id);
      for (; entry != NULL; entry = entry->next) {
        FOREACH_CALLBACK_INVOKE_ID_PP(&data, entry->id_pointer, entry->usage_flag);
      }
      continue;
    }

    /* Note: ID.lib pointer is purposefully fully ignored here...
     * We may want to add it at some point? */

    if (id->override_library != NULL) {
      CALLBACK_INVOKE_ID(id->override_library->reference,
                         IDWALK_CB_USER | IDWALK_CB_OVERRIDE_LIBRARY_REFERENCE);
      CALLBACK_INVOKE_ID(id->override_library->storage,
                         IDWALK_CB_USER | IDWALK_CB_OVERRIDE_LIBRARY_REFERENCE);
    }

    IDP_foreach_property(
        id->properties, IDP_TYPE_FILTER_ID, library_foreach_idpropertiesForeachIDLink, &data);

    AnimData *adt = BKE_animdata_from_id(id);
    if (adt) {
      library_foreach_animationData(&data, adt);
    }

    switch ((ID_Type)GS(id->name)) {
      case ID_LI: {
        Library *lib = (Library *)id;
        CALLBACK_INVOKE(lib->parent, IDWALK_CB_NEVER_SELF);
        break;
      }
      case ID_SCE: {
        Scene *scene = (Scene *)id;
        ToolSettings *toolsett = scene->toolsettings;

        CALLBACK_INVOKE(scene->camera, IDWALK_CB_NOP);
        CALLBACK_INVOKE(scene->world, IDWALK_CB_USER);
        CALLBACK_INVOKE(scene->set, IDWALK_CB_NEVER_SELF);
        CALLBACK_INVOKE(scene->clip, IDWALK_CB_USER);
        CALLBACK_INVOKE(scene->gpd, IDWALK_CB_USER);
        CALLBACK_INVOKE(scene->r.bake.cage_object, IDWALK_CB_NOP);
        if (scene->nodetree) {
          /* nodetree **are owned by IDs**, treat them as mere sub-data and not real ID! */
          library_foreach_ID_as_subdata_link(
              (ID **)&scene->nodetree, callback, user_data, flag, &data);
        }
        if (scene->ed) {
          Sequence *seq;
          SEQP_BEGIN (scene->ed, seq) {
            CALLBACK_INVOKE(seq->scene, IDWALK_CB_NEVER_SELF);
            CALLBACK_INVOKE(seq->scene_camera, IDWALK_CB_NOP);
            CALLBACK_INVOKE(seq->clip, IDWALK_CB_USER);
            CALLBACK_INVOKE(seq->mask, IDWALK_CB_USER);
            CALLBACK_INVOKE(seq->sound, IDWALK_CB_USER);
            IDP_foreach_property(
                seq->prop, IDP_TYPE_FILTER_ID, library_foreach_idpropertiesForeachIDLink, &data);
            LISTBASE_FOREACH (SequenceModifierData *, smd, &seq->modifiers) {
              CALLBACK_INVOKE(smd->mask_id, IDWALK_CB_USER);
            }

            if (seq->type == SEQ_TYPE_TEXT && seq->effectdata) {
              TextVars *text_data = seq->effectdata;
              CALLBACK_INVOKE(text_data->text_font, IDWALK_CB_USER);
            }
          }
          SEQ_END;
        }

        /* This pointer can be NULL during old files reading, better be safe than sorry. */
        if (scene->master_collection != NULL) {
          library_foreach_collection(&data, scene->master_collection);
        }

        LISTBASE_FOREACH (ViewLayer *, view_layer, &scene->view_layers) {
          CALLBACK_INVOKE(view_layer->mat_override, IDWALK_CB_USER);

          LISTBASE_FOREACH (Base *, base, &view_layer->object_bases) {
            CALLBACK_INVOKE(base->object, IDWALK_CB_NOP);
          }

          library_foreach_layer_collection(&data, &view_layer->layer_collections);

          LISTBASE_FOREACH (FreestyleModuleConfig *, fmc, &view_layer->freestyle_config.modules) {
            if (fmc->script) {
              CALLBACK_INVOKE(fmc->script, IDWALK_CB_NOP);
            }
          }

          LISTBASE_FOREACH (FreestyleLineSet *, fls, &view_layer->freestyle_config.linesets) {
            if (fls->group) {
              CALLBACK_INVOKE(fls->group, IDWALK_CB_USER);
            }

            if (fls->linestyle) {
              CALLBACK_INVOKE(fls->linestyle, IDWALK_CB_USER);
            }
          }
        }

        LISTBASE_FOREACH (TimeMarker *, marker, &scene->markers) {
          CALLBACK_INVOKE(marker->camera, IDWALK_CB_NOP);
        }

        if (toolsett) {
          CALLBACK_INVOKE(toolsett->particle.scene, IDWALK_CB_NOP);
          CALLBACK_INVOKE(toolsett->particle.object, IDWALK_CB_NOP);
          CALLBACK_INVOKE(toolsett->particle.shape_object, IDWALK_CB_NOP);

          library_foreach_paint(&data, &toolsett->imapaint.paint);
          CALLBACK_INVOKE(toolsett->imapaint.stencil, IDWALK_CB_USER);
          CALLBACK_INVOKE(toolsett->imapaint.clone, IDWALK_CB_USER);
          CALLBACK_INVOKE(toolsett->imapaint.canvas, IDWALK_CB_USER);

          if (toolsett->vpaint) {
            library_foreach_paint(&data, &toolsett->vpaint->paint);
          }
          if (toolsett->wpaint) {
            library_foreach_paint(&data, &toolsett->wpaint->paint);
          }
          if (toolsett->sculpt) {
            library_foreach_paint(&data, &toolsett->sculpt->paint);
            CALLBACK_INVOKE(toolsett->sculpt->gravity_object, IDWALK_CB_NOP);
          }
          if (toolsett->uvsculpt) {
            library_foreach_paint(&data, &toolsett->uvsculpt->paint);
          }
          if (toolsett->gp_paint) {
            library_foreach_paint(&data, &toolsett->gp_paint->paint);
          }
          if (toolsett->gp_vertexpaint) {
            library_foreach_paint(&data, &toolsett->gp_vertexpaint->paint);
          }
          if (toolsett->gp_sculptpaint) {
            library_foreach_paint(&data, &toolsett->gp_sculptpaint->paint);
          }
          if (toolsett->gp_weightpaint) {
            library_foreach_paint(&data, &toolsett->gp_weightpaint->paint);
          }

          CALLBACK_INVOKE(toolsett->gp_sculpt.guide.reference_object, IDWALK_CB_NOP);
        }

        if (scene->rigidbody_world) {
          BKE_rigidbody_world_id_loop(
              scene->rigidbody_world, library_foreach_rigidbodyworldSceneLooper, &data);
        }

        break;
      }

      case ID_OB: {
        Object *object = (Object *)id;

        /* Object is special, proxies make things hard... */
        const int data_cb_flag = data.cb_flag;
        const int proxy_cb_flag = ((data.flag & IDWALK_NO_INDIRECT_PROXY_DATA_USAGE) == 0 &&
                                   (object->proxy || object->proxy_group)) ?
                                      IDWALK_CB_INDIRECT_USAGE :
                                      0;

        /* object data special case */
        data.cb_flag |= proxy_cb_flag;
        if (object->type == OB_EMPTY) {
          /* empty can have NULL or Image */
          CALLBACK_INVOKE_ID(object->data, IDWALK_CB_USER);
        }
        else {
          /* when set, this can't be NULL */
          if (object->data) {
            CALLBACK_INVOKE_ID(object->data, IDWALK_CB_USER | IDWALK_CB_NEVER_NULL);
          }
        }
        data.cb_flag = data_cb_flag;

        CALLBACK_INVOKE(object->parent, IDWALK_CB_NEVER_SELF);
        CALLBACK_INVOKE(object->track, IDWALK_CB_NEVER_SELF);
        /* object->proxy is refcounted, but not object->proxy_group... *sigh* */
        CALLBACK_INVOKE(object->proxy, IDWALK_CB_USER | IDWALK_CB_NEVER_SELF);
        CALLBACK_INVOKE(object->proxy_group, IDWALK_CB_NOP);

        /* Special case!
         * Since this field is set/owned by 'user' of this ID (and not ID itself),
         * it is only indirect usage if proxy object is linked... Twisted. */
        if (object->proxy_from) {
          data.cb_flag = ID_IS_LINKED(object->proxy_from) ? IDWALK_CB_INDIRECT_USAGE : 0;
        }
        CALLBACK_INVOKE(object->proxy_from, IDWALK_CB_LOOPBACK | IDWALK_CB_NEVER_SELF);
        data.cb_flag = data_cb_flag;

        CALLBACK_INVOKE(object->poselib, IDWALK_CB_USER);

        data.cb_flag |= proxy_cb_flag;
        for (i = 0; i < object->totcol; i++) {
          CALLBACK_INVOKE(object->mat[i], IDWALK_CB_USER);
        }
        data.cb_flag = data_cb_flag;

        /* Note that ob->gpd is deprecated, so no need to handle it here. */
        CALLBACK_INVOKE(object->instance_collection, IDWALK_CB_USER);

        if (object->pd) {
          CALLBACK_INVOKE(object->pd->tex, IDWALK_CB_USER);
          CALLBACK_INVOKE(object->pd->f_source, IDWALK_CB_NOP);
        }
        /* Note that ob->effect is deprecated, so no need to handle it here. */

        if (object->pose) {
          data.cb_flag |= proxy_cb_flag;
          LISTBASE_FOREACH (bPoseChannel *, pchan, &object->pose->chanbase) {
            IDP_foreach_property(
                pchan->prop, IDP_TYPE_FILTER_ID, library_foreach_idpropertiesForeachIDLink, &data);
            CALLBACK_INVOKE(pchan->custom, IDWALK_CB_USER);
            BKE_constraints_id_loop(
                &pchan->constraints, library_foreach_constraintObjectLooper, &data);
          }
          data.cb_flag = data_cb_flag;
        }

        if (object->rigidbody_constraint) {
          CALLBACK_INVOKE(object->rigidbody_constraint->ob1, IDWALK_CB_NEVER_SELF);
          CALLBACK_INVOKE(object->rigidbody_constraint->ob2, IDWALK_CB_NEVER_SELF);
        }

        if (object->lodlevels.first) {
          LISTBASE_FOREACH (LodLevel *, level, &object->lodlevels) {
            CALLBACK_INVOKE(level->source, IDWALK_CB_NEVER_SELF);
          }
        }

        modifiers_foreachIDLink(object, library_foreach_modifiersForeachIDLink, &data);
        BKE_gpencil_modifiers_foreachIDLink(
            object, library_foreach_gpencil_modifiersForeachIDLink, &data);
        BKE_constraints_id_loop(
            &object->constraints, library_foreach_constraintObjectLooper, &data);
        BKE_shaderfx_foreachIDLink(object, library_foreach_shaderfxForeachIDLink, &data);

        LISTBASE_FOREACH (ParticleSystem *, psys, &object->particlesystem) {
          BKE_particlesystem_id_loop(psys, library_foreach_particlesystemsObjectLooper, &data);
        }

        if (object->soft) {
          CALLBACK_INVOKE(object->soft->collision_group, IDWALK_CB_NOP);

          if (object->soft->effector_weights) {
            CALLBACK_INVOKE(object->soft->effector_weights->group, IDWALK_CB_NOP);
          }
        }
        break;
      }

      case ID_AR: {
        bArmature *arm = (bArmature *)id;

        LISTBASE_FOREACH (Bone *, bone, &arm->bonebase) {
          library_foreach_bone(&data, bone);
        }
        break;
      }

      case ID_ME: {
        Mesh *mesh = (Mesh *)id;
        CALLBACK_INVOKE(mesh->texcomesh, IDWALK_CB_NEVER_SELF);
        CALLBACK_INVOKE(mesh->key, IDWALK_CB_USER);
        for (i = 0; i < mesh->totcol; i++) {
          CALLBACK_INVOKE(mesh->mat[i], IDWALK_CB_USER);
        }
        break;
      }

      case ID_CU: {
        Curve *curve = (Curve *)id;
        CALLBACK_INVOKE(curve->bevobj, IDWALK_CB_NOP);
        CALLBACK_INVOKE(curve->taperobj, IDWALK_CB_NOP);
        CALLBACK_INVOKE(curve->textoncurve, IDWALK_CB_NOP);
        CALLBACK_INVOKE(curve->key, IDWALK_CB_USER);
        for (i = 0; i < curve->totcol; i++) {
          CALLBACK_INVOKE(curve->mat[i], IDWALK_CB_USER);
        }
        CALLBACK_INVOKE(curve->vfont, IDWALK_CB_USER);
        CALLBACK_INVOKE(curve->vfontb, IDWALK_CB_USER);
        CALLBACK_INVOKE(curve->vfonti, IDWALK_CB_USER);
        CALLBACK_INVOKE(curve->vfontbi, IDWALK_CB_USER);
        break;
      }

      case ID_MB: {
        MetaBall *metaball = (MetaBall *)id;
        for (i = 0; i < metaball->totcol; i++) {
          CALLBACK_INVOKE(metaball->mat[i], IDWALK_CB_USER);
        }
        break;
      }

      case ID_MA: {
        Material *material = (Material *)id;
        if (material->nodetree) {
          /* nodetree **are owned by IDs**, treat them as mere sub-data and not real ID! */
          library_foreach_ID_as_subdata_link(
              (ID **)&material->nodetree, callback, user_data, flag, &data);
        }
        if (material->texpaintslot != NULL) {
          CALLBACK_INVOKE(material->texpaintslot->ima, IDWALK_CB_NOP);
        }
        if (material->gp_style != NULL) {
          CALLBACK_INVOKE(material->gp_style->sima, IDWALK_CB_USER);
          CALLBACK_INVOKE(material->gp_style->ima, IDWALK_CB_USER);
        }
        break;
      }

      case ID_TE: {
        Tex *texture = (Tex *)id;
        if (texture->nodetree) {
          /* nodetree **are owned by IDs**, treat them as mere sub-data and not real ID! */
          library_foreach_ID_as_subdata_link(
              (ID **)&texture->nodetree, callback, user_data, flag, &data);
        }
        CALLBACK_INVOKE(texture->ima, IDWALK_CB_USER);
        break;
      }

      case ID_LT: {
        Lattice *lattice = (Lattice *)id;
        CALLBACK_INVOKE(lattice->key, IDWALK_CB_USER);
        break;
      }

      case ID_LA: {
        Light *lamp = (Light *)id;
        if (lamp->nodetree) {
          /* nodetree **are owned by IDs**, treat them as mere sub-data and not real ID! */
          library_foreach_ID_as_subdata_link(
              (ID **)&lamp->nodetree, callback, user_data, flag, &data);
        }
        break;
      }

      case ID_CA: {
        Camera *camera = (Camera *)id;
        CALLBACK_INVOKE(camera->dof.focus_object, IDWALK_CB_NOP);
        LISTBASE_FOREACH (CameraBGImage *, bgpic, &camera->bg_images) {
          if (bgpic->source == CAM_BGIMG_SOURCE_IMAGE) {
            CALLBACK_INVOKE(bgpic->ima, IDWALK_CB_USER);
          }
          else if (bgpic->source == CAM_BGIMG_SOURCE_MOVIE) {
            CALLBACK_INVOKE(bgpic->clip, IDWALK_CB_USER);
          }
        }

        break;
      }

      case ID_KE: {
        Key *key = (Key *)id;
        CALLBACK_INVOKE_ID(key->from, IDWALK_CB_LOOPBACK);
        break;
      }

      case ID_WO: {
        World *world = (World *)id;
        if (world->nodetree) {
          /* nodetree **are owned by IDs**, treat them as mere sub-data and not real ID! */
          library_foreach_ID_as_subdata_link(
              (ID **)&world->nodetree, callback, user_data, flag, &data);
        }
        break;
      }

      case ID_SPK: {
        Speaker *speaker = (Speaker *)id;
        CALLBACK_INVOKE(speaker->sound, IDWALK_CB_USER);
        break;
      }

      case ID_LP: {
        LightProbe *probe = (LightProbe *)id;
        CALLBACK_INVOKE(probe->image, IDWALK_CB_USER);
        CALLBACK_INVOKE(probe->visibility_grp, IDWALK_CB_NOP);
        break;
      }

      case ID_GR: {
        Collection *collection = (Collection *)id;
        library_foreach_collection(&data, collection);
        break;
      }

      case ID_NT: {
        bNodeTree *ntree = (bNodeTree *)id;

        CALLBACK_INVOKE(ntree->gpd, IDWALK_CB_USER);

        LISTBASE_FOREACH (bNode *, node, &ntree->nodes) {
          CALLBACK_INVOKE_ID(node->id, IDWALK_CB_USER);

          IDP_foreach_property(
              node->prop, IDP_TYPE_FILTER_ID, library_foreach_idpropertiesForeachIDLink, &data);
          LISTBASE_FOREACH (bNodeSocket *, sock, &node->inputs) {
            IDP_foreach_property(
                sock->prop, IDP_TYPE_FILTER_ID, library_foreach_idpropertiesForeachIDLink, &data);
          }
          LISTBASE_FOREACH (bNodeSocket *, sock, &node->outputs) {
            IDP_foreach_property(
                sock->prop, IDP_TYPE_FILTER_ID, library_foreach_idpropertiesForeachIDLink, &data);
          }
        }

        LISTBASE_FOREACH (bNodeSocket *, sock, &ntree->inputs) {
          IDP_foreach_property(
              sock->prop, IDP_TYPE_FILTER_ID, library_foreach_idpropertiesForeachIDLink, &data);
        }
        LISTBASE_FOREACH (bNodeSocket *, sock, &ntree->outputs) {
          IDP_foreach_property(
              sock->prop, IDP_TYPE_FILTER_ID, library_foreach_idpropertiesForeachIDLink, &data);
        }
        break;
      }

      case ID_BR: {
        Brush *brush = (Brush *)id;
        CALLBACK_INVOKE(brush->toggle_brush, IDWALK_CB_NOP);
        CALLBACK_INVOKE(brush->clone.image, IDWALK_CB_NOP);
        CALLBACK_INVOKE(brush->paint_curve, IDWALK_CB_USER);
        if (brush->gpencil_settings) {
          CALLBACK_INVOKE(brush->gpencil_settings->material, IDWALK_CB_USER);
        }
        library_foreach_mtex(&data, &brush->mtex);
        library_foreach_mtex(&data, &brush->mask_mtex);
        break;
      }

      case ID_PA: {
        ParticleSettings *psett = (ParticleSettings *)id;
        CALLBACK_INVOKE(psett->instance_collection, IDWALK_CB_USER);
        CALLBACK_INVOKE(psett->instance_object, IDWALK_CB_NOP);
        CALLBACK_INVOKE(psett->bb_ob, IDWALK_CB_NOP);
        CALLBACK_INVOKE(psett->collision_group, IDWALK_CB_NOP);

        for (i = 0; i < MAX_MTEX; i++) {
          if (psett->mtex[i]) {
            library_foreach_mtex(&data, psett->mtex[i]);
          }
        }

        if (psett->effector_weights) {
          CALLBACK_INVOKE(psett->effector_weights->group, IDWALK_CB_NOP);
        }

        if (psett->pd) {
          CALLBACK_INVOKE(psett->pd->tex, IDWALK_CB_USER);
          CALLBACK_INVOKE(psett->pd->f_source, IDWALK_CB_NOP);
        }
        if (psett->pd2) {
          CALLBACK_INVOKE(psett->pd2->tex, IDWALK_CB_USER);
          CALLBACK_INVOKE(psett->pd2->f_source, IDWALK_CB_NOP);
        }

        if (psett->boids) {
          LISTBASE_FOREACH (BoidState *, state, &psett->boids->states) {
            LISTBASE_FOREACH (BoidRule *, rule, &state->rules) {
              if (rule->type == eBoidRuleType_Avoid) {
                BoidRuleGoalAvoid *gabr = (BoidRuleGoalAvoid *)rule;
                CALLBACK_INVOKE(gabr->ob, IDWALK_CB_NOP);
              }
              else if (rule->type == eBoidRuleType_FollowLeader) {
                BoidRuleFollowLeader *flbr = (BoidRuleFollowLeader *)rule;
                CALLBACK_INVOKE(flbr->ob, IDWALK_CB_NOP);
              }
            }
          }
        }

        LISTBASE_FOREACH (ParticleDupliWeight *, dw, &psett->instance_weights) {
          CALLBACK_INVOKE(dw->ob, IDWALK_CB_NOP);
        }
        break;
      }

      case ID_MC: {
        MovieClip *clip = (MovieClip *)id;
        MovieTracking *tracking = &clip->tracking;

        CALLBACK_INVOKE(clip->gpd, IDWALK_CB_USER);

        LISTBASE_FOREACH (MovieTrackingTrack *, track, &tracking->tracks) {
          CALLBACK_INVOKE(track->gpd, IDWALK_CB_USER);
        }
        LISTBASE_FOREACH (MovieTrackingObject *, object, &tracking->objects) {
          LISTBASE_FOREACH (MovieTrackingTrack *, track, &object->tracks) {
            CALLBACK_INVOKE(track->gpd, IDWALK_CB_USER);
          }
        }

        LISTBASE_FOREACH (MovieTrackingPlaneTrack *, plane_track, &tracking->plane_tracks) {
          CALLBACK_INVOKE(plane_track->image, IDWALK_CB_USER);
        }
        break;
      }

      case ID_MSK: {
        Mask *mask = (Mask *)id;

        LISTBASE_FOREACH (MaskLayer *, mask_layer, &mask->masklayers) {
          LISTBASE_FOREACH (MaskSpline *, mask_spline, &mask_layer->splines) {
            for (i = 0; i < mask_spline->tot_point; i++) {
              MaskSplinePoint *point = &mask_spline->points[i];
              CALLBACK_INVOKE_ID(point->parent.id, IDWALK_CB_USER);
            }
          }
        }
        break;
      }

      case ID_LS: {
        FreestyleLineStyle *linestyle = (FreestyleLineStyle *)id;

        for (i = 0; i < MAX_MTEX; i++) {
          if (linestyle->mtex[i]) {
            library_foreach_mtex(&data, linestyle->mtex[i]);
          }
        }
        if (linestyle->nodetree) {
          /* nodetree **are owned by IDs**, treat them as mere sub-data and not real ID! */
          library_foreach_ID_as_subdata_link(
              (ID **)&linestyle->nodetree, callback, user_data, flag, &data);
        }

        LISTBASE_FOREACH (LineStyleModifier *, lsm, &linestyle->color_modifiers) {
          if (lsm->type == LS_MODIFIER_DISTANCE_FROM_OBJECT) {
            LineStyleColorModifier_DistanceFromObject *p =
                (LineStyleColorModifier_DistanceFromObject *)lsm;
            if (p->target) {
              CALLBACK_INVOKE(p->target, IDWALK_CB_NOP);
            }
          }
        }
        LISTBASE_FOREACH (LineStyleModifier *, lsm, &linestyle->alpha_modifiers) {
          if (lsm->type == LS_MODIFIER_DISTANCE_FROM_OBJECT) {
            LineStyleAlphaModifier_DistanceFromObject *p =
                (LineStyleAlphaModifier_DistanceFromObject *)lsm;
            if (p->target) {
              CALLBACK_INVOKE(p->target, IDWALK_CB_NOP);
            }
          }
        }
        LISTBASE_FOREACH (LineStyleModifier *, lsm, &linestyle->thickness_modifiers) {
          if (lsm->type == LS_MODIFIER_DISTANCE_FROM_OBJECT) {
            LineStyleThicknessModifier_DistanceFromObject *p =
                (LineStyleThicknessModifier_DistanceFromObject *)lsm;
            if (p->target) {
              CALLBACK_INVOKE(p->target, IDWALK_CB_NOP);
            }
          }
        }
        break;
      }

      case ID_AC: {
        bAction *act = (bAction *)id;

        LISTBASE_FOREACH (TimeMarker *, marker, &act->markers) {
          CALLBACK_INVOKE(marker->camera, IDWALK_CB_NOP);
        }
        break;
      }

      case ID_WM: {
        wmWindowManager *wm = (wmWindowManager *)id;

        LISTBASE_FOREACH (wmWindow *, win, &wm->windows) {
          CALLBACK_INVOKE(win->scene, IDWALK_CB_USER_ONE);

          /* This pointer can be NULL during old files reading, better be safe than sorry. */
          if (win->workspace_hook != NULL) {
            ID *workspace = (ID *)BKE_workspace_active_get(win->workspace_hook);
            CALLBACK_INVOKE_ID(workspace, IDWALK_CB_NOP);
            /* allow callback to set a different workspace */
            BKE_workspace_active_set(win->workspace_hook, (WorkSpace *)workspace);
          }
          if (data.flag & IDWALK_INCLUDE_UI) {
            LISTBASE_FOREACH (ScrArea *, area, &win->global_areas.areabase) {
              library_foreach_screen_area(&data, area);
            }
          }
        }
        break;
      }

      case ID_WS: {
        WorkSpace *workspace = (WorkSpace *)id;
        ListBase *layouts = BKE_workspace_layouts_get(workspace);

        LISTBASE_FOREACH (WorkSpaceLayout *, layout, layouts) {
          bScreen *screen = BKE_workspace_layout_screen_get(layout);

          /* CALLBACK_INVOKE expects an actual pointer, not a variable holding the pointer.
           * However we can't access layout->screen here
           * since we are outside the workspace project. */
          CALLBACK_INVOKE(screen, IDWALK_CB_USER);
          /* allow callback to set a different screen */
          BKE_workspace_layout_screen_set(layout, screen);
        }
        break;
      }

      case ID_GD: {
        bGPdata *gpencil = (bGPdata *)id;
        /* materials */
        for (i = 0; i < gpencil->totcol; i++) {
          CALLBACK_INVOKE(gpencil->mat[i], IDWALK_CB_USER);
        }

        LISTBASE_FOREACH (bGPDlayer *, gplayer, &gpencil->layers) {
          CALLBACK_INVOKE(gplayer->parent, IDWALK_CB_NOP);
        }

        break;
      }
      case ID_HA: {
        Hair *hair = (Hair *)id;
        for (i = 0; i < hair->totcol; i++) {
          CALLBACK_INVOKE(hair->mat[i], IDWALK_CB_USER);
        }
        break;
      }
      case ID_PT: {
        PointCloud *pointcloud = (PointCloud *)id;
        for (i = 0; i < pointcloud->totcol; i++) {
          CALLBACK_INVOKE(pointcloud->mat[i], IDWALK_CB_USER);
        }
        break;
      }
      case ID_VO: {
        Volume *volume = (Volume *)id;
        for (i = 0; i < volume->totcol; i++) {
          CALLBACK_INVOKE(volume->mat[i], IDWALK_CB_USER);
        }
        break;
      }

      case ID_SCR: {
        if (data.flag & IDWALK_INCLUDE_UI) {
          bScreen *screen = (bScreen *)id;

          LISTBASE_FOREACH (ScrArea *, area, &screen->areabase) {
            library_foreach_screen_area(&data, area);
          }
        }
        break;
      }

      /* Nothing needed for those... */
      case ID_IM:
      case ID_VF:
      case ID_TXT:
      case ID_SO:
      case ID_PAL:
      case ID_PC:
      case ID_CF:
        break;

      /* Deprecated. */
      case ID_IP:
        break;
    }
  }

FOREACH_FINALIZE:
  if (data.ids_handled) {
    BLI_gset_free(data.ids_handled, NULL);
    BLI_LINKSTACK_FREE(data.ids_todo);
  }

#undef CALLBACK_INVOKE_ID
#undef CALLBACK_INVOKE
}

#undef FOREACH_CALLBACK_INVOKE_ID
#undef FOREACH_CALLBACK_INVOKE

/**
 * Loop over all of the ID's this data-block links to.
 */
void BKE_library_foreach_ID_link(
    Main *bmain, ID *id, LibraryIDLinkCallback callback, void *user_data, int flag)
{
  library_foreach_ID_link(bmain, NULL, id, callback, user_data, flag, NULL);
}

/**
 * re-usable function, use when replacing ID's
 */
void BKE_library_update_ID_link_user(ID *id_dst, ID *id_src, const int cb_flag)
{
  if (cb_flag & IDWALK_CB_USER) {
    id_us_min(id_src);
    id_us_plus(id_dst);
  }
  else if (cb_flag & IDWALK_CB_USER_ONE) {
    id_us_ensure_real(id_dst);
  }
}

/**
 * Say whether given \a id_type_owner can use (in any way) a data-block of \a id_type_used.
 *
 * This is a 'simplified' abstract version of #BKE_library_foreach_ID_link() above,
 * quite useful to reduce* useless iterations in some cases.
 */
/* XXX This has to be fully rethink, basing check on ID type is not really working anymore
 * (and even worth once IDProps will support ID pointers),
 * we'll have to do some quick checks on IDs themselves... */
bool BKE_library_id_can_use_idtype(ID *id_owner, const short id_type_used)
{
  /* any type of ID can be used in custom props. */
  if (id_owner->properties) {
    return true;
  }

  const short id_type_owner = GS(id_owner->name);

  /* IDProps of armature bones and nodes, and bNode->id can use virtually any type of ID. */
  if (ELEM(id_type_owner, ID_NT, ID_AR)) {
    return true;
  }

  if (ntreeFromID(id_owner)) {
    return true;
  }

  if (BKE_animdata_from_id(id_owner)) {
    /* AnimationData can use virtually any kind of data-blocks, through drivers especially. */
    return true;
  }

  switch ((ID_Type)id_type_owner) {
    case ID_LI:
      return ELEM(id_type_used, ID_LI);
    case ID_SCE:
      return (ELEM(id_type_used,
                   ID_OB,
                   ID_WO,
                   ID_SCE,
                   ID_MC,
                   ID_MA,
                   ID_GR,
                   ID_TXT,
                   ID_LS,
                   ID_MSK,
                   ID_SO,
                   ID_GD,
                   ID_BR,
                   ID_PAL,
                   ID_IM,
                   ID_NT));
    case ID_OB:
      /* Could be more specific, but simpler to just always say 'yes' here. */
      return true;
    case ID_ME:
      return ELEM(id_type_used, ID_ME, ID_KE, ID_MA, ID_IM);
    case ID_CU:
      return ELEM(id_type_used, ID_OB, ID_KE, ID_MA, ID_VF);
    case ID_MB:
      return ELEM(id_type_used, ID_MA);
    case ID_MA:
      return (ELEM(id_type_used, ID_TE, ID_GR));
    case ID_TE:
      return (ELEM(id_type_used, ID_IM, ID_OB));
    case ID_LT:
      return ELEM(id_type_used, ID_KE);
    case ID_LA:
      return (ELEM(id_type_used, ID_TE));
    case ID_CA:
      return ELEM(id_type_used, ID_OB);
    case ID_KE:
      /* Warning! key->from, could be more types in future? */
      return ELEM(id_type_used, ID_ME, ID_CU, ID_LT);
    case ID_SCR:
      return ELEM(id_type_used, ID_SCE);
    case ID_WO:
      return (ELEM(id_type_used, ID_TE));
    case ID_SPK:
      return ELEM(id_type_used, ID_SO);
    case ID_GR:
      return ELEM(id_type_used, ID_OB, ID_GR);
    case ID_NT:
      /* Could be more specific, but node.id has no type restriction... */
      return true;
    case ID_BR:
      return ELEM(id_type_used, ID_BR, ID_IM, ID_PC, ID_TE, ID_MA);
    case ID_PA:
      return ELEM(id_type_used, ID_OB, ID_GR, ID_TE);
    case ID_MC:
      return ELEM(id_type_used, ID_GD, ID_IM);
    case ID_MSK:
      /* WARNING! mask->parent.id, not typed. */
      return ELEM(id_type_used, ID_MC);
    case ID_LS:
      return (ELEM(id_type_used, ID_TE, ID_OB));
    case ID_LP:
      return ELEM(id_type_used, ID_IM);
    case ID_GD:
      return ELEM(id_type_used, ID_MA);
    case ID_WS:
      return ELEM(id_type_used, ID_SCR, ID_SCE);
    case ID_HA:
      return ELEM(id_type_used, ID_MA);
    case ID_PT:
      return ELEM(id_type_used, ID_MA);
    case ID_VO:
      return ELEM(id_type_used, ID_MA);
    case ID_IM:
    case ID_VF:
    case ID_TXT:
    case ID_SO:
    case ID_AR:
    case ID_AC:
    case ID_WM:
    case ID_PAL:
    case ID_PC:
    case ID_CF:
      /* Those types never use/reference other IDs... */
      return false;
    case ID_IP:
      /* Deprecated... */
      return false;
  }
  return false;
}

/* ***** ID users iterator. ***** */
typedef struct IDUsersIter {
  ID *id;

  ListBase *lb_array[MAX_LIBARRAY];
  int lb_idx;

  ID *curr_id;
  int count_direct, count_indirect; /* Set by callback. */
} IDUsersIter;

static int foreach_libblock_id_users_callback(LibraryIDLinkCallbackData *cb_data)
{
  ID **id_p = cb_data->id_pointer;
  const int cb_flag = cb_data->cb_flag;
  IDUsersIter *iter = cb_data->user_data;

  if (*id_p) {
    /* 'Loopback' ID pointers (the ugly 'from' ones, Object->proxy_from and Key->from).
     * Those are not actually ID usage, we can ignore them here.
     */
    if (cb_flag & IDWALK_CB_LOOPBACK) {
      return IDWALK_RET_NOP;
    }

    if (*id_p == iter->id) {
#if 0
      printf(
          "%s uses %s (refcounted: %d, userone: %d, used_one: %d, used_one_active: %d, "
          "indirect_usage: %d)\n",
          iter->curr_id->name,
          iter->id->name,
          (cb_flag & IDWALK_USER) ? 1 : 0,
          (cb_flag & IDWALK_USER_ONE) ? 1 : 0,
          (iter->id->tag & LIB_TAG_EXTRAUSER) ? 1 : 0,
          (iter->id->tag & LIB_TAG_EXTRAUSER_SET) ? 1 : 0,
          (cb_flag & IDWALK_INDIRECT_USAGE) ? 1 : 0);
#endif
      if (cb_flag & IDWALK_CB_INDIRECT_USAGE) {
        iter->count_indirect++;
      }
      else {
        iter->count_direct++;
      }
    }
  }

  return IDWALK_RET_NOP;
}

/**
 * Return the number of times given \a id_user uses/references \a id_used.
 *
 * \note This only checks for pointer references of an ID, shallow usages
 * (like e.g. by RNA paths, as done for FCurves) are not detected at all.
 *
 * \param id_user: the ID which is supposed to use (reference) \a id_used.
 * \param id_used: the ID which is supposed to be used (referenced) by \a id_user.
 * \return the number of direct usages/references of \a id_used by \a id_user.
 */
int BKE_library_ID_use_ID(ID *id_user, ID *id_used)
{
  IDUsersIter iter;

  /* We do not care about iter.lb_array/lb_idx here... */
  iter.id = id_used;
  iter.curr_id = id_user;
  iter.count_direct = iter.count_indirect = 0;

  BKE_library_foreach_ID_link(
      NULL, iter.curr_id, foreach_libblock_id_users_callback, (void *)&iter, IDWALK_READONLY);

  return iter.count_direct + iter.count_indirect;
}

static bool library_ID_is_used(Main *bmain, void *idv, const bool check_linked)
{
  IDUsersIter iter;
  ListBase *lb_array[MAX_LIBARRAY];
  ID *id = idv;
  int i = set_listbasepointers(bmain, lb_array);
  bool is_defined = false;

  iter.id = id;
  iter.count_direct = iter.count_indirect = 0;
  while (i-- && !is_defined) {
    ID *id_curr = lb_array[i]->first;

    if (!id_curr || !BKE_library_id_can_use_idtype(id_curr, GS(id->name))) {
      continue;
    }

    for (; id_curr && !is_defined; id_curr = id_curr->next) {
      if (id_curr == id) {
        /* We are not interested in self-usages (mostly from drivers or bone constraints...). */
        continue;
      }
      iter.curr_id = id_curr;
      BKE_library_foreach_ID_link(
          bmain, id_curr, foreach_libblock_id_users_callback, &iter, IDWALK_READONLY);

      is_defined = ((check_linked ? iter.count_indirect : iter.count_direct) != 0);
    }
  }

  return is_defined;
}

/**
 * Check whether given ID is used locally (i.e. by another non-linked ID).
 */
bool BKE_library_ID_is_locally_used(Main *bmain, void *idv)
{
  return library_ID_is_used(bmain, idv, false);
}

/**
 * Check whether given ID is used indirectly (i.e. by another linked ID).
 */
bool BKE_library_ID_is_indirectly_used(Main *bmain, void *idv)
{
  return library_ID_is_used(bmain, idv, true);
}

/**
 * Combine #BKE_library_ID_is_locally_used() and #BKE_library_ID_is_indirectly_used()
 * in a single call.
 */
void BKE_library_ID_test_usages(Main *bmain, void *idv, bool *is_used_local, bool *is_used_linked)
{
  IDUsersIter iter;
  ListBase *lb_array[MAX_LIBARRAY];
  ID *id = idv;
  int i = set_listbasepointers(bmain, lb_array);
  bool is_defined = false;

  iter.id = id;
  iter.count_direct = iter.count_indirect = 0;
  while (i-- && !is_defined) {
    ID *id_curr = lb_array[i]->first;

    if (!id_curr || !BKE_library_id_can_use_idtype(id_curr, GS(id->name))) {
      continue;
    }

    for (; id_curr && !is_defined; id_curr = id_curr->next) {
      if (id_curr == id) {
        /* We are not interested in self-usages (mostly from drivers or bone constraints...). */
        continue;
      }
      iter.curr_id = id_curr;
      BKE_library_foreach_ID_link(
          bmain, id_curr, foreach_libblock_id_users_callback, &iter, IDWALK_READONLY);

      is_defined = (iter.count_direct != 0 && iter.count_indirect != 0);
    }
  }

  *is_used_local = (iter.count_direct != 0);
  *is_used_linked = (iter.count_indirect != 0);
}

/* ***** IDs usages.checking/tagging. ***** */
static int foreach_libblock_used_linked_data_tag_clear_cb(LibraryIDLinkCallbackData *cb_data)
{
  ID *self_id = cb_data->id_self;
  ID **id_p = cb_data->id_pointer;
  const int cb_flag = cb_data->cb_flag;
  bool *is_changed = cb_data->user_data;

  if (*id_p) {
    /* The infamous 'from' pointers (Key.from, Object.proxy_from, ...).
     * those are not actually ID usage, so we ignore them here. */
    if (cb_flag & IDWALK_CB_LOOPBACK) {
      return IDWALK_RET_NOP;
    }

    /* If checked id is used by an assumed used ID,
     * then it is also used and not part of any linked archipelago. */
    if (!(self_id->tag & LIB_TAG_DOIT) && ((*id_p)->tag & LIB_TAG_DOIT)) {
      (*id_p)->tag &= ~LIB_TAG_DOIT;
      *is_changed = true;
    }
  }

  return IDWALK_RET_NOP;
}

/**
 * Detect orphaned linked data blocks (i.e. linked data not used (directly or indirectly)
 * in any way by any local data), including complex cases like 'linked archipelagoes', i.e.
 * linked data-blocks that use each other in loops,
 * which prevents their deletion by 'basic' usage checks.
 *
 * \param do_init_tag: if \a true, all linked data are checked, if \a false,
 * only linked data-blocks already tagged with #LIB_TAG_DOIT are checked.
 */
void BKE_library_unused_linked_data_set_tag(Main *bmain, const bool do_init_tag)
{
  ID *id;

  if (do_init_tag) {
    FOREACH_MAIN_ID_BEGIN (bmain, id) {
      if (id->lib && (id->tag & LIB_TAG_INDIRECT) != 0) {
        id->tag |= LIB_TAG_DOIT;
      }
      else {
        id->tag &= ~LIB_TAG_DOIT;
      }
    }
    FOREACH_MAIN_ID_END;
  }

  for (bool do_loop = true; do_loop;) {
    do_loop = false;
    FOREACH_MAIN_ID_BEGIN (bmain, id) {
      /* We only want to check that ID if it is currently known as used... */
      if ((id->tag & LIB_TAG_DOIT) == 0) {
        BKE_library_foreach_ID_link(
            bmain, id, foreach_libblock_used_linked_data_tag_clear_cb, &do_loop, IDWALK_READONLY);
      }
    }
    FOREACH_MAIN_ID_END;
  }
}

/**
 * Untag linked data blocks used by other untagged linked data-blocks.
 * Used to detect data-blocks that we can forcefully make local
 * (instead of copying them to later get rid of original):
 * All data-blocks we want to make local are tagged by caller,
 * after this function has ran caller knows data-blocks still tagged can directly be made local,
 * since they are only used by other data-blocks that will also be made fully local.
 */
void BKE_library_indirectly_used_data_tag_clear(Main *bmain)
{
  ListBase *lb_array[MAX_LIBARRAY];

  bool do_loop = true;
  while (do_loop) {
    int i = set_listbasepointers(bmain, lb_array);
    do_loop = false;

    while (i--) {
      LISTBASE_FOREACH (ID *, id, lb_array[i]) {
        if (id->lib == NULL || id->tag & LIB_TAG_DOIT) {
          /* Local or non-indirectly-used ID (so far), no need to check it further. */
          continue;
        }
        BKE_library_foreach_ID_link(
            bmain, id, foreach_libblock_used_linked_data_tag_clear_cb, &do_loop, IDWALK_READONLY);
      }
    }
  }
}
