diff options
Diffstat (limited to 'grammars/health/HealthEng.gf')
| -rw-r--r-- | grammars/health/HealthEng.gf | 30 |
1 files changed, 24 insertions, 6 deletions
diff --git a/grammars/health/HealthEng.gf b/grammars/health/HealthEng.gf index 5663f38cd..ea33f11d6 100644 --- a/grammars/health/HealthEng.gf +++ b/grammars/health/HealthEng.gf @@ -9,7 +9,7 @@ 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 ;
+ BodyPart = BodyCNCategory ;
Symptom = NP ;
SymptomDegree = AP ;
Prop = S ;
@@ -30,22 +30,34 @@ lin 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 } ;
+ 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 = \\_,n,_ => case n of {Sg =>"throat" ; Pl=> "throats" }; painInType = True } ;
+ 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 = <>}) ;
- 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 ;
@@ -61,7 +73,13 @@ lin Broken = injuredBody (mkTransVerb verbP3Have "broken"**{lock_TV = <>}) ;
PainIn = painInPatientsBody (cnNoHum (nounReg "pain")**{lock_CN = <>}) ;
- PainInMod = painInPatientsBodyMode (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 = <>});
};
|