Method code for $english_lib._remove_s()

[Turn on line numbering]

---

arg str;
var len;

len = strlen(str);
if (len <= 3 || str[len] != "s")
    return str;
else if (str[len - 1] != "e")
    return substr(str, 1, len - 1);
else if ((str[len - 2] == "h" && str[len - 3] in "cs" || str[len - 2] in "ox") || str[len - 2] == "s" && !(str[len - 3] in "aeiouy"))
    return substr(str, 1, len - 2);
else if (str[len - 2] == "i")
    return substr(str, 1, len - 3) + "y";
else
    return substr(str, 1, len - 1);

---

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