Method code for $english_lib._remove_s()

[Turn off line numbering]

---

  1: arg str;
  2: var len;
  3: 
  4: len = strlen(str);
  5: if (len <= 3 || str[len] != "s")
  6:     return str;
  7: else if (str[len - 1] != "e")
  8:     return substr(str, 1, len - 1);
  9: 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"))
 10:     return substr(str, 1, len - 2);
 11: else if (str[len - 2] == "i")
 12:     return substr(str, 1, len - 3) + "y";
 13: else
 14:     return substr(str, 1, len - 1);

---

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