Method code for $root.corify_descendants_of()

[Turn off line numbering]

---

  1: arg obj;
  2: var d, name, l;
  3: 
  4: name = (| tosym("core_" + obj.objname()) |);
  5: catch ~methodnf {
  6:     if ((> obj.find_method(name) <) != obj) {
  7:         $sys.log("** Coremethod for " + obj + " in wrong place (on " + obj.find_method(name) + ") **");
  8:         return;
  9:     }
 10: } with {
 11:     return;
 12: }
 13: for d in ([obj] + obj.descendants()) {
 14:     catch any {
 15:         (> d.(name)() <);
 16:     } with {
 17:         $sys.log("** ERROR encountered in " + d + "." + name + "():");
 18:         for l in ($parse_lib.traceback(traceback()))
 19:             $sys.log(l);
 20:     }
 21:     refresh();
 22: }

---

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