Method code for $object_lib.see_perms()

[Turn off line numbering]

---

  1: arg obj, @args;
  2: var str, flag, who, encapsulate, flags;
  3: 
  4: [(encapsulate ?= ["[", "]"])] = args;
  5: str = encapsulate[1];
  6: flags = obj.flags();
  7: if ('core in flags) {
  8:     flags = flags.setremove('core);
  9:     str += "*";
 10: } else {
 11:     str += "-";
 12: }
 13: if ('fertile in flags) {
 14:     flags = flags.setremove('fertile);
 15:     str += "f";
 16: } else {
 17:     str += "-";
 18: }
 19: if ('methods in flags) {
 20:     flags = flags.setremove('methods);
 21:     str += "m";
 22: } else {
 23:     str += "-";
 24: }
 25: if ('variables in flags) {
 26:     flags = flags.setremove('variables);
 27:     str += "v";
 28: } else {
 29:     str += "-";
 30: }
 31: if ('code in flags) {
 32:     flags = flags.setremove('code);
 33:     str += "c";
 34: } else {
 35:     str += "-";
 36: }
 37: for flag in (flags)
 38:     str += tostr(flag)[1].uppercase();
 39: return str + encapsulate[2];
 40: 
 41: // $#Edited: 09 Jul 97 16:35 $brandon

---

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