Remove the grammars directory. It was full of old grammars that don't compile these days. See the old source distributions if you want them.

12 files changed, 0 insertions, 977 deletions

diff --git a/grammars/health/ExtraEng.gf b/grammars/health/ExtraEng.gf
deleted file mode 100644
index 302609705..000000000
--- a/grammars/health/ExtraEng.gf
+++ /dev/null
@@ -1,65 +0,0 @@
--- use this path to read the grammar from the same directory

---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/english

-

---1 Functions that are not in the API, but common in Russian 

---

--- Aarne Ranta, Janna Khegai 2003

-

-resource ExtraEng = open PredicationEng, ResourceEng, Prelude, SyntaxEng in {

-

-oper 

-  BodyCNCategory : Type =   

-     { s : Bool => Number => Case => Str ; painInType : Bool} ;

-

-  mkPain: BodyCNCategory -> CN = \body ->

-     cnNoHum({ s = \\_,_ => body.s ! body.painInType ! Sg ! Nom  })** {lock_CN = <>} ;       

-

-  mkBody: BodyCNCategory -> CN = \body ->

-     cnNoHum({ s = \\n,_ => body.s ! True ! n ! Nom })** {lock_CN = <>} ;       

-

-  injuredBody: TV -> NP -> BodyCNCategory -> S = 

-    \haveInjured, patient, head -> 

-    predV2 haveInjured patient (hisHead patient (mkBody head) **{lock_NP = <>}) ;

-

-  nullDet : Det = mkDeterminer Sg [] ** {lock_Det = <>};

-

-  hisHead: NP -> CN -> NP =\patient, head ->

-    { s =\\c => patient.s ! GenP ++ head.s ! patient.n ! Nom ; 

-      n = patient.n ; p = P3 ; lock_NP = <>} ;

-

-  tvHave: TV = mkTransVerbDir verbP3Have ** {lock_TV = <>};

-

-

-  painInPatientsBody: CN -> NP -> BodyCNCategory -> S = 

-    \pain, patient, head -> case head.painInType of { 

-      False => predV2 tvHave patient (DetNP (aDet** {lock_Det = <>}) ( mkPain head));

-      True => predV2 tvHave patient (DetNP nullDet 

-       (

-        cnNoHum(appFunComm (pain ** {s2 = "in"}) 

-        (hisHead patient (mkBody head)))** {lock_CN = <>}

-       )

-      )   

-   } ;

-

-  painInPatientsBodyMode: CN -> NP -> BodyCNCategory -> AP -> S = 

-   \pain, patient, head, degree -> case head.painInType of { 

-     False => predV2 tvHave patient (DetNP (aDet** {lock_Det = <>}) 

-        (

-           modCommNounPhrase degree (mkPain head) ** {lock_CN = <>}

-        ));

-     True =>  predV2 tvHave patient (DetNP nullDet 

-        (

-          modCommNounPhrase degree 

-          (

-             cnNoHum 

-            (

-              appFunComm (pain ** {s2 = "in"}) 

-              (hisHead patient (mkBody head))

-            )

-          ) ** {lock_CN = <>}

-       ))

-   } ;

-

-};

-

-

diff --git a/grammars/health/ExtraFre.gf b/grammars/health/ExtraFre.gf
deleted file mode 100644
index 88e5794f6..000000000
--- a/grammars/health/ExtraFre.gf
+++ /dev/null
@@ -1,59 +0,0 @@
--- use this path to read the grammar from the same directory

---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/french:../../lib/resource-0.6/romance

-

---1 Functions that are not in the API, but common in French

---

--- Aarne Ranta, Janna Khegai 2003

-

-resource ExtraFre = open PredicationFre, ResourceFre, Prelude, SyntaxFre, MorphoFre, ParadigmsFre in {

-

-oper 

-  NPMedicine: Type = NP ** {des : Bool};

-

-  avoirBesoin1: CN -> VP = \doctor ->   

-    PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (

-           AppFun (funDe (nReg "besoin" Masc) ) 

-           (IndefOneNP doctor)

-         )

-       )

-    ) ;

-

-  avoirBesoin: NPMedicine -> VP = \medicine ->   

-    if_then_else VP medicine.des     

-

-    (PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (

-           AppFun (funPrep (nReg "besoin" Masc) "") 

-           medicine

-         )

-       )

-    )) 

-

-    (PosVG ( PredTV (tvDir vAvoir) (DetNP nullDet (

-           AppFun (funDe (nReg "besoin" Masc)) 

-           medicine

-         )

-       )

-    )) ;

-

-  injuredBody: (Gender => Number => Str) -> NP -> CN -> S =

-   \injured, patient, head -> 

-    PredVP patient 

-      {s = \\g,v => pronRefl patient.n patient.p ++ 

-              verbEtre.s ! v ++

-              injured ! g ! patient.n ++

-              (DefOneNP head).s ! case2pform Acc;

-       lock_VP = <> 

-      } ;

-  

-  

-  delDet : Det = mkDeterminer Sg (artDef Masc Sg genitive) 

-    (artDef Fem Sg genitive)  ** {lock_Det = <>} ;

-  desDet : Det = mkDeterminer1 Pl "des"  ** {lock_Det = <>} ;

-

-  nullDet : Det = mkDeterminer1 Sg "" ** {lock_Det =<>} ;

-

----  tvAvoir = mkTransVerbDir (verbPres (conj3savoir ""))** {lock_TV = <> };

-

-};

-

-

diff --git a/grammars/health/ExtraIta.gf b/grammars/health/ExtraIta.gf
deleted file mode 100644
index 541c772dc..000000000
--- a/grammars/health/ExtraIta.gf
+++ /dev/null
@@ -1,34 +0,0 @@
--- use this path to read the grammar from the same directory

---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/italian:../../lib/resource-0.6/romance

-

---1 Functions that are not in the API, but common in Italian

---

--- Aarne Ranta, Janna Khegai 2003

-

-resource ExtraIta = open PredicationIta, Prelude, SyntaxIta, MorphoIta, ResourceIta in {

-

-oper 

-

-  averBisogno : CN -> VP = \cn ->

-    PosVG (PredTV (mkTransVerbPrep (verbPres avere) "bisogno"** {lock_TV = <>}) (IndefOneNP cn)) ;

-

--- the following are too low-level and should be provided by the resources

-

-  injuredBody: AP -> NP -> CN -> S = \injured, patient, head ->

-    (PredVP patient

-      {s = \\g,v => pronRefl patient.n patient.p ++

-              verbEssere.s ! v ++

-              injured.s ! (AF g patient.n) ++

-              (DefOneNP head).s ! case2pform accusative ;

-       lock_VP = <> 

-      } ) ** {lock_S = <> };

-

-  partitNP : CN -> NP = \cn ->

-    let {np = DefOneNP cn} in {s = \\_ => np.s ! Aton genitive} ** np ;

-

-  datAdv : NP -> AdV = \np ->

-    {s = np.s ! Aton dative; lock_AdV = <> } ;

- 

-};

