Changeset 1028 for trunk/modules/system.tcl

Timestamp:

09/01/09 19:44:48 (3 years ago)

Author:

james

Message:

update sillyThings stopwords list

File:

• trunk/modules/system.tcl (modified) (1 diff)

trunk/modules/system.tcl

@@ -1210 +1210 @@
 proc bMotion_filter_sillyThings { item } {
         if [regexp {[^A-Za-z0-9 '-]} $item] {
-                return false
+                return 0
         }
 
         if [regexp -nocase {^(for|i)\M} $item] {
-                return false
+                return 0
         }
 
         # -rty, -ted?
 
-        if [regexp -nocase {\m(and|for|to|be)$} $item] {
-                return false
-        }
-
-        if [regexp -nocase {(ly)$} $item] {
-                return false
-        }
-
-        return true
+        if [regexp -nocase {\m(better|bigger|clever|other|rather|the|and|for|to|be)$} $item] {
+                return 0
+        }
+
+        if [regexp -nocase {(est|ly)$} $item] {
+                return 0
+        }
+
+        return 1
 }