From Janna.

12 files changed, 654 insertions, 3 deletions

diff --git a/grammars/database/DatabaseI.gf b/grammars/database/DatabaseI.gf
index 5afeda711..204e43c81 100644
--- a/grammars/database/DatabaseI.gf
+++ b/grammars/database/DatabaseI.gf
@@ -18,7 +18,7 @@ lincat
 lin
   WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosVG (PredAP B))) ;
   IsThere A = QuestPhrase (IsThereNP (IndefOneNP A)) ;
-  AreThere A = QuestPhrase (IsThereNP (IndefManyNP NoNum A)) ;
+  AreThere A = QuestPhrase (IsThereNP (IndefNumNP NoNum A)) ;
   WhatIs val = QuestPhrase (IntVP WhatOne (PosVG (PredNP val))) ;
   IsIt Q A = QuestPhrase (QuestVP Q (PosVG (PredAP A))) ;
 
@@ -35,9 +35,9 @@ lin
 
   Individual = UsePN ;
 
-  AllN = DetNP (AllsDet NoNum) ;
+  AllN = DetNP (AllNumDet NoNum) ;
   MostN = DetNP MostsDet ;
   EveryN = DetNP EveryDet ;
-  Any = DetNP (AnysDet NoNum) ;
+  Any = DetNP (AnyNumDet NoNum) ;
 
 } ;
diff --git a/grammars/health/ExtraEng.gf b/grammars/health/ExtraEng.gf
new file mode 100644
index 000000000..b0057c7c1
--- /dev/null
+++ b/grammars/health/ExtraEng.gf
@@ -0,0 +1,65 @@
+-- use this path to read the grammar from the same directory

+--# -path=.:../abstract:../../prelude:../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
new file mode 100644
index 000000000..5f1f995e4
--- /dev/null
+++ b/grammars/health/ExtraFre.gf
@@ -0,0 +1,39 @@
+-- use this path to read the grammar from the same directory

+--# -path=.:../abstract:../../prelude:../french:../romance

+

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

+--

+-- Aarne Ranta, Janna Khegai 2003

+

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

+

+oper 

+  avoirBesoin: CN -> VP = \medicine ->   

+    PosVG ( PredTV tvAvoir (DetNP nullDet (

+           AppFun (funDe (mkCNomReg "besoin" Masc) ** {lock_Fun =<>} ) 

+           (IndefOneNP medicine)

+         )

+       )

+    ) **{lock_VP =<>} ;

+

+  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 = <>} ;

+

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

+

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

+

+};

+

+

diff --git a/grammars/health/ExtraIta.gf b/grammars/health/ExtraIta.gf
new file mode 100644
index 000000000..68b5d40c2
--- /dev/null
+++ b/grammars/health/ExtraIta.gf
@@ -0,0 +1,39 @@
+--1 Functions that are not in the API, but common in Russian 

+--

+-- Aarne Ranta, Janna Khegai 2003

+

+resource ExtraIta = open ResourceIta, Prelude, SyntaxIta, MorphoIta in {

+

+oper 

+   NPLock = NounPhrase ** {lock_NP : {}} ;

+   CNLock = CommNounPhrase ** {lock_CN : {}} ;

+   SLock = Sentence ** {lock_S : {}} ;

+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 -> NPLock -> CNLock -> SLock = \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 = <> } ;

+

+-- from Predication:

+  predV2: TransVerb -> NPLock -> NounPhrase -> SLock = \F, x, y -> 

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

+ 

+};

+

+

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

+--# -path=.:../abstract:../../prelude:../russian

+

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

+--

+-- Aarne Ranta, Janna Khegai 2003

+resource ExtraRus = open ResourceRus, Prelude, SyntaxRus in {

+

+flags  coding=utf8 ;

+

+oper

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

+    let {

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

+      nuzhen  = need.s ! AF Nom Inanimate (gNum Dig.g Sg)  ;

+      doctor = Dig.s ! Sg ! Nom ;

+      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 Act Present) ** { lock_TV = <>};    

+};

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

+--# -path=.:../abstract:../../prelude:../swedish

+

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

+--

+-- 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 =""} ;

