DictEngBul is extended to 5000 words and there are few more functions in ParseEngBul

lib/src/bulgarian/ParseEngBul.gf

@@ -31,7 +31,11 @@ lin
   } ;
   
   GerundAP v = {
-    s = \\aform => v.s ! Imperf ! VPresPart aform ;
+    s = \\aform => v.s ! Imperf ! VPresPart aform ++
+                   case v.vtype of {
+                     VMedial c => reflClitics ! c;
+                     _         => []
+                   };
     adv = v.s ! Imperf ! VPresPart (ASg Neut Indef);
     isPre = True
   } ;
@@ -65,4 +69,26 @@ lin
   SlashV2V vv p vp =
       insertSlashObj2 (daComplex vp ! Perf) (slashV vv vv.c2) ;
 
+  PredVPosv np vp = {
+      s = \\t,a,p,o => 
+        let
+          subj = np.s ! (case vp.vtype of {
+                                        VNormal    => RSubj ;
+                                        VMedial  _ => RSubj ;
+                                        VPhrasal c => RObj c}) ;
+          verb  : Bool => Str
+                = \\q => vpTenses vp ! t ! a ! p ! np.a ! q ! Perf ;
+          compl = vp.compl ! np.a
+        in case o of {
+             Main  => compl ++ subj ++ verb ! False  ;
+             Inv   => verb ! False ++ compl ++ subj ;
+             Quest => compl ++ subj ++ verb ! True
+           }
+    } ;
+
+  PassVS vs vp = 
+      insertObj (\\a => vs.s ! Perf ! VPassive (aform a.gn Indef (RObj Acc))
+                        ++ daComplex vp ! Perf ! a)
+                (predV verbBe) ;
+
 }

lib/src/english/DictEng.gf

@@ -86,7 +86,6 @@ lin abhorrence_N = mkN "abhorrence" ;
 lin abhorrent_A = compoundA (mkA "abhorrent");
 lin abide_V = mkV "abide" "abides" "abided" "abided" "abiding";
 lin abide_V2 = mkV2 (mkV "abide" "abides" "abided" "abided" "abiding");
-lin abiding_A = compoundA (mkA "abiding");
 lin ability_N = mkN "ability" "abilities";
 lin abingdon_PN = mkPN "Abingdon";
 lin abject_A = compoundA (mkA "abject");
@@ -178,7 +177,6 @@ lin abstinence_N = mkN "abstinence" ;
 lin abstract_A = compoundA (mkA "abstract");
 lin abstract_N = mkN "abstract" "abstracts";
 lin abstract_V2 = mkV2 (mkV "abstract" "abstracts" "abstracted" "abstracted" "abstracting");
-lin abstracted_A = compoundA (mkA "abstracted");
 lin abstraction_N = mkN "abstraction" "abstractions";
 lin abstruse_A = compoundA (mkA "abstruse");
 lin abstruseness_N = mkN "abstruseness" ;
@@ -243,7 +241,6 @@ lin acclivity_N = mkN "acclivity" "acclivities";
 lin accolade_N = mkN "accolade" "accolades";
 lin accommodate_V = mkV "accommodate";
 lin accommodate_V2 = mkV2 (mkV "accommodate" "accommodates" "accommodated" "accommodated" "accommodating");
-lin accommodating_A = compoundA (mkA "accommodating");
 lin accommodation_N = mkN "accommodation" "accommodations";
 lin accompaniment_N = mkN "accompaniment" "accompaniments";
 lin accompanist_N = mkN "accompanist" "accompanists";
@@ -270,7 +267,6 @@ lin accountant_N = mkN "accountant" "accountants";
 lin accra_PN = mkPN "Accra";
 lin accredit_V2 = mkV2 (mkV "accredit" "accredits" "accredited" "accredited" "accrediting");
 lin accreditation_N = mkN "accreditation";
