Method code for $code_lib.generate_object_listing()

[Turn off line numbering]

  1: arg objs, multi, @args;
  2: var line, obj, col, name, fmt, out;
  3: 
  4: if (!objs) {
  5:     out = ["** None **"];
  6: } else {
  7:     col = ((| sender().linelen() |) || 79) / 10;
  8:     fmt = "%3L%" + tostr(col * 4) + "L %" + tostr(col) + "L %" + tostr(col) + "R ";
  9:     out = [strfmt(fmt, "#", "Name", "Perms", "Size") + "Manager"];
 10:     col = col * 4;
 11:     for obj in (objs) {
 12:         line = strfmt(fmt, obj.(multi)(@args).length(), obj.namef('xref), $object_lib.see_perms(obj, ["", ""]), obj.size());
 13:         name = obj.manager().namef('xref);
 14:         if (name.length() > col)
 15:             name = name.pad(col);
 16:         out += [line + name];
 17:     }
 18: }
 19: return out;

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit

Tlon