Method code for $connection<$root>.set_flags()

[Turn off line numbering]

  1: arg new_flags;
  2: 
  3: (> .perms(sender(), 'manager) <);
  4: (> $sys.touch() <);
  5: if (type(new_flags) != 'list)
  6:     throw(~invflags, "Flags must be submitted as a list of symbols.");
  7: if (!new_flags && flags)
  8:     return clear_var('flags);
  9: if (('core in new_flags && !('core in .flags())) && !$sys.is_system(sender()))
 10:     throw(~perm, "Only system objects can set the 'core flag.");
 11: if ('fertile in new_flags && !('fertile in flags))
 12:     (> .perms(sender(), 'manager) <);
 13: flags = new_flags;

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

Tlon