-lin accredited_A = compoundA (mkA "accredited");
 lin accretion_N = mkN "accretion" "accretions";
 lin accrington_PN = mkPN "Accrington";
 lin accrue_V = mkV "accrue" "accrues" "accrued" "accrued" "accruing";
@@ -291,7 +287,6 @@ lin accuse_V2 = mkV2 (mkV "accuse" "accuses" "accused" "accused" "accusing");
 lin accuser_N = mkN "accuser" "accusers";
 lin accusingly_Adv = mkAdv "accusingly";
 lin accustom_V2 = mkV2 (mkV "accustom" "accustoms" "accustomed" "accustomed" "accustoming");
-lin accustomed_A = compoundA (mkA "accustomed");
 lin ace_N = mkN "ace" "aces";
 lin acerbity_N = mkN "acerbity" "acerbities";
 lin acetate_N = mkN "acetate" "acetates";
@@ -356,8 +351,6 @@ lin act_V = mkV "act" "acts" "acted" "acted" "acting";
 lin act_V2 = mkV2 (mkV "act" "acts" "acted" "acted" "acting");
 lin act_V2V = mkV2V (mkV "act" "acts" "acted" "acted" "acting") noPrep to_Prep ;
 lin act_VA = mkVA (mkV "act" "acts" "acted" "acted" "acting");
-lin acting_A = compoundA (mkA "acting");
-lin acting_N = mkN "acting" ;
 lin actinic_A = compoundA (mkA "actinic");
 lin actinism_N = mkN "actinism" ;
 lin action_N = mkN "action" "actions";
@@ -368,8 +361,8 @@ lin active_A = compoundA (mkA "active");
 lin activism_N = mkN "activism";
 lin activist_N = mkN "activist" "activists";
 lin activity_N = mkN "activity" "activities";
-lin actor_N = mkN "actor" "actors";
+lin actor_N = mkN masculine (mkN "actor" "actors");
-lin actress_N = mkN "actress" "actresses";
+lin actress_N = mkN feminine (mkN "actress" "actresses");
 lin actual_A = compoundA (mkA "actual");
 lin actuality_N = mkN "actuality" "actualities";
 lin actuarial_A = compoundA (mkA "actuarial");
@@ -453,7 +446,6 @@ lin adjectival_A = compoundA (mkA "adjectival");
 lin adjective_N = mkN "adjective" "adjectives";
 lin adjoin_V = mkV "adjoin" "adjoins" "adjoined" "adjoined" "adjoining";
 lin adjoin_V2 = mkV2 (mkV "adjoin" "adjoins" "adjoined" "adjoined" "adjoining");
-lin adjoining_A = compoundA (mkA "adjoining");
 lin adjourn_V = mkV "adjourn" "adjourns" "adjourned" "adjourned" "adjourning";
 lin adjourn_V2 = mkV2 (mkV "adjourn" "adjourns" "adjourned" "adjourned" "adjourning");
 lin adjournment_N = mkN "adjournment" "adjournments";
@@ -479,12 +471,11 @@ lin administration_N = mkN "administration" "administrations";
 lin administrative_A = compoundA (mkA "administrative");
 lin administrator_N = mkN "administrator" "administrators";
 lin admirable_A = compoundA (mkA "admirable");
-lin admiral_N = mkN "admiral" "admirals";
+lin admiral_N = mkN human (mkN "admiral" "admirals");
 lin admiralty_N = mkN "admiralty" "admiralties";
 lin admiration_N = mkN "admiration" ;
 lin admire_V2 = mkV2 (mkV "admire" "admires" "admired" "admired" "admiring");
 lin admirer_N = mkN "admirer" "admirers";
-lin admiring_A = compoundA (mkA "admiring");
 lin admissibility_N = mkN "admissibility" ;
 lin admissible_A = compoundA (mkA "admissible");
 lin admission_N = mkN "admission" "admissions";
