Method code for $root.clean_root()

[Turn off line numbering]

---

  1: var obj;
  2: 
  3: // Called by $sys.clean_database()
  4: (> .perms(caller(), $sys) <);
  5: (| ._clean_root('trusted, 'trusted_by) |);
  6: (| ._clean_root('trusted_by, 'trusted) |);
  7: (| ._clean_root('writers, 'writes) |);
  8: (| ._clean_root('writes, 'writers) |);
  9: if (!manager) {
 10:     manager = this();
 11:     .change_manager($reaper);
 12: }
 13: if (managed) {
 14:     managed = managed.valid_objects();
 15:     for obj in (managed) {
 16:         refresh();
 17:         if (obj.manager() != this())
 18:             managed = setremove(managed, obj);
 19:     }
 20:     if (!managed)
 21:         clear_var('managed);
 22: }

---

// Created as a part of ColdCore, see: @help Credit