-

-

diff --git a/grammars/health/ExtraRus.gf b/grammars/health/ExtraRus.gf
deleted file mode 100644
index 0db3c7616..000000000
--- a/grammars/health/ExtraRus.gf
+++ /dev/null
@@ -1,36 +0,0 @@
--- use this path to read the grammar from the same directory

---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/russian

-

---1 Functions that are not in the API, but common in Russian 

---

--- Aarne Ranta, Janna Khegai 2003

-resource ExtraRus = open PredicationRus, ResourceRus, ParadigmsRus, SyntaxRus in {

-

-flags  coding=utf8 ;

-

-oper

-  predNeedShortAdjective: Bool -> NP -> NP -> S = \b, Jag, Dig -> { s =

-    let {

-      mne  = Jag.s ! (mkPronForm Dat No NonPoss) ; 

-      nuzhen  = need.s ! AF Nom Inanimate (gNum (pgen2gen Dig.g) Dig.n)  ;

-      doctor = Dig.s ! (mkPronForm Nom No NonPoss) ;

-      ne = negation b

-    } in

-       mne ++ ne ++ nuzhen ++ doctor ;

-      lock_S = <>

-    } ;

-

-  U_predTransVerb : Bool -> TV -> NP -> NP -> S = 

-    \b,Ser,Jag,Dig -> { s =

-    let {

-      menya  =  Jag.s ! (mkPronForm Gen Yes NonPoss) ; 

-      bolit  = Ser.s ! VFin (gNum (pgen2gen Dig.g) Dig.n) Dig.p ;

-      golova = Dig.s ! (mkPronForm Nom No NonPoss) ;

-      ne = negation b

-    } in

-       "у" ++ menya ++ ne ++ bolit  ++ golova  ;

-      lock_S = <>

-    } ;

-

-  tvHave : TV = mkDirectVerb (extVerb have active present) ** { lock_TV = <>};    

-};

diff --git a/grammars/health/ExtraSwe.gf b/grammars/health/ExtraSwe.gf
deleted file mode 100644
index 91a3ca2ed..000000000
--- a/grammars/health/ExtraSwe.gf
+++ /dev/null
@@ -1,73 +0,0 @@
--- use this path to read the grammar from the same directory

---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/swedish

-

---1 Functions that are not in the API, but common in Swedish

---

--- Aarne Ranta, Janna Khegai 2003

-

-resource ExtraSwe = open PredicationSwe, ResourceSwe, Prelude, SyntaxSwe in {

-

-oper 

-  patientNPCategory : Type = {s : NPForm => Str ; 

-           g : Gender ; n : Number; p : Person }** {lock_NP : {}} ;

-

-  mkPronPatient : ProPN -> patientNPCategory = \jag ->

-   {s = jag.s ; g = jag.h1 ; n = jag.h2 ; p = jag.h3;

-    lock_NP = <>

- } ; 

-

-  nullDet : Det = { s = table {_ => table {_ => ""}} ; 

-            n = Sg ; b = IndefP; lock_Det =<> } ;

-

-  injuredBody: patientNPCategory -> CN -> S = 

-    \Jag, head -> 

-    let {

-      jag  = Jag.s ! PNom ; 

-      harSkadat  = ["har skadat"] ;

-      mig = case Jag.p of 

-            {

-              P1 => case Jag.n of 

-                    { Sg => "mig" ;

-                      Pl => "oss" 

-                    }  ;

-              P2 => case Jag.n of 

-                    { Sg => "dig" ;

-                      Pl => "er" 

-                    }   ;

-              P3 => "sig"

-            } ;

-      iBenet  = "i" ++ (defNounPhrase Jag.n head).s ! PNom

-    } in

-    {s = table {

-       _ => jag ++ harSkadat ++ mig++ iBenet 

-       };

-    lock_S = <>

-

-    } ;

-

- sFeber : Str -> Subst = \feb -> 

- {s = table {

-    SF Sg Indef Nom => feb + "er" ;

-    SF Sg Indef Gen => feb + "ers" ;

-    SF Sg Def Nom => feb + "ern" ;

-    SF Sg Def Gen => feb + "erns" ;

-    SF Pl Indef Nom => feb + "rar" ;

-    SF Pl Indef Gen => feb + "rars" ;

-    SF Pl Def Nom => feb + "rar" ;

-    SF Pl Def Gen => feb + "rars"

-    } ;

-  h1 = Utr

-  } ;

-

-  verbTa = {s = table {VPres Infinit _ => "ta" ; VPres Indicat _ => "tar" ; VPres Imperat _ => "ta"}; s1 =""} ;

-  verbHa = {s = table {VPres Infinit _ => "ha" ; VPres Indicat _ => "har" ; VPres Imperat _ => "ha"}; s1 =""} ;

-  verbBehova = {s = table {VPres Infinit _ => "behöva" ; VPres Indicat _ => "behöver" ; VPres Imperat _ => 

-            "behöv"}; s1 =""} ;

-

--- almost from Predication:

---  predV2: TV -> patientNPCategory -> NP -> S = \F, x, y -> 

---     predVerbPhrase x ((predVerbGroup True) (complTransVerb F y)) ** { lock_S = <>} ;

-

-};

-

-