+  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
new file mode 100644
index 000000000..db901d29f
--- /dev/null
+++ b/grammars/health/Health.gf
@@ -0,0 +1,36 @@
+abstract Health =  {
+
+cat 
+  Specialization ; Patient ; Body ; Symptom ; SymptomDegree ; Illness ; 
+  Prop ; Condition ; Medicine ; 
+
+fun 
+  And : Prop -> Prop -> Prop ;
+  Complain : Patient -> Symptom -> Prop ;
+  FeverMod : SymptomDegree -> Symptom ;
+  PainIn : Patient -> Body -> Prop ;
+  PainInMod : Patient -> Body -> SymptomDegree -> Prop ;
+  Injured : Patient -> Body -> Prop ;
+  Broken : Patient -> Body -> Prop ;
+  HaveIllness : Patient -> Illness -> Prop ;
+  BeInCondition : Patient -> Condition -> Prop ; 
+  NeedDoctor : Patient -> Specialization -> Prop ;
+  NeedMedicine : Patient -> Medicine -> Prop ;
+  TakeMedicine : Patient -> Medicine -> Prop ;
+  CatchCold : Condition ;
+  Pregnant : Condition ;
+  Fever : Symptom ;
+  High : SymptomDegree ;
+  Terrible : SymptomDegree ;
+  Head : Body ; 	
+  Leg : Body ; 	
+  ShePatient : Patient ;
+  TheyPatient : Patient ;
+  IPatientHe : Patient ;
+  Influenza : Illness ; 
+  Malaria : Illness ; 
+   
+  Dentist : Specialization ;
+  PainKiller : Medicine ;
+
+} ;
diff --git a/grammars/health/HealthEng.gf b/grammars/health/HealthEng.gf
new file mode 100644
index 000000000..5663f38cd
--- /dev/null
+++ b/grammars/health/HealthEng.gf
@@ -0,0 +1,69 @@
+-- use this path to read the grammar from the same directory

+--# -path=.:../newresource/abstract:../prelude:../newresource/english

+concrete HealthEng of Health = open PredicationEng, ResourceEng, Prelude, SyntaxEng, ExtraEng 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":

+  Body = BodyCNCategory ;

+  Symptom = NP ;

+  SymptomDegree = AP ;

+  Prop = S ;

+  Illness = CN ; 

+  Condition = VP ;

+  Specialization = CN ;

+  Medicine  = CN ;

+

+lin 

+  ShePatient = SheNP ;

+  TheyPatient = TheyNP ;

+  IPatientHe = INP ;

+

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

+

+  Influenza = cnNoHum (nounReg "influenza")** {lock_CN = <>} ; 

+  Malaria =  cnNoHum (nounReg "malaria") ** {lock_CN = <>}; 

+  Dentist  = cnHum (nounReg "dentist")** {lock_CN = <>}  ;

+  PainKiller = cnNoHum (nounReg "painkiller")** {lock_CN = <>} ;

+

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

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

+

+  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 } ;

+

+  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 = <>}) ;

+  FeverMod degree = DetNP (aDet** {lock_Det = <>}) (ModAdj degree (cnNoHum (nounReg "fever")** {lock_CN = <>})) ;  

+

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

+  Complain = predV2 tvHave ;

+

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

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

+  NeedMedicine patient medicine = predV2 (mkTransVerbDir (regVerbP3 "need")**{lock_TV = <>}) 

+       patient (DetNP (aDet ** {lock_Det = <>}) medicine); 

+  TakeMedicine patient medicine = predV2 (mkTransVerbDir (regVerbP3 "take")**{lock_TV = <>})

+       patient (DetNP (aDet ** {lock_Det = <>}) medicine) ; 

+

+  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 = <>});

+};

+

+

+

+

diff --git a/grammars/health/HealthFre.gf b/grammars/health/HealthFre.gf
new file mode 100644
index 000000000..cc5bfaa33
--- /dev/null
+++ b/grammars/health/HealthFre.gf
@@ -0,0 +1,81 @@
+-- UTF8 version currently differs from non-UTF8 !!!

+

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

+--# -path=.:../newresource/abstract:../prelude:../newresource/french:../newresource/romance

+

