View/Edit #2027:verb_sub

Name(s): verb_sub

1:  "$you:verb_sub(STR verbspec) -> returns verbspec conjugated for singular use as if `you' were saying it."
2:  "return $gender_utils:get_conj(args[1], this);"
3:  x = args[1]
4:  len = length(x)
5:  if (len > 3 && rindex(x, "n't") == len - 3)
6:    return this:verb_sub(x[1..len - 3]) + "n't"
7:  endif
8:  for y in (this.conjugations)
9:    if (x == y[1])
10:     return y[2]
11:   endif
12: endfor
13: for y in ({{"ches", "ch"}, {"ies", "y"}, {"sses", "ss"}, {"shes", "sh"}, {"s", ""}})
14:   if (len > length(y[1]) && rindex(x, y[1]) == len - length(y[1]) + 1)
15:     return x[1..len - length(y[1])] + y[2]
16:   endif
17: endfor
18: return x
19: "Last modified by Cecil (#7407) on Mon Feb 11 15:36:33 2002 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Cecil (#7407)

You are not logged in.