Method code for $english_lib._verb_singular()

[Turn off line numbering]

---

  1: arg string;
  2: var len, a;
  3: 
  4: len = string.length();
  5: if (len > 2 && match_regexp(string, "n't *$"))
  6:     return ._verb_singular(string.subrange(1, len - 3)) + "n't";
  7: else if ((a = string in verb_exceptions.values()))
  8:     return (verb_excetions.keys())[a];
  9: return ._add_s(string, len);

---

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