+concrete HealthFre of Health = open PredicationFre, ResourceFre, Prelude, SyntaxFre, MorphoFre, ExtraFre in {

+

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

+-- because of the UTF8 problem with non-utf8 resource grammars! 

+

+flags 

+  coding=utf8 ;

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

+

+lincat 

+  Patient = NP ;

+  Body = CN ;

+  Symptom = NP ;

+  SymptomDegree = AP ;

+  Prop = S ;

+  Illness = CN ; 

+  Condition = VP ;

+  Specialization = CN ;

+  Medicine  = CN ;

+

+lin 

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

+

+  ShePatient = SheNP ;

+  TheyPatient = TheyNP ;

+  IPatientHe = INP ;

+                                               

+  Influenza = mkCNomReg "grippe" Fem ** {lock_CN = <> }; 

+  Malaria =  mkCNomReg "malaria" Fem ** {lock_CN = <> }; 

+  HaveIllness patient illness = predV2 tvAvoir patient (DefOneNP illness) ;  

+  Complain = predV2 tvAvoir ;

+

+  BeInCondition = PredVP ; 

+  CatchCold = PosVG (PredTV tvAvoir (IndefOneNP (mkCNomReg "rhume" Masc ** {lock_CN = <> })));

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

+

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

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

+

+  Head = mkCNomReg "tęte" Fem ** {lock_CN = <> };

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

+  Dentist  = mkCNomReg "dentiste" Masc ** {lock_CN = <> } ;

+  PainKiller = mkCNomReg "calmant" Masc ** {lock_CN = <> };

+

+  NeedDoctor patient doctor = PredVP patient (avoirBesoin doctor ** {lock_VP = <> }) ;

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

+  TakeMedicine patient medicine = predV2 (mkTransVerbDir (verbPres 

+              (conj3prendre "prendre")) ** {lock_TV = <> } ) patient (IndefOneNP medicine) ;

+

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

+  Fever = DetNP (delDet ** {lock_Det = <> }) (mkCNomReg "fičvre" Fem ** {lock_CN = <> }) ;

+

+  PainInMod patient head degree = predV2 tvAvoir patient 

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

+      ( ModAdj degree

+        (

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

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

+        )

+      )

+    ) ;

+              

+  PainIn patient head = predV2 tvAvoir patient

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

+      (

+        AppFun 

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

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

+      )

+     ) ;

+

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

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

+

+};

+

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

+--# -path=.:../abstract:../../prelude:../italian:../romance

+concrete HealthResourceIta of HealthResource = open ResourceIta, Prelude, SyntaxIta, ExtraIta, MorphoIta in {

+

+flags 

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

+

+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) ;

+

+  PainInMod pat loc deg =

+    PredVP pat

+      (AdvVP (PosTV (tvDir vAvere)

+                    (IndefOneNP (ModAdj deg (mkCN (nSale "dolore"

+masculine)))))

+             (datAdv (DefOneNP loc))) ;

+

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

+

+  PainIn pat loc =

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

+

+  Fever = partitNP (mkCNomReg (nSale "febbre" feminine)) ;

+

+  High = apSolo "alto" postpos ;

+  Terrible = apTale "terribile" postpos ;

+  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 (mkAdjective (adjSolo "ferito") True) ;

+  Broken = injuredBody (mkAdjective (adjSolo "rotto") True) ;

+

+  And = conjS ;

+

+

+};

+

+

+

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

+

+concrete HealthRus of Health = open PredicationRus, ResourceRus, Prelude, SyntaxRus, ExtraRus in {

+--# -path=.:../newresource/abstract:../prelude:../newresource/russian

+

+flags 

+  coding=utf8 ;

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

+

+lincat 

+  Patient = NP ;

+  Body = CN ;

+  Symptom = NP ;

+  SymptomDegree = AP ;

+  Prop = S ;

+  Illness = CN ; 

+  Condition = VP ;

+  Specialization = CN ;

+  Medicine  = CN ;

+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 = <>} ;

+

+  Influenza = n2n gripp ** {lock_CN = <>}; 

+  Malaria = n2n malaria ** {lock_CN = <>} ; 

+

+  Dentist  =  n2n stomatolog ** {lock_CN = <>};

+  PainKiller = n2n obezbolivauchee ** {lock_CN = <>};

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

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

+

+  Head = n2n golova ** {lock_CN = <>};

+  Leg = n2n noga ** {lock_CN = <>};

+  Fever = mkNounPhrase Sg (n2n temperatura)** {lock_NP = <>}; 

+  FeverMod degree = mkNounPhrase Sg (ModAdj degree (n2n temperatura** {lock_CN = <>})) ** {lock_NP = <>};

+  BeInCondition = PredVP ; 

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

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

+  

+

+  TakeMedicine patient painkiller = predV2 (mkDirectVerb 

+    (extVerb verbPrinimat Act Present)**{lock_TV = <>}) patient (mkNounPhrase Sg painkiller ** {lock_NP = <>}) ; 

+  Injured patient painkiller = predV2 (mkDirectVerb

+   (extVerb verbPoranit Act Past)**{lock_TV = <>}) patient (mkNounPhrase patient.n painkiller ** {lock_NP = <>}) ;

