Commits

Anonymous committed 0346102

Added to word_ends. Started to handle plurals by use of s?.

Comments (0)

Files changed (1)

adrian/website/HTMLindex.pl

     my(@index, $list_index);
     $list_index = 1;
     my($modifiers) = "(not?|m?any|all|much|little)";
-    my($word_ends) = "(ed|ing|sion|tion|ould|ate|ize)";
+    my($word_ends) = "(ed|ings?|sions?|tions?|ould|ates?|izes?|ances?|ents?)";
     my($words) = "(after|are|on|from|have|under|will|with|we)";
     my($data_pat) = 
 	".*?((\\b$modifiers\\s+)?\\b[-\\w]+$word_ends|$words)\\b.*";