@@ -588,7 +579,7 @@ lin aerobatics_N = mkN "aerobatics" "aerobatics";
 lin aerodrome_N = mkN "aerodrome" "aerodromes";
 lin aerodynamic_A = compoundA (mkA "aerodynamic");
 lin aerodynamics_N = mkN "aerodynamics" "aerodynamics";
-lin aeronaut_N = mkN "aeronaut" "aeronauts";
+lin aeronaut_N = mkN human (mkN "aeronaut" "aeronauts");
 lin aeronautics_N = mkN "aeronautics" "aeronautics";
 lin aeroplane_N = mkN "aeroplane" "aeroplanes";
 lin aerosol_N = mkN "aerosol" "aerosols";
@@ -608,8 +599,6 @@ lin affable_A = compoundA (mkA "affable");
 lin affair_N = mkN "affair" "affairs";
 lin affect_V2 = mkV2 (mkV "affect" "affects" "affected" "affected" "affecting");
 lin affectation_N = mkN "affectation" "affectations";
-lin affected_A = compoundA (mkA "affected");
-lin affecting_A = compoundA (mkA "affecting");
 lin affection_N = mkN "affection" "affections";
 lin affectionate_A = compoundA (mkA "affectionate");
 lin affiance_V2 = mkV2 (mkV "affiance" "affiances" "affianced" "affianced" "affiancing");
@@ -739,14 +728,12 @@ lin agm_N = mkN "agm" ;
 lin agnail_N = mkN "agnail" ;
 lin agnes_PN = mkPN "Agnes";
 lin agnostic_A = compoundA (mkA "agnostic");
-lin agnostic_N = mkN "agnostic" "agnostics";
+lin agnostic_N = mkN human (mkN "agnostic" "agnostics");
 lin agnosticism_N = mkN "agnosticism" ;
 lin ago_Adv = mkAdv "ago";
 lin ago_Prep = mkPrep "ago";
 lin agog_A = compoundA (mkA "agog");
 lin agonize_V = mkV "agonize";
-lin agonized_A = compoundA (mkA "agonized");
-lin agonizing_A = compoundA (mkA "agonizing");
 lin agony_N = mkN "agony" "agonies";
 lin agora_N = mkN "agora" "agoras";
 lin agoraphobia_N = mkN "agoraphobia" ;
@@ -1022,7 +1009,7 @@ lin alpha_N = mkN "alpha" "alphas";
 lin alphabet_N = mkN "alphabet" "alphabets";
 lin alphabetical_A = compoundA (mkA "alphabetical");
 lin alpine_A = compoundA (mkA "alpine");
-lin alpinist_N = mkN "alpinist" "alpinists";
+lin alpinist_N = mkN human (mkN "alpinist" "alpinists");
 lin already_Adv = mkAdv "already";
 lin already_AdV = mkAdV "already";
 lin alright_Adv = mkAdv "alright";
@@ -1052,7 +1039,7 @@ lin altogether_Adv = mkAdv "altogether";
 lin alton_PN = mkPN "Alton";
 lin altrincham_PN = mkPN "Altrincham";
 lin altruism_N = mkN "altruism" "altruisms";
-lin altruist_N = mkN "altruist" "altruists";
+lin altruist_N = mkN human (mkN "altruist" "altruists");
 lin altruistic_A = compoundA (mkA "altruistic");
 lin altruistically_Adv = mkAdv "altruistically";
 lin alum_N = mkN "alum" ;
@@ -1082,9 +1069,9 @@ lin amaze_V2V = mkV2V (mkV "amaze") noPrep to_Prep ;
 lin amazement_N = mkN "amazement" ;
 lin amazing_A = compoundA (mkA "amazing");
 lin amazon_N = mkN "amazon" "amazons";
-lin ambassador_N = mkN "ambassador" "ambassadors";
+lin ambassador_N = mkN masculine (mkN "ambassador" "ambassadors");
 lin ambassadorial_A = compoundA (mkA "ambassadorial");
