diff options
| author | aarne <unknown> | 2004-01-12 16:46:00 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-01-12 16:46:00 +0000 |
| commit | ae9fe52eaace159d650aa32b19fbfa957c1df8c8 (patch) | |
| tree | 4ee3dd2547b2f042fe0883af3600add210a075b8 /grammars/health/HealthFre.gf | |
| parent | 5c88df10bbf6c38b00e63bf897b5561417dd10fe (diff) | |
From Janna.
Diffstat (limited to 'grammars/health/HealthFre.gf')
| -rw-r--r-- | grammars/health/HealthFre.gf | 81 |
1 files changed, 81 insertions, 0 deletions
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é") ;
+
+};
+
|