msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

*** empty log message ***

Browse Source
This commit is contained in:
janna
2004-01-28 08:51:28 +00:00
parent 5dcd4bbb8f
commit ea6cb208cb
7 changed files with 155 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
grammars/health/Health.gf
View File

@@ -1,17 +1,15 @@
abstract Health = {
cat
Specialization ; Patient ; Body ; Symptom ; SymptomDegree ; Illness ;
Specialization ; Patient ; BodyPart ; Symptom ; SymptomDegree ; Illness ;
Prop ; Condition ; Medicine ;
fun
And : Prop -> Prop -> Prop ;
Complain : Patient -> Symptom -> Prop ;
FeverMod : SymptomDegree -> Symptom ;
PainIn : Patient -> Body -> Prop ;
PainInMod : Patient -> Body -> SymptomDegree -> Prop ;
Injured : Patient -> Body -> Prop ;
Broken : Patient -> Body -> Prop ;
PainIn : Patient -> BodyPart -> Prop ;
Injured : Patient -> BodyPart -> Prop ;
Broken : Patient -> BodyPart -> Prop ;
HaveIllness : Patient -> Illness -> Prop ;
BeInCondition : Patient -> Condition -> Prop ;
NeedDoctor : Patient -> Specialization -> Prop ;
@@ -19,18 +17,39 @@ fun
TakeMedicine : Patient -> Medicine -> Prop ;
CatchCold : Condition ;
Pregnant : Condition ;
Fever : Symptom ;
High : SymptomDegree ;
Terrible : SymptomDegree ;
Head : Body ;
Leg : Body ;
ShePatient : Patient ;
TheyPatient : Patient ;
IPatientHe : Patient ;
Influenza : Illness ;
Malaria : Illness ;
Dentist : Specialization ;
PainKiller : Medicine ;
Head : BodyPart ;
Leg : BodyPart ;
Stomac : BodyPart ;
Throat : BodyPart ;
Ear : BodyPart ;
Chest : BodyPart ;
Foot : BodyPart ;
Arm : BodyPart ;
Back : BodyPart ;
Shoulder : BodyPart ;
-- Knee : BodyPart ;
-- Tooth : BodyPart ;
Fever : Symptom ;
-- PainInMod : Patient -> BodyPart -> SymptomDegree -> Prop ;
-- SymptomMod : SymptomDegree -> Symptom -> Symtom;
-- High : SymptomDegree ;
-- Low : SymptomDegree ;
-- Terrible : SymptomDegree ;
-- BloodPressure : Symptom ;
} ;