+  Broken patient painkiller = predV2 (mkDirectVerb

+   (extVerb verbSlomat Act Past)**{lock_TV = <>}) patient (mkNounPhrase patient.n painkiller ** {lock_NP = <>}) ;

+                               

+  HaveIllness patient symptom = U_predTransVerb True tvHave

+     patient (mkNounPhrase Sg symptom) ;

+  Complain = U_predTransVerb True tvHave ;

+

+  NeedDoctor = predNeedShortAdjective True ; 

+  NeedMedicine = predNeedShortAdjective True ; 

+

+  PainIn patient head = U_predTransVerb True (mkDirectVerb 

+    (extVerb verbBolet_2 Act Present )) patient (mkNounPhrase patient.n head) ;

+ 

+  PainInMod patient head degree = U_predTransVerb True (mkDirectVerb

+    (extVerb have Act Present)) patient (mkNounPhrase Sg (ModAdj degree 

+      (AppFun (mkFun bol "в" Prepos ** {lock_Fun = <>}) (mkNounPhrase patient.n head** {lock_NP = <>}))));

+

+};

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

+

+-- The difference with the UTF8 version is that 

+-- operation "verbVara" doesn't 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=.:../newresource/abstract:../prelude:../newresource/swedish

+concrete HealthSwe of Health = open PredicationSwe, ResourceSwe, Prelude, SyntaxSwe, ExtraSwe in {

+

+flags 

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

+

+lincat 

+  Patient = patientNPCategory ;

+  Body = CN ;

+  Symptom = NP ;

+  SymptomDegree = AP ;

+  Prop = S ;

+  Illness = CN ; 

+  Condition = VP ;

+  Specialization = CN ;

+  Medicine  = CN ;

+

+lin 

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

+

+  ShePatient = mkPronPatient hon_35 ;

+  TheyPatient = mkPronPatient de_38 ;

+  IPatientHe = mkPronPatient jag_32 ;

+

+  Influenza = n2n (extCommNoun NoMasc (sApa "influens")) ** {lock_CN = <>} ; 

+  Malaria = n2n (extCommNoun NoMasc (sApa "malari")) ** {lock_CN = <>} ; 

+  Head = n2n (extCommNoun NoMasc (sHus "huvud")) ** {lock_CN = <>} ;

+  Leg = n2n (extCommNoun NoMasc (sHus "ben")) ** {lock_CN = <>} ;

+  Dentist  = n2n (extCommNoun Masc (sKikare "tandläkar")) ** {lock_CN = <>} ;

+  PainKiller = n2n (extCommNoun NoMasc (sBil "smärtstillande")) ** {lock_CN = <>} ;

+

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

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

+  High = AdjP1 (extAdjective (aFin "hög")** {lock_Adj1 = <>}) ;

+  Terrible = AdjP1 (extAdjective (aFin "hemsk")** {lock_Adj1 = <>}) ;

+ 

+  BeInCondition = PredVP ; 

+  HaveIllness patient illness = predV2 (mkDirectVerb verbHava** {lock_TV =<>}) patient 

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

+  NeedMedicine patient illness = predV2 (mkDirectVerb verbBehova** {lock_TV =<>}) patient 

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

+  TakeMedicine patient illness = predV2 (mkDirectVerb verbTa** {lock_TV =<>}) patient 

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

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

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

+  Fever = DetNP (nullDet  ** {lock_Det = <>}) (n2n (extCommNoun NoMasc (sFeber "feb")) ** {lock_CN = <>}) ;

+  FeverMod degree = DetNP (nullDet  ** {lock_Det = <>}) (ModAdj degree (n2n (extCommNoun NoMasc (sFeber "feb")) ** {lock_CN = <>})) ;

+ 

+  Complain = predV2 (mkDirectVerb verbHava ** {lock_TV =<>}) ;

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

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

+

+  PainIn patient head = predV2 (mkDirectVerb verbHava** {lock_TV =<>}) patient 

+   (

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

+    ( AppFun 

+       ((mkFun (extCommNoun NoMasc (sBil "ont")) "i") ** {lock_Fun = <>})

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

+    )

+   ) ;

+  PainInMod patient head degree =  predV2 (mkDirectVerb verbHava** {lock_TV =<>}) patient

+    (

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

+      ( modCommNounPhrase degree 

+           ( AppFun 

+               ((mkFun (extCommNoun NoMasc (sBil "ont")) "i") ** {lock_Fun = <>}) 

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

+           ) ** {lock_CN = <>}

+      )

+    ) ;

+

+  Injured = injuredBody ;

+

+};

+

+