Method code for $english_lib._add_s()

[Turn off line numbering]

---

  1: arg str;
  2: var len;
  3: 
  4: len = strlen(str);
  5: if (len < 2)
  6:     return str + "s";
  7: if (str[len] == "y" && !(str[len - 1] in "aeiou"))
  8:     return substr(str, 1, len - 1) + "ies";
  9: else if ((str[len] == "o" && !(str[len - 1] in "aeiouy") || str[len] in "sx") || len > 1 && (substr(str, len - 1, 2) in "chsh") % 2)
 10:     return str + "es";
 11: else
 12:     return str + "s";

---

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