Changeset 1042

Timestamp:

10/16/09 15:00:06 (2 years ago)

Author:

james

Message:

add support for simple present tense verbs

File:

• trunk/modules/output.tcl (modified) (2 diffs)

trunk/modules/output.tcl

@@ -945 +945 @@
         set extra ""
         regexp -nocase {^(\w+)( (.+))?} $word matches verb extra
-        set newverb ""
-
 
         if [regexp -nocase {(.+[^i])e$} $verb matches a] {
@@ -957 +955 @@
 
         return "${verb}ing$extra"
+}
+
+#
+# makes a work into the simple present
+proc bMotion_make_simple_present { word } {
+
+        # check if we got passed a multi-part verb (sit on)
+        set extra ""
+        regexp -nocase {^(\w+)( (.+))?} $word matches verb extra
+
+        return "${verb}s$extra"
 }