GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -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 ; PainIn : Patient -> BodyPart -> Prop ;
Injured : Patient -> BodyPart -> Prop ; Injured : Patient -> BodyPart -> Prop ;
Broken : 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 ; NeedDoctor : Patient -> Specialization -> Prop ;
NeedMedicine : Patient -> Medicine -> Prop ; NeedMedicine : Patient -> Medicine -> Prop ;
TakeMedicine : Patient -> Medicine -> Prop ; TakeMedicine : Patient -> Medicine -> Prop ;
@@ -26,18 +39,18 @@ fun
IPatientHe : Patient ; IPatientHe : Patient ;
IPatientShe : Patient ; IPatientShe : Patient ;
Influenza : Illness ; -- Influenza : Illness ;
Malaria : Illness ; -- Malaria : Illness ;
Diarrhea : Illness ; -- Diarrhea : Illness ;
SkinAllergy : Illness ; -- SkinAllergy : Illness ;
Heartburn : Illness ; -- Heartburn : Illness ;
Rheumatism : Illness ; -- Rheumatism : Illness ;
Cystitis : Illness ; -- Cystitis : Illness ;
Asthma : Illness ; -- Asthma : Illness ;
Arthritis : Illness ; -- Arthritis : Illness ;
Diabetes : Illness ; -- Diabetes : Illness ;
Tonsillitis : Illness ; -- Tonsillitis : Illness ;
Constipation : Illness ; -- Constipation : Illness ;
Dentist : Specialization ; Dentist : Specialization ;
Gynecologist : Specialization ; Gynecologist : Specialization ;

27
grammars/health/HealthEng.gf
View File

@@ -28,18 +28,18 @@ lin
And x y = ConjS AndConj (TwoS x y) ; And x y = ConjS AndConj (TwoS x y) ;
Influenza = cnNonhuman "influenza" ; -- Influenza = cnNonhuman "influenza" ;
Malaria = cnNonhuman "malaria" ; -- Malaria = cnNonhuman "malaria" ;
Diarrhea = cnNonhuman "diarrhea" ; -- Diarrhea = cnNonhuman "diarrhea" ;
SkinAllergy = AppFun (mkFun (nNonhuman "skin") []) (MassNP (cnNonhuman "allergy")) ; -- SkinAllergy = AppFun (mkFun (nNonhuman "skin") []) (MassNP (cnNonhuman "allergy")) ;
Heartburn = cnNonhuman "heartburn" ; -- Heartburn = cnNonhuman "heartburn" ;
Rheumatism = cnNonhuman "rheumatism" ; -- Rheumatism = cnNonhuman "rheumatism" ;
Cystitis = cnNonhuman "cystitis" ; -- Cystitis = cnNonhuman "cystitis" ;
Asthma = cnNonhuman "asthma" ; -- Asthma = cnNonhuman "asthma" ;
Arthritis = cnNonhuman "arthritis" ; -- Arthritis = cnNonhuman "arthritis" ;
Diabetes = cnNonhuman "diabetes" ; -- Diabetes = cnNonhuman "diabetes" ;
Tonsillitis = cnNonhuman "tonsillitis" ; -- Tonsillitis = cnNonhuman "tonsillitis" ;
Constipation = cnNonhuman "constipation" ; -- Constipation = cnNonhuman "constipation" ;
Dentist = cnHuman "dentist" ; Dentist = cnHuman "dentist" ;
Gynecologist = cnHuman "gynecologist" ; Gynecologist = cnHuman "gynecologist" ;
@@ -95,7 +95,8 @@ lin
Fever = DetNP (aDet** {lock_Det = <>}) (cnNoHum (nounReg "fever")** {lock_CN = <>}) ; 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 ; Complain = predV2 tvHave ;
NeedDoctor patient doctor = predV2 (mkTransVerbDir (regVerbP3 "need")**{lock_TV = <>}) NeedDoctor patient doctor = predV2 (mkTransVerbDir (regVerbP3 "need")**{lock_TV = <>})