diff options
Diffstat (limited to 'grammars/health/HealthSwe.gf')
| -rw-r--r-- | grammars/health/HealthSwe.gf | 83 |
1 files changed, 56 insertions, 27 deletions
diff --git a/grammars/health/HealthSwe.gf b/grammars/health/HealthSwe.gf index 32d41ab2a..b385ea94a 100644 --- a/grammars/health/HealthSwe.gf +++ b/grammars/health/HealthSwe.gf @@ -8,7 +8,7 @@ -- use this path to read the grammar from the same directory
--# -path=.:../newresource/abstract:../prelude:../newresource/swedish
-concrete HealthSwe of Health = open PredicationSwe, ResourceSwe, Prelude, SyntaxSwe, ExtraSwe, ParadigmsSwe in {
+concrete HealthSwe of Health = open PredicationSwe, ResourceSwe, Prelude, SyntaxSwe, ExtraSwe, ParadigmsSwe, ResourceExtSwe in {
flags
startcat=Phr ; lexer=text ; parser=chart ; unlexer=text ;
@@ -22,7 +22,7 @@ lincat Illness = CN ;
Condition = VP ;
Specialization = CN ;
- Medicine = CN ;
+ Medicine = NP ;
lin
And x y = ConjS AndConj (TwoS x y) ;
@@ -31,11 +31,40 @@ lin TheyPatient = mkPronPatient de_38 ;
IPatientHe = mkPronPatient jag_32 ;
- Influenza = n2n (extCommNoun NoMasc (sApa "influens")) ** {lock_CN = <>} ;
- Malaria = n2n (extCommNoun NoMasc (sApa "malari")) ** {lock_CN = <>} ;
-
- Dentist = n2n (extCommNoun Masc (sKikare "tandläkar")) ** {lock_CN = <>} ;
- PainKiller = n2n (extCommNoun NoMasc (sBil "smärtstillande")) ** {lock_CN = <>} ;
+ Influenza = UseN (nApa "influens") ;
+ Malaria = UseN (nApa "malari");
+ Diarrhea = UseN (nApa "diarré");
+ SkinAllergy = UseN (nApa "hudallergi");
+ Heartburn = UseN (nApa "halsbränna");
+ Rheumatism = UseN (nBil "reumatism");
+ Cystitis = UseN (nRisk "urinvägsinfektion");
+ Asthma = UseN (nApa "astma");
+ Arthritis = UseN (nApa "artrit");
+ Diabetes = UseN (nBil "diabetes");
+ Tonsillitis = UseN (nBil "halsfluss");
+ Constipation = UseN (nBil "förstoppning");
+
+ Dentist = UseN (nKikare "tandläkare") ;
+ Gynecologist = UseN (nRisk "gynekolog");
+ Urologist= UseN (nRisk "urolog");
+ Pediatrician = UseN (nKikare "barnläkare");
+ Physician = UseN (nKikare "läkare");
+ Dermatologist = UseN (nKikare "hudläkare");
+ Cardiologist = UseN (nRisk "kardiolog");
+ Neuropathologist = UseN (nRisk "neurolog");
+ Ophthalmologist = UseN (nKikare "ögönläkare");
+ Surgeon = UseN (nRisk "kirurg");
+
+ SleepingPeels = IndefManyNP (UseN (nRisk "sömntablett")) ;
+ Sedative = IndefOneNP (UseN (nPapper "lugnande")) ;
+ Vitamins = IndefManyNP (UseN (nPapper "vitaminpiller")) ;
+ EyeDrops = IndefManyNP (UseN (nPojke "ögondroppe")) ;
+ Antibiotics = IndefManyNP (UseN (nPapper "antibiotika")) ;
+ Viagra = MassNP (UseN (nBil "viagra")) ;
+ Laxative = IndefOneNP (UseN (nPapper "laxer")) ;
+ Insulin = MassNP (UseN (nRep "insulin")) ;
+ Antidepressant = IndefOneNP ( ModAdj (AdjP1 (adjReg "antidepressiv")) (UseN (nRep "läkemedel"))) ;
+ PainKiller = IndefOneNP (UseN (nBil "smärtstillande")) ;
CatchCold = PosVG ( PredAP( AdjP1 (extAdjective (aGrund("förkyl")) ** {lock_Adj1 = <>}) ));
Pregnant = PosVG ( PredAP( AdjP1 (extAdjective (aGrund("gravi") )** {lock_Adj1 = <>}) ));
@@ -43,13 +72,13 @@ lin BeInCondition = PredVP ;
HaveIllness patient illness = predV2 (mkDirectVerb verbHa** {lock_TV =<>}) patient
(DetNP (nullDet ** {lock_Det = <>}) illness) ;
- NeedMedicine patient illness = predV2 (mkDirectVerb verbBehova** {lock_TV =<>}) patient
- (DetNP (nullDet ** {lock_Det = <>}) illness) ;
- TakeMedicine patient illness = predV2 (mkDirectVerb verbTa** {lock_TV =<>}) patient
- (DetNP (nullDet ** {lock_Det = <>}) illness) ;
+
+ NeedMedicine = predV2 (mkDirectVerb verbBehova** {lock_TV =<>}) ;
+ TakeMedicine = predV2 (mkDirectVerb verbTa** {lock_TV =<>}) ;
+
NeedDoctor patient illness = predV2 (mkDirectVerb verbBehova** {lock_TV =<>}) patient
(DetNP (enDet ** {lock_Det = <>}) illness) ;
- Fever = DetNP (nullDet ** {lock_Det = <>}) (n2n (extCommNoun NoMasc (sFeber "feb")) ** {lock_CN = <>}) ;
+ Fever = DetNP (nullDet ** {lock_Det = <>}) (UseN (nRisk "feber")) ;
Complain = predV2 (mkDirectVerb verbHa ** {lock_TV =<>}) ;
Broken patient head = predV2 (mkTransVerb verbHa "brutit" ** {lock_TV =<>} ) patient
@@ -59,25 +88,25 @@ lin (
DetNP (nullDet ** {lock_Det = <>})
( AppFun
- ((mkFun (extCommNoun NoMasc (sBil "ont")**{lock_N =<>}) "i") ** {lock_Fun = <>})
+ ((mkFun (nBil "ont") "i") ** {lock_Fun = <>})
((defNounPhrase patient.n head)** {lock_NP = <>})
)
) ;
- Head = n2n (extCommNoun NoMasc(sHus "huvud")) ** {lock_CN = <>} ;
- Leg = n2n (extCommNoun NoMasc (sHus "ben")) ** {lock_CN = <>} ;
- Stomac = n2n (nPojke "mage") ** {lock_CN = <>} ;
- Throat = n2n (nBil "hals") ** {lock_CN = <>} ;
- Ear = n2n (mkN "öra" "örat" "öron" "öronen" Neutr NoMasc) ** {lock_CN = <>} ;
- Chest = n2n (extCommNoun NoMasc (sHus "bröst")) ** {lock_CN = <>} ;
- Foot = n2n (mkN "fot" "foten" "fötter" "fötterna" Utr NoMasc) ** {lock_CN = <>} ;
- Arm = n2n (mkN "hand" "handen" "händer" "händerna" Utr NoMasc) ** {lock_CN = <>} ;
- Back = n2n (nBil "rygg") ** {lock_CN = <>} ;
- Shoulder = n2n (nNyckel "axel") ** {lock_CN = <>} ;
-
--- High = AdjP1 (extAdjective (aFin "hög")** {lock_Adj1 = <>}) ;
--- Terrible = AdjP1 (extAdjective (aFin "hemsk")** {lock_Adj1 = <>}) ;
--- FeverMod degree = DetNP (nullDet ** {lock_Det = <>}) (ModAdj degree (n2n (extCommNoun NoMasc (sFeber "feb")) ** {lock_CN = <>})) ;
+ Head = UseN (nRep "huvud") ;
+ Leg = UseN (nRep "ben") ;
+ Stomac = UseN (nPojke "mage") ;
+ Throat = UseN (nBil "hals") ;
+ Ear = UseN (mkN "öra" "örat" "öron" "öronen" Neutr NoMasc) ;
+ Chest = UseN (nRep "bröst") ;
+ Foot = UseN (mkN "fot" "foten" "fötter" "fötterna" Utr NoMasc) ;
+ Arm = UseN (mkN "hand" "handen" "händer" "händerna" Utr NoMasc) ;
+ Back = UseN (nBil "rygg") ;
+ Shoulder = UseN (nNyckel "axel") ;
+
+-- High = AdjP1 (adjReg "hög") ;
+-- Terrible = AdjP1 (adjReg "hemsk") ;
+-- FeverMod degree = DetNP (nullDet ** {lock_Det = <>}) (ModAdj degree (UseN (nKikare "feb") ) ;
-- PainInMod patient head degree = predV2 (mkDirectVerb verbHa** {lock_TV =<>}) patient
-- (
-- DetNP (nullDet ** {lock_Det = <>})
|