-lin ambassadress_N = mkN "ambassadress" "ambassadresses";
+lin ambassadress_N = mkN feminine (mkN "ambassadress" "ambassadresses");
 lin amber_N = mkN "amber" ;
 lin ambergris_N = mkN "ambergris" ;
 lin ambidextrous_A = compoundA (mkA "ambidextrous");
@@ -1191,7 +1178,7 @@ lin anaemic_A = compoundA (mkA "anaemic");
 lin anaesthesia_N = mkN "anaesthesia" ;
 lin anaesthetic_A = compoundA (mkA "anaesthetic");
 lin anaesthetic_N = mkN "anaesthetic" "anaesthetics";
-lin anaesthetist_N = mkN "anaesthetist" "anaesthetists";
+lin anaesthetist_N = mkN human (mkN "anaesthetist" "anaesthetists");
 lin anaesthetize_V2 = mkV2 (mkV "anaesthetize" "anaesthetizes" "anaesthetized" "anaesthetized" "anaesthetizing");
 lin anagram_N = mkN "anagram" "anagrams";
 lin anal_A = compoundA (mkA "anal");
@@ -1220,9 +1207,9 @@ lin anathematize_V2 = mkV2 (mkV "anathematize" "anathematizes" "anathematized" "
 lin anatomical_A = compoundA (mkA "anatomical");
 lin anatomist_N = mkN "anatomist" "anatomists";
 lin anatomy_N = mkN "anatomy" ;
-lin ancestor_N = mkN "ancestor" "ancestors";
+lin ancestor_N = mkN masculine (mkN "ancestor" "ancestors");
 lin ancestral_A = compoundA (mkA "ancestral");
-lin ancestress_N = mkN "ancestress" "ancestresses";
+lin ancestress_N = mkN feminine (mkN "ancestress" "ancestresses");
 lin ancestry_N = mkN "ancestry" "ancestries";
 lin anchor_N = mkN "anchor" "anchors";
 lin anchor_V = mkV "anchor" "anchors" "anchored" "anchored" "anchoring";
@@ -12488,7 +12475,7 @@ lin eurasia_PN = mkPN "Eurasia";
 lin eurasian_A = compoundA (mkA "eurasian");
 lin eurasian_N = mkN "eurasian" "eurasians";
 lin eurhythmics_N = mkN "eurhythmics" "eurhythmics";
-lin euro_N = mkN "euro";
+lin euro_N = mkN "euro" "euros";
 lin eurodollar_N = mkN "eurodollar" "eurodollars";
 lin europe_PN = mkPN "Europe";
 lin european_A = compoundA (mkA "European");
@@ -12740,7 +12727,6 @@ lin expansiveness_N = mkN "expansiveness" ;
 lin expatiate_V = mkV "expatiate" "expatiates" "expatiated" "expatiated" "expatiating";
 lin expatriate_N = mkN "expatriate" "expatriates";
 lin expatriate_V2 = mkV2 (mkV "expatriate" "expatriates" "expatriated" "expatriated" "expatriating");
-lin expect_Prep = mkPrep "expect";
 lin expect_V = mkV "expect";
 lin expect_V2 = mkV2 (mkV "expect");
 lin expect_V2V = mkV2V (mkV "expect") noPrep (mkPrep "to") ;
@@ -12749,7 +12735,6 @@ lin expect_VS = mkVS (mkV "expect");
 lin expectancy_N = mkN "expectancy" "expectancies";
 lin expectant_A = compoundA (mkA "expectant");
 lin expectation_N = mkN "expectation" "expectations";
-lin expected_A = compoundA (mkA "expected");
 lin expectorant_N = mkN "expectorant" "expectorants";
 lin expectorate_V = mkV "expectorate" "expectorates" "expectorated" "expectorated" "expectorating";
 lin expectorate_V2 = mkV2 (mkV "expectorate" "expectorates" "expectorated" "expectorated" "expectorating");
@@ -15119,7 +15104,7 @@ lin generous_A = compoundA (mkA "generous");
 lin genesis_N = mkN "genesis" "geneses" {- FIXME: guessed plural form -};
 lin genetic_A = compoundA (mkA "genetic");
 lin genetically_Adv = mkAdv "genetically";
-lin geneticist_N = mkN "geneticist" "geneticists";
+lin geneticist_N = mkN human (mkN "geneticist" "geneticists");
 lin genetics_N = mkN "genetics" "genetics";
 lin geneva_PN = mkPN "Geneva";
 lin genial_A = compoundA (mkA "genial");
@@ -15141,11 +15126,11 @@ lin gentile_A = compoundA (mkA "gentile");
 lin gentile_N = mkN "gentile" "gentiles";
 lin gentility_N = mkN "gentility" ;
 lin gentle_A = mkA "gentle" "gentler";
-lin gentleman_N = mkN "gentleman" "gentlemen" {- FIXME: guessed plural form -};
+lin gentleman_N = mkN masculine (mkN "gentleman" "gentlemen");
 lin gentleman_at_arms_N = mkN "gentleman - at - arms" "gentlemen-*at - arms";
 lin gentlemanly_A = compoundA (mkA "gentlemanly");
 lin gentleness_N = mkN "gentleness" ;
-lin gentlewoman_N = mkN "gentlewoman" "gentlewomen" {- FIXME: guessed plural form -};
+lin gentlewoman_N = mkN feminine (mkN "gentlewoman" "gentlewomen");
 lin gently_Adv = mkAdv "gently";
 lin gentry_N = mkN "gentry" "gentry";
 lin genuflect_V = mkV "genuflect" "genuflects" "genuflected" "genuflected" "genuflecting";
@@ -15157,7 +15142,7 @@ lin genus_N = mkN "genus" "geni" {- FIXME: guessed plural form -};
 lin geocentric_A = compoundA (mkA "geocentric");
 lin geoff_PN = mkPN "Geoff";
 lin geoffrey_PN = mkPN "Geoffrey";
-lin geographer_N = mkN "geographer" "geographers";
+lin geographer_N = mkN human (mkN "geographer" "geographers");
 lin geographical_A = compoundA (mkA "geographical");
 lin geography_N = mkN "geography" ;
 lin geological_A = compoundA (mkA "geological");
@@ -15237,8 +15222,8 @@ lin ghoul_N = mkN "ghoul" "ghouls";
 lin ghoulish_A = compoundA (mkA "ghoulish");
 lin ghq_PN = mkPN "Ghq";
 lin gi_N = mkN "gi" ;
-lin giant_N = mkN "giant" "giants";
+lin giant_N = mkN masculine (mkN "giant" "giants");
-lin giantess_N = mkN "giantess" "giantesses";
+lin giantess_N = mkN feminine (mkN "giantess" "giantesses");
 lin gibber_V = mkV "gibber" "gibbers" "gibbered" "gibbered" "gibbering";
 lin gibberish_N = mkN "gibberish" ;
 lin gibbet_N = mkN "gibbet" "gibbets";
@@ -15501,16 +15486,16 @@ lin gobbledygook_N = mkN "gobbledygook" ;
 lin gobbler_N = mkN "gobbler" "gobblers";
 lin goblet_N = mkN "goblet" "goblets";
 lin goblin_N = mkN "goblin" "goblins";
-lin god_N = mkN "god" "gods";
+lin god_N = mkN masculine (mkN "god" "gods");
 lin god_PN = mkPN "God";
 lin god_damn_A = compoundA (mkA "god - damn");
 lin god_damned_A = compoundA (mkA "god - damned");
 lin godalming_PN = mkPN "Godalming";
-lin godchild_N = mkN "godchild" "godchildren" {- FIXME: guessed plural form -};
+lin godchild_N = mkN "godchild" "godchildren";
 lin goddam_A = compoundA (mkA "goddam");
 lin goddam_Adv = mkAdv "goddam";
 lin goddaughter_N = mkN "goddaughter" "goddaughters";
-lin goddess_N = mkN "goddess" "goddesses";
+lin goddess_N = mkN feminine (mkN "goddess" "goddesses");
 lin godfather_N = mkN "godfather" "godfathers";
 lin godfearing_A = compoundA (mkA "godfearing");
 lin godforsaken_A = compoundA (mkA "godforsaken");
@@ -15562,7 +15547,7 @@ lin goliath_N = mkN "goliath" "goliaths";
 lin golliwog_N = mkN "golliwog" "golliwogs";
 lin golosh_N = mkN "golosh" "goloshes";
 lin gondola_N = mkN "gondola" "gondolas";
-lin gondolier_N = mkN "gondolier" "gondoliers";
+lin gondolier_N = mkN human (mkN "gondolier" "gondoliers");
 lin goner_N = mkN "goner" "goners";
 lin gong_N = mkN "gong" "gongs";
 lin gong_V2 = mkV2 (mkV "gong" "gongs" "gonged" "gonged" "gonging");
@@ -23850,8 +23835,8 @@ lin mural_A = compoundA (mkA "mural");
 lin mural_N = mkN "mural" "murals";
 lin murder_N = mkN "murder" "murders";
 lin murder_V2 = mkV2 (mkV "murder" "murders" "murdered" "murdered" "murdering");
-lin murderer_N = mkN "murderer" "murderers";
+lin murderer_N = mkN masculine (mkN "murderer" "murderers");
-lin murderess_N = mkN "murderess" "murderesses";
+lin murderess_N = mkN feminine (mkN "murderess" "murderesses");
 lin murderous_A = compoundA (mkA "murderous");
 lin muriel_PN = mkPN "Muriel";
 lin murk_N = mkN "murk" ;
@@ -26976,6 +26961,7 @@ lin persona_non_grata_N = mkN "persona non grata" "persona non gratae" {- FIXME:
 lin personable_A = compoundA (mkA "personable");
 lin personage_N = mkN "personage" "personages";
 lin personal_A = compoundA (mkA "personal");
+lin personal_N = mkN "personal";
 lin personnel_N = mkN "personnel";
 lin personality_N = mkN "personality" "personalities";
 lin personalize_V2 = mkV2 (mkV "personalize" "personalizes" "personalized" "personalized" "personalizing");
@@ -27658,7 +27644,7 @@ lin playschool_N = mkN "playschool" "playschools";
 lin playsuit_N = mkN "playsuit" "playsuits";
 lin plaything_N = mkN "plaything" "playthings";
 lin playtime_N = mkN "playtime" "playtimes";
-lin playwright_N = mkN "playwright" "playwrights";
+lin playwright_N = mkN human (mkN "playwright" "playwrights");
 lin plaza_N = mkN "plaza" "plazas";
 lin plc_PN = mkPN "Plc";
 lin plea_N = mkN "plea" "pleas";
@@ -30999,7 +30985,6 @@ lin reservation_N = mkN "reservation" "reservations";
 lin reserve_N = mkN "reserve" "reserves";
 lin reserve_V = mkV "reserve";
 lin reserve_V2 = mkV2 (mkV "reserve" "reserves" "reserved" "reserved" "reserving");
-lin reserved_A = compoundA (mkA "reserved");
 lin reservist_N = mkN "reservist" "reservists";
 lin reservoir_N = mkN "reservoir" "reservoirs";
 lin reset_V = mkV "reset";
@@ -31188,9 +31173,7 @@ lin retinue_N = mkN "retinue" "retinues";
 lin retire_N = mkN "retire" "IRREG";
 lin retire_V = mkV "retire" "retires" "retired" "retired" "retiring";
 lin retire_V2 = mkV2 (mkV "retire" "retires" "retired" "retired" "retiring");
-lin retired_A = compoundA (mkA "retired");
 lin retirement_N = mkN "retirement" "retirements";
-lin retiring_A = compoundA (mkA "retiring");
 lin retool_V2 = mkV2 (mkV "retool" "retools" "retooled" "retooled" "retooling");
 lin retort_N = mkN "retort" "retorts";
 lin retort_V = mkV "retort" "retorts" "retorted" "retorted" "retorting";
@@ -33438,7 +33421,7 @@ lin sevenfold_Adv = mkAdv "sevenfold";
 lin sevenoaks_PN = mkPN "Sevenoaks";
 lin sever_V = mkV "sever" "severs" "severed" "severed" "severing";
 lin sever_V2 = mkV2 (mkV "sever" "severs" "severed" "severed" "severing");
-lin several_A = compoundA (mkA "several");
+lin several_Num = {s = table {Nom => "several"; Gen => "several's"}; n = Pl; hasCard = True} ;
 lin severally_Adv = mkAdv "severally";
 lin severance_N = mkN "severance" ;
 lin severe_A = mkA "severe" "severer";
@@ -43146,7 +43129,7 @@ lin zone_V2 = mkV2 (mkV "zone" "zones" "zoned" "zoned" "zoning");
 lin zoning_N = mkN "zoning" ;
 lin zoo_N = mkN "zoo" "zoos";
 lin zoological_A = compoundA (mkA "zoological");
-lin zoologist_N = mkN "zoologist" "zoologists";
+lin zoologist_N = mkN human (mkN "zoologist" "zoologists");
 lin zoology_N = mkN "zoology" ;
 lin zoom_N = mkN "zoom" ;
 lin zoom_V = mkV "zoom" "zooms" "zoomed" "zoomed" "zooming";

lib/src/english/DictEngAbs.gf

@@ -81,7 +81,6 @@ fun abhorrence_N : N;
 fun abhorrent_A : A;
 fun abide_V : V;
 fun abide_V2 : V2;
-fun abiding_A : A;
 fun ability_N : N;
 fun abingdon_PN : PN;
 fun abject_A : A;
@@ -173,7 +172,6 @@ fun abstinence_N : N;
 fun abstract_A : A;
 fun abstract_N : N;
 fun abstract_V2 : V2;
-fun abstracted_A : A;
 fun abstraction_N : N;
 fun abstruse_A : A;
 fun abstruseness_N : N;
@@ -238,7 +236,6 @@ fun acclivity_N : N;
 fun accolade_N : N;
 fun accommodate_V : V;
 fun accommodate_V2 : V2;
-fun accommodating_A : A;
 fun accommodation_N : N;
 fun accompaniment_N : N;
 fun accompanist_N : N;
@@ -265,7 +262,6 @@ fun accountant_N : N;
 fun accra_PN : PN;
 fun accredit_V2 : V2;
 fun accreditation_N : N;
-fun accredited_A : A;
 fun accretion_N : N;
 fun accrington_PN : PN;
 fun accrue_V : V;
@@ -286,7 +282,6 @@ fun accuse_V2 : V2;
 fun accuser_N : N;
 fun accusingly_Adv : Adv;
 fun accustom_V2 : V2;
-fun accustomed_A : A;
 fun ace_N : N;
 fun acerbity_N : N;
 fun acetate_N : N;
@@ -351,8 +346,6 @@ fun act_V : V;
 fun act_V2 : V2;
 fun act_V2V : V2V;
 fun act_VA : VA;
-fun acting_A : A;
-fun acting_N : N;
 fun actinic_A : A;
 fun actinism_N : N;
 fun action_N : N;
@@ -448,7 +441,6 @@ fun adjectival_A : A;
 fun adjective_N : N;
 fun adjoin_V : V;
 fun adjoin_V2 : V2;
-fun adjoining_A : A;
 fun adjourn_V : V;
 fun adjourn_V2 : V2;
 fun adjournment_N : N;
@@ -479,7 +471,6 @@ fun admiralty_N : N;
 fun admiration_N : N;
 fun admire_V2 : V2;
 fun admirer_N : N;
-fun admiring_A : A;
 fun admissibility_N : N;
 fun admissible_A : A;
 fun admission_N : N;
@@ -603,8 +594,6 @@ fun affable_A : A;
 fun affair_N : N;
 fun affect_V2 : V2;
 fun affectation_N : N;
-fun affected_A : A;
-fun affecting_A : A;
 fun affection_N : N;
 fun affectionate_A : A;
 fun affiance_V2 : V2;
@@ -740,8 +729,6 @@ fun ago_Adv : Adv;
 fun ago_Prep : Prep ;
 fun agog_A : A;
 fun agonize_V : V;
-fun agonized_A : A;
-fun agonizing_A : A;
 fun agony_N : N;
 fun agora_N : N;
 fun agoraphobia_N : N;
@@ -12720,7 +12707,6 @@ fun expansiveness_N : N;
 fun expatiate_V : V;
 fun expatriate_N : N;
 fun expatriate_V2 : V2;
-fun expect_Prep : Prep ;
 fun expect_V : V;
 fun expect_V2 : V2;
 fun expect_V2V : V2V;
@@ -12729,7 +12715,6 @@ fun expect_VS : VS;
 fun expectancy_N : N;
 fun expectant_A : A;
 fun expectation_N : N;
-fun expected_A : A;
 fun expectorant_N : N;
 fun expectorate_V : V;
 fun expectorate_V2 : V2;
@@ -26924,6 +26909,7 @@ fun persona_non_grata_N : N;
 fun personable_A : A;
 fun personage_N : N;
 fun personal_A : A;
+fun personal_N : N;
 fun personnel_N : N;
 fun personality_N : N;
 fun personalize_V2 : V2;
@@ -30945,7 +30931,6 @@ fun reservation_N : N;
 fun reserve_N : N;
 fun reserve_V : V;
 fun reserve_V2 : V2;
-fun reserved_A : A;
 fun reservist_N : N;
 fun reservoir_N : N;
 fun reset_V : V;
@@ -31134,9 +31119,7 @@ fun retinue_N : N;
 fun retire_N : N;
 fun retire_V : V;
 fun retire_V2 : V2;
-fun retired_A : A;
 fun retirement_N : N;
-fun retiring_A : A;
 fun retool_V2 : V2;
 fun retort_N : N;
 fun retort_V : V;
@@ -33384,7 +33367,7 @@ fun sevenfold_Adv : Adv;
 fun sevenoaks_PN : PN;
 fun sever_V : V;
 fun sever_V2 : V2;
-fun several_A : A;
+fun several_Num : Num;
 fun severally_Adv : Adv;
 fun severance_N : N;
 fun severe_A : A;

lib/src/english/ParseEngAbs.gf

@@ -12,12 +12,15 @@ abstract ParseEngAbs =
   Sentence,
   Question,
   Relative,
-  Idiom [NP, VP, Cl, ProgrVP, ExistNP],
+  Idiom [NP, VP, Cl, Tense, ProgrVP, ExistNP],
   Extra [NP, Quant, VPSlash, VP, GenNP, PassVPSlash,
-         Temp, Pol, Conj, VPS, ListVPS, S, Num, CN, RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,
+         Temp, Tense, Pol, Conj, VPS, ListVPS, S, Num, CN, RP, MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, GenRP,
          VPI, ListVPI, VV, MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV],
   DictEngAbs ** {
 
+flags
+  startcat=Phr;
+
 fun CompoundCN : Num -> N -> CN -> CN ;
     DashCN : N -> N -> N ;
     GerundN : V -> N ;