Method code for $english_lib.compress_names()

[Turn on line numbering]

---

arg names, @args;
var c, x, n, ret;

if (names == (c = names.compress()))
    return names.to_english(@args);
ret = [];
for x in (c) {
    if ((n = names.count(x)) > 1)
        ret += [n.to_english_text() + " " + ._noun_plural(x.strip_article())];
    else
        ret += [x];
}
return ret.to_english(@args);

---

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