Method code for $english_lib._add_s()

[Turn on line numbering]

---

arg str;
var len;

len = strlen(str);
if (len < 2)
    return str + "s";
if (str[len] == "y" && !(str[len - 1] in "aeiou"))
    return substr(str, 1, len - 1) + "ies";
else if ((str[len] == "o" && !(str[len - 1] in "aeiouy") || str[len] in "sx") || len > 1 && (substr(str, len - 1, 2) in "chsh") % 2)
    return str + "es";
else
    return str + "s";

---

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