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
|
-- use this path to read the grammar from the same directory
--# -path=.:../../lib/resource-0.6/abstract:../prelude:../../lib/resource-0.6/english
concrete HealthEng of Health = open PredicationEng, ResourceEng, ResourceExtEng, Prelude, Predef, SyntaxEng, ExtraEng, ParadigmsEng 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":
BodyPart = BodyCNCategory ;
Symptom = NP ;
SymptomDegree = AP ;
Prop = S ;
Illness = CN ;
Condition = VP ;
Specialization = CN ;
Medicine = NP ;
lin
ShePatient = SheNP ;
TheyPatient = TheyNP ;
IPatientHe = INP ;
IPatientShe = INP ;
HePatient = HeNP ;
WePatient = WeNP ;
And x y = ConjS AndConj (TwoS x y) ;
Influenza = cnNonhuman "influenza" ;
Malaria = cnNonhuman "malaria" ;
Diarrhea = cnNonhuman "diarrhea" ;
SkinAllergy = AppFun (mkFun (nNonhuman "skin") []) (MassNP (cnNonhuman "allergy")) ;
Heartburn = cnNonhuman "heartburn" ;
Rheumatism = cnNonhuman "rheumatism" ;
Cystitis = cnNonhuman "cystitis" ;
Asthma = cnNonhuman "asthma" ;
Arthritis = cnNonhuman "arthritis" ;
Diabetes = cnNonhuman "diabetes" ;
Tonsillitis = cnNonhuman "tonsillitis" ;
Constipation = cnNonhuman "constipation" ;
Dentist = cnHuman "dentist" ;
Gynecologist = cnHuman "gynecologist" ;
Urologist = cnHuman "urologist" ;
Pediatrician = cnHuman "pediatrician" ;
Physician = cnHuman "physician" ;
Dermatologist = cnHuman "dermatologist" ;
Cardiologist = cnHuman "cardiologist" ;
Neuropathologist = cnHuman "neuropathologist" ;
Ophthalmologist = cnHuman "ophthalmologist" ;
Surgeon = cnHuman "surgeon" ;
SleepingPeels = IndefManyNP (ModAdj (apReg "sleeping") (cnNonhuman "peel"));
Vitamins = IndefManyNP (cnNonhuman "vitamin") ;
EyeDrops = IndefManyNP (cnNonhuman "eye-drop") ;
Antibiotics = IndefManyNP (cnNonhuman "antibiotic") ;
Sedative = IndefOneNP (cnNonhuman "sedative") ;
Viagra = MassNP (cnNonhuman "viagra") ;
Laxative = IndefOneNP (cnNonhuman "laxative") ;
Insulin = MassNP (cnNonhuman "insulin");
Antidepressant = IndefOneNP (cnNonhuman "antidepressant") ;
PainKiller = IndefOneNP (cnNonhuman "painkiller") ;
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 = table{ True => table {Sg => table {_ => "throat" };
Pl => table {_ => "throats" }};
False => table { _ => table {_=> ["sore throat"]}}} ;
painInType = False } ;
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 = <>}) ;
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 = predV2 (mkTransVerbDir (regVerbP3 "need")**{lock_TV = <>}) ;
TakeMedicine = predV2 (mkTransVerbDir (regVerbP3 "take")**{lock_TV = <>}) ;
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 = <>});
-- 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 = <>});
};
|
