Method code for $english_lib.compress_names()

[Turn off line numbering]

---

  1: arg names, @args;
  2: var c, x, n, ret;
  3: 
  4: if (names == (c = names.compress()))
  5:     return names.to_english(@args);
  6: ret = [];
  7: for x in (c) {
  8:     if ((n = names.count(x)) > 1)
  9:         ret += [n.to_english_text() + " " + ._noun_plural(x.strip_article())];
 10:     else
 11:         ret += [x];
 12: }
 13: return ret.to_english(@args);

---

// Created 11-Nov-1996 as a part of ColdCore, see: @help Credit