diff --git a/grammars/health/Health.gf b/grammars/health/Health.gf
deleted file mode 100644
index 0ed0d941f..000000000
--- a/grammars/health/Health.gf
+++ /dev/null
@@ -1,101 +0,0 @@
-abstract Health =  {
-
-cat 
-  Specialization ; Patient ; BodyPart ; Symptom ; SymptomDegree ; Illness ; 
-  Prop ; Condition ; Medicine ; 
-
-fun 
-  And : Prop -> Prop -> Prop ;
-  PainIn : Patient -> BodyPart -> Prop ;
-  Injured : Patient -> BodyPart -> Prop ;
-  Broken : Patient -> BodyPart -> Prop ;
---  HaveIllness : Patient -> Illness -> Prop ;
-  HaveAsthma : Patient -> Prop ;
-  HaveHeartburn : Patient -> Prop ;
-  HaveInfluenza : Patient -> Prop ;
-  HaveRheumatism : Patient -> Prop ; 
-  HaveCystitis : Patient -> Prop ; 
-  HaveAsthma : Patient -> Prop ;
-  HaveArthritis : Patient -> Prop ;
-  HaveDiabetes : Patient -> Prop ;
-  HaveTonsillitis : Patient -> Prop ;
-  HaveConstipation : Patient -> Prop ;
-  HaveMalaria : Patient -> Prop ; 
-  HaveDiarrhea : Patient -> Prop ; 
-  HaveSkinAllergy : Patient -> Prop ; 
-  NeedDoctor : Patient -> Specialization -> Prop ;
-  NeedMedicine : Patient -> Medicine -> Prop ;
-  TakeMedicine : Patient -> Medicine -> Prop ;
-
-  CatchCold : Condition ;
-  Pregnant : Condition ;
-  BeInCondition : Patient -> Condition -> Prop ; 
-  Complain : Patient -> Symptom -> Prop ;
-
-  ShePatient : Patient ;
-  HePatient : Patient ;
-  WePatient : Patient ;
-  TheyPatient : Patient ;
-  IPatientHe : Patient ;
-  IPatientShe : Patient ;
-
---  Influenza : Illness ; 
---  Malaria : Illness ; 
---  Diarrhea : Illness ; 
---  SkinAllergy : Illness ; 
---  Heartburn : Illness ; 
---  Rheumatism : Illness ; 
---  Cystitis : Illness ; 
---  Asthma : Illness ;
---  Arthritis : Illness ;
---  Diabetes : Illness ;
---  Tonsillitis : Illness ;
---  Constipation : Illness ;
-  
-  Dentist : Specialization ;
-  Gynecologist : Specialization ;
-  Urologist: Specialization ;
-  Pediatrician : Specialization ;
-  Physician :Specialization ;
-  Dermatologist :Specialization ;
-  Cardiologist : Specialization ;
-  Neuropathologist :  Specialization ;
-  Ophthalmologist : Specialization ;
-  Surgeon : Specialization ;
-
-  SleepingPeels : Medicine ;
-  Sedative :  Medicine ;
-  Vitamins : Medicine ;
-  EyeDrops : Medicine ;
-  Antibiotics :  Medicine ;
-  Viagra : Medicine ;
-  Laxative : Medicine ;
-  Insulin : Medicine ;
-  Antidepressant : Medicine ;
-  PainKiller : Medicine ;
-
-  Head : BodyPart ; 	
-  Leg : BodyPart ; 	
-  Stomac : BodyPart ; 	
-  Throat : BodyPart ; 	
-  Ear : BodyPart ; 	
-  Chest : BodyPart ; 	
-  Foot : BodyPart ; 	
-  Arm : BodyPart ; 	
-  Back : BodyPart ; 	
-  Shoulder : BodyPart ; 	
---  Tooth : BodyPart ; 	
---  Knee : BodyPart ; 	
-
-
-  Fever : Symptom ;
---  Sickness: Symptom ;
---  PainInMod : Patient -> BodyPart -> SymptomDegree -> Prop ;
---  SymptomMod : SymptomDegree -> Symptom -> Symtom;
---  High : SymptomDegree ;
---  Low : SymptomDegree ;
---  Terrible : SymptomDegree ;
---  BloodPressure : Symptom ;
-
-
-} ;
diff --git a/grammars/health/HealthEng.gf b/grammars/health/HealthEng.gf
deleted file mode 100644
index 73341879e..000000000
--- a/grammars/health/HealthEng.gf
+++ /dev/null
@@ -1,125 +0,0 @@
--- use this path to read the grammar from the same directory

---# -path=.:../../lib/resource-0.6/abstract:../prelude:../../lib/resource-0.6/english

-concrete HealthEng of Health = open PredicationEng, 

-StructuralEng, 

---ResourceEng, 

