import from .zip file

2012-05-31 16:45:42 -05:00
commit 926705cb97
55 changed files with 291819 additions and 0 deletions
--- a/weed_all.adb
+++ b/weed_all.adb
@@ -0,0 +1,115 @@
+   with TEXT_IO; use TEXT_IO;
+   with INFLECTIONS_PACKAGE; use INFLECTIONS_PACKAGE;
+   procedure WEED_ALL(W : in out STRING; 
+                      POFS : in PART_OF_SPEECH_TYPE) is
+   --  In contrast to the Latin phase where the prioritization takes is at runtime
+   --  for the English most of the work is done beforehand
+   --  both the setting of a priority class for each entry in the scan of DICTLINE
+   --  and the WEEDing/TRIMming done herein
+      KILL : BOOLEAN := FALSE;
+   begin     
+
+      if W'LENGTH <= 1  then
+         --if W(1)  not in  'A'..'Z'  then  
+            KILL := TRUE;
+         --end if;
+      
+      else
+      
+         if   --  WORDS words
+         W = "DECL" or
+         W = "DAT"  or
+         W = "ACC"  or
+         W = "ABL"  or
+         W = "ADJ"  or
+         W = "AD"  or
+         W = "BC"  or
+         W = "COMP"  or
+         W = "SUPER"  or
+         W = "DEMONST"  or
+         W = "INDEF"  or
+         W = "INF"  or
+         W = "KLUDGE"  or
+         W = "NE"  or
+         W = "NW"  or
+         W = "SE"  or
+         W = "SW"  or
+         W = "NT"  or
+         W = "OT"  or
+         W = "PASS"  or
+         W = "L+S"  or
+         W = "St"        
+         
+         then
+         
+            KILL := TRUE;
+         end if;
+      
+      
+      
+      
+         if 
+           --  Articles
+         W = "a"    or
+         W = "an"   or
+         W = "the"  or    
+         W = "The"  or 
+         
+           --  Others  
+         W = "no"   
+         
+         then
+         
+            KILL := TRUE;
+         end if;
+      
+      
+          if   --  Fragments
+             W = "ad"   or     
+             W = "de"   or     
+             W = "bi"   or     
+             W = "di"   or     
+             W = "re"   or     
+             W = "ex"        
+         then
+            KILL := TRUE;
+        end if;
+      
+     
+      
+      
+      
+         if
+             W = "abb"   or     --  Abbreviation  
+             --  Number suffixes   
+             W = "st"   or      --  1st
+             W = "nd"   or      --  2nd
+             W = "rd"   or      --  3rd
+             W = "th"           --  4th
+         then
+            KILL := TRUE;
+        end if;
+      
+        --  Kill abbreviations
+         if W(W'LAST) = '.'  then
+            KILL := TRUE;
+         end if; 
+      
+        --  Kill internal AREA
+         if W(W'LAST) = ':'  then
+            KILL := TRUE;
+         end if;                   
+      
+       end if;
+         
+      
+         if KILL then
+            for I in W'RANGE  loop
+               W(I) := '\';
+            end loop;
+         end if;
+         
+   --PUT_LINE("WEEDed ANY  "  & W & '|' & BOOLEAN'IMAGE(KILL));         
+   
+   end WEED_ALL;
+