blob: cb83a973b160bc6ea31be211af4a2ba31268af1f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
-- 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 = <> })
-- )
-- )
-- ) ;
};
|