-ResourceExtEng, Prelude, Predef, SyntaxEng, ExtraEng, ParadigmsEng in {

-

-flags 

-  startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;

-

-lincat 

-  Patient = NP ;

-  -- CN is not enough, because of the different form of the "head" body part 

-  -- expression in "I have a headache" and "I have injured my head":

-  BodyPart = BodyCNCategory ;

-  Symptom = NP ;

-  SymptomDegree = AP ;

-  Prop = S ;

-  Illness = CN ; 

-  Condition = VP ;

-  Specialization = CN ;

-  Medicine  = NP ;

-

-lin 

-  ShePatient = SheNP ;

-  TheyPatient = TheyNP ;

-  IPatientHe = INP ;

-  IPatientShe = INP ;

-  HePatient = HeNP ;

-  WePatient = WeNP ;

-

-  And x y = ConjS AndConj (TwoS x y) ; 

-

---  Influenza = cnNonhuman "influenza" ; 

---  Malaria = cnNonhuman "malaria" ; 

---  Diarrhea = cnNonhuman "diarrhea" ; 

---  SkinAllergy = AppFun (mkFun (nNonhuman "skin") []) (MassNP (cnNonhuman "allergy")) ;  

---  Heartburn = cnNonhuman "heartburn" ;  

---  Rheumatism = cnNonhuman "rheumatism" ;  

---  Cystitis = cnNonhuman "cystitis" ;  

---  Asthma = cnNonhuman "asthma" ; 

---  Arthritis = cnNonhuman "arthritis" ; 

---  Diabetes = cnNonhuman "diabetes" ; 

---  Tonsillitis = cnNonhuman "tonsillitis" ; 

---  Constipation = cnNonhuman "constipation" ; 

-  

-  Dentist  = cnHuman "dentist" ; 

-  Gynecologist = cnHuman "gynecologist" ;

-  Urologist = cnHuman "urologist" ; 

-  Pediatrician = cnHuman "pediatrician" ;

-  Physician = cnHuman "physician" ;

-  Dermatologist = cnHuman "dermatologist" ;

-  Cardiologist = cnHuman "cardiologist" ;

-  Neuropathologist = cnHuman "neuropathologist" ;

-  Ophthalmologist = cnHuman "ophthalmologist" ;

-  Surgeon = cnHuman "surgeon" ;

-

-  SleepingPeels = IndefManyNP (ModAdj (apReg "sleeping") (cnNonhuman "peel"));

-  Vitamins = IndefManyNP (cnNonhuman "vitamin") ;

-  EyeDrops = IndefManyNP (cnNonhuman "eye-drop") ;

-  Antibiotics = IndefManyNP (cnNonhuman "antibiotic") ;

-  Sedative = IndefOneNP (cnNonhuman "sedative") ;

-  Viagra = MassNP (cnNonhuman "viagra") ;

-  Laxative = IndefOneNP (cnNonhuman "laxative") ;

-  Insulin = MassNP (cnNonhuman "insulin");

-  Antidepressant = IndefOneNP (cnNonhuman "antidepressant") ;

-  PainKiller = IndefOneNP (cnNonhuman "painkiller") ;

-

-  Leg = { s = \\_,n,_ => case n of {Sg =>"leg" ; Pl=> "legs" }; 

-         painInType = True } ;

-  Head = { s = table{ True => table {Sg => table {_  => "head" }; 

-           Pl => table {_  => "heads" }};

-           False => table { _ => table {_=> "headache"}}} ;

-           painInType = False } ;

-  Stomac = { s = table{ True => table {Sg => table {_  => "stomach" }; 

-           Pl => table {_  => "stomachs" }};

-           False => table { _ => table {_=> "stomach-ache"}}} ;

-           painInType = False } ; 	

---  Tooth = { s = table{ True => table {Sg => table {_  => "tooth" }; 

---           Pl => table {_  => "teeth" }};

---           False => table { _ => table {_=> "toothache"}}} ;

---           painInType = False } ; 	

-  Throat = { s = table{ True => table {Sg => table {_  => "throat" }; 

-           Pl => table {_  => "throats" }};

-           False => table { _ => table {_=> ["sore throat"]}}} ;

-           painInType = False } ; 		

-  Ear = { s = \\_,n,_ => case n of {Sg =>"ear" ; Pl=> "ears" };           painInType = True } ; 	

-  Chest = { s = \\_,n,_ => case n of {Sg =>"chest" ; Pl=> "chests" };           painInType = True } ; 	

-  Foot = { s = \\_,n,_ => case n of {Sg =>"foot" ; Pl=> "feet" };           painInType = True } ; 	

-  Arm = { s = \\_,n,_ => case n of {Sg =>"arm" ; Pl=> "arms" };           painInType = True } ; 	

-  Back = { s = \\_,n,_ => case n of {Sg =>"back" ; Pl=> "backs" };           painInType = True } ; 	

-  Shoulder = { s = \\_,n,_ => case n of {Sg =>"shoulder" ; Pl=> "shoulders" };           painInType = True } ; 	

---  Knee = { s = \\_,n,_ => case n of {Sg =>"knee" ; Pl=> "knees" };           painInType = True } ; 	

-

-  BeInCondition = PredVP ; 

-  Pregnant = PosVG ( PredAP( AdjP1 (regAdjective ["pregnant"] ** {lock_Adj1 = <>}))) ;

-  CatchCold = PosVG (PredTV (tvHave** {lock_TV = <>}) (DetNP (aDet** {lock_Det = <>}) (cnNoHum (nounReg "cold")** {lock_CN = <>})));

-

-  Fever = DetNP (aDet** {lock_Det = <>}) (cnNoHum (nounReg "fever")** {lock_CN = <>}) ;

-

---  HaveIllness patient illness = predV2 tvHave patient (DetNP (nullDet** {lock_Det = <>}) illness) ; 

-  HaveAsthma patient = predV2 tvHave patient (DetNP (nullDet** {lock_Det = <>}) (cnNonhuman "asthma")) ; 

-  Complain = predV2 tvHave ;

-

-  NeedDoctor patient doctor = predV2 (mkTransVerbDir (regVerbP3 "need")**{lock_TV = <>}) 

-       patient (DetNP (aDet ** {lock_Det = <>}) doctor); 

-  NeedMedicine = predV2 (mkTransVerbDir (regVerbP3 "need")**{lock_TV = <>}) ; 

-  TakeMedicine = predV2 (mkTransVerbDir (regVerbP3 "take")**{lock_TV = <>}) ;

-

-  Injured = injuredBody (mkTransVerb verbP3Have "injured"**{lock_TV = <>}) ;

-  Broken = injuredBody (mkTransVerb verbP3Have "broken"**{lock_TV = <>}) ;

-

-  PainIn = painInPatientsBody (cnNoHum (nounReg "pain")**{lock_CN = <>}) ;

-

---  PainInMod = painInPatientsBodyMode (cnNoHum (nounReg "pain")**{lock_CN = <>});

---  SymptomMod degree symptom = DetNP (aDet** {lock_Det = <>}) 

---     (ModAdj degree (symptom ** {lock_CN = <>})) ;  

---  High = AdjP1 ((regAdjective "high") ** {lock_Adj1 = <>});

---  Low = AdjP1 ((regAdjective "low") ** {lock_Adj1 = <>});

---  Terrible = AdjP1 ((regAdjective "terrible")** {lock_Adj1 = <>});

-};

-

-

-

-

diff --git a/grammars/health/HealthFre.gf b/grammars/health/HealthFre.gf
deleted file mode 100644
index cb83a973b..000000000
--- a/grammars/health/HealthFre.gf
+++ /dev/null
@@ -1,132 +0,0 @@
--- UTF-8 version currently differs from non-UTF-8 !!!

-

--- use this path to read the grammar from the same directory

---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/french:../../lib/resource-0.6/romance

-

