Method code for $sys.finish_core()

[Turn off line numbering]

---

  1: var i;
  2: 
  3: // cleanup heartbeat
  4: set_heartbeat(1);
  5: .add_method(TMP_HEARTBEAT_CODE, 'heartbeat);
  6: .del_var('TMP_HEARTBEAT_CODE);
  7: 
  8: // ok, finish up
  9: catch any {
 10:     dblog("** Verifying all non-core objects were destroyed");
 11:     for i in ($root.descendants()) {
 12:         refresh();
 13:         if (!i.has_flag('core))
 14:             dblog("** !!!!! " + i + " was not destroyed !!!!!");
 15:     }
 16:     .del_var('__making_core);
 17:     dblog("** corifying remaining objects");
 18:     $root.corify();
 19:     dblog("** cleaning database..");
 20:     .clean_database();
 21:     dblog("** shutting down..");
 22:     shutdown();
 23: } with {
 24:     dblog("traceback: " + traceback());
 25: }

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]