GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-07 10:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
janna
2005-10-28 08:45:28 +00:00
parent 8f9666ffef
commit d08695f71f
2 changed files with 40 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
grammars/health/HealthEng.gf
View File

@@ -28,18 +28,18 @@ lin
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" ;
-- 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" ;
@@ -95,7 +95,8 @@ lin
Fever = DetNP (aDet** {lock_Det = <>}) (cnNoHum (nounReg "fever")** {lock_CN = <>}) ;
HaveIllness patient illness = predV2 tvHave patient (DetNP (nullDet** {lock_Det = <>}) illness) ;
-- HaveIllness patient illness = predV2 tvHave patient (DetNP (nullDet** {lock_Det = <>}) illness) ;
HaveAsthma patient = predV2 tvHave patient (DetNP (nullDet** {lock_Det = <>}) (cnNonhuman "asthma")) ;
Complain = predV2 tvHave ;
NeedDoctor patient doctor = predV2 (mkTransVerbDir (regVerbP3 "need")**{lock_TV = <>})