-concrete HealthFre of Health = open PredicationFre, ParadigmsFre, ResourceFre, Prelude, SyntaxFre, MorphoFre, ExtraFre, ParadigmsFre, ResourceExtFre in {

-

--- 1. still using "à" instead of "aux" in PainIn operations 

--- because of the UTF-8 problem with non-utf-8 resource grammars! 

-

-flags 

-  startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;

-

-lincat 

-  Patient = NP ;

-  BodyPart = CN ;

-  Symptom = NP ;

-  SymptomDegree = AP ;

-  Prop = S ;

-  Illness = NP ; 

-  Condition = VP ;

-  Specialization = CN ;

-  Medicine  = NPMedicine ;

-

-lin 

-  And x y = ConjS AndConj (TwoS x y) ;  

-

-  ShePatient = SheNP ;

-  TheyPatient = TheyNP ;

-  IPatientHe = INP ;

-  IPatientShe = INP ;

-  HePatient = HeNP ;

-  WePatient = WeNP ;

-                                               

-  HaveIllness = predV2 (tvDir vAvoir) ;  

-  Complain = predV2 (tvDir vAvoir) ;

-

-  BeInCondition = PredVP ; 

-  CatchCold = PosVG (PredTV (tvDir vAvoir) (IndefOneNP (mkCNomReg "rhume" Masc ** {lock_CN = <> })));

-  Pregnant = PosVG (PredAP (mkAdjective (adjJeune "enceinte") adjPost** {lock_AP = <> })) ;

-

-  Influenza = DefOneNP (mkCN (nReg "grippe" Fem)); 

-  Malaria = DefOneNP (mkCN (nReg "malaria" Fem)); 

-  Diarrhea = IndefOneNP (mkCN (nReg "diarrhée" Fem)) ; 

-  Constipation = IndefOneNP (mkCN (nReg "constipation" Fem)); 

-  Rheumatism = DetNP desDet (mkCN (nReg  "rhumatisme" Masc)) ;  

-  Arthritis = DetNP delDet (mkCN (nReg "arthrite" Fem)) ; 

-  SkinAllergy =IndefOneNP ( ModAdj 

-             (AdjP1 (adj1Reg "épidermique" postpos)) 

-             (mkCN (nReg "allergie" Fem))

-    );  

-  Heartburn = DetNP desDet (AppFun (funCase (nReg "brûlure" Fem) Gen) 

-              (DetNP nullDet (mkCN (nReg "estomac"  Masc)))) ;

-  Tonsillitis = IndefOneNP (mkCN (nReg "angine" Fem)) ; 

-  Asthma = DetNP delDet (mkCN (nReg  "asthme" Masc)) ; 

-  Cystitis =IndefOneNP ( mkCN (nReg  "cystite" Fem)) ;  

-  Diabetes = DefOneNP (mkCN (nReg  "diabète" Masc)) ; 

-

-  Dentist  = mkCN (nReg "dentiste" Masc) ;  

-  Gynecologist = mkCN (nReg "gynécologue" Masc) ;

-  Urologist = mkCN (nReg "urologue" Masc) ; 

-  Pediatrician = mkCN (nReg "pédiatre" Masc) ;

-  Physician = mkCN (nReg "thérapeute" Masc) ;

-  Dermatologist = mkCN (nReg  "dermatologue" Masc) ;

-  Cardiologist = mkCN (nReg "cardiologue" Masc) ;

-  Neuropathologist = mkCN (nReg "neurologue" Masc) ;

-  Ophthalmologist = mkCN (nReg "ophthalmologue" Masc) ;

-  Surgeon = mkCN (nReg "chirurgien" Masc ) ;

-

-  SleepingPeels = DetNP desDet (mkCN (nReg "somnifêre" Masc ))**{des = True};

-  Vitamins = DetNP desDet (mkCN (nReg "vitamine" Fem))**{des = True} ;

-  EyeDrops =  DetNP desDet (AppFun (funPrep (nReg "goutte" Fem) "pour") 

-              (DefManyNP (mkCN (mkN "oeil" "yeux" Masc))))**{des = True} ;

-  Antibiotics = DetNP desDet (mkCN (nReg "antibiotique" Masc))**{des = True} ;

-  Insulin = DetNP delDet (mkCN (nReg "insuline" Fem))**{des = True};

-

-  Viagra = DetNP nullDet (mkCN(nReg "viagra" Fem))**{des = False} ;

-  Laxative = IndefOneNP (mkCN (nReg  "laxatif" Masc)) **{des = False};

-  Sedative = IndefOneNP (mkCN (nReg  "sédatif" Masc)) **{des = False};

-  Antidepressant = IndefOneNP (mkCN (nReg "antidépressif" Masc)) **{des = False};

-  PainKiller = IndefOneNP (mkCN (nReg "calmant" Masc)) **{des = False};

-                    

-  NeedDoctor patient doctor = PredVP patient (avoirBesoin1 doctor ** {lock_VP = <> }) ;

-  NeedMedicine patient medicine = PredVP patient (avoirBesoin medicine ** {lock_VP = <> }) ;

-  TakeMedicine = predV2 (mkTransVerbDir (verbPres (conj3prendre "prendre")) ** {lock_TV = <> } ) ;

-

-  Fever = DetNP delDet (mkCN (nReg "fièvre" Fem)) ;

-

-  PainIn patient head = predV2 (tvDir vAvoir) patient

-     (DetNP nullDet 

-      (

-        AppFun 

-          ((mkCN (nReg "mal" Masc))** complementCas Dat ** {lock_Fun = <> }) 

-          (defNounPhrase patient.n head ** {lock_NP = <>})

-      )

-     ) ;

-

-  Injured = injuredBody (adjReg "blessé") ;

-  Broken = injuredBody (adjReg "cassé") ;

-

-

-  Head = mkCNomReg "tête" Fem ** {lock_CN = <> };

-  Leg = mkCNomReg "jambe" Fem ** {lock_CN = <> };

-  Stomac = mkCNomReg "estomac" Masc ** {lock_CN = <> }; 	

-  Throat = mkCNomReg "gorge" Fem ** {lock_CN = <> };

-  Ear = mkCNomReg "oreille" Fem ** {lock_CN = <> };

-  Chest = mkCNomReg "poitrine" Fem ** {lock_CN = <> };

-  Foot = mkCNomReg "pied" Masc ** {lock_CN = <> };

-  Arm = mkCNomReg "bras" Masc ** {lock_CN = <> };

-  Back = mkCNomReg "dos" Masc ** {lock_CN = <> };

-  Shoulder = mkCNomReg "epaule" Fem ** {lock_CN = <> };

---  Tooth = mkCNomReg "dents" Masc ** {lock_CN = <> };

---  Knee = mkCNomReg "genou" Masc ** {lock_CN = <> };

-

-  

-

---  High = AdjP1 (mkAdjReg "élevé" adjPost ** {lock_Adj1 = <> }) ;

---  Terrible = AdjP1 ((mkAdjective (mkAdj "terrible" "terrible" "terrible" "terrible")  adjPre ** {lock_Adj1 = <> })** {lock_AP = <> });

---  FeverMod degree = DetNP (delDet ** {lock_Det = <> }) (ModAdj degree (mkCNomReg "fièvre" Fem** {lock_CN = <> })) ;

---  PainInMod patient head degree = predV2 (tvDir vAvoir) patient 

---    (DetNP (nullDet ** {lock_Det = <> }) 

---      ( ModAdj degree

---        (

---          AppFun ((mkCNomReg "mal" Masc ** {lock_CN = <> })** complementCas Dat** {lock_Fun = <> }) 

---          (defNounPhrase patient.n head ** {lock_NP = <> })

---        )

---      )

---    ) ;

-

-

-};

