Changeset 1017 for trunk/modules/output.tcl

Timestamp:

08/10/09 19:27:02 (3 years ago)

Author:

james

Message:

add present participle bits

File:

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

trunk/modules/output.tcl

@@ -830 +830 @@
 
 #
-# makes a work past tense... probably best only use it on verbs :P
+# makes a word past tense... probably best only use it on verbs :P
 proc bMotion_make_past_tense { word } {
 
@@ -837 +837 @@
         regexp -nocase {^(\w+)( (.+))?} $word matches verb extra
         set newverb ""
-
-        putlog "working with $verb"
 
         # handle irregual verbs
@@ -897 +895 @@
 }
 
+#
+# makes a word into present participle
+proc bMotion_make_present_participle { word } {
+
+        # check if we got passed a multi-part verb (sit on)
+        set extra ""
+        regexp -nocase {^(\w+)( (.+))?} $word matches verb extra
+        set newverb ""
+
+
+        if [regexp -nocase {(.+[^i])e$} $verb matches a] {
+                return "${a}ing$extra"
+        }
+
+        if [regexp -nocase {(.+[aeiou])([^aeiouy])$} $verb matches a b] {
+                return "${a}${b}${b}ing$extra"
+        }
+
+        return "${verb}ing$extra"
+}
 
 #