forked from GitHub/gf-core
94 lines
3.6 KiB
Plaintext
94 lines
3.6 KiB
Plaintext
-- 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, ParadigmsFre in {
|
|
|
|
-- 1. still using "à" instead of "aux" in PainIn operations
|
|
-- because of the UTF8 problem with non-utf8 resource grammars!
|
|
|
|
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
|
|
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 (tvDir vAvoir) patient (DefOneNP illness) ;
|
|
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 = <> })) ;
|
|
|
|
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) ;
|
|
|
|
Fever = DetNP (delDet ** {lock_Det = <> }) (mkCNomReg "fièvre" Fem ** {lock_CN = <> }) ;
|
|
|
|
PainIn patient head = predV2 (tvDir vAvoir) 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é") ;
|
|
|
|
|
|
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 = <> };
|
|
-- Knee = mkCNomReg "genou" Masc ** {lock_CN = <> };
|
|
-- Tooth = mkCNomReg "dents" 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 = <> })
|
|
-- )
|
|
-- )
|
|
-- ) ;
|
|
|
|
|
|
};
|
|
|