-

diff --git a/grammars/health/HealthResourceIta.gf b/grammars/health/HealthResourceIta.gf
deleted file mode 100644
index fd750659f..000000000
--- a/grammars/health/HealthResourceIta.gf
+++ /dev/null
@@ -1,65 +0,0 @@
--- use this path to read the grammar from the same directory

---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/italian:../../lib/resource-0.6/romance

-

-concrete HealthIta of Health = open ResourceIta, Prelude, SyntaxIta, ExtraIta, MorphoIta, ParadigmsIta, ResourceExtIta, PredicationIta in {

-

-flags 

-  startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;

-lincat 

-  Patient = NP ;

-  BodyPart = CN ;

-  Symptom = NP ;

-  SymptomDegree = AP ;

-  Prop = S ;

-  Illness = CN ; 

-  Condition = VP ;

-  Specialization = CN ;

-  Medicine  = CN ;

-             

-lin

-  ShePatient = SheNP ;

-  TheyPatient = TheyNP ;

-  IPatientHe = INP ;

-

-  Influenza = mkCN (nRana "influenza") ;

-  Malaria =  mkCN (nRana "malaria") ;

-  HaveIllness patient illness = predV2 (tvDir vAvere) patient (DefOneNP

-illness) ;

-

-  BeInCondition = PredVP ;

-  CatchCold = PosTV (tvDir vAvere) (IndefOneNP (mkCN (nSale "raffreddore" masculine))) ;

-  Pregnant = PosA (apSolo "gravido" postpos) ;

-  Complain = predV2 (tvDir vAvere) ;

-

-  PainIn pat loc =

-    PredVP pat (AdvVP (PosV (averCosa "male")) (datAdv (DefOneNP loc))) ;

-

-  Fever = partitNP (mkCN (nSale "febbre" feminine)) ;

-  Head = mkCN (nRana "testa") ;

-  Leg = mkCN (nRana "gamba") ;

-

-  Dentist  = mkCN (mkN "dentista" "dentisti" masculine)  ;

-  PainKiller = mkCN (nSale "calmante" masculine) ;

-  NeedDoctor pat doc = PredVP pat (averBisogno doc) ;

-  NeedMedicine pat med = PredVP pat (averBisogno med) ;

-  TakeMedicine pat med = predV2 (tvDir (vCorrere "prendere" "")) pat (IndefOneNP med) ;

-

-  Injured = injuredBody (apSolo "ferito" prepos) ;

-  Broken = injuredBody (apSolo "rotto" prepos) ;

-

-  And = conjS ;

-

---  FeverMod deg = partitNP (ModAdj deg (mkCN (nSale "febbre" feminine)));

---  High = apSolo "alto" postpos ;

---  Terrible = apTale "terribile" postpos ;

---  PainInMod pat loc deg =

---    PredVP pat

---      (AdvVP (PosTV (tvDir vAvere)

---        (IndefOneNP (ModAdj deg (mkCN (nSale "dolore" masculine)))))

---             (datAdv (DefOneNP loc))) ;

-

-

-};

-

-

-

diff --git a/grammars/health/HealthRus.gf b/grammars/health/HealthRus.gf
deleted file mode 100644
index 1fae90cb0..000000000
--- a/grammars/health/HealthRus.gf
+++ /dev/null
@@ -1,111 +0,0 @@
--- use this path to read the grammar from the same directory

---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/russian

-

-concrete HealthRus of Health = open PredicationRus, ResourceRus, SyntaxRus, ExtraRus, ResourceExtRus, ParadigmsRus in {

-

-flags 

-  coding=utf8 ;

-  startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;

-

-lincat 

-  Patient = NP ;

-  BodyPart = CN ;

-  Symptom = NP ;

-  SymptomDegree = AP ;

-  Prop = S ;

-  Illness = CN ; 

-  Condition = VP ;

-  Specialization = NP ;

-  Medicine  = NP ;

-lin 

-  And x y = ConjS AndConj (TwoS x y) ;

-

-  ShePatient = SheNP ;

-  TheyPatient = TheyNP ;

-  IPatientHe =  { s = INP.s ; g = PGen Masc; anim = INP.anim ;

-    n = INP.n ; nComp = INP.nComp ; p = INP.p ; pron = INP.pron; lock_NP = <>} ;

-  IPatientShe =   { s = INP.s ; g = PGen Fem; anim = INP.anim ;

-    n = INP.n ; nComp = INP.nComp ; p = INP.p ; pron = INP.pron; lock_NP = <>} ;

-  HePatient = HeNP ;

-  WePatient = WeNP ;

-

-

---  Influenza = UseN ( gripp**{lock_N = <>}) ; 

---  Malaria = UseN ( malaria**{lock_N = <>}) ; 

---  Diarrhea = UseN ( ponos **{lock_N = <>});  

---  SkinAllergy = ModAdj (AdjP1(adj1Staruyj "кожн")) (UseN ( allergiya **{lock_N = <>}));  

---  Heartburn = UseN ( izzhoga **{lock_N = <>});  

---  Rheumatism = UseN ( revmatizm **{lock_N = <>});  

---  Cystitis = UseN ( tsistit **{lock_N = <>});  

---  Asthma = UseN ( astma **{lock_N = <>}); 

---  Arthritis = UseN ( artrit **{lock_N = <>}); 

---  Diabetes = UseN ( diabet **{lock_N = <>}); 

---  Tonsillitis = UseN ( angina **{lock_N = <>}); 

---  Constipation = UseN ( zapor **{lock_N = <>}); 

-  

-  Dentist  = IndefOneNP ( UseN ( stomatolog**{lock_N = <>})) ; 

-  Gynecologist = IndefOneNP (UseN ( ginekolog**{lock_N = <>})) ; 

-  Urologist = IndefOneNP (UseN ( urolog**{lock_N = <>})) ; 

-  Pediatrician = IndefOneNP (UseN ( pediatr**{lock_N = <>})) ; 

-  Physician = IndefOneNP (UseN ( terapevt**{lock_N = <>})) ; 

-  Dermatologist = IndefOneNP (UseN ( dermatolog**{lock_N = <>})) ; 

-  Cardiologist = IndefOneNP (UseN ( kardiolog**{lock_N = <>})) ; 

-  Neuropathologist = IndefOneNP (UseN ( nevropatolog**{lock_N = <>})) ; 

-  Ophthalmologist = IndefOneNP (UseN ( okulist**{lock_N = <>})) ; 

-  Surgeon = IndefOneNP (UseN ( khirurg**{lock_N = <>})) ; 

-

-  SleepingPeels = IndefOneNP (UseN ( snotvornoe**{lock_N = <>})); 

-  Sedative = IndefOneNP (UseN ( uspokoitelnoe**{lock_N = <>})); 

-  Vitamins = IndefManyNP (UseN ( vitamin**{lock_N = <>})); 

-  EyeDrops = IndefManyNP (ModAdj (AdjP1 (glaznoj**{lock_Adj1 = <>})) (UseN ( kaplya**{lock_N = <>}))); 

-  Antibiotics = IndefManyNP (UseN ( antibiotik**{lock_N = <>})); 

-  Viagra = IndefOneNP (UseN ( viagra**{lock_N = <>})); 

-  Laxative = IndefOneNP (UseN ( slabitelnoe**{lock_N = <>})); 

-  Insulin = MassNP (UseN (insulin**{lock_N = <>})); 

-  Antidepressant = IndefOneNP (UseN ( antidepressant**{lock_N = <>})); 

-  PainKiller = IndefOneNP (UseN ( obezbolivauchee**{lock_N = <>}));

-

-  Fever = mkNounPhrase singular (UseN ( temperatura**{lock_N = <>}))** {lock_NP = <>}; 

-  BeInCondition = PredVP ; 

-  CatchCold = PosVG (PredAP (AdjP1 (prostuzhen ** {lock_Adj1 = <>}))) ;

-  Pregnant = PosVG (PredAP (AdjP1 (beremenen ** {lock_Adj1 = <>}))) ;

-                                 

-  TakeMedicine = predV2 (mkDirectVerb 

-    (extVerb verbPrinimat active present)**{lock_TV = <>}) ; 

-  Injured patient painkiller = predV2 (mkDirectVerb

-   (extVerb verbPoranit active past)**{lock_TV = <>}) patient (mkNounPhrase patient.n painkiller ** {lock_NP = <>}) ;

-  Broken patient painkiller = predV2 (mkDirectVerb

-   (extVerb verbSlomat active past)**{lock_TV = <>}) patient (mkNounPhrase patient.n painkiller ** {lock_NP = <>}) ;

-                               

---  HaveIllness patient symptom = U_predTransVerb true tvHave

---     patient (mkNounPhrase singular symptom ** {lock_NP = <>}) ;

-  Complain = U_predTransVerb true tvHave ;

-

-  NeedDoctor = predNeedShortAdjective true ; 

-  NeedMedicine = predNeedShortAdjective true ; 

-

-  PainIn patient head = U_predTransVerb true (mkDirectVerb 

-    (extVerb verbBolet_2 active present ) ** {lock_TV =<>}) patient (mkNounPhrase patient.n head ** {lock_NP =<>}) ;

- 

- Head = UseN ( golova**{lock_N = <>});

- Leg = UseN ( noga**{lock_N = <>});

-  Stomac = UseN ( zhivot**{lock_N = <>});

-  Throat = UseN ( gorlo**{lock_N = <>});

-  Ear = UseN ( ukho**{lock_N = <>});

-  Chest = UseN ( grud**{lock_N = <>});

-  Foot = UseN ( stopa**{lock_N = <>});

-  Arm = UseN ( ruka**{lock_N = <>});

-  Back = UseN ( spina**{lock_N = <>});

-  Shoulder = UseN ( plecho**{lock_N = <>});

---  Knee = UseN ( koleno**{lock_N = <>});

-

---  High = AdjP1 (extAdjective vusokij ** {lock_Adj1 = <>});

---  Terrible = AdjP1 (extAdjective uzhasnuj ** {lock_Adj1 = <>});

---  FeverMod degree =  mkNounPhrase singular 

--- (ModAdj degree (UseN ( temperatura**{lock_N = <>}))) ** {lock_NP = <>};

---  PainInMod patient head degree = U_predTransVerb true (mkDirectVerb

---    (extVerb have Act Present) ** {lock_TV =<>}) patient 

--- (mkNounPhrase singular (ModAdj degree 

---(AppFun (mkFun bol "в" Prepos ** {lock_Fun = <>}) 

--- (mkNounPhrase patient.n head** {lock_NP = <>}))) ** {lock_NP =<>});

-};

diff --git a/grammars/health/HealthSwe.gf b/grammars/health/HealthSwe.gf
deleted file mode 100644
index 0c3a369ef..000000000
--- a/grammars/health/HealthSwe.gf
+++ /dev/null
@@ -1,129 +0,0 @@
--- The UTF8 version currently differs from the non-UTF8 !!!

-

--- The difference with the UTF8 version is that 

--- operations "verbVara" (vbVara see ExtraSweU.gf) 

--- and "predAP" (predAP, see ExtraSweU.gf) need to be replaced

--- using the UTF8 encoding (because of the UTF8 problem 

--- with UTF8 resource grammars) 

-

--- use this path to read the grammar from the same directory

-

---# -path=.:../../lib/resource-0.6/abstract:../../lib/prelude:../../lib/resource-0.6/swedish

-concrete HealthSwe of Health = open PredicationSwe, ResourceSwe, Prelude, SyntaxSwe, ExtraSwe, ParadigmsSwe, ResourceExtSwe in {

-

-flags 

-  startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;

-

-lincat 

-  Patient = patientNPCategory ;

-  BodyPart = CN ;

-  Symptom = NP ;

-  SymptomDegree = AP ;

-  Prop = S ;

-  Illness = CN ; 

-  Condition = VP ;

-  Specialization = CN ;

-  Medicine  = NP ;

-

-lin 

-  And x y = ConjS AndConj (TwoS x y) ; 

-

-  ShePatient = mkPronPatient hon_35 ;

-  TheyPatient = mkPronPatient de_38 ;

-  IPatientHe = mkPronPatient jag_32 ;

-  IPatientShe = mkPronPatient jag_32 ;

-  HePatient = mkPronPatient han_34 ;

-  WePatient = mkPronPatient vi_36 ;

-

-  Influenza = UseN (nApa "influens") ; 

-  Malaria = UseN (nApa "malari"); 

-  Diarrhea = UseN (nApa "diarré"); 

-  SkinAllergy = UseN (nApa "hudallergi");  

-  Heartburn = UseN (nApa "halsbränna");  

-  Rheumatism = UseN (nBil "reumatism");  

-  Cystitis = UseN (nRisk "urinvägsinfektion");  

-  Asthma = UseN (nApa "astma"); 

-  Arthritis = UseN (nApa "artrit"); 

-  Diabetes = UseN (nBil "diabetes"); 

-  Tonsillitis = UseN (nBil "halsfluss"); 

-  Constipation = UseN (nBil "förstoppning"); 

-  

-  Dentist  = UseN (nKikare "tandläkare") ;

-  Gynecologist = UseN (nRisk "gynekolog"); 

-  Urologist= UseN (nRisk "urolog"); 

-  Pediatrician = UseN (nKikare "barnläkare"); 

-  Physician = UseN (nKikare "läkare"); 

-  Dermatologist = UseN (nKikare "hudläkare"); 

-  Cardiologist = UseN (nRisk "kardiolog"); 

-  Neuropathologist = UseN (nRisk "neurolog"); 

-  Ophthalmologist = UseN (nKikare "ögönläkare"); 

-  Surgeon = UseN (nRisk "kirurg"); 

-

-  SleepingPeels = IndefManyNP (UseN (nRisk "sömntablett")) ;

-  Sedative = IndefOneNP (UseN (nPapper "lugnande")) ;

-  Vitamins = IndefManyNP (UseN (nPapper "vitaminpiller")) ;

-  EyeDrops = IndefManyNP (UseN (nPojke "ögondroppe")) ;

-  Antibiotics = IndefManyNP (UseN (nPapper "antibiotika")) ;

-  Viagra = MassNP (UseN (nBil "viagra")) ;

-  Laxative = IndefOneNP (UseN (nPapper "laxer")) ;

-  Insulin = MassNP (UseN (nRep "insulin")) ;

-  Antidepressant = IndefOneNP ( ModAdj (AdjP1 (adjReg "antidepressiv")) (UseN (nRep "läkemedel"))) ;

-  PainKiller = IndefOneNP (UseN (nBil "smärtstillande")) ;

-

-  CatchCold = PosVG ( PredAP( AdjP1 (extAdjective (aGrund("förkyl")) ** {lock_Adj1 = <>}) ));

-  Pregnant = PosVG ( PredAP( AdjP1 (extAdjective (aGrund("gravi") )** {lock_Adj1 = <>}) ));

- 

-  BeInCondition = PredVP ; 

-  HaveIllness patient illness = predV2 (mkDirectVerb verbHa** {lock_TV =<>}) patient 

-                                (DetNP (nullDet  ** {lock_Det = <>}) illness) ;

-

-  NeedMedicine = predV2 (mkDirectVerb verbBehova** {lock_TV =<>}) ; 

-  TakeMedicine = predV2 (mkDirectVerb verbTa** {lock_TV =<>}) ;

- 

-  NeedDoctor patient illness = predV2 (mkDirectVerb verbBehova** {lock_TV =<>}) patient                                 

-                                (DetNP (enDet  ** {lock_Det = <>}) illness) ;

-  Fever = DetNP (nullDet  ** {lock_Det = <>}) (UseN (nRisk "feber")) ;

- 

-  Complain = predV2 (mkDirectVerb verbHa ** {lock_TV =<>}) ;

-  Broken patient head = predV2 (mkTransVerb verbHa "brutit" ** {lock_TV =<>} ) patient 

-                        (defNounPhrase patient.n head ** {lock_NP =<>}) ;

-

-  PainIn patient head = predV2 (mkDirectVerb verbHa** {lock_TV =<>}) patient 

-   (

-    DetNP (nullDet  ** {lock_Det = <>}) 

-    ( AppFun 

-       ((mkFun (nBil "ont") "i") ** {lock_Fun = <>})

-       ((defNounPhrase patient.n head)** {lock_NP = <>})

-    )

-   ) ;

-

-  Head = UseN (nRep "huvud") ;

-  Leg = UseN (nRep "ben") ;

-  Stomac = UseN  (nPojke "mage")  ;

-  Throat = UseN  (nBil "hals") ;

-  Ear = UseN  (mkN "öra" "örat" "öron" "öronen" neutrum nonmasculine) ;

-  Chest = UseN (nRep "bröst") ;

-  Foot = UseN  (mkN "fot" "foten" "fötter" "fötterna" utrum nonmasculine) ;

-  Arm = UseN  (mkN "hand" "handen" "händer" "händerna" utrum nonmasculine) ;

-  Back = UseN  (nBil "rygg") ;

-  Shoulder = UseN  (nNyckel "axel") ;

-

---  High = AdjP1 (adjReg "hög") ;

---  Terrible = AdjP1 (adjReg "hemsk") ;

---  FeverMod degree = DetNP (nullDet  ** {lock_Det = <>}) (ModAdj degree (UseN (nKikare "feb") ) ;

---  PainInMod patient head degree =  predV2 (mkDirectVerb verbHa** {lock_TV =<>}) patient

---    (

---      DetNP (nullDet  ** {lock_Det = <>}) 

---      ( modCommNounPhrase degree 

---           ( AppFun 

---               ((mkFun (extCommNoun nonmasculine (sBil "ont")) "i") ** {lock_Fun = <>}) 

---               ((defNounPhrase patient.n head)** {lock_NP = <>})

---           ) ** {lock_CN = <>}

---      )

---    ) ;

-

-  Injured = injuredBody ;

-

-};

-

-

diff --git a/grammars/health/healthCorpus.txt b/grammars/health/healthCorpus.txt
deleted file mode 100644
index e5119e18a..000000000
--- a/grammars/health/healthCorpus.txt
+++ /dev/null
@@ -1,47 +0,0 @@
-and pain in injured broken have take catch cold pregnant 

-

-influenza malaria diarrhea skin allergy heartburn 

-rheumatism cystitis asthma arthritis diabetes tonsillitis constipation

-

-  dentist gynecologist   Urologist

-  Pediatrician 

-  Physician 

-  Dermatologist 

-  Cardiologist 

-  Neuropathologist 

-  Ophthalmologist 

-  Surgeon 

-

-  Sleeping Peels 

-  Sedative 

-  Vitamins 

-  Eye Drops 

-  Antibiotics 

-  Viagra 

-  Laxative 

-  Insulin 

-  Antidepressant 

-  PainKiller 

-

-  Head  headache	

-  Leg  	

-  Stomach stomach-ache  	

-  Throat sore

-  Ear  	

-  Chest  	

-  Foot  	

-  Arm  	

-  Back  	

-  Shoulder  	

---  Tooth  	

---  Knee  	

-

-

---  Fever 

---  Sickness

---  High

---  Low 

---  Terrible 

---  Blood Pressure 

-

-