Method code for $registry<$root>.is_writable_by()

[Turn off line numbering]

---

  1: arg obj;
  2: var o;
  3: 
  4: for o in (.writers()) {
  5:     if (o.has_ancestor($group)) {
  6:         if (o.includes(obj))
  7:             return 1;
  8:     } else if (o == obj) {
  9:         return 1;
 10:     }
 11: }
 12: return $sys.is_system(obj);
 13: 
 14: // return (| obj in .writers() |) || $sys.is_system(obj);

---

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