GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -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

39
grammars/health/Health.gf
View File

@@ -9,7 +9,20 @@ fun
PainIn : Patient -> BodyPart -> Prop ;
Injured : Patient -> BodyPart -> Prop ;
Broken : Patient -> BodyPart -> Prop ;
HaveIllness : Patient -> Illness -> Prop ;
-- HaveIllness : Patient -> Illness -> Prop ;
HaveAsthma : Patient -> Prop ;
HaveHeartburn : Patient -> Prop ;
HaveInfluenza : Patient -> Prop ;
HaveRheumatism : Patient -> Prop ;
HaveCystitis : Patient -> Prop ;
HaveAsthma : Patient -> Prop ;
HaveArthritis : Patient -> Prop ;
HaveDiabetes : Patient -> Prop ;
HaveTonsillitis : Patient -> Prop ;
HaveConstipation : Patient -> Prop ;
HaveMalaria : Patient -> Prop ;
HaveDiarrhea : Patient -> Prop ;
HaveSkinAllergy : Patient -> Prop ;
NeedDoctor : Patient -> Specialization -> Prop ;
NeedMedicine : Patient -> Medicine -> Prop ;
TakeMedicine : Patient -> Medicine -> Prop ;
@@ -26,18 +39,18 @@ fun
IPatientHe : Patient ;
IPatientShe : Patient ;
Influenza : Illness ;
Malaria : Illness ;
Diarrhea : Illness ;
SkinAllergy : Illness ;
Heartburn : Illness ;
Rheumatism : Illness ;
Cystitis : Illness ;
Asthma : Illness ;
Arthritis : Illness ;
Diabetes : Illness ;
Tonsillitis : Illness ;
Constipation : Illness ;
-- Influenza : Illness ;
-- Malaria : Illness ;
-- Diarrhea : Illness ;
-- SkinAllergy : Illness ;
-- Heartburn : Illness ;
-- Rheumatism : Illness ;
-- Cystitis : Illness ;
-- Asthma : Illness ;
-- Arthritis : Illness ;
-- Diabetes : Illness ;
-- Tonsillitis : Illness ;
-- Constipation : Illness ;
Dentist : Specialization ;
Gynecologist : Specialization ;

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 = <>})