Changeset 280 for trunk/plugins/en/complex_questions.tcl

Timestamp:

09/19/03 09:25:23 (9 years ago)

Author:

jamesoff

Message:

allow what fact questions to start a/the

File:

• trunk/plugins/en/complex_questions.tcl (modified) (1 diff)

trunk/plugins/en/complex_questions.tcl

@@ -154 +154 @@
       }
       #let's try to process this with facts
-      if [regexp -nocase {is ([^ ]+)} $question ignore term] {
+      if [regexp -nocase {is (an?|the )?([^ ]+)} $question ignore ignore2 term] {
         set term [string map {"?" ""